LCOV - code coverage report
Current view: top level - chemistry/pp_waccm_tsmlt_mam5 - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 8460 8460 100.0 %
Date: 2025-03-14 01:23:43 Functions: 33 33 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     9949925 :       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   325174377 :       do k = 1,avec_len
      20   315224452 :          lu(k,1) = 1._r8 / lu(k,1)
      21   315224452 :          lu(k,2) = 1._r8 / lu(k,2)
      22   315224452 :          lu(k,3) = 1._r8 / lu(k,3)
      23   315224452 :          lu(k,4) = 1._r8 / lu(k,4)
      24   315224452 :          lu(k,5) = 1._r8 / lu(k,5)
      25   315224452 :          lu(k,6) = 1._r8 / lu(k,6)
      26   315224452 :          lu(k,7) = 1._r8 / lu(k,7)
      27   315224452 :          lu(k,8) = 1._r8 / lu(k,8)
      28   315224452 :          lu(k,9) = 1._r8 / lu(k,9)
      29   315224452 :          lu(k,10) = 1._r8 / lu(k,10)
      30   315224452 :          lu(k,11) = 1._r8 / lu(k,11)
      31   315224452 :          lu(k,12) = 1._r8 / lu(k,12)
      32   315224452 :          lu(k,13) = 1._r8 / lu(k,13)
      33   315224452 :          lu(k,14) = 1._r8 / lu(k,14)
      34   315224452 :          lu(k,15) = 1._r8 / lu(k,15)
      35   315224452 :          lu(k,16) = 1._r8 / lu(k,16)
      36   315224452 :          lu(k,17) = 1._r8 / lu(k,17)
      37   315224452 :          lu(k,18) = 1._r8 / lu(k,18)
      38   315224452 :          lu(k,19) = 1._r8 / lu(k,19)
      39   315224452 :          lu(k,20) = 1._r8 / lu(k,20)
      40   315224452 :          lu(k,21) = 1._r8 / lu(k,21)
      41   315224452 :          lu(k,22) = 1._r8 / lu(k,22)
      42   315224452 :          lu(k,23) = 1._r8 / lu(k,23)
      43   315224452 :          lu(k,24) = 1._r8 / lu(k,24)
      44   315224452 :          lu(k,25) = 1._r8 / lu(k,25)
      45   315224452 :          lu(k,26) = 1._r8 / lu(k,26)
      46   315224452 :          lu(k,27) = 1._r8 / lu(k,27)
      47   315224452 :          lu(k,28) = 1._r8 / lu(k,28)
      48   315224452 :          lu(k,29) = 1._r8 / lu(k,29)
      49   315224452 :          lu(k,30) = 1._r8 / lu(k,30)
      50   315224452 :          lu(k,31) = 1._r8 / lu(k,31)
      51   315224452 :          lu(k,32) = 1._r8 / lu(k,32)
      52   315224452 :          lu(k,33) = 1._r8 / lu(k,33)
      53   315224452 :          lu(k,34) = 1._r8 / lu(k,34)
      54   315224452 :          lu(k,35) = 1._r8 / lu(k,35)
      55   315224452 :          lu(k,36) = 1._r8 / lu(k,36)
      56   315224452 :          lu(k,37) = 1._r8 / lu(k,37)
      57   315224452 :          lu(k,38) = 1._r8 / lu(k,38)
      58   315224452 :          lu(k,39) = 1._r8 / lu(k,39)
      59   315224452 :          lu(k,40) = 1._r8 / lu(k,40)
      60   315224452 :          lu(k,41) = 1._r8 / lu(k,41)
      61   315224452 :          lu(k,42) = 1._r8 / lu(k,42)
      62   315224452 :          lu(k,43) = 1._r8 / lu(k,43)
      63   315224452 :          lu(k,44) = 1._r8 / lu(k,44)
      64   315224452 :          lu(k,50) = 1._r8 / lu(k,50)
      65   315224452 :          lu(k,56) = 1._r8 / lu(k,56)
      66   315224452 :          lu(k,62) = 1._r8 / lu(k,62)
      67   315224452 :          lu(k,68) = 1._r8 / lu(k,68)
      68   315224452 :          lu(k,74) = 1._r8 / lu(k,74)
      69   315224452 :          lu(k,76) = 1._r8 / lu(k,76)
      70   325174377 :          lu(k,82) = 1._r8 / lu(k,82)
      71             :       end do
      72     9949925 :       end subroutine lu_fac01
      73     9949925 :       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   325174377 :       do k = 1,avec_len
      87   315224452 :          lu(k,88) = 1._r8 / lu(k,88)
      88   315224452 :          lu(k,94) = 1._r8 / lu(k,94)
      89   315224452 :          lu(k,95) = 1._r8 / lu(k,95)
      90   315224452 :          lu(k,96) = lu(k,96) * lu(k,95)
      91   315224452 :          lu(k,97) = lu(k,97) * lu(k,95)
      92   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,96) * lu(k,1580)
      93   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,97) * lu(k,1580)
      94   315224452 :          lu(k,98) = 1._r8 / lu(k,98)
      95   315224452 :          lu(k,99) = lu(k,99) * lu(k,98)
      96   315224452 :          lu(k,100) = lu(k,100) * lu(k,98)
      97   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,99) * lu(k,1681)
      98   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,100) * lu(k,1681)
      99   315224452 :          lu(k,101) = 1._r8 / lu(k,101)
     100   315224452 :          lu(k,102) = lu(k,102) * lu(k,101)
     101   315224452 :          lu(k,103) = lu(k,103) * lu(k,101)
     102   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,102) * lu(k,1998)
     103   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,103) * lu(k,1998)
     104   315224452 :          lu(k,104) = 1._r8 / lu(k,104)
     105   315224452 :          lu(k,105) = lu(k,105) * lu(k,104)
     106   315224452 :          lu(k,106) = lu(k,106) * lu(k,104)
     107   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,105) * lu(k,1682)
     108   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,106) * lu(k,1682)
     109   315224452 :          lu(k,107) = 1._r8 / lu(k,107)
     110   315224452 :          lu(k,108) = lu(k,108) * lu(k,107)
     111   315224452 :          lu(k,109) = lu(k,109) * lu(k,107)
     112   315224452 :          lu(k,110) = lu(k,110) * lu(k,107)
     113   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,108) * lu(k,1999)
     114   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,109) * lu(k,1999)
     115   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,110) * lu(k,1999)
     116   315224452 :          lu(k,111) = 1._r8 / lu(k,111)
     117   315224452 :          lu(k,112) = lu(k,112) * lu(k,111)
     118   315224452 :          lu(k,113) = lu(k,113) * lu(k,111)
     119   315224452 :          lu(k,114) = lu(k,114) * lu(k,111)
     120   315224452 :          lu(k,2011) = lu(k,2011) - lu(k,112) * lu(k,2000)
     121   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,113) * lu(k,2000)
     122   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,114) * lu(k,2000)
     123   315224452 :          lu(k,115) = 1._r8 / lu(k,115)
     124   315224452 :          lu(k,116) = lu(k,116) * lu(k,115)
     125   315224452 :          lu(k,117) = lu(k,117) * lu(k,115)
     126   315224452 :          lu(k,118) = lu(k,118) * lu(k,115)
     127   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,116) * lu(k,2001)
     128   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,117) * lu(k,2001)
     129   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,118) * lu(k,2001)
     130   315224452 :          lu(k,119) = 1._r8 / lu(k,119)
     131   315224452 :          lu(k,120) = lu(k,120) * lu(k,119)
     132   315224452 :          lu(k,121) = lu(k,121) * lu(k,119)
     133   315224452 :          lu(k,122) = lu(k,122) * lu(k,119)
     134   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,120) * lu(k,2002)
     135   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,121) * lu(k,2002)
     136   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,122) * lu(k,2002)
     137   315224452 :          lu(k,123) = 1._r8 / lu(k,123)
     138   315224452 :          lu(k,124) = lu(k,124) * lu(k,123)
     139   315224452 :          lu(k,125) = lu(k,125) * lu(k,123)
     140   315224452 :          lu(k,126) = lu(k,126) * lu(k,123)
     141   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,124) * lu(k,1683)
     142   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,125) * lu(k,1683)
     143   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,126) * lu(k,1683)
     144   315224452 :          lu(k,127) = 1._r8 / lu(k,127)
     145   315224452 :          lu(k,128) = lu(k,128) * lu(k,127)
     146   315224452 :          lu(k,129) = lu(k,129) * lu(k,127)
     147   315224452 :          lu(k,796) = lu(k,796) - lu(k,128) * lu(k,795)
     148   315224452 :          lu(k,800) = - lu(k,129) * lu(k,795)
     149   315224452 :          lu(k,2293) = - lu(k,128) * lu(k,2275)
     150   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,129) * lu(k,2275)
     151   315224452 :          lu(k,130) = 1._r8 / lu(k,130)
     152   315224452 :          lu(k,131) = lu(k,131) * lu(k,130)
     153   315224452 :          lu(k,132) = lu(k,132) * lu(k,130)
     154   315224452 :          lu(k,261) = lu(k,261) - lu(k,131) * lu(k,260)
     155   315224452 :          lu(k,264) = lu(k,264) - lu(k,132) * lu(k,260)
     156   315224452 :          lu(k,2424) = lu(k,2424) - lu(k,131) * lu(k,2423)
     157   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,132) * lu(k,2423)
     158   315224452 :          lu(k,133) = 1._r8 / lu(k,133)
     159   315224452 :          lu(k,134) = lu(k,134) * lu(k,133)
     160   315224452 :          lu(k,135) = lu(k,135) * lu(k,133)
     161   315224452 :          lu(k,712) = lu(k,712) - lu(k,134) * lu(k,710)
     162   315224452 :          lu(k,715) = lu(k,715) - lu(k,135) * lu(k,710)
     163   315224452 :          lu(k,1799) = lu(k,1799) - lu(k,134) * lu(k,1684)
     164   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,135) * lu(k,1684)
     165   315224452 :          lu(k,136) = 1._r8 / lu(k,136)
     166   315224452 :          lu(k,137) = lu(k,137) * lu(k,136)
     167   315224452 :          lu(k,138) = lu(k,138) * lu(k,136)
     168   315224452 :          lu(k,523) = lu(k,523) - lu(k,137) * lu(k,522)
     169   315224452 :          lu(k,527) = lu(k,527) - lu(k,138) * lu(k,522)
     170   315224452 :          lu(k,1932) = lu(k,1932) - lu(k,137) * lu(k,1927)
     171   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,138) * lu(k,1927)
     172   315224452 :          lu(k,139) = 1._r8 / lu(k,139)
     173   315224452 :          lu(k,140) = lu(k,140) * lu(k,139)
     174   315224452 :          lu(k,141) = lu(k,141) * lu(k,139)
     175   315224452 :          lu(k,142) = lu(k,142) * lu(k,139)
     176   315224452 :          lu(k,143) = lu(k,143) * lu(k,139)
     177   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,140) * lu(k,2003)
     178   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,141) * lu(k,2003)
     179   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,142) * lu(k,2003)
     180   325174377 :          lu(k,2035) = lu(k,2035) - lu(k,143) * lu(k,2003)
     181             :       end do
     182     9949925 :       end subroutine lu_fac02
     183     9949925 :       subroutine lu_fac03( avec_len, lu )
     184             :       use chem_mods, only : nzcnt
     185             :       use shr_kind_mod, only : r8 => shr_kind_r8
     186             :       implicit none
     187             : !-----------------------------------------------------------------------
     188             : ! ... dummy args
     189             : !-----------------------------------------------------------------------
     190             :       integer, intent(in) :: avec_len
     191             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     192             : !-----------------------------------------------------------------------
     193             : ! ... local variables
     194             : !-----------------------------------------------------------------------
     195             :       integer :: k
     196   325174377 :       do k = 1,avec_len
     197   315224452 :          lu(k,144) = 1._r8 / lu(k,144)
     198   315224452 :          lu(k,145) = lu(k,145) * lu(k,144)
     199   315224452 :          lu(k,146) = lu(k,146) * lu(k,144)
     200   315224452 :          lu(k,147) = lu(k,147) * lu(k,144)
     201   315224452 :          lu(k,148) = lu(k,148) * lu(k,144)
     202   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,145) * lu(k,2004)
     203   315224452 :          lu(k,2019) = lu(k,2019) - lu(k,146) * lu(k,2004)
     204   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,147) * lu(k,2004)
     205   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,148) * lu(k,2004)
     206   315224452 :          lu(k,149) = 1._r8 / lu(k,149)
     207   315224452 :          lu(k,150) = lu(k,150) * lu(k,149)
     208   315224452 :          lu(k,151) = lu(k,151) * lu(k,149)
     209   315224452 :          lu(k,152) = lu(k,152) * lu(k,149)
     210   315224452 :          lu(k,153) = lu(k,153) * lu(k,149)
     211   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,150) * lu(k,2005)
     212   315224452 :          lu(k,2011) = lu(k,2011) - lu(k,151) * lu(k,2005)
     213   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,152) * lu(k,2005)
     214   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,153) * lu(k,2005)
     215   315224452 :          lu(k,154) = 1._r8 / lu(k,154)
     216   315224452 :          lu(k,155) = lu(k,155) * lu(k,154)
     217   315224452 :          lu(k,156) = lu(k,156) * lu(k,154)
     218   315224452 :          lu(k,157) = lu(k,157) * lu(k,154)
     219   315224452 :          lu(k,158) = lu(k,158) * lu(k,154)
     220   315224452 :          lu(k,2009) = lu(k,2009) - lu(k,155) * lu(k,2006)
     221   315224452 :          lu(k,2019) = lu(k,2019) - lu(k,156) * lu(k,2006)
     222   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,157) * lu(k,2006)
     223   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,158) * lu(k,2006)
     224   315224452 :          lu(k,160) = 1._r8 / lu(k,160)
     225   315224452 :          lu(k,161) = lu(k,161) * lu(k,160)
     226   315224452 :          lu(k,162) = lu(k,162) * lu(k,160)
     227   315224452 :          lu(k,163) = lu(k,163) * lu(k,160)
     228   315224452 :          lu(k,164) = lu(k,164) * lu(k,160)
     229   315224452 :          lu(k,165) = lu(k,165) * lu(k,160)
     230   315224452 :          lu(k,1686) = lu(k,1686) - lu(k,161) * lu(k,1685)
     231   315224452 :          lu(k,1687) = lu(k,1687) - lu(k,162) * lu(k,1685)
     232   315224452 :          lu(k,1736) = lu(k,1736) - lu(k,163) * lu(k,1685)
     233   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,164) * lu(k,1685)
     234   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,165) * lu(k,1685)
     235   315224452 :          lu(k,166) = 1._r8 / lu(k,166)
     236   315224452 :          lu(k,167) = lu(k,167) * lu(k,166)
     237   315224452 :          lu(k,168) = lu(k,168) * lu(k,166)
     238   315224452 :          lu(k,169) = lu(k,169) * lu(k,166)
     239   315224452 :          lu(k,1731) = - lu(k,167) * lu(k,1686)
     240   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,168) * lu(k,1686)
     241   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,169) * lu(k,1686)
     242   315224452 :          lu(k,170) = 1._r8 / lu(k,170)
     243   315224452 :          lu(k,171) = lu(k,171) * lu(k,170)
     244   315224452 :          lu(k,172) = lu(k,172) * lu(k,170)
     245   315224452 :          lu(k,173) = lu(k,173) * lu(k,170)
     246   315224452 :          lu(k,174) = lu(k,174) * lu(k,170)
     247   315224452 :          lu(k,1729) = lu(k,1729) - lu(k,171) * lu(k,1687)
     248   315224452 :          lu(k,1732) = lu(k,1732) - lu(k,172) * lu(k,1687)
     249   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,173) * lu(k,1687)
     250   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,174) * lu(k,1687)
     251   315224452 :          lu(k,175) = 1._r8 / lu(k,175)
     252   315224452 :          lu(k,176) = lu(k,176) * lu(k,175)
     253   315224452 :          lu(k,842) = lu(k,842) - lu(k,176) * lu(k,836)
     254   315224452 :          lu(k,963) = lu(k,963) - lu(k,176) * lu(k,953)
     255   315224452 :          lu(k,1506) = lu(k,1506) - lu(k,176) * lu(k,1490)
     256   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,176) * lu(k,1581)
     257   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,176) * lu(k,2128)
     258   315224452 :          lu(k,177) = 1._r8 / lu(k,177)
     259   315224452 :          lu(k,178) = lu(k,178) * lu(k,177)
     260   315224452 :          lu(k,181) = lu(k,181) - lu(k,178) * lu(k,179)
     261   315224452 :          lu(k,1451) = - lu(k,178) * lu(k,1442)
     262   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,178) * lu(k,1524)
     263   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,178) * lu(k,2064)
     264   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,178) * lu(k,2179)
     265   315224452 :          lu(k,180) = 1._r8 / lu(k,180)
     266   315224452 :          lu(k,181) = lu(k,181) * lu(k,180)
     267   315224452 :          lu(k,1451) = lu(k,1451) - lu(k,181) * lu(k,1443)
     268   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,181) * lu(k,1525)
     269   315224452 :          lu(k,2023) = lu(k,2023) - lu(k,181) * lu(k,2007)
     270   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,181) * lu(k,2065)
     271   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,181) * lu(k,2180)
     272   315224452 :          lu(k,182) = 1._r8 / lu(k,182)
     273   315224452 :          lu(k,183) = lu(k,183) * lu(k,182)
     274   315224452 :          lu(k,184) = lu(k,184) * lu(k,182)
     275   315224452 :          lu(k,185) = lu(k,185) * lu(k,182)
     276   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,183) * lu(k,1688)
     277   315224452 :          lu(k,1822) = - lu(k,184) * lu(k,1688)
     278   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,185) * lu(k,1688)
     279   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,183) * lu(k,2008)
     280   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,184) * lu(k,2008)
     281   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,185) * lu(k,2008)
     282   315224452 :          lu(k,187) = 1._r8 / lu(k,187)
     283   315224452 :          lu(k,188) = lu(k,188) * lu(k,187)
     284   315224452 :          lu(k,189) = lu(k,189) * lu(k,187)
     285   315224452 :          lu(k,190) = lu(k,190) * lu(k,187)
     286   315224452 :          lu(k,191) = lu(k,191) * lu(k,187)
     287   315224452 :          lu(k,192) = lu(k,192) * lu(k,187)
     288   315224452 :          lu(k,193) = lu(k,193) * lu(k,187)
     289   315224452 :          lu(k,1690) = lu(k,1690) - lu(k,188) * lu(k,1689)
     290   315224452 :          lu(k,1691) = lu(k,1691) - lu(k,189) * lu(k,1689)
     291   315224452 :          lu(k,1728) = lu(k,1728) - lu(k,190) * lu(k,1689)
     292   315224452 :          lu(k,1763) = lu(k,1763) - lu(k,191) * lu(k,1689)
     293   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,192) * lu(k,1689)
     294   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,193) * lu(k,1689)
     295   315224452 :          lu(k,194) = 1._r8 / lu(k,194)
     296   315224452 :          lu(k,195) = lu(k,195) * lu(k,194)
     297   315224452 :          lu(k,196) = lu(k,196) * lu(k,194)
     298   315224452 :          lu(k,197) = lu(k,197) * lu(k,194)
     299   315224452 :          lu(k,198) = lu(k,198) * lu(k,194)
     300   315224452 :          lu(k,1729) = lu(k,1729) - lu(k,195) * lu(k,1690)
     301   315224452 :          lu(k,1732) = lu(k,1732) - lu(k,196) * lu(k,1690)
     302   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,197) * lu(k,1690)
     303   325174377 :          lu(k,1829) = lu(k,1829) - lu(k,198) * lu(k,1690)
     304             :       end do
     305     9949925 :       end subroutine lu_fac03
     306     9949925 :       subroutine lu_fac04( avec_len, lu )
     307             :       use chem_mods, only : nzcnt
     308             :       use shr_kind_mod, only : r8 => shr_kind_r8
     309             :       implicit none
     310             : !-----------------------------------------------------------------------
     311             : ! ... dummy args
     312             : !-----------------------------------------------------------------------
     313             :       integer, intent(in) :: avec_len
     314             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     315             : !-----------------------------------------------------------------------
     316             : ! ... local variables
     317             : !-----------------------------------------------------------------------
     318             :       integer :: k
     319   325174377 :       do k = 1,avec_len
     320   315224452 :          lu(k,199) = 1._r8 / lu(k,199)
     321   315224452 :          lu(k,200) = lu(k,200) * lu(k,199)
     322   315224452 :          lu(k,201) = lu(k,201) * lu(k,199)
     323   315224452 :          lu(k,202) = lu(k,202) * lu(k,199)
     324   315224452 :          lu(k,212) = - lu(k,200) * lu(k,207)
     325   315224452 :          lu(k,213) = - lu(k,201) * lu(k,207)
     326   315224452 :          lu(k,215) = lu(k,215) - lu(k,202) * lu(k,207)
     327   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,200) * lu(k,1691)
     328   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,201) * lu(k,1691)
     329   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,202) * lu(k,1691)
     330   315224452 :          lu(k,203) = 1._r8 / lu(k,203)
     331   315224452 :          lu(k,204) = lu(k,204) * lu(k,203)
     332   315224452 :          lu(k,205) = lu(k,205) * lu(k,203)
     333   315224452 :          lu(k,1233) = lu(k,1233) - lu(k,204) * lu(k,1227)
     334   315224452 :          lu(k,1238) = - lu(k,205) * lu(k,1227)
     335   315224452 :          lu(k,1799) = lu(k,1799) - lu(k,204) * lu(k,1692)
     336   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,205) * lu(k,1692)
     337   315224452 :          lu(k,2339) = lu(k,2339) - lu(k,204) * lu(k,2276)
     338   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,205) * lu(k,2276)
     339   315224452 :          lu(k,208) = 1._r8 / lu(k,208)
     340   315224452 :          lu(k,209) = lu(k,209) * lu(k,208)
     341   315224452 :          lu(k,210) = lu(k,210) * lu(k,208)
     342   315224452 :          lu(k,211) = lu(k,211) * lu(k,208)
     343   315224452 :          lu(k,212) = lu(k,212) * lu(k,208)
     344   315224452 :          lu(k,213) = lu(k,213) * lu(k,208)
     345   315224452 :          lu(k,214) = lu(k,214) * lu(k,208)
     346   315224452 :          lu(k,215) = lu(k,215) * lu(k,208)
     347   315224452 :          lu(k,1694) = lu(k,1694) - lu(k,209) * lu(k,1693)
     348   315224452 :          lu(k,1728) = lu(k,1728) - lu(k,210) * lu(k,1693)
     349   315224452 :          lu(k,1764) = lu(k,1764) - lu(k,211) * lu(k,1693)
     350   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,212) * lu(k,1693)
     351   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,213) * lu(k,1693)
     352   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,214) * lu(k,1693)
     353   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,215) * lu(k,1693)
     354   315224452 :          lu(k,216) = 1._r8 / lu(k,216)
     355   315224452 :          lu(k,217) = lu(k,217) * lu(k,216)
     356   315224452 :          lu(k,218) = lu(k,218) * lu(k,216)
     357   315224452 :          lu(k,219) = lu(k,219) * lu(k,216)
     358   315224452 :          lu(k,220) = lu(k,220) * lu(k,216)
     359   315224452 :          lu(k,1732) = lu(k,1732) - lu(k,217) * lu(k,1694)
     360   315224452 :          lu(k,1737) = lu(k,1737) - lu(k,218) * lu(k,1694)
     361   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,219) * lu(k,1694)
     362   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,220) * lu(k,1694)
     363   315224452 :          lu(k,221) = 1._r8 / lu(k,221)
     364   315224452 :          lu(k,222) = lu(k,222) * lu(k,221)
     365   315224452 :          lu(k,223) = lu(k,223) * lu(k,221)
     366   315224452 :          lu(k,224) = lu(k,224) * lu(k,221)
     367   315224452 :          lu(k,225) = lu(k,225) * lu(k,221)
     368   315224452 :          lu(k,1318) = - lu(k,222) * lu(k,1315)
     369   315224452 :          lu(k,1329) = - lu(k,223) * lu(k,1315)
     370   315224452 :          lu(k,1339) = - lu(k,224) * lu(k,1315)
     371   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,225) * lu(k,1315)
     372   315224452 :          lu(k,1747) = - lu(k,222) * lu(k,1695)
     373   315224452 :          lu(k,1799) = lu(k,1799) - lu(k,223) * lu(k,1695)
     374   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,224) * lu(k,1695)
     375   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,225) * lu(k,1695)
     376   315224452 :          lu(k,226) = 1._r8 / lu(k,226)
     377   315224452 :          lu(k,227) = lu(k,227) * lu(k,226)
     378   315224452 :          lu(k,228) = lu(k,228) * lu(k,226)
     379   315224452 :          lu(k,975) = - lu(k,227) * lu(k,971)
     380   315224452 :          lu(k,988) = lu(k,988) - lu(k,228) * lu(k,971)
     381   315224452 :          lu(k,1019) = - lu(k,227) * lu(k,1015)
     382   315224452 :          lu(k,1032) = lu(k,1032) - lu(k,228) * lu(k,1015)
     383   315224452 :          lu(k,1783) = lu(k,1783) - lu(k,227) * lu(k,1696)
     384   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,228) * lu(k,1696)
     385   315224452 :          lu(k,2194) = - lu(k,227) * lu(k,2181)
     386   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,228) * lu(k,2181)
     387   315224452 :          lu(k,229) = 1._r8 / lu(k,229)
     388   315224452 :          lu(k,230) = lu(k,230) * lu(k,229)
     389   315224452 :          lu(k,231) = lu(k,231) * lu(k,229)
     390   315224452 :          lu(k,789) = lu(k,789) - lu(k,230) * lu(k,786)
     391   315224452 :          lu(k,793) = - lu(k,231) * lu(k,786)
     392   315224452 :          lu(k,1496) = - lu(k,230) * lu(k,1491)
     393   315224452 :          lu(k,1506) = lu(k,1506) - lu(k,231) * lu(k,1491)
     394   315224452 :          lu(k,1563) = lu(k,1563) - lu(k,230) * lu(k,1556)
     395   315224452 :          lu(k,1576) = lu(k,1576) - lu(k,231) * lu(k,1556)
     396   315224452 :          lu(k,1589) = lu(k,1589) - lu(k,230) * lu(k,1582)
     397   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,231) * lu(k,1582)
     398   315224452 :          lu(k,232) = 1._r8 / lu(k,232)
     399   315224452 :          lu(k,233) = lu(k,233) * lu(k,232)
     400   315224452 :          lu(k,234) = lu(k,234) * lu(k,232)
     401   315224452 :          lu(k,1184) = lu(k,1184) - lu(k,233) * lu(k,1171)
     402   315224452 :          lu(k,1186) = - lu(k,234) * lu(k,1171)
     403   315224452 :          lu(k,1202) = lu(k,1202) - lu(k,233) * lu(k,1190)
     404   315224452 :          lu(k,1204) = lu(k,1204) - lu(k,234) * lu(k,1190)
     405   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,233) * lu(k,1697)
     406   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,234) * lu(k,1697)
     407   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,233) * lu(k,1844)
     408   315224452 :          lu(k,1918) = - lu(k,234) * lu(k,1844)
     409   315224452 :          lu(k,235) = 1._r8 / lu(k,235)
     410   315224452 :          lu(k,236) = lu(k,236) * lu(k,235)
     411   315224452 :          lu(k,237) = lu(k,237) * lu(k,235)
     412   315224452 :          lu(k,347) = - lu(k,236) * lu(k,344)
     413   315224452 :          lu(k,348) = lu(k,348) - lu(k,237) * lu(k,344)
     414   315224452 :          lu(k,436) = - lu(k,236) * lu(k,433)
     415   315224452 :          lu(k,437) = - lu(k,237) * lu(k,433)
     416   315224452 :          lu(k,1739) = lu(k,1739) - lu(k,236) * lu(k,1698)
     417   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,237) * lu(k,1698)
     418   315224452 :          lu(k,1858) = lu(k,1858) - lu(k,236) * lu(k,1845)
     419   325174377 :          lu(k,1913) = lu(k,1913) - lu(k,237) * lu(k,1845)
     420             :       end do
     421     9949925 :       end subroutine lu_fac04
     422     9949925 :       subroutine lu_fac05( avec_len, lu )
     423             :       use chem_mods, only : nzcnt
     424             :       use shr_kind_mod, only : r8 => shr_kind_r8
     425             :       implicit none
     426             : !-----------------------------------------------------------------------
     427             : ! ... dummy args
     428             : !-----------------------------------------------------------------------
     429             :       integer, intent(in) :: avec_len
     430             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     431             : !-----------------------------------------------------------------------
     432             : ! ... local variables
     433             : !-----------------------------------------------------------------------
     434             :       integer :: k
     435   325174377 :       do k = 1,avec_len
     436   315224452 :          lu(k,238) = 1._r8 / lu(k,238)
     437   315224452 :          lu(k,239) = lu(k,239) * lu(k,238)
     438   315224452 :          lu(k,240) = lu(k,240) * lu(k,238)
     439   315224452 :          lu(k,252) = - lu(k,239) * lu(k,250)
     440   315224452 :          lu(k,254) = lu(k,254) - lu(k,240) * lu(k,250)
     441   315224452 :          lu(k,293) = - lu(k,239) * lu(k,291)
     442   315224452 :          lu(k,295) = lu(k,295) - lu(k,240) * lu(k,291)
     443   315224452 :          lu(k,1776) = - lu(k,239) * lu(k,1699)
     444   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,240) * lu(k,1699)
     445   315224452 :          lu(k,2019) = lu(k,2019) - lu(k,239) * lu(k,2009)
     446   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,240) * lu(k,2009)
     447   315224452 :          lu(k,241) = 1._r8 / lu(k,241)
     448   315224452 :          lu(k,242) = lu(k,242) * lu(k,241)
     449   315224452 :          lu(k,243) = lu(k,243) * lu(k,241)
     450   315224452 :          lu(k,244) = lu(k,244) * lu(k,241)
     451   315224452 :          lu(k,245) = lu(k,245) * lu(k,241)
     452   315224452 :          lu(k,1701) = lu(k,1701) - lu(k,242) * lu(k,1700)
     453   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,243) * lu(k,1700)
     454   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,244) * lu(k,1700)
     455   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,245) * lu(k,1700)
     456   315224452 :          lu(k,2011) = lu(k,2011) - lu(k,242) * lu(k,2010)
     457   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,243) * lu(k,2010)
     458   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,244) * lu(k,2010)
     459   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,245) * lu(k,2010)
     460   315224452 :          lu(k,246) = 1._r8 / lu(k,246)
     461   315224452 :          lu(k,247) = lu(k,247) * lu(k,246)
     462   315224452 :          lu(k,248) = lu(k,248) * lu(k,246)
     463   315224452 :          lu(k,249) = lu(k,249) * lu(k,246)
     464   315224452 :          lu(k,1776) = lu(k,1776) - lu(k,247) * lu(k,1701)
     465   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,248) * lu(k,1701)
     466   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,249) * lu(k,1701)
     467   315224452 :          lu(k,2019) = lu(k,2019) - lu(k,247) * lu(k,2011)
     468   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,248) * lu(k,2011)
     469   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,249) * lu(k,2011)
     470   315224452 :          lu(k,251) = 1._r8 / lu(k,251)
     471   315224452 :          lu(k,252) = lu(k,252) * lu(k,251)
     472   315224452 :          lu(k,253) = lu(k,253) * lu(k,251)
     473   315224452 :          lu(k,254) = lu(k,254) * lu(k,251)
     474   315224452 :          lu(k,255) = lu(k,255) * lu(k,251)
     475   315224452 :          lu(k,1776) = lu(k,1776) - lu(k,252) * lu(k,1702)
     476   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,253) * lu(k,1702)
     477   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,254) * lu(k,1702)
     478   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,255) * lu(k,1702)
     479   315224452 :          lu(k,2019) = lu(k,2019) - lu(k,252) * lu(k,2012)
     480   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,253) * lu(k,2012)
     481   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,254) * lu(k,2012)
     482   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,255) * lu(k,2012)
     483   315224452 :          lu(k,256) = 1._r8 / lu(k,256)
     484   315224452 :          lu(k,257) = lu(k,257) * lu(k,256)
     485   315224452 :          lu(k,258) = lu(k,258) * lu(k,256)
     486   315224452 :          lu(k,259) = lu(k,259) * lu(k,256)
     487   315224452 :          lu(k,1002) = lu(k,1002) - lu(k,257) * lu(k,993)
     488   315224452 :          lu(k,1004) = lu(k,1004) - lu(k,258) * lu(k,993)
     489   315224452 :          lu(k,1006) = - lu(k,259) * lu(k,993)
     490   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,257) * lu(k,1928)
     491   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,258) * lu(k,1928)
     492   315224452 :          lu(k,1962) = - lu(k,259) * lu(k,1928)
     493   315224452 :          lu(k,2023) = lu(k,2023) - lu(k,257) * lu(k,2013)
     494   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,258) * lu(k,2013)
     495   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,259) * lu(k,2013)
     496   315224452 :          lu(k,261) = 1._r8 / lu(k,261)
     497   315224452 :          lu(k,262) = lu(k,262) * lu(k,261)
     498   315224452 :          lu(k,263) = lu(k,263) * lu(k,261)
     499   315224452 :          lu(k,264) = lu(k,264) * lu(k,261)
     500   315224452 :          lu(k,947) = lu(k,947) - lu(k,262) * lu(k,946)
     501   315224452 :          lu(k,950) = lu(k,950) - lu(k,263) * lu(k,946)
     502   315224452 :          lu(k,952) = - lu(k,264) * lu(k,946)
     503   315224452 :          lu(k,1778) = lu(k,1778) - lu(k,262) * lu(k,1703)
     504   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,263) * lu(k,1703)
     505   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,264) * lu(k,1703)
     506   315224452 :          lu(k,2427) = - lu(k,262) * lu(k,2424)
     507   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,263) * lu(k,2424)
     508   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,264) * lu(k,2424)
     509   315224452 :          lu(k,265) = 1._r8 / lu(k,265)
     510   315224452 :          lu(k,266) = lu(k,266) * lu(k,265)
     511   315224452 :          lu(k,267) = lu(k,267) * lu(k,265)
     512   315224452 :          lu(k,268) = lu(k,268) * lu(k,265)
     513   315224452 :          lu(k,902) = lu(k,902) - lu(k,266) * lu(k,898)
     514   315224452 :          lu(k,904) = - lu(k,267) * lu(k,898)
     515   315224452 :          lu(k,908) = lu(k,908) - lu(k,268) * lu(k,898)
     516   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,266) * lu(k,1704)
     517   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,267) * lu(k,1704)
     518   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,268) * lu(k,1704)
     519   315224452 :          lu(k,2388) = lu(k,2388) - lu(k,266) * lu(k,2371)
     520   315224452 :          lu(k,2409) = - lu(k,267) * lu(k,2371)
     521   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,268) * lu(k,2371)
     522   315224452 :          lu(k,269) = 1._r8 / lu(k,269)
     523   315224452 :          lu(k,270) = lu(k,270) * lu(k,269)
     524   315224452 :          lu(k,271) = lu(k,271) * lu(k,269)
     525   315224452 :          lu(k,272) = lu(k,272) * lu(k,269)
     526   315224452 :          lu(k,634) = lu(k,634) - lu(k,270) * lu(k,633)
     527   315224452 :          lu(k,635) = lu(k,635) - lu(k,271) * lu(k,633)
     528   315224452 :          lu(k,636) = - lu(k,272) * lu(k,633)
     529   315224452 :          lu(k,1732) = lu(k,1732) - lu(k,270) * lu(k,1705)
     530   315224452 :          lu(k,1752) = lu(k,1752) - lu(k,271) * lu(k,1705)
     531   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,272) * lu(k,1705)
     532   315224452 :          lu(k,2295) = - lu(k,270) * lu(k,2277)
     533   315224452 :          lu(k,2304) = lu(k,2304) - lu(k,271) * lu(k,2277)
     534   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,272) * lu(k,2277)
     535   315224452 :          lu(k,273) = 1._r8 / lu(k,273)
     536   315224452 :          lu(k,274) = lu(k,274) * lu(k,273)
     537   315224452 :          lu(k,275) = lu(k,275) * lu(k,273)
     538   315224452 :          lu(k,276) = lu(k,276) * lu(k,273)
     539   315224452 :          lu(k,277) = lu(k,277) * lu(k,273)
     540   315224452 :          lu(k,278) = lu(k,278) * lu(k,273)
     541   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,274) * lu(k,1609)
     542   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,275) * lu(k,1609)
     543   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,276) * lu(k,1609)
     544   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,277) * lu(k,1609)
     545   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,278) * lu(k,1609)
     546   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,274) * lu(k,1929)
     547   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,275) * lu(k,1929)
     548   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,276) * lu(k,1929)
     549   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,277) * lu(k,1929)
     550   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,278) * lu(k,1929)
     551   315224452 :          lu(k,279) = 1._r8 / lu(k,279)
     552   315224452 :          lu(k,280) = lu(k,280) * lu(k,279)
     553   315224452 :          lu(k,281) = lu(k,281) * lu(k,279)
     554   315224452 :          lu(k,668) = - lu(k,280) * lu(k,662)
     555   315224452 :          lu(k,674) = lu(k,674) - lu(k,281) * lu(k,662)
     556   315224452 :          lu(k,732) = - lu(k,280) * lu(k,725)
     557   315224452 :          lu(k,739) = lu(k,739) - lu(k,281) * lu(k,725)
     558   315224452 :          lu(k,752) = - lu(k,280) * lu(k,746)
     559   315224452 :          lu(k,760) = lu(k,760) - lu(k,281) * lu(k,746)
     560   315224452 :          lu(k,768) = - lu(k,280) * lu(k,761)
     561   315224452 :          lu(k,777) = lu(k,777) - lu(k,281) * lu(k,761)
     562   315224452 :          lu(k,1870) = lu(k,1870) - lu(k,280) * lu(k,1846)
     563   325174377 :          lu(k,1924) = lu(k,1924) - lu(k,281) * lu(k,1846)
     564             :       end do
     565     9949925 :       end subroutine lu_fac05
     566     9949925 :       subroutine lu_fac06( avec_len, lu )
     567             :       use chem_mods, only : nzcnt
     568             :       use shr_kind_mod, only : r8 => shr_kind_r8
     569             :       implicit none
     570             : !-----------------------------------------------------------------------
     571             : ! ... dummy args
     572             : !-----------------------------------------------------------------------
     573             :       integer, intent(in) :: avec_len
     574             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     575             : !-----------------------------------------------------------------------
     576             : ! ... local variables
     577             : !-----------------------------------------------------------------------
     578             :       integer :: k
     579   325174377 :       do k = 1,avec_len
     580   315224452 :          lu(k,282) = 1._r8 / lu(k,282)
     581   315224452 :          lu(k,283) = lu(k,283) * lu(k,282)
     582   315224452 :          lu(k,284) = lu(k,284) * lu(k,282)
     583   315224452 :          lu(k,925) = lu(k,925) - lu(k,283) * lu(k,924)
     584   315224452 :          lu(k,930) = lu(k,930) - lu(k,284) * lu(k,924)
     585   315224452 :          lu(k,1460) = lu(k,1460) - lu(k,283) * lu(k,1459)
     586   315224452 :          lu(k,1468) = lu(k,1468) - lu(k,284) * lu(k,1459)
     587   315224452 :          lu(k,2042) = lu(k,2042) - lu(k,283) * lu(k,2041)
     588   315224452 :          lu(k,2057) = - lu(k,284) * lu(k,2041)
     589   315224452 :          lu(k,2239) = lu(k,2239) - lu(k,283) * lu(k,2238)
     590   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,284) * lu(k,2238)
     591   315224452 :          lu(k,2426) = lu(k,2426) - lu(k,283) * lu(k,2425)
     592   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,284) * lu(k,2425)
     593   315224452 :          lu(k,285) = 1._r8 / lu(k,285)
     594   315224452 :          lu(k,286) = lu(k,286) * lu(k,285)
     595   315224452 :          lu(k,287) = lu(k,287) * lu(k,285)
     596   315224452 :          lu(k,288) = lu(k,288) * lu(k,285)
     597   315224452 :          lu(k,289) = lu(k,289) * lu(k,285)
     598   315224452 :          lu(k,290) = lu(k,290) * lu(k,285)
     599   315224452 :          lu(k,1775) = lu(k,1775) - lu(k,286) * lu(k,1706)
     600   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,287) * lu(k,1706)
     601   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,288) * lu(k,1706)
     602   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,289) * lu(k,1706)
     603   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,290) * lu(k,1706)
     604   315224452 :          lu(k,2141) = - lu(k,286) * lu(k,2129)
     605   315224452 :          lu(k,2144) = - lu(k,287) * lu(k,2129)
     606   315224452 :          lu(k,2147) = lu(k,2147) - lu(k,288) * lu(k,2129)
     607   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,289) * lu(k,2129)
     608   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,290) * lu(k,2129)
     609   315224452 :          lu(k,292) = 1._r8 / lu(k,292)
     610   315224452 :          lu(k,293) = lu(k,293) * lu(k,292)
     611   315224452 :          lu(k,294) = lu(k,294) * lu(k,292)
     612   315224452 :          lu(k,295) = lu(k,295) * lu(k,292)
     613   315224452 :          lu(k,296) = lu(k,296) * lu(k,292)
     614   315224452 :          lu(k,297) = lu(k,297) * lu(k,292)
     615   315224452 :          lu(k,1776) = lu(k,1776) - lu(k,293) * lu(k,1707)
     616   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,294) * lu(k,1707)
     617   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,295) * lu(k,1707)
     618   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,296) * lu(k,1707)
     619   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,297) * lu(k,1707)
     620   315224452 :          lu(k,2019) = lu(k,2019) - lu(k,293) * lu(k,2014)
     621   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,294) * lu(k,2014)
     622   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,295) * lu(k,2014)
     623   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,296) * lu(k,2014)
     624   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,297) * lu(k,2014)
     625   315224452 :          lu(k,298) = 1._r8 / lu(k,298)
     626   315224452 :          lu(k,299) = lu(k,299) * lu(k,298)
     627   315224452 :          lu(k,300) = lu(k,300) * lu(k,298)
     628   315224452 :          lu(k,301) = lu(k,301) * lu(k,298)
     629   315224452 :          lu(k,302) = lu(k,302) * lu(k,298)
     630   315224452 :          lu(k,303) = lu(k,303) * lu(k,298)
     631   315224452 :          lu(k,1773) = lu(k,1773) - lu(k,299) * lu(k,1708)
     632   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,300) * lu(k,1708)
     633   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,301) * lu(k,1708)
     634   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,302) * lu(k,1708)
     635   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,303) * lu(k,1708)
     636   315224452 :          lu(k,2140) = lu(k,2140) - lu(k,299) * lu(k,2130)
     637   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,300) * lu(k,2130)
     638   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,301) * lu(k,2130)
     639   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,302) * lu(k,2130)
     640   315224452 :          lu(k,2173) = - lu(k,303) * lu(k,2130)
     641   315224452 :          lu(k,304) = 1._r8 / lu(k,304)
     642   315224452 :          lu(k,305) = lu(k,305) * lu(k,304)
     643   315224452 :          lu(k,306) = lu(k,306) * lu(k,304)
     644   315224452 :          lu(k,307) = lu(k,307) * lu(k,304)
     645   315224452 :          lu(k,308) = lu(k,308) * lu(k,304)
     646   315224452 :          lu(k,309) = lu(k,309) * lu(k,304)
     647   315224452 :          lu(k,1777) = lu(k,1777) - lu(k,305) * lu(k,1709)
     648   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,306) * lu(k,1709)
     649   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,307) * lu(k,1709)
     650   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,308) * lu(k,1709)
     651   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,309) * lu(k,1709)
     652   315224452 :          lu(k,2142) = lu(k,2142) - lu(k,305) * lu(k,2131)
     653   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,306) * lu(k,2131)
     654   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,307) * lu(k,2131)
     655   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,308) * lu(k,2131)
     656   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,309) * lu(k,2131)
     657   315224452 :          lu(k,310) = 1._r8 / lu(k,310)
     658   315224452 :          lu(k,311) = lu(k,311) * lu(k,310)
     659   315224452 :          lu(k,312) = lu(k,312) * lu(k,310)
     660   315224452 :          lu(k,313) = lu(k,313) * lu(k,310)
     661   315224452 :          lu(k,314) = lu(k,314) * lu(k,310)
     662   315224452 :          lu(k,315) = lu(k,315) * lu(k,310)
     663   315224452 :          lu(k,1617) = lu(k,1617) - lu(k,311) * lu(k,1610)
     664   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,312) * lu(k,1610)
     665   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,313) * lu(k,1610)
     666   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,314) * lu(k,1610)
     667   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,315) * lu(k,1610)
     668   315224452 :          lu(k,1778) = lu(k,1778) - lu(k,311) * lu(k,1710)
     669   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,312) * lu(k,1710)
     670   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,313) * lu(k,1710)
     671   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,314) * lu(k,1710)
     672   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,315) * lu(k,1710)
     673   315224452 :          lu(k,316) = 1._r8 / lu(k,316)
     674   315224452 :          lu(k,317) = lu(k,317) * lu(k,316)
     675   315224452 :          lu(k,318) = lu(k,318) * lu(k,316)
     676   315224452 :          lu(k,319) = lu(k,319) * lu(k,316)
     677   315224452 :          lu(k,320) = lu(k,320) * lu(k,316)
     678   315224452 :          lu(k,1356) = lu(k,1356) - lu(k,317) * lu(k,1348)
     679   315224452 :          lu(k,1357) = - lu(k,318) * lu(k,1348)
     680   315224452 :          lu(k,1361) = - lu(k,319) * lu(k,1348)
     681   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,320) * lu(k,1348)
     682   315224452 :          lu(k,1805) = lu(k,1805) - lu(k,317) * lu(k,1711)
     683   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,318) * lu(k,1711)
     684   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,319) * lu(k,1711)
     685   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,320) * lu(k,1711)
     686   315224452 :          lu(k,2345) = lu(k,2345) - lu(k,317) * lu(k,2278)
     687   315224452 :          lu(k,2347) = lu(k,2347) - lu(k,318) * lu(k,2278)
     688   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,319) * lu(k,2278)
     689   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,320) * lu(k,2278)
     690   315224452 :          lu(k,321) = 1._r8 / lu(k,321)
     691   315224452 :          lu(k,322) = lu(k,322) * lu(k,321)
     692   315224452 :          lu(k,323) = lu(k,323) * lu(k,321)
     693   315224452 :          lu(k,324) = lu(k,324) * lu(k,321)
     694   315224452 :          lu(k,325) = lu(k,325) * lu(k,321)
     695   315224452 :          lu(k,698) = lu(k,698) - lu(k,322) * lu(k,697)
     696   315224452 :          lu(k,699) = lu(k,699) - lu(k,323) * lu(k,697)
     697   315224452 :          lu(k,700) = lu(k,700) - lu(k,324) * lu(k,697)
     698   315224452 :          lu(k,701) = lu(k,701) - lu(k,325) * lu(k,697)
     699   315224452 :          lu(k,1757) = lu(k,1757) - lu(k,322) * lu(k,1712)
     700   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,323) * lu(k,1712)
     701   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,324) * lu(k,1712)
     702   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,325) * lu(k,1712)
     703   315224452 :          lu(k,2308) = lu(k,2308) - lu(k,322) * lu(k,2279)
     704   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,323) * lu(k,2279)
     705   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,324) * lu(k,2279)
     706   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,325) * lu(k,2279)
     707   315224452 :          lu(k,326) = 1._r8 / lu(k,326)
     708   315224452 :          lu(k,327) = lu(k,327) * lu(k,326)
     709   315224452 :          lu(k,328) = lu(k,328) * lu(k,326)
     710   315224452 :          lu(k,1329) = lu(k,1329) - lu(k,327) * lu(k,1316)
     711   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,328) * lu(k,1316)
     712   315224452 :          lu(k,1419) = lu(k,1419) - lu(k,327) * lu(k,1410)
     713   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,328) * lu(k,1410)
     714   315224452 :          lu(k,1636) = lu(k,1636) - lu(k,327) * lu(k,1611)
     715   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,328) * lu(k,1611)
     716   315224452 :          lu(k,1799) = lu(k,1799) - lu(k,327) * lu(k,1713)
     717   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,328) * lu(k,1713)
     718   315224452 :          lu(k,1897) = lu(k,1897) - lu(k,327) * lu(k,1847)
     719   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,328) * lu(k,1847)
     720   315224452 :          lu(k,2394) = lu(k,2394) - lu(k,327) * lu(k,2372)
     721   325174377 :          lu(k,2409) = lu(k,2409) - lu(k,328) * lu(k,2372)
     722             :       end do
     723     9949925 :       end subroutine lu_fac06
     724     9949925 :       subroutine lu_fac07( avec_len, lu )
     725             :       use chem_mods, only : nzcnt
     726             :       use shr_kind_mod, only : r8 => shr_kind_r8
     727             :       implicit none
     728             : !-----------------------------------------------------------------------
     729             : ! ... dummy args
     730             : !-----------------------------------------------------------------------
     731             :       integer, intent(in) :: avec_len
     732             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     733             : !-----------------------------------------------------------------------
     734             : ! ... local variables
     735             : !-----------------------------------------------------------------------
     736             :       integer :: k
     737   325174377 :       do k = 1,avec_len
     738   315224452 :          lu(k,329) = 1._r8 / lu(k,329)
     739   315224452 :          lu(k,330) = lu(k,330) * lu(k,329)
     740   315224452 :          lu(k,331) = lu(k,331) * lu(k,329)
     741   315224452 :          lu(k,332) = lu(k,332) * lu(k,329)
     742   315224452 :          lu(k,333) = lu(k,333) * lu(k,329)
     743   315224452 :          lu(k,735) = - lu(k,330) * lu(k,726)
     744   315224452 :          lu(k,736) = lu(k,736) - lu(k,331) * lu(k,726)
     745   315224452 :          lu(k,737) = - lu(k,332) * lu(k,726)
     746   315224452 :          lu(k,739) = lu(k,739) - lu(k,333) * lu(k,726)
     747   315224452 :          lu(k,771) = - lu(k,330) * lu(k,762)
     748   315224452 :          lu(k,772) = lu(k,772) - lu(k,331) * lu(k,762)
     749   315224452 :          lu(k,773) = - lu(k,332) * lu(k,762)
     750   315224452 :          lu(k,777) = lu(k,777) - lu(k,333) * lu(k,762)
     751   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,330) * lu(k,1848)
     752   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,331) * lu(k,1848)
     753   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,332) * lu(k,1848)
     754   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,333) * lu(k,1848)
     755   315224452 :          lu(k,334) = 1._r8 / lu(k,334)
     756   315224452 :          lu(k,335) = lu(k,335) * lu(k,334)
     757   315224452 :          lu(k,336) = lu(k,336) * lu(k,334)
     758   315224452 :          lu(k,337) = lu(k,337) * lu(k,334)
     759   315224452 :          lu(k,338) = lu(k,338) * lu(k,334)
     760   315224452 :          lu(k,1475) = lu(k,1475) - lu(k,335) * lu(k,1473)
     761   315224452 :          lu(k,1476) = lu(k,1476) - lu(k,336) * lu(k,1473)
     762   315224452 :          lu(k,1480) = lu(k,1480) - lu(k,337) * lu(k,1473)
     763   315224452 :          lu(k,1484) = lu(k,1484) - lu(k,338) * lu(k,1473)
     764   315224452 :          lu(k,1560) = lu(k,1560) - lu(k,335) * lu(k,1557)
     765   315224452 :          lu(k,1561) = lu(k,1561) - lu(k,336) * lu(k,1557)
     766   315224452 :          lu(k,1566) = lu(k,1566) - lu(k,337) * lu(k,1557)
     767   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,338) * lu(k,1557)
     768   315224452 :          lu(k,1585) = lu(k,1585) - lu(k,335) * lu(k,1583)
     769   315224452 :          lu(k,1587) = lu(k,1587) - lu(k,336) * lu(k,1583)
     770   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,337) * lu(k,1583)
     771   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,338) * lu(k,1583)
     772   315224452 :          lu(k,339) = 1._r8 / lu(k,339)
     773   315224452 :          lu(k,340) = lu(k,340) * lu(k,339)
     774   315224452 :          lu(k,341) = lu(k,341) * lu(k,339)
     775   315224452 :          lu(k,342) = lu(k,342) * lu(k,339)
     776   315224452 :          lu(k,343) = lu(k,343) * lu(k,339)
     777   315224452 :          lu(k,448) = lu(k,448) - lu(k,340) * lu(k,447)
     778   315224452 :          lu(k,449) = lu(k,449) - lu(k,341) * lu(k,447)
     779   315224452 :          lu(k,450) = - lu(k,342) * lu(k,447)
     780   315224452 :          lu(k,453) = lu(k,453) - lu(k,343) * lu(k,447)
     781   315224452 :          lu(k,1729) = lu(k,1729) - lu(k,340) * lu(k,1714)
     782   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,341) * lu(k,1714)
     783   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,342) * lu(k,1714)
     784   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,343) * lu(k,1714)
     785   315224452 :          lu(k,2291) = lu(k,2291) - lu(k,340) * lu(k,2280)
     786   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,341) * lu(k,2280)
     787   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,342) * lu(k,2280)
     788   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,343) * lu(k,2280)
     789   315224452 :          lu(k,345) = 1._r8 / lu(k,345)
     790   315224452 :          lu(k,346) = lu(k,346) * lu(k,345)
     791   315224452 :          lu(k,347) = lu(k,347) * lu(k,345)
     792   315224452 :          lu(k,348) = lu(k,348) * lu(k,345)
     793   315224452 :          lu(k,349) = lu(k,349) * lu(k,345)
     794   315224452 :          lu(k,435) = lu(k,435) - lu(k,346) * lu(k,434)
     795   315224452 :          lu(k,436) = lu(k,436) - lu(k,347) * lu(k,434)
     796   315224452 :          lu(k,437) = lu(k,437) - lu(k,348) * lu(k,434)
     797   315224452 :          lu(k,440) = lu(k,440) - lu(k,349) * lu(k,434)
     798   315224452 :          lu(k,1728) = lu(k,1728) - lu(k,346) * lu(k,1715)
     799   315224452 :          lu(k,1739) = lu(k,1739) - lu(k,347) * lu(k,1715)
     800   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,348) * lu(k,1715)
     801   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,349) * lu(k,1715)
     802   315224452 :          lu(k,2289) = lu(k,2289) - lu(k,346) * lu(k,2281)
     803   315224452 :          lu(k,2300) = lu(k,2300) - lu(k,347) * lu(k,2281)
     804   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,348) * lu(k,2281)
     805   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,349) * lu(k,2281)
     806   315224452 :          lu(k,350) = 1._r8 / lu(k,350)
     807   315224452 :          lu(k,351) = lu(k,351) * lu(k,350)
     808   315224452 :          lu(k,352) = lu(k,352) * lu(k,350)
     809   315224452 :          lu(k,353) = lu(k,353) * lu(k,350)
     810   315224452 :          lu(k,354) = lu(k,354) * lu(k,350)
     811   315224452 :          lu(k,901) = lu(k,901) - lu(k,351) * lu(k,899)
     812   315224452 :          lu(k,902) = lu(k,902) - lu(k,352) * lu(k,899)
     813   315224452 :          lu(k,904) = lu(k,904) - lu(k,353) * lu(k,899)
     814   315224452 :          lu(k,908) = lu(k,908) - lu(k,354) * lu(k,899)
     815   315224452 :          lu(k,1773) = lu(k,1773) - lu(k,351) * lu(k,1716)
     816   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,352) * lu(k,1716)
     817   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,353) * lu(k,1716)
     818   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,354) * lu(k,1716)
     819   315224452 :          lu(k,2322) = lu(k,2322) - lu(k,351) * lu(k,2282)
     820   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,352) * lu(k,2282)
     821   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,353) * lu(k,2282)
     822   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,354) * lu(k,2282)
     823   315224452 :          lu(k,355) = 1._r8 / lu(k,355)
     824   315224452 :          lu(k,356) = lu(k,356) * lu(k,355)
     825   315224452 :          lu(k,357) = lu(k,357) * lu(k,355)
     826   315224452 :          lu(k,358) = lu(k,358) * lu(k,355)
     827   315224452 :          lu(k,359) = lu(k,359) * lu(k,355)
     828   315224452 :          lu(k,360) = lu(k,360) * lu(k,355)
     829   315224452 :          lu(k,361) = lu(k,361) * lu(k,355)
     830   315224452 :          lu(k,362) = lu(k,362) * lu(k,355)
     831   315224452 :          lu(k,1613) = - lu(k,356) * lu(k,1612)
     832   315224452 :          lu(k,1624) = lu(k,1624) - lu(k,357) * lu(k,1612)
     833   315224452 :          lu(k,1629) = lu(k,1629) - lu(k,358) * lu(k,1612)
     834   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,359) * lu(k,1612)
     835   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,360) * lu(k,1612)
     836   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,361) * lu(k,1612)
     837   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,362) * lu(k,1612)
     838   315224452 :          lu(k,1744) = lu(k,1744) - lu(k,356) * lu(k,1717)
     839   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,357) * lu(k,1717)
     840   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,358) * lu(k,1717)
     841   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,359) * lu(k,1717)
     842   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,360) * lu(k,1717)
     843   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,361) * lu(k,1717)
     844   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,362) * lu(k,1717)
     845   315224452 :          lu(k,363) = 1._r8 / lu(k,363)
     846   315224452 :          lu(k,364) = lu(k,364) * lu(k,363)
     847   315224452 :          lu(k,365) = lu(k,365) * lu(k,363)
     848   315224452 :          lu(k,366) = lu(k,366) * lu(k,363)
     849   315224452 :          lu(k,367) = lu(k,367) * lu(k,363)
     850   315224452 :          lu(k,368) = lu(k,368) * lu(k,363)
     851   315224452 :          lu(k,369) = lu(k,369) * lu(k,363)
     852   315224452 :          lu(k,370) = lu(k,370) * lu(k,363)
     853   315224452 :          lu(k,1760) = lu(k,1760) - lu(k,364) * lu(k,1718)
     854   315224452 :          lu(k,1778) = lu(k,1778) - lu(k,365) * lu(k,1718)
     855   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,366) * lu(k,1718)
     856   315224452 :          lu(k,1811) = lu(k,1811) - lu(k,367) * lu(k,1718)
     857   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,368) * lu(k,1718)
     858   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,369) * lu(k,1718)
     859   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,370) * lu(k,1718)
     860   315224452 :          lu(k,2072) = - lu(k,364) * lu(k,2066)
     861   315224452 :          lu(k,2080) = - lu(k,365) * lu(k,2066)
     862   315224452 :          lu(k,2083) = lu(k,2083) - lu(k,366) * lu(k,2066)
     863   315224452 :          lu(k,2086) = lu(k,2086) - lu(k,367) * lu(k,2066)
     864   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,368) * lu(k,2066)
     865   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,369) * lu(k,2066)
     866   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,370) * lu(k,2066)
     867   315224452 :          lu(k,371) = 1._r8 / lu(k,371)
     868   315224452 :          lu(k,372) = lu(k,372) * lu(k,371)
     869   315224452 :          lu(k,373) = lu(k,373) * lu(k,371)
     870   315224452 :          lu(k,374) = lu(k,374) * lu(k,371)
     871   315224452 :          lu(k,375) = lu(k,375) * lu(k,371)
     872   315224452 :          lu(k,376) = lu(k,376) * lu(k,371)
     873   315224452 :          lu(k,377) = lu(k,377) * lu(k,371)
     874   315224452 :          lu(k,378) = lu(k,378) * lu(k,371)
     875   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,372) * lu(k,1719)
     876   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,373) * lu(k,1719)
     877   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,374) * lu(k,1719)
     878   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,375) * lu(k,1719)
     879   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,376) * lu(k,1719)
     880   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,377) * lu(k,1719)
     881   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,378) * lu(k,1719)
     882   315224452 :          lu(k,2147) = lu(k,2147) - lu(k,372) * lu(k,2132)
     883   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,373) * lu(k,2132)
     884   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,374) * lu(k,2132)
     885   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,375) * lu(k,2132)
     886   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,376) * lu(k,2132)
     887   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,377) * lu(k,2132)
     888   325174377 :          lu(k,2173) = lu(k,2173) - lu(k,378) * lu(k,2132)
     889             :       end do
     890     9949925 :       end subroutine lu_fac07
     891     9949925 :       subroutine lu_fac08( avec_len, lu )
     892             :       use chem_mods, only : nzcnt
     893             :       use shr_kind_mod, only : r8 => shr_kind_r8
     894             :       implicit none
     895             : !-----------------------------------------------------------------------
     896             : ! ... dummy args
     897             : !-----------------------------------------------------------------------
     898             :       integer, intent(in) :: avec_len
     899             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     900             : !-----------------------------------------------------------------------
     901             : ! ... local variables
     902             : !-----------------------------------------------------------------------
     903             :       integer :: k
     904   325174377 :       do k = 1,avec_len
     905   315224452 :          lu(k,379) = 1._r8 / lu(k,379)
     906   315224452 :          lu(k,380) = lu(k,380) * lu(k,379)
     907   315224452 :          lu(k,381) = lu(k,381) * lu(k,379)
     908   315224452 :          lu(k,382) = lu(k,382) * lu(k,379)
     909   315224452 :          lu(k,383) = lu(k,383) * lu(k,379)
     910   315224452 :          lu(k,384) = lu(k,384) * lu(k,379)
     911   315224452 :          lu(k,976) = - lu(k,380) * lu(k,972)
     912   315224452 :          lu(k,982) = lu(k,982) - lu(k,381) * lu(k,972)
     913   315224452 :          lu(k,984) = - lu(k,382) * lu(k,972)
     914   315224452 :          lu(k,985) = lu(k,985) - lu(k,383) * lu(k,972)
     915   315224452 :          lu(k,991) = lu(k,991) - lu(k,384) * lu(k,972)
     916   315224452 :          lu(k,1020) = - lu(k,380) * lu(k,1016)
     917   315224452 :          lu(k,1026) = lu(k,1026) - lu(k,381) * lu(k,1016)
     918   315224452 :          lu(k,1028) = - lu(k,382) * lu(k,1016)
     919   315224452 :          lu(k,1029) = lu(k,1029) - lu(k,383) * lu(k,1016)
     920   315224452 :          lu(k,1035) = lu(k,1035) - lu(k,384) * lu(k,1016)
     921   315224452 :          lu(k,2195) = - lu(k,380) * lu(k,2182)
     922   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,381) * lu(k,2182)
     923   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,382) * lu(k,2182)
     924   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,383) * lu(k,2182)
     925   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,384) * lu(k,2182)
     926   315224452 :          lu(k,385) = 1._r8 / lu(k,385)
     927   315224452 :          lu(k,386) = lu(k,386) * lu(k,385)
     928   315224452 :          lu(k,387) = lu(k,387) * lu(k,385)
     929   315224452 :          lu(k,388) = lu(k,388) * lu(k,385)
     930   315224452 :          lu(k,389) = lu(k,389) * lu(k,385)
     931   315224452 :          lu(k,390) = lu(k,390) * lu(k,385)
     932   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,386) * lu(k,1720)
     933   315224452 :          lu(k,1813) = lu(k,1813) - lu(k,387) * lu(k,1720)
     934   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,388) * lu(k,1720)
     935   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,389) * lu(k,1720)
     936   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,390) * lu(k,1720)
     937   315224452 :          lu(k,2021) = lu(k,2021) - lu(k,386) * lu(k,2015)
     938   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,387) * lu(k,2015)
     939   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,388) * lu(k,2015)
     940   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,389) * lu(k,2015)
     941   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,390) * lu(k,2015)
     942   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,386) * lu(k,2133)
     943   315224452 :          lu(k,2155) = lu(k,2155) - lu(k,387) * lu(k,2133)
     944   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,388) * lu(k,2133)
     945   315224452 :          lu(k,2164) = - lu(k,389) * lu(k,2133)
     946   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,390) * lu(k,2133)
     947   315224452 :          lu(k,391) = 1._r8 / lu(k,391)
     948   315224452 :          lu(k,392) = lu(k,392) * lu(k,391)
     949   315224452 :          lu(k,393) = lu(k,393) * lu(k,391)
     950   315224452 :          lu(k,394) = lu(k,394) * lu(k,391)
     951   315224452 :          lu(k,395) = lu(k,395) * lu(k,391)
     952   315224452 :          lu(k,396) = lu(k,396) * lu(k,391)
     953   315224452 :          lu(k,1105) = lu(k,1105) - lu(k,392) * lu(k,1102)
     954   315224452 :          lu(k,1106) = lu(k,1106) - lu(k,393) * lu(k,1102)
     955   315224452 :          lu(k,1111) = - lu(k,394) * lu(k,1102)
     956   315224452 :          lu(k,1113) = lu(k,1113) - lu(k,395) * lu(k,1102)
     957   315224452 :          lu(k,1115) = - lu(k,396) * lu(k,1102)
     958   315224452 :          lu(k,1786) = lu(k,1786) - lu(k,392) * lu(k,1721)
     959   315224452 :          lu(k,1789) = lu(k,1789) - lu(k,393) * lu(k,1721)
     960   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,394) * lu(k,1721)
     961   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,395) * lu(k,1721)
     962   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,396) * lu(k,1721)
     963   315224452 :          lu(k,2329) = - lu(k,392) * lu(k,2283)
     964   315224452 :          lu(k,2331) = lu(k,2331) - lu(k,393) * lu(k,2283)
     965   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,394) * lu(k,2283)
     966   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,395) * lu(k,2283)
     967   315224452 :          lu(k,2362) = - lu(k,396) * lu(k,2283)
     968   315224452 :          lu(k,397) = 1._r8 / lu(k,397)
     969   315224452 :          lu(k,398) = lu(k,398) * lu(k,397)
     970   315224452 :          lu(k,399) = lu(k,399) * lu(k,397)
     971   315224452 :          lu(k,400) = lu(k,400) * lu(k,397)
     972   315224452 :          lu(k,401) = lu(k,401) * lu(k,397)
     973   315224452 :          lu(k,402) = lu(k,402) * lu(k,397)
     974   315224452 :          lu(k,1217) = lu(k,1217) - lu(k,398) * lu(k,1214)
     975   315224452 :          lu(k,1219) = lu(k,1219) - lu(k,399) * lu(k,1214)
     976   315224452 :          lu(k,1220) = lu(k,1220) - lu(k,400) * lu(k,1214)
     977   315224452 :          lu(k,1223) = lu(k,1223) - lu(k,401) * lu(k,1214)
     978   315224452 :          lu(k,1226) = - lu(k,402) * lu(k,1214)
     979   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,398) * lu(k,1722)
     980   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,399) * lu(k,1722)
     981   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,400) * lu(k,1722)
     982   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,401) * lu(k,1722)
     983   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,402) * lu(k,1722)
     984   315224452 :          lu(k,2338) = lu(k,2338) - lu(k,398) * lu(k,2284)
     985   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,399) * lu(k,2284)
     986   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,400) * lu(k,2284)
     987   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,401) * lu(k,2284)
     988   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,402) * lu(k,2284)
     989   315224452 :          lu(k,403) = 1._r8 / lu(k,403)
     990   315224452 :          lu(k,404) = lu(k,404) * lu(k,403)
     991   315224452 :          lu(k,405) = lu(k,405) * lu(k,403)
     992   315224452 :          lu(k,406) = lu(k,406) * lu(k,403)
     993   315224452 :          lu(k,407) = lu(k,407) * lu(k,403)
     994   315224452 :          lu(k,408) = lu(k,408) * lu(k,403)
     995   315224452 :          lu(k,1246) = - lu(k,404) * lu(k,1244)
     996   315224452 :          lu(k,1248) = - lu(k,405) * lu(k,1244)
     997   315224452 :          lu(k,1260) = - lu(k,406) * lu(k,1244)
     998   315224452 :          lu(k,1262) = lu(k,1262) - lu(k,407) * lu(k,1244)
     999   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,408) * lu(k,1244)
    1000   315224452 :          lu(k,1759) = lu(k,1759) - lu(k,404) * lu(k,1723)
    1001   315224452 :          lu(k,1772) = lu(k,1772) - lu(k,405) * lu(k,1723)
    1002   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,406) * lu(k,1723)
    1003   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,407) * lu(k,1723)
    1004   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,408) * lu(k,1723)
    1005   315224452 :          lu(k,2310) = lu(k,2310) - lu(k,404) * lu(k,2285)
    1006   315224452 :          lu(k,2321) = - lu(k,405) * lu(k,2285)
    1007   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,406) * lu(k,2285)
    1008   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,407) * lu(k,2285)
    1009   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,408) * lu(k,2285)
    1010   315224452 :          lu(k,409) = 1._r8 / lu(k,409)
    1011   315224452 :          lu(k,410) = lu(k,410) * lu(k,409)
    1012   315224452 :          lu(k,411) = lu(k,411) * lu(k,409)
    1013   315224452 :          lu(k,412) = lu(k,412) * lu(k,409)
    1014   315224452 :          lu(k,413) = lu(k,413) * lu(k,409)
    1015   315224452 :          lu(k,414) = lu(k,414) * lu(k,409)
    1016   315224452 :          lu(k,935) = lu(k,935) - lu(k,410) * lu(k,934)
    1017   315224452 :          lu(k,936) = lu(k,936) - lu(k,411) * lu(k,934)
    1018   315224452 :          lu(k,939) = - lu(k,412) * lu(k,934)
    1019   315224452 :          lu(k,943) = lu(k,943) - lu(k,413) * lu(k,934)
    1020   315224452 :          lu(k,945) = - lu(k,414) * lu(k,934)
    1021   315224452 :          lu(k,1777) = lu(k,1777) - lu(k,410) * lu(k,1724)
    1022   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,411) * lu(k,1724)
    1023   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,412) * lu(k,1724)
    1024   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,413) * lu(k,1724)
    1025   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,414) * lu(k,1724)
    1026   315224452 :          lu(k,2325) = lu(k,2325) - lu(k,410) * lu(k,2286)
    1027   315224452 :          lu(k,2330) = - lu(k,411) * lu(k,2286)
    1028   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,412) * lu(k,2286)
    1029   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,413) * lu(k,2286)
    1030   325174377 :          lu(k,2370) = lu(k,2370) - lu(k,414) * lu(k,2286)
    1031             :       end do
    1032     9949925 :       end subroutine lu_fac08
    1033     9949925 :       subroutine lu_fac09( avec_len, lu )
    1034             :       use chem_mods, only : nzcnt
    1035             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1036             :       implicit none
    1037             : !-----------------------------------------------------------------------
    1038             : ! ... dummy args
    1039             : !-----------------------------------------------------------------------
    1040             :       integer, intent(in) :: avec_len
    1041             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1042             : !-----------------------------------------------------------------------
    1043             : ! ... local variables
    1044             : !-----------------------------------------------------------------------
    1045             :       integer :: k
    1046   325174377 :       do k = 1,avec_len
    1047   315224452 :          lu(k,415) = 1._r8 / lu(k,415)
    1048   315224452 :          lu(k,416) = lu(k,416) * lu(k,415)
    1049   315224452 :          lu(k,417) = lu(k,417) * lu(k,415)
    1050   315224452 :          lu(k,418) = lu(k,418) * lu(k,415)
    1051   315224452 :          lu(k,419) = lu(k,419) * lu(k,415)
    1052   315224452 :          lu(k,420) = lu(k,420) * lu(k,415)
    1053   315224452 :          lu(k,494) = lu(k,494) - lu(k,416) * lu(k,493)
    1054   315224452 :          lu(k,495) = lu(k,495) - lu(k,417) * lu(k,493)
    1055   315224452 :          lu(k,497) = lu(k,497) - lu(k,418) * lu(k,493)
    1056   315224452 :          lu(k,498) = - lu(k,419) * lu(k,493)
    1057   315224452 :          lu(k,501) = lu(k,501) - lu(k,420) * lu(k,493)
    1058   315224452 :          lu(k,1731) = lu(k,1731) - lu(k,416) * lu(k,1725)
    1059   315224452 :          lu(k,1736) = lu(k,1736) - lu(k,417) * lu(k,1725)
    1060   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,418) * lu(k,1725)
    1061   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,419) * lu(k,1725)
    1062   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,420) * lu(k,1725)
    1063   315224452 :          lu(k,2294) = - lu(k,416) * lu(k,2287)
    1064   315224452 :          lu(k,2298) = lu(k,2298) - lu(k,417) * lu(k,2287)
    1065   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,418) * lu(k,2287)
    1066   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,419) * lu(k,2287)
    1067   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,420) * lu(k,2287)
    1068   315224452 :          lu(k,421) = 1._r8 / lu(k,421)
    1069   315224452 :          lu(k,422) = lu(k,422) * lu(k,421)
    1070   315224452 :          lu(k,423) = lu(k,423) * lu(k,421)
    1071   315224452 :          lu(k,424) = lu(k,424) * lu(k,421)
    1072   315224452 :          lu(k,425) = lu(k,425) * lu(k,421)
    1073   315224452 :          lu(k,426) = lu(k,426) * lu(k,421)
    1074   315224452 :          lu(k,510) = lu(k,510) - lu(k,422) * lu(k,509)
    1075   315224452 :          lu(k,511) = lu(k,511) - lu(k,423) * lu(k,509)
    1076   315224452 :          lu(k,512) = lu(k,512) - lu(k,424) * lu(k,509)
    1077   315224452 :          lu(k,513) = - lu(k,425) * lu(k,509)
    1078   315224452 :          lu(k,516) = lu(k,516) - lu(k,426) * lu(k,509)
    1079   315224452 :          lu(k,1737) = lu(k,1737) - lu(k,422) * lu(k,1726)
    1080   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,423) * lu(k,1726)
    1081   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,424) * lu(k,1726)
    1082   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,425) * lu(k,1726)
    1083   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,426) * lu(k,1726)
    1084   315224452 :          lu(k,2299) = lu(k,2299) - lu(k,422) * lu(k,2288)
    1085   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,423) * lu(k,2288)
    1086   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,424) * lu(k,2288)
    1087   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,425) * lu(k,2288)
    1088   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,426) * lu(k,2288)
    1089   315224452 :          lu(k,427) = 1._r8 / lu(k,427)
    1090   315224452 :          lu(k,428) = lu(k,428) * lu(k,427)
    1091   315224452 :          lu(k,429) = lu(k,429) * lu(k,427)
    1092   315224452 :          lu(k,430) = lu(k,430) * lu(k,427)
    1093   315224452 :          lu(k,431) = lu(k,431) * lu(k,427)
    1094   315224452 :          lu(k,432) = lu(k,432) * lu(k,427)
    1095   315224452 :          lu(k,1248) = lu(k,1248) - lu(k,428) * lu(k,1245)
    1096   315224452 :          lu(k,1251) = - lu(k,429) * lu(k,1245)
    1097   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,430) * lu(k,1245)
    1098   315224452 :          lu(k,1264) = - lu(k,431) * lu(k,1245)
    1099   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,432) * lu(k,1245)
    1100   315224452 :          lu(k,1772) = lu(k,1772) - lu(k,428) * lu(k,1727)
    1101   315224452 :          lu(k,1794) = lu(k,1794) - lu(k,429) * lu(k,1727)
    1102   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,430) * lu(k,1727)
    1103   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,431) * lu(k,1727)
    1104   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,432) * lu(k,1727)
    1105   315224452 :          lu(k,2378) = - lu(k,428) * lu(k,2373)
    1106   315224452 :          lu(k,2390) = lu(k,2390) - lu(k,429) * lu(k,2373)
    1107   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,430) * lu(k,2373)
    1108   315224452 :          lu(k,2414) = - lu(k,431) * lu(k,2373)
    1109   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,432) * lu(k,2373)
    1110   315224452 :          lu(k,435) = 1._r8 / lu(k,435)
    1111   315224452 :          lu(k,436) = lu(k,436) * lu(k,435)
    1112   315224452 :          lu(k,437) = lu(k,437) * lu(k,435)
    1113   315224452 :          lu(k,438) = lu(k,438) * lu(k,435)
    1114   315224452 :          lu(k,439) = lu(k,439) * lu(k,435)
    1115   315224452 :          lu(k,440) = lu(k,440) * lu(k,435)
    1116   315224452 :          lu(k,1739) = lu(k,1739) - lu(k,436) * lu(k,1728)
    1117   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,437) * lu(k,1728)
    1118   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,438) * lu(k,1728)
    1119   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,439) * lu(k,1728)
    1120   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,440) * lu(k,1728)
    1121   315224452 :          lu(k,1858) = lu(k,1858) - lu(k,436) * lu(k,1849)
    1122   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,437) * lu(k,1849)
    1123   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,438) * lu(k,1849)
    1124   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,439) * lu(k,1849)
    1125   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,440) * lu(k,1849)
    1126   315224452 :          lu(k,2300) = lu(k,2300) - lu(k,436) * lu(k,2289)
    1127   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,437) * lu(k,2289)
    1128   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,438) * lu(k,2289)
    1129   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,439) * lu(k,2289)
    1130   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,440) * lu(k,2289)
    1131   315224452 :          lu(k,441) = 1._r8 / lu(k,441)
    1132   315224452 :          lu(k,442) = lu(k,442) * lu(k,441)
    1133   315224452 :          lu(k,443) = lu(k,443) * lu(k,441)
    1134   315224452 :          lu(k,444) = lu(k,444) * lu(k,441)
    1135   315224452 :          lu(k,445) = lu(k,445) * lu(k,441)
    1136   315224452 :          lu(k,446) = lu(k,446) * lu(k,441)
    1137   315224452 :          lu(k,1879) = lu(k,1879) - lu(k,442) * lu(k,1850)
    1138   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,443) * lu(k,1850)
    1139   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,444) * lu(k,1850)
    1140   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,445) * lu(k,1850)
    1141   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,446) * lu(k,1850)
    1142   315224452 :          lu(k,1974) = - lu(k,442) * lu(k,1972)
    1143   315224452 :          lu(k,1985) = - lu(k,443) * lu(k,1972)
    1144   315224452 :          lu(k,1986) = - lu(k,444) * lu(k,1972)
    1145   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,445) * lu(k,1972)
    1146   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,446) * lu(k,1972)
    1147   315224452 :          lu(k,2324) = lu(k,2324) - lu(k,442) * lu(k,2290)
    1148   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,443) * lu(k,2290)
    1149   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,444) * lu(k,2290)
    1150   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,445) * lu(k,2290)
    1151   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,446) * lu(k,2290)
    1152   315224452 :          lu(k,448) = 1._r8 / lu(k,448)
    1153   315224452 :          lu(k,449) = lu(k,449) * lu(k,448)
    1154   315224452 :          lu(k,450) = lu(k,450) * lu(k,448)
    1155   315224452 :          lu(k,451) = lu(k,451) * lu(k,448)
    1156   315224452 :          lu(k,452) = lu(k,452) * lu(k,448)
    1157   315224452 :          lu(k,453) = lu(k,453) * lu(k,448)
    1158   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,449) * lu(k,1729)
    1159   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,450) * lu(k,1729)
    1160   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,451) * lu(k,1729)
    1161   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,452) * lu(k,1729)
    1162   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,453) * lu(k,1729)
    1163   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,449) * lu(k,1851)
    1164   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,450) * lu(k,1851)
    1165   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,451) * lu(k,1851)
    1166   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,452) * lu(k,1851)
    1167   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,453) * lu(k,1851)
    1168   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,449) * lu(k,2291)
    1169   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,450) * lu(k,2291)
    1170   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,451) * lu(k,2291)
    1171   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,452) * lu(k,2291)
    1172   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,453) * lu(k,2291)
    1173   315224452 :          lu(k,454) = 1._r8 / lu(k,454)
    1174   315224452 :          lu(k,455) = lu(k,455) * lu(k,454)
    1175   315224452 :          lu(k,456) = lu(k,456) * lu(k,454)
    1176   315224452 :          lu(k,457) = lu(k,457) * lu(k,454)
    1177   315224452 :          lu(k,458) = lu(k,458) * lu(k,454)
    1178   315224452 :          lu(k,459) = lu(k,459) * lu(k,454)
    1179   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,455) * lu(k,1730)
    1180   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,456) * lu(k,1730)
    1181   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,457) * lu(k,1730)
    1182   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,458) * lu(k,1730)
    1183   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,459) * lu(k,1730)
    1184   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,455) * lu(k,2292)
    1185   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,456) * lu(k,2292)
    1186   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,457) * lu(k,2292)
    1187   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,458) * lu(k,2292)
    1188   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,459) * lu(k,2292)
    1189   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,455) * lu(k,2374)
    1190   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,456) * lu(k,2374)
    1191   315224452 :          lu(k,2416) = - lu(k,457) * lu(k,2374)
    1192   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,458) * lu(k,2374)
    1193   325174377 :          lu(k,2422) = - lu(k,459) * lu(k,2374)
    1194             :       end do
    1195     9949925 :       end subroutine lu_fac09
    1196     9949925 :       subroutine lu_fac10( avec_len, lu )
    1197             :       use chem_mods, only : nzcnt
    1198             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1199             :       implicit none
    1200             : !-----------------------------------------------------------------------
    1201             : ! ... dummy args
    1202             : !-----------------------------------------------------------------------
    1203             :       integer, intent(in) :: avec_len
    1204             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1205             : !-----------------------------------------------------------------------
    1206             : ! ... local variables
    1207             : !-----------------------------------------------------------------------
    1208             :       integer :: k
    1209   325174377 :       do k = 1,avec_len
    1210   315224452 :          lu(k,460) = 1._r8 / lu(k,460)
    1211   315224452 :          lu(k,461) = lu(k,461) * lu(k,460)
    1212   315224452 :          lu(k,462) = lu(k,462) * lu(k,460)
    1213   315224452 :          lu(k,463) = lu(k,463) * lu(k,460)
    1214   315224452 :          lu(k,464) = lu(k,464) * lu(k,460)
    1215   315224452 :          lu(k,798) = - lu(k,461) * lu(k,796)
    1216   315224452 :          lu(k,799) = - lu(k,462) * lu(k,796)
    1217   315224452 :          lu(k,803) = lu(k,803) - lu(k,463) * lu(k,796)
    1218   315224452 :          lu(k,804) = lu(k,804) - lu(k,464) * lu(k,796)
    1219   315224452 :          lu(k,1538) = lu(k,1538) - lu(k,461) * lu(k,1526)
    1220   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,462) * lu(k,1526)
    1221   315224452 :          lu(k,1548) = - lu(k,463) * lu(k,1526)
    1222   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,464) * lu(k,1526)
    1223   315224452 :          lu(k,1892) = lu(k,1892) - lu(k,461) * lu(k,1852)
    1224   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,462) * lu(k,1852)
    1225   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,463) * lu(k,1852)
    1226   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,464) * lu(k,1852)
    1227   315224452 :          lu(k,2335) = - lu(k,461) * lu(k,2293)
    1228   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,462) * lu(k,2293)
    1229   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,463) * lu(k,2293)
    1230   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,464) * lu(k,2293)
    1231   315224452 :          lu(k,465) = 1._r8 / lu(k,465)
    1232   315224452 :          lu(k,466) = lu(k,466) * lu(k,465)
    1233   315224452 :          lu(k,467) = lu(k,467) * lu(k,465)
    1234   315224452 :          lu(k,496) = - lu(k,466) * lu(k,494)
    1235   315224452 :          lu(k,501) = lu(k,501) - lu(k,467) * lu(k,494)
    1236   315224452 :          lu(k,666) = - lu(k,466) * lu(k,663)
    1237   315224452 :          lu(k,674) = lu(k,674) - lu(k,467) * lu(k,663)
    1238   315224452 :          lu(k,730) = - lu(k,466) * lu(k,727)
    1239   315224452 :          lu(k,739) = lu(k,739) - lu(k,467) * lu(k,727)
    1240   315224452 :          lu(k,750) = - lu(k,466) * lu(k,747)
    1241   315224452 :          lu(k,760) = lu(k,760) - lu(k,467) * lu(k,747)
    1242   315224452 :          lu(k,766) = - lu(k,466) * lu(k,763)
    1243   315224452 :          lu(k,777) = lu(k,777) - lu(k,467) * lu(k,763)
    1244   315224452 :          lu(k,1762) = - lu(k,466) * lu(k,1731)
    1245   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,467) * lu(k,1731)
    1246   315224452 :          lu(k,1867) = lu(k,1867) - lu(k,466) * lu(k,1853)
    1247   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,467) * lu(k,1853)
    1248   315224452 :          lu(k,2312) = lu(k,2312) - lu(k,466) * lu(k,2294)
    1249   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,467) * lu(k,2294)
    1250   315224452 :          lu(k,468) = 1._r8 / lu(k,468)
    1251   315224452 :          lu(k,469) = lu(k,469) * lu(k,468)
    1252   315224452 :          lu(k,470) = lu(k,470) * lu(k,468)
    1253   315224452 :          lu(k,471) = lu(k,471) * lu(k,468)
    1254   315224452 :          lu(k,635) = lu(k,635) - lu(k,469) * lu(k,634)
    1255   315224452 :          lu(k,638) = lu(k,638) - lu(k,470) * lu(k,634)
    1256   315224452 :          lu(k,639) = - lu(k,471) * lu(k,634)
    1257   315224452 :          lu(k,1752) = lu(k,1752) - lu(k,469) * lu(k,1732)
    1258   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,470) * lu(k,1732)
    1259   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,471) * lu(k,1732)
    1260   315224452 :          lu(k,1864) = lu(k,1864) - lu(k,469) * lu(k,1854)
    1261   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,470) * lu(k,1854)
    1262   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,471) * lu(k,1854)
    1263   315224452 :          lu(k,1936) = - lu(k,469) * lu(k,1930)
    1264   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,470) * lu(k,1930)
    1265   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,471) * lu(k,1930)
    1266   315224452 :          lu(k,2185) = lu(k,2185) - lu(k,469) * lu(k,2183)
    1267   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,470) * lu(k,2183)
    1268   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,471) * lu(k,2183)
    1269   315224452 :          lu(k,2304) = lu(k,2304) - lu(k,469) * lu(k,2295)
    1270   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,470) * lu(k,2295)
    1271   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,471) * lu(k,2295)
    1272   315224452 :          lu(k,472) = 1._r8 / lu(k,472)
    1273   315224452 :          lu(k,473) = lu(k,473) * lu(k,472)
    1274   315224452 :          lu(k,474) = lu(k,474) * lu(k,472)
    1275   315224452 :          lu(k,475) = lu(k,475) * lu(k,472)
    1276   315224452 :          lu(k,476) = lu(k,476) * lu(k,472)
    1277   315224452 :          lu(k,477) = lu(k,477) * lu(k,472)
    1278   315224452 :          lu(k,478) = lu(k,478) * lu(k,472)
    1279   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,473) * lu(k,1733)
    1280   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,474) * lu(k,1733)
    1281   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,475) * lu(k,1733)
    1282   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,476) * lu(k,1733)
    1283   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,477) * lu(k,1733)
    1284   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,478) * lu(k,1733)
    1285   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,473) * lu(k,1931)
    1286   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,474) * lu(k,1931)
    1287   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,475) * lu(k,1931)
    1288   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,476) * lu(k,1931)
    1289   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,477) * lu(k,1931)
    1290   315224452 :          lu(k,1971) = - lu(k,478) * lu(k,1931)
    1291   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,473) * lu(k,2296)
    1292   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,474) * lu(k,2296)
    1293   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,475) * lu(k,2296)
    1294   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,476) * lu(k,2296)
    1295   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,477) * lu(k,2296)
    1296   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,478) * lu(k,2296)
    1297   315224452 :          lu(k,479) = 1._r8 / lu(k,479)
    1298   315224452 :          lu(k,480) = lu(k,480) * lu(k,479)
    1299   315224452 :          lu(k,481) = lu(k,481) * lu(k,479)
    1300   315224452 :          lu(k,482) = lu(k,482) * lu(k,479)
    1301   315224452 :          lu(k,483) = lu(k,483) * lu(k,479)
    1302   315224452 :          lu(k,484) = lu(k,484) * lu(k,479)
    1303   315224452 :          lu(k,485) = lu(k,485) * lu(k,479)
    1304   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,480) * lu(k,1734)
    1305   315224452 :          lu(k,1813) = lu(k,1813) - lu(k,481) * lu(k,1734)
    1306   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,482) * lu(k,1734)
    1307   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,483) * lu(k,1734)
    1308   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,484) * lu(k,1734)
    1309   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,485) * lu(k,1734)
    1310   315224452 :          lu(k,2021) = lu(k,2021) - lu(k,480) * lu(k,2016)
    1311   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,481) * lu(k,2016)
    1312   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,482) * lu(k,2016)
    1313   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,483) * lu(k,2016)
    1314   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,484) * lu(k,2016)
    1315   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,485) * lu(k,2016)
    1316   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,480) * lu(k,2134)
    1317   315224452 :          lu(k,2155) = lu(k,2155) - lu(k,481) * lu(k,2134)
    1318   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,482) * lu(k,2134)
    1319   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,483) * lu(k,2134)
    1320   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,484) * lu(k,2134)
    1321   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,485) * lu(k,2134)
    1322   315224452 :          lu(k,486) = 1._r8 / lu(k,486)
    1323   315224452 :          lu(k,487) = lu(k,487) * lu(k,486)
    1324   315224452 :          lu(k,488) = lu(k,488) * lu(k,486)
    1325   315224452 :          lu(k,489) = lu(k,489) * lu(k,486)
    1326   315224452 :          lu(k,490) = lu(k,490) * lu(k,486)
    1327   315224452 :          lu(k,491) = lu(k,491) * lu(k,486)
    1328   315224452 :          lu(k,492) = lu(k,492) * lu(k,486)
    1329   315224452 :          lu(k,1062) = lu(k,1062) - lu(k,487) * lu(k,1059)
    1330   315224452 :          lu(k,1063) = lu(k,1063) - lu(k,488) * lu(k,1059)
    1331   315224452 :          lu(k,1064) = lu(k,1064) - lu(k,489) * lu(k,1059)
    1332   315224452 :          lu(k,1065) = - lu(k,490) * lu(k,1059)
    1333   315224452 :          lu(k,1068) = lu(k,1068) - lu(k,491) * lu(k,1059)
    1334   315224452 :          lu(k,1070) = lu(k,1070) - lu(k,492) * lu(k,1059)
    1335   315224452 :          lu(k,1785) = lu(k,1785) - lu(k,487) * lu(k,1735)
    1336   315224452 :          lu(k,1786) = lu(k,1786) - lu(k,488) * lu(k,1735)
    1337   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,489) * lu(k,1735)
    1338   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,490) * lu(k,1735)
    1339   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,491) * lu(k,1735)
    1340   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,492) * lu(k,1735)
    1341   315224452 :          lu(k,2328) = lu(k,2328) - lu(k,487) * lu(k,2297)
    1342   315224452 :          lu(k,2329) = lu(k,2329) - lu(k,488) * lu(k,2297)
    1343   315224452 :          lu(k,2330) = lu(k,2330) - lu(k,489) * lu(k,2297)
    1344   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,490) * lu(k,2297)
    1345   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,491) * lu(k,2297)
    1346   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,492) * lu(k,2297)
    1347   315224452 :          lu(k,495) = 1._r8 / lu(k,495)
    1348   315224452 :          lu(k,496) = lu(k,496) * lu(k,495)
    1349   315224452 :          lu(k,497) = lu(k,497) * lu(k,495)
    1350   315224452 :          lu(k,498) = lu(k,498) * lu(k,495)
    1351   315224452 :          lu(k,499) = lu(k,499) * lu(k,495)
    1352   315224452 :          lu(k,500) = lu(k,500) * lu(k,495)
    1353   315224452 :          lu(k,501) = lu(k,501) * lu(k,495)
    1354   315224452 :          lu(k,1762) = lu(k,1762) - lu(k,496) * lu(k,1736)
    1355   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,497) * lu(k,1736)
    1356   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,498) * lu(k,1736)
    1357   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,499) * lu(k,1736)
    1358   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,500) * lu(k,1736)
    1359   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,501) * lu(k,1736)
    1360   315224452 :          lu(k,1867) = lu(k,1867) - lu(k,496) * lu(k,1855)
    1361   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,497) * lu(k,1855)
    1362   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,498) * lu(k,1855)
    1363   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,499) * lu(k,1855)
    1364   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,500) * lu(k,1855)
    1365   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,501) * lu(k,1855)
    1366   315224452 :          lu(k,2312) = lu(k,2312) - lu(k,496) * lu(k,2298)
    1367   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,497) * lu(k,2298)
    1368   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,498) * lu(k,2298)
    1369   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,499) * lu(k,2298)
    1370   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,500) * lu(k,2298)
    1371   325174377 :          lu(k,2368) = lu(k,2368) - lu(k,501) * lu(k,2298)
    1372             :       end do
    1373     9949925 :       end subroutine lu_fac10
    1374     9949925 :       subroutine lu_fac11( avec_len, lu )
    1375             :       use chem_mods, only : nzcnt
    1376             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1377             :       implicit none
    1378             : !-----------------------------------------------------------------------
    1379             : ! ... dummy args
    1380             : !-----------------------------------------------------------------------
    1381             :       integer, intent(in) :: avec_len
    1382             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1383             : !-----------------------------------------------------------------------
    1384             : ! ... local variables
    1385             : !-----------------------------------------------------------------------
    1386             :       integer :: k
    1387   325174377 :       do k = 1,avec_len
    1388   315224452 :          lu(k,502) = 1._r8 / lu(k,502)
    1389   315224452 :          lu(k,503) = lu(k,503) * lu(k,502)
    1390   315224452 :          lu(k,504) = lu(k,504) * lu(k,502)
    1391   315224452 :          lu(k,505) = lu(k,505) * lu(k,502)
    1392   315224452 :          lu(k,506) = lu(k,506) * lu(k,502)
    1393   315224452 :          lu(k,507) = lu(k,507) * lu(k,502)
    1394   315224452 :          lu(k,508) = lu(k,508) * lu(k,502)
    1395   315224452 :          lu(k,995) = - lu(k,503) * lu(k,994)
    1396   315224452 :          lu(k,996) = lu(k,996) - lu(k,504) * lu(k,994)
    1397   315224452 :          lu(k,997) = lu(k,997) - lu(k,505) * lu(k,994)
    1398   315224452 :          lu(k,999) = lu(k,999) - lu(k,506) * lu(k,994)
    1399   315224452 :          lu(k,1002) = lu(k,1002) - lu(k,507) * lu(k,994)
    1400   315224452 :          lu(k,1007) = lu(k,1007) - lu(k,508) * lu(k,994)
    1401   315224452 :          lu(k,1531) = lu(k,1531) - lu(k,503) * lu(k,1527)
    1402   315224452 :          lu(k,1532) = lu(k,1532) - lu(k,504) * lu(k,1527)
    1403   315224452 :          lu(k,1533) = lu(k,1533) - lu(k,505) * lu(k,1527)
    1404   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,506) * lu(k,1527)
    1405   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,507) * lu(k,1527)
    1406   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,508) * lu(k,1527)
    1407   315224452 :          lu(k,2074) = lu(k,2074) - lu(k,503) * lu(k,2067)
    1408   315224452 :          lu(k,2077) = lu(k,2077) - lu(k,504) * lu(k,2067)
    1409   315224452 :          lu(k,2078) = - lu(k,505) * lu(k,2067)
    1410   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,506) * lu(k,2067)
    1411   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,507) * lu(k,2067)
    1412   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,508) * lu(k,2067)
    1413   315224452 :          lu(k,510) = 1._r8 / lu(k,510)
    1414   315224452 :          lu(k,511) = lu(k,511) * lu(k,510)
    1415   315224452 :          lu(k,512) = lu(k,512) * lu(k,510)
    1416   315224452 :          lu(k,513) = lu(k,513) * lu(k,510)
    1417   315224452 :          lu(k,514) = lu(k,514) * lu(k,510)
    1418   315224452 :          lu(k,515) = lu(k,515) * lu(k,510)
    1419   315224452 :          lu(k,516) = lu(k,516) * lu(k,510)
    1420   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,511) * lu(k,1737)
    1421   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,512) * lu(k,1737)
    1422   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,513) * lu(k,1737)
    1423   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,514) * lu(k,1737)
    1424   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,515) * lu(k,1737)
    1425   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,516) * lu(k,1737)
    1426   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,511) * lu(k,1856)
    1427   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,512) * lu(k,1856)
    1428   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,513) * lu(k,1856)
    1429   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,514) * lu(k,1856)
    1430   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,515) * lu(k,1856)
    1431   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,516) * lu(k,1856)
    1432   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,511) * lu(k,2299)
    1433   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,512) * lu(k,2299)
    1434   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,513) * lu(k,2299)
    1435   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,514) * lu(k,2299)
    1436   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,515) * lu(k,2299)
    1437   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,516) * lu(k,2299)
    1438   315224452 :          lu(k,517) = 1._r8 / lu(k,517)
    1439   315224452 :          lu(k,518) = lu(k,518) * lu(k,517)
    1440   315224452 :          lu(k,519) = lu(k,519) * lu(k,517)
    1441   315224452 :          lu(k,520) = lu(k,520) * lu(k,517)
    1442   315224452 :          lu(k,521) = lu(k,521) * lu(k,517)
    1443   315224452 :          lu(k,643) = - lu(k,518) * lu(k,641)
    1444   315224452 :          lu(k,644) = - lu(k,519) * lu(k,641)
    1445   315224452 :          lu(k,647) = - lu(k,520) * lu(k,641)
    1446   315224452 :          lu(k,648) = lu(k,648) - lu(k,521) * lu(k,641)
    1447   315224452 :          lu(k,688) = - lu(k,518) * lu(k,686)
    1448   315224452 :          lu(k,689) = - lu(k,519) * lu(k,686)
    1449   315224452 :          lu(k,693) = - lu(k,520) * lu(k,686)
    1450   315224452 :          lu(k,694) = lu(k,694) - lu(k,521) * lu(k,686)
    1451   315224452 :          lu(k,1040) = - lu(k,518) * lu(k,1037)
    1452   315224452 :          lu(k,1041) = - lu(k,519) * lu(k,1037)
    1453   315224452 :          lu(k,1045) = - lu(k,520) * lu(k,1037)
    1454   315224452 :          lu(k,1047) = - lu(k,521) * lu(k,1037)
    1455   315224452 :          lu(k,1757) = lu(k,1757) - lu(k,518) * lu(k,1738)
    1456   315224452 :          lu(k,1773) = lu(k,1773) - lu(k,519) * lu(k,1738)
    1457   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,520) * lu(k,1738)
    1458   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,521) * lu(k,1738)
    1459   315224452 :          lu(k,1866) = lu(k,1866) - lu(k,518) * lu(k,1857)
    1460   315224452 :          lu(k,1877) = lu(k,1877) - lu(k,519) * lu(k,1857)
    1461   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,520) * lu(k,1857)
    1462   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,521) * lu(k,1857)
    1463   315224452 :          lu(k,523) = 1._r8 / lu(k,523)
    1464   315224452 :          lu(k,524) = lu(k,524) * lu(k,523)
    1465   315224452 :          lu(k,525) = lu(k,525) * lu(k,523)
    1466   315224452 :          lu(k,526) = lu(k,526) * lu(k,523)
    1467   315224452 :          lu(k,527) = lu(k,527) * lu(k,523)
    1468   315224452 :          lu(k,528) = lu(k,528) * lu(k,523)
    1469   315224452 :          lu(k,1752) = lu(k,1752) - lu(k,524) * lu(k,1739)
    1470   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,525) * lu(k,1739)
    1471   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,526) * lu(k,1739)
    1472   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,527) * lu(k,1739)
    1473   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,528) * lu(k,1739)
    1474   315224452 :          lu(k,1864) = lu(k,1864) - lu(k,524) * lu(k,1858)
    1475   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,525) * lu(k,1858)
    1476   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,526) * lu(k,1858)
    1477   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,527) * lu(k,1858)
    1478   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,528) * lu(k,1858)
    1479   315224452 :          lu(k,1936) = lu(k,1936) - lu(k,524) * lu(k,1932)
    1480   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,525) * lu(k,1932)
    1481   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,526) * lu(k,1932)
    1482   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,527) * lu(k,1932)
    1483   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,528) * lu(k,1932)
    1484   315224452 :          lu(k,2304) = lu(k,2304) - lu(k,524) * lu(k,2300)
    1485   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,525) * lu(k,2300)
    1486   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,526) * lu(k,2300)
    1487   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,527) * lu(k,2300)
    1488   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,528) * lu(k,2300)
    1489   315224452 :          lu(k,529) = 1._r8 / lu(k,529)
    1490   315224452 :          lu(k,530) = lu(k,530) * lu(k,529)
    1491   315224452 :          lu(k,531) = lu(k,531) * lu(k,529)
    1492   315224452 :          lu(k,532) = lu(k,532) * lu(k,529)
    1493   315224452 :          lu(k,533) = lu(k,533) * lu(k,529)
    1494   315224452 :          lu(k,681) = lu(k,681) - lu(k,530) * lu(k,675)
    1495   315224452 :          lu(k,682) = lu(k,682) - lu(k,531) * lu(k,675)
    1496   315224452 :          lu(k,683) = - lu(k,532) * lu(k,675)
    1497   315224452 :          lu(k,684) = - lu(k,533) * lu(k,675)
    1498   315224452 :          lu(k,847) = lu(k,847) - lu(k,530) * lu(k,844)
    1499   315224452 :          lu(k,848) = - lu(k,531) * lu(k,844)
    1500   315224452 :          lu(k,849) = - lu(k,532) * lu(k,844)
    1501   315224452 :          lu(k,850) = - lu(k,533) * lu(k,844)
    1502   315224452 :          lu(k,866) = lu(k,866) - lu(k,530) * lu(k,860)
    1503   315224452 :          lu(k,869) = - lu(k,531) * lu(k,860)
    1504   315224452 :          lu(k,870) = - lu(k,532) * lu(k,860)
    1505   315224452 :          lu(k,871) = lu(k,871) - lu(k,533) * lu(k,860)
    1506   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,530) * lu(k,1528)
    1507   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,531) * lu(k,1528)
    1508   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,532) * lu(k,1528)
    1509   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,533) * lu(k,1528)
    1510   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,530) * lu(k,2068)
    1511   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,531) * lu(k,2068)
    1512   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,532) * lu(k,2068)
    1513   315224452 :          lu(k,2097) = - lu(k,533) * lu(k,2068)
    1514   315224452 :          lu(k,534) = 1._r8 / lu(k,534)
    1515   315224452 :          lu(k,535) = lu(k,535) * lu(k,534)
    1516   315224452 :          lu(k,536) = lu(k,536) * lu(k,534)
    1517   315224452 :          lu(k,537) = lu(k,537) * lu(k,534)
    1518   315224452 :          lu(k,538) = lu(k,538) * lu(k,534)
    1519   315224452 :          lu(k,539) = lu(k,539) * lu(k,534)
    1520   315224452 :          lu(k,540) = lu(k,540) * lu(k,534)
    1521   315224452 :          lu(k,541) = lu(k,541) * lu(k,534)
    1522   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,535) * lu(k,1411)
    1523   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,536) * lu(k,1411)
    1524   315224452 :          lu(k,1431) = - lu(k,537) * lu(k,1411)
    1525   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,538) * lu(k,1411)
    1526   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,539) * lu(k,1411)
    1527   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,540) * lu(k,1411)
    1528   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,541) * lu(k,1411)
    1529   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,535) * lu(k,1740)
    1530   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,536) * lu(k,1740)
    1531   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,537) * lu(k,1740)
    1532   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,538) * lu(k,1740)
    1533   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,539) * lu(k,1740)
    1534   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,540) * lu(k,1740)
    1535   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,541) * lu(k,1740)
    1536   315224452 :          lu(k,1949) = lu(k,1949) - lu(k,535) * lu(k,1933)
    1537   315224452 :          lu(k,1950) = - lu(k,536) * lu(k,1933)
    1538   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,537) * lu(k,1933)
    1539   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,538) * lu(k,1933)
    1540   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,539) * lu(k,1933)
    1541   315224452 :          lu(k,1961) = - lu(k,540) * lu(k,1933)
    1542   325174377 :          lu(k,1970) = - lu(k,541) * lu(k,1933)
    1543             :       end do
    1544     9949925 :       end subroutine lu_fac11
    1545     9949925 :       subroutine lu_fac12( avec_len, lu )
    1546             :       use chem_mods, only : nzcnt
    1547             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1548             :       implicit none
    1549             : !-----------------------------------------------------------------------
    1550             : ! ... dummy args
    1551             : !-----------------------------------------------------------------------
    1552             :       integer, intent(in) :: avec_len
    1553             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1554             : !-----------------------------------------------------------------------
    1555             : ! ... local variables
    1556             : !-----------------------------------------------------------------------
    1557             :       integer :: k
    1558   325174377 :       do k = 1,avec_len
    1559   315224452 :          lu(k,542) = 1._r8 / lu(k,542)
    1560   315224452 :          lu(k,543) = lu(k,543) * lu(k,542)
    1561   315224452 :          lu(k,544) = lu(k,544) * lu(k,542)
    1562   315224452 :          lu(k,545) = lu(k,545) * lu(k,542)
    1563   315224452 :          lu(k,546) = lu(k,546) * lu(k,542)
    1564   315224452 :          lu(k,547) = lu(k,547) * lu(k,542)
    1565   315224452 :          lu(k,548) = lu(k,548) * lu(k,542)
    1566   315224452 :          lu(k,549) = lu(k,549) * lu(k,542)
    1567   315224452 :          lu(k,814) = lu(k,814) - lu(k,543) * lu(k,813)
    1568   315224452 :          lu(k,815) = lu(k,815) - lu(k,544) * lu(k,813)
    1569   315224452 :          lu(k,816) = - lu(k,545) * lu(k,813)
    1570   315224452 :          lu(k,818) = - lu(k,546) * lu(k,813)
    1571   315224452 :          lu(k,821) = lu(k,821) - lu(k,547) * lu(k,813)
    1572   315224452 :          lu(k,822) = lu(k,822) - lu(k,548) * lu(k,813)
    1573   315224452 :          lu(k,823) = - lu(k,549) * lu(k,813)
    1574   315224452 :          lu(k,1767) = lu(k,1767) - lu(k,543) * lu(k,1741)
    1575   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,544) * lu(k,1741)
    1576   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,545) * lu(k,1741)
    1577   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,546) * lu(k,1741)
    1578   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,547) * lu(k,1741)
    1579   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,548) * lu(k,1741)
    1580   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,549) * lu(k,1741)
    1581   315224452 :          lu(k,2318) = lu(k,2318) - lu(k,543) * lu(k,2301)
    1582   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,544) * lu(k,2301)
    1583   315224452 :          lu(k,2337) = - lu(k,545) * lu(k,2301)
    1584   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,546) * lu(k,2301)
    1585   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,547) * lu(k,2301)
    1586   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,548) * lu(k,2301)
    1587   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,549) * lu(k,2301)
    1588   315224452 :          lu(k,550) = 1._r8 / lu(k,550)
    1589   315224452 :          lu(k,551) = lu(k,551) * lu(k,550)
    1590   315224452 :          lu(k,552) = lu(k,552) * lu(k,550)
    1591   315224452 :          lu(k,553) = lu(k,553) * lu(k,550)
    1592   315224452 :          lu(k,554) = lu(k,554) * lu(k,550)
    1593   315224452 :          lu(k,555) = lu(k,555) * lu(k,550)
    1594   315224452 :          lu(k,556) = lu(k,556) * lu(k,550)
    1595   315224452 :          lu(k,557) = lu(k,557) * lu(k,550)
    1596   315224452 :          lu(k,1766) = lu(k,1766) - lu(k,551) * lu(k,1742)
    1597   315224452 :          lu(k,1775) = lu(k,1775) - lu(k,552) * lu(k,1742)
    1598   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,553) * lu(k,1742)
    1599   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,554) * lu(k,1742)
    1600   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,555) * lu(k,1742)
    1601   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,556) * lu(k,1742)
    1602   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,557) * lu(k,1742)
    1603   315224452 :          lu(k,2138) = - lu(k,551) * lu(k,2135)
    1604   315224452 :          lu(k,2141) = lu(k,2141) - lu(k,552) * lu(k,2135)
    1605   315224452 :          lu(k,2147) = lu(k,2147) - lu(k,553) * lu(k,2135)
    1606   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,554) * lu(k,2135)
    1607   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,555) * lu(k,2135)
    1608   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,556) * lu(k,2135)
    1609   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,557) * lu(k,2135)
    1610   315224452 :          lu(k,2188) = - lu(k,551) * lu(k,2184)
    1611   315224452 :          lu(k,2190) = lu(k,2190) - lu(k,552) * lu(k,2184)
    1612   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,553) * lu(k,2184)
    1613   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,554) * lu(k,2184)
    1614   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,555) * lu(k,2184)
    1615   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,556) * lu(k,2184)
    1616   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,557) * lu(k,2184)
    1617   315224452 :          lu(k,558) = 1._r8 / lu(k,558)
    1618   315224452 :          lu(k,559) = lu(k,559) * lu(k,558)
    1619   315224452 :          lu(k,560) = lu(k,560) * lu(k,558)
    1620   315224452 :          lu(k,561) = lu(k,561) * lu(k,558)
    1621   315224452 :          lu(k,562) = lu(k,562) * lu(k,558)
    1622   315224452 :          lu(k,563) = lu(k,563) * lu(k,558)
    1623   315224452 :          lu(k,564) = lu(k,564) * lu(k,558)
    1624   315224452 :          lu(k,565) = lu(k,565) * lu(k,558)
    1625   315224452 :          lu(k,1321) = - lu(k,559) * lu(k,1317)
    1626   315224452 :          lu(k,1325) = lu(k,1325) - lu(k,560) * lu(k,1317)
    1627   315224452 :          lu(k,1326) = - lu(k,561) * lu(k,1317)
    1628   315224452 :          lu(k,1327) = lu(k,1327) - lu(k,562) * lu(k,1317)
    1629   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,563) * lu(k,1317)
    1630   315224452 :          lu(k,1343) = - lu(k,564) * lu(k,1317)
    1631   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,565) * lu(k,1317)
    1632   315224452 :          lu(k,1772) = lu(k,1772) - lu(k,559) * lu(k,1743)
    1633   315224452 :          lu(k,1794) = lu(k,1794) - lu(k,560) * lu(k,1743)
    1634   315224452 :          lu(k,1796) = lu(k,1796) - lu(k,561) * lu(k,1743)
    1635   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,562) * lu(k,1743)
    1636   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,563) * lu(k,1743)
    1637   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,564) * lu(k,1743)
    1638   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,565) * lu(k,1743)
    1639   315224452 :          lu(k,1876) = - lu(k,559) * lu(k,1859)
    1640   315224452 :          lu(k,1892) = lu(k,1892) - lu(k,560) * lu(k,1859)
    1641   315224452 :          lu(k,1894) = lu(k,1894) - lu(k,561) * lu(k,1859)
    1642   315224452 :          lu(k,1895) = lu(k,1895) - lu(k,562) * lu(k,1859)
    1643   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,563) * lu(k,1859)
    1644   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,564) * lu(k,1859)
    1645   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,565) * lu(k,1859)
    1646   315224452 :          lu(k,566) = 1._r8 / lu(k,566)
    1647   315224452 :          lu(k,567) = lu(k,567) * lu(k,566)
    1648   315224452 :          lu(k,568) = lu(k,568) * lu(k,566)
    1649   315224452 :          lu(k,569) = lu(k,569) * lu(k,566)
    1650   315224452 :          lu(k,570) = lu(k,570) * lu(k,566)
    1651   315224452 :          lu(k,571) = lu(k,571) * lu(k,566)
    1652   315224452 :          lu(k,572) = lu(k,572) * lu(k,566)
    1653   315224452 :          lu(k,573) = lu(k,573) * lu(k,566)
    1654   315224452 :          lu(k,1559) = lu(k,1559) - lu(k,567) * lu(k,1558)
    1655   315224452 :          lu(k,1563) = lu(k,1563) - lu(k,568) * lu(k,1558)
    1656   315224452 :          lu(k,1565) = lu(k,1565) - lu(k,569) * lu(k,1558)
    1657   315224452 :          lu(k,1567) = - lu(k,570) * lu(k,1558)
    1658   315224452 :          lu(k,1570) = lu(k,1570) - lu(k,571) * lu(k,1558)
    1659   315224452 :          lu(k,1573) = - lu(k,572) * lu(k,1558)
    1660   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,573) * lu(k,1558)
    1661   315224452 :          lu(k,1939) = - lu(k,567) * lu(k,1934)
    1662   315224452 :          lu(k,1953) = - lu(k,568) * lu(k,1934)
    1663   315224452 :          lu(k,1955) = lu(k,1955) - lu(k,569) * lu(k,1934)
    1664   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,570) * lu(k,1934)
    1665   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,571) * lu(k,1934)
    1666   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,572) * lu(k,1934)
    1667   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,573) * lu(k,1934)
    1668   315224452 :          lu(k,2073) = lu(k,2073) - lu(k,567) * lu(k,2069)
    1669   315224452 :          lu(k,2088) = lu(k,2088) - lu(k,568) * lu(k,2069)
    1670   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,569) * lu(k,2069)
    1671   315224452 :          lu(k,2092) = lu(k,2092) - lu(k,570) * lu(k,2069)
    1672   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,571) * lu(k,2069)
    1673   315224452 :          lu(k,2098) = - lu(k,572) * lu(k,2069)
    1674   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,573) * lu(k,2069)
    1675   315224452 :          lu(k,574) = 1._r8 / lu(k,574)
    1676   315224452 :          lu(k,575) = lu(k,575) * lu(k,574)
    1677   315224452 :          lu(k,576) = lu(k,576) * lu(k,574)
    1678   315224452 :          lu(k,577) = lu(k,577) * lu(k,574)
    1679   315224452 :          lu(k,578) = lu(k,578) * lu(k,574)
    1680   315224452 :          lu(k,579) = lu(k,579) * lu(k,574)
    1681   315224452 :          lu(k,580) = lu(k,580) * lu(k,574)
    1682   315224452 :          lu(k,581) = lu(k,581) * lu(k,574)
    1683   315224452 :          lu(k,1624) = lu(k,1624) - lu(k,575) * lu(k,1613)
    1684   315224452 :          lu(k,1629) = lu(k,1629) - lu(k,576) * lu(k,1613)
    1685   315224452 :          lu(k,1633) = - lu(k,577) * lu(k,1613)
    1686   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,578) * lu(k,1613)
    1687   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,579) * lu(k,1613)
    1688   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,580) * lu(k,1613)
    1689   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,581) * lu(k,1613)
    1690   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,575) * lu(k,1744)
    1691   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,576) * lu(k,1744)
    1692   315224452 :          lu(k,1796) = lu(k,1796) - lu(k,577) * lu(k,1744)
    1693   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,578) * lu(k,1744)
    1694   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,579) * lu(k,1744)
    1695   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,580) * lu(k,1744)
    1696   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,581) * lu(k,1744)
    1697   315224452 :          lu(k,1886) = lu(k,1886) - lu(k,575) * lu(k,1860)
    1698   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,576) * lu(k,1860)
    1699   315224452 :          lu(k,1894) = lu(k,1894) - lu(k,577) * lu(k,1860)
    1700   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,578) * lu(k,1860)
    1701   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,579) * lu(k,1860)
    1702   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,580) * lu(k,1860)
    1703   325174377 :          lu(k,1924) = lu(k,1924) - lu(k,581) * lu(k,1860)
    1704             :       end do
    1705     9949925 :       end subroutine lu_fac12
    1706     9949925 :       subroutine lu_fac13( avec_len, lu )
    1707             :       use chem_mods, only : nzcnt
    1708             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1709             :       implicit none
    1710             : !-----------------------------------------------------------------------
    1711             : ! ... dummy args
    1712             : !-----------------------------------------------------------------------
    1713             :       integer, intent(in) :: avec_len
    1714             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1715             : !-----------------------------------------------------------------------
    1716             : ! ... local variables
    1717             : !-----------------------------------------------------------------------
    1718             :       integer :: k
    1719   325174377 :       do k = 1,avec_len
    1720   315224452 :          lu(k,582) = 1._r8 / lu(k,582)
    1721   315224452 :          lu(k,583) = lu(k,583) * lu(k,582)
    1722   315224452 :          lu(k,584) = lu(k,584) * lu(k,582)
    1723   315224452 :          lu(k,585) = lu(k,585) * lu(k,582)
    1724   315224452 :          lu(k,586) = lu(k,586) * lu(k,582)
    1725   315224452 :          lu(k,587) = lu(k,587) * lu(k,582)
    1726   315224452 :          lu(k,588) = lu(k,588) * lu(k,582)
    1727   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,583) * lu(k,1745)
    1728   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,584) * lu(k,1745)
    1729   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,585) * lu(k,1745)
    1730   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,586) * lu(k,1745)
    1731   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,587) * lu(k,1745)
    1732   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,588) * lu(k,1745)
    1733   315224452 :          lu(k,2087) = lu(k,2087) - lu(k,583) * lu(k,2070)
    1734   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,584) * lu(k,2070)
    1735   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,585) * lu(k,2070)
    1736   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,586) * lu(k,2070)
    1737   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,587) * lu(k,2070)
    1738   315224452 :          lu(k,2106) = - lu(k,588) * lu(k,2070)
    1739   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,583) * lu(k,2136)
    1740   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,584) * lu(k,2136)
    1741   315224452 :          lu(k,2166) = - lu(k,585) * lu(k,2136)
    1742   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,586) * lu(k,2136)
    1743   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,587) * lu(k,2136)
    1744   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,588) * lu(k,2136)
    1745   315224452 :          lu(k,2351) = lu(k,2351) - lu(k,583) * lu(k,2302)
    1746   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,584) * lu(k,2302)
    1747   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,585) * lu(k,2302)
    1748   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,586) * lu(k,2302)
    1749   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,587) * lu(k,2302)
    1750   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,588) * lu(k,2302)
    1751   315224452 :          lu(k,589) = 1._r8 / lu(k,589)
    1752   315224452 :          lu(k,590) = lu(k,590) * lu(k,589)
    1753   315224452 :          lu(k,591) = lu(k,591) * lu(k,589)
    1754   315224452 :          lu(k,592) = lu(k,592) * lu(k,589)
    1755   315224452 :          lu(k,593) = lu(k,593) * lu(k,589)
    1756   315224452 :          lu(k,594) = lu(k,594) * lu(k,589)
    1757   315224452 :          lu(k,595) = lu(k,595) * lu(k,589)
    1758   315224452 :          lu(k,596) = lu(k,596) * lu(k,589)
    1759   315224452 :          lu(k,597) = lu(k,597) * lu(k,589)
    1760   315224452 :          lu(k,1292) = - lu(k,590) * lu(k,1289)
    1761   315224452 :          lu(k,1293) = - lu(k,591) * lu(k,1289)
    1762   315224452 :          lu(k,1294) = - lu(k,592) * lu(k,1289)
    1763   315224452 :          lu(k,1306) = - lu(k,593) * lu(k,1289)
    1764   315224452 :          lu(k,1308) = lu(k,1308) - lu(k,594) * lu(k,1289)
    1765   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,595) * lu(k,1289)
    1766   315224452 :          lu(k,1310) = - lu(k,596) * lu(k,1289)
    1767   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,597) * lu(k,1289)
    1768   315224452 :          lu(k,1794) = lu(k,1794) - lu(k,590) * lu(k,1746)
    1769   315224452 :          lu(k,1796) = lu(k,1796) - lu(k,591) * lu(k,1746)
    1770   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,592) * lu(k,1746)
    1771   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,593) * lu(k,1746)
    1772   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,594) * lu(k,1746)
    1773   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,595) * lu(k,1746)
    1774   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,596) * lu(k,1746)
    1775   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,597) * lu(k,1746)
    1776   315224452 :          lu(k,1892) = lu(k,1892) - lu(k,590) * lu(k,1861)
    1777   315224452 :          lu(k,1894) = lu(k,1894) - lu(k,591) * lu(k,1861)
    1778   315224452 :          lu(k,1895) = lu(k,1895) - lu(k,592) * lu(k,1861)
    1779   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,593) * lu(k,1861)
    1780   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,594) * lu(k,1861)
    1781   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,595) * lu(k,1861)
    1782   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,596) * lu(k,1861)
    1783   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,597) * lu(k,1861)
    1784   315224452 :          lu(k,598) = 1._r8 / lu(k,598)
    1785   315224452 :          lu(k,599) = lu(k,599) * lu(k,598)
    1786   315224452 :          lu(k,600) = lu(k,600) * lu(k,598)
    1787   315224452 :          lu(k,601) = lu(k,601) * lu(k,598)
    1788   315224452 :          lu(k,669) = - lu(k,599) * lu(k,664)
    1789   315224452 :          lu(k,671) = - lu(k,600) * lu(k,664)
    1790   315224452 :          lu(k,674) = lu(k,674) - lu(k,601) * lu(k,664)
    1791   315224452 :          lu(k,733) = - lu(k,599) * lu(k,728)
    1792   315224452 :          lu(k,735) = lu(k,735) - lu(k,600) * lu(k,728)
    1793   315224452 :          lu(k,739) = lu(k,739) - lu(k,601) * lu(k,728)
    1794   315224452 :          lu(k,753) = - lu(k,599) * lu(k,748)
    1795   315224452 :          lu(k,755) = - lu(k,600) * lu(k,748)
    1796   315224452 :          lu(k,760) = lu(k,760) - lu(k,601) * lu(k,748)
    1797   315224452 :          lu(k,769) = - lu(k,599) * lu(k,764)
    1798   315224452 :          lu(k,771) = lu(k,771) - lu(k,600) * lu(k,764)
    1799   315224452 :          lu(k,777) = lu(k,777) - lu(k,601) * lu(k,764)
    1800   315224452 :          lu(k,1088) = - lu(k,599) * lu(k,1086)
    1801   315224452 :          lu(k,1091) = - lu(k,600) * lu(k,1086)
    1802   315224452 :          lu(k,1100) = lu(k,1100) - lu(k,601) * lu(k,1086)
    1803   315224452 :          lu(k,1322) = - lu(k,599) * lu(k,1318)
    1804   315224452 :          lu(k,1324) = - lu(k,600) * lu(k,1318)
    1805   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,601) * lu(k,1318)
    1806   315224452 :          lu(k,1774) = - lu(k,599) * lu(k,1747)
    1807   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,600) * lu(k,1747)
    1808   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,601) * lu(k,1747)
    1809   315224452 :          lu(k,1878) = lu(k,1878) - lu(k,599) * lu(k,1862)
    1810   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,600) * lu(k,1862)
    1811   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,601) * lu(k,1862)
    1812   315224452 :          lu(k,602) = 1._r8 / lu(k,602)
    1813   315224452 :          lu(k,603) = lu(k,603) * lu(k,602)
    1814   315224452 :          lu(k,604) = lu(k,604) * lu(k,602)
    1815   315224452 :          lu(k,605) = lu(k,605) * lu(k,602)
    1816   315224452 :          lu(k,606) = lu(k,606) * lu(k,602)
    1817   315224452 :          lu(k,607) = lu(k,607) * lu(k,602)
    1818   315224452 :          lu(k,608) = lu(k,608) * lu(k,602)
    1819   315224452 :          lu(k,609) = lu(k,609) * lu(k,602)
    1820   315224452 :          lu(k,610) = lu(k,610) * lu(k,602)
    1821   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,603) * lu(k,1748)
    1822   315224452 :          lu(k,1813) = lu(k,1813) - lu(k,604) * lu(k,1748)
    1823   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,605) * lu(k,1748)
    1824   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,606) * lu(k,1748)
    1825   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,607) * lu(k,1748)
    1826   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,608) * lu(k,1748)
    1827   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,609) * lu(k,1748)
    1828   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,610) * lu(k,1748)
    1829   315224452 :          lu(k,2021) = lu(k,2021) - lu(k,603) * lu(k,2017)
    1830   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,604) * lu(k,2017)
    1831   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,605) * lu(k,2017)
    1832   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,606) * lu(k,2017)
    1833   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,607) * lu(k,2017)
    1834   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,608) * lu(k,2017)
    1835   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,609) * lu(k,2017)
    1836   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,610) * lu(k,2017)
    1837   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,603) * lu(k,2137)
    1838   315224452 :          lu(k,2155) = lu(k,2155) - lu(k,604) * lu(k,2137)
    1839   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,605) * lu(k,2137)
    1840   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,606) * lu(k,2137)
    1841   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,607) * lu(k,2137)
    1842   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,608) * lu(k,2137)
    1843   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,609) * lu(k,2137)
    1844   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,610) * lu(k,2137)
    1845   315224452 :          lu(k,611) = 1._r8 / lu(k,611)
    1846   315224452 :          lu(k,612) = lu(k,612) * lu(k,611)
    1847   315224452 :          lu(k,613) = lu(k,613) * lu(k,611)
    1848   315224452 :          lu(k,614) = lu(k,614) * lu(k,611)
    1849   315224452 :          lu(k,615) = lu(k,615) * lu(k,611)
    1850   315224452 :          lu(k,616) = lu(k,616) * lu(k,611)
    1851   315224452 :          lu(k,617) = lu(k,617) * lu(k,611)
    1852   315224452 :          lu(k,618) = lu(k,618) * lu(k,611)
    1853   315224452 :          lu(k,619) = lu(k,619) * lu(k,611)
    1854   315224452 :          lu(k,1395) = - lu(k,612) * lu(k,1392)
    1855   315224452 :          lu(k,1397) = lu(k,1397) - lu(k,613) * lu(k,1392)
    1856   315224452 :          lu(k,1399) = lu(k,1399) - lu(k,614) * lu(k,1392)
    1857   315224452 :          lu(k,1400) = lu(k,1400) - lu(k,615) * lu(k,1392)
    1858   315224452 :          lu(k,1401) = lu(k,1401) - lu(k,616) * lu(k,1392)
    1859   315224452 :          lu(k,1403) = lu(k,1403) - lu(k,617) * lu(k,1392)
    1860   315224452 :          lu(k,1404) = lu(k,1404) - lu(k,618) * lu(k,1392)
    1861   315224452 :          lu(k,1407) = lu(k,1407) - lu(k,619) * lu(k,1392)
    1862   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,612) * lu(k,1749)
    1863   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,613) * lu(k,1749)
    1864   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,614) * lu(k,1749)
    1865   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,615) * lu(k,1749)
    1866   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,616) * lu(k,1749)
    1867   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,617) * lu(k,1749)
    1868   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,618) * lu(k,1749)
    1869   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,619) * lu(k,1749)
    1870   315224452 :          lu(k,1946) = - lu(k,612) * lu(k,1935)
    1871   315224452 :          lu(k,1948) = lu(k,1948) - lu(k,613) * lu(k,1935)
    1872   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,614) * lu(k,1935)
    1873   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,615) * lu(k,1935)
    1874   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,616) * lu(k,1935)
    1875   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,617) * lu(k,1935)
    1876   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,618) * lu(k,1935)
    1877   325174377 :          lu(k,1969) = lu(k,1969) - lu(k,619) * lu(k,1935)
    1878             :       end do
    1879     9949925 :       end subroutine lu_fac13
    1880     9949925 :       subroutine lu_fac14( avec_len, lu )
    1881             :       use chem_mods, only : nzcnt
    1882             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1883             :       implicit none
    1884             : !-----------------------------------------------------------------------
    1885             : ! ... dummy args
    1886             : !-----------------------------------------------------------------------
    1887             :       integer, intent(in) :: avec_len
    1888             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1889             : !-----------------------------------------------------------------------
    1890             : ! ... local variables
    1891             : !-----------------------------------------------------------------------
    1892             :       integer :: k
    1893   325174377 :       do k = 1,avec_len
    1894   315224452 :          lu(k,620) = 1._r8 / lu(k,620)
    1895   315224452 :          lu(k,621) = lu(k,621) * lu(k,620)
    1896   315224452 :          lu(k,622) = lu(k,622) * lu(k,620)
    1897   315224452 :          lu(k,623) = lu(k,623) * lu(k,620)
    1898   315224452 :          lu(k,624) = lu(k,624) * lu(k,620)
    1899   315224452 :          lu(k,625) = lu(k,625) * lu(k,620)
    1900   315224452 :          lu(k,626) = lu(k,626) * lu(k,620)
    1901   315224452 :          lu(k,1398) = lu(k,1398) - lu(k,621) * lu(k,1393)
    1902   315224452 :          lu(k,1399) = lu(k,1399) - lu(k,622) * lu(k,1393)
    1903   315224452 :          lu(k,1401) = lu(k,1401) - lu(k,623) * lu(k,1393)
    1904   315224452 :          lu(k,1404) = lu(k,1404) - lu(k,624) * lu(k,1393)
    1905   315224452 :          lu(k,1408) = lu(k,1408) - lu(k,625) * lu(k,1393)
    1906   315224452 :          lu(k,1409) = - lu(k,626) * lu(k,1393)
    1907   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,621) * lu(k,1412)
    1908   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,622) * lu(k,1412)
    1909   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,623) * lu(k,1412)
    1910   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,624) * lu(k,1412)
    1911   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,625) * lu(k,1412)
    1912   315224452 :          lu(k,1441) = - lu(k,626) * lu(k,1412)
    1913   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,621) * lu(k,1750)
    1914   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,622) * lu(k,1750)
    1915   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,623) * lu(k,1750)
    1916   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,624) * lu(k,1750)
    1917   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,625) * lu(k,1750)
    1918   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,626) * lu(k,1750)
    1919   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,621) * lu(k,2303)
    1920   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,622) * lu(k,2303)
    1921   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,623) * lu(k,2303)
    1922   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,624) * lu(k,2303)
    1923   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,625) * lu(k,2303)
    1924   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,626) * lu(k,2303)
    1925   315224452 :          lu(k,627) = 1._r8 / lu(k,627)
    1926   315224452 :          lu(k,628) = lu(k,628) * lu(k,627)
    1927   315224452 :          lu(k,629) = lu(k,629) * lu(k,627)
    1928   315224452 :          lu(k,630) = lu(k,630) * lu(k,627)
    1929   315224452 :          lu(k,631) = lu(k,631) * lu(k,627)
    1930   315224452 :          lu(k,632) = lu(k,632) * lu(k,627)
    1931   315224452 :          lu(k,1063) = lu(k,1063) - lu(k,628) * lu(k,1060)
    1932   315224452 :          lu(k,1065) = lu(k,1065) - lu(k,629) * lu(k,1060)
    1933   315224452 :          lu(k,1067) = lu(k,1067) - lu(k,630) * lu(k,1060)
    1934   315224452 :          lu(k,1069) = - lu(k,631) * lu(k,1060)
    1935   315224452 :          lu(k,1070) = lu(k,1070) - lu(k,632) * lu(k,1060)
    1936   315224452 :          lu(k,1105) = lu(k,1105) - lu(k,628) * lu(k,1103)
    1937   315224452 :          lu(k,1111) = lu(k,1111) - lu(k,629) * lu(k,1103)
    1938   315224452 :          lu(k,1113) = lu(k,1113) - lu(k,630) * lu(k,1103)
    1939   315224452 :          lu(k,1115) = lu(k,1115) - lu(k,631) * lu(k,1103)
    1940   315224452 :          lu(k,1116) = lu(k,1116) - lu(k,632) * lu(k,1103)
    1941   315224452 :          lu(k,1786) = lu(k,1786) - lu(k,628) * lu(k,1751)
    1942   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,629) * lu(k,1751)
    1943   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,630) * lu(k,1751)
    1944   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,631) * lu(k,1751)
    1945   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,632) * lu(k,1751)
    1946   315224452 :          lu(k,1885) = lu(k,1885) - lu(k,628) * lu(k,1863)
    1947   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,629) * lu(k,1863)
    1948   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,630) * lu(k,1863)
    1949   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,631) * lu(k,1863)
    1950   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,632) * lu(k,1863)
    1951   315224452 :          lu(k,2383) = lu(k,2383) - lu(k,628) * lu(k,2375)
    1952   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,629) * lu(k,2375)
    1953   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,630) * lu(k,2375)
    1954   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,631) * lu(k,2375)
    1955   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,632) * lu(k,2375)
    1956   315224452 :          lu(k,635) = 1._r8 / lu(k,635)
    1957   315224452 :          lu(k,636) = lu(k,636) * lu(k,635)
    1958   315224452 :          lu(k,637) = lu(k,637) * lu(k,635)
    1959   315224452 :          lu(k,638) = lu(k,638) * lu(k,635)
    1960   315224452 :          lu(k,639) = lu(k,639) * lu(k,635)
    1961   315224452 :          lu(k,640) = lu(k,640) * lu(k,635)
    1962   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,636) * lu(k,1752)
    1963   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,637) * lu(k,1752)
    1964   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,638) * lu(k,1752)
    1965   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,639) * lu(k,1752)
    1966   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,640) * lu(k,1752)
    1967   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,636) * lu(k,1864)
    1968   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,637) * lu(k,1864)
    1969   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,638) * lu(k,1864)
    1970   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,639) * lu(k,1864)
    1971   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,640) * lu(k,1864)
    1972   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,636) * lu(k,1936)
    1973   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,637) * lu(k,1936)
    1974   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,638) * lu(k,1936)
    1975   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,639) * lu(k,1936)
    1976   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,640) * lu(k,1936)
    1977   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,636) * lu(k,2185)
    1978   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,637) * lu(k,2185)
    1979   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,638) * lu(k,2185)
    1980   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,639) * lu(k,2185)
    1981   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,640) * lu(k,2185)
    1982   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,636) * lu(k,2304)
    1983   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,637) * lu(k,2304)
    1984   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,638) * lu(k,2304)
    1985   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,639) * lu(k,2304)
    1986   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,640) * lu(k,2304)
    1987   315224452 :          lu(k,642) = 1._r8 / lu(k,642)
    1988   315224452 :          lu(k,643) = lu(k,643) * lu(k,642)
    1989   315224452 :          lu(k,644) = lu(k,644) * lu(k,642)
    1990   315224452 :          lu(k,645) = lu(k,645) * lu(k,642)
    1991   315224452 :          lu(k,646) = lu(k,646) * lu(k,642)
    1992   315224452 :          lu(k,647) = lu(k,647) * lu(k,642)
    1993   315224452 :          lu(k,648) = lu(k,648) * lu(k,642)
    1994   315224452 :          lu(k,649) = lu(k,649) * lu(k,642)
    1995   315224452 :          lu(k,650) = lu(k,650) * lu(k,642)
    1996   315224452 :          lu(k,651) = lu(k,651) * lu(k,642)
    1997   315224452 :          lu(k,1040) = lu(k,1040) - lu(k,643) * lu(k,1038)
    1998   315224452 :          lu(k,1041) = lu(k,1041) - lu(k,644) * lu(k,1038)
    1999   315224452 :          lu(k,1043) = lu(k,1043) - lu(k,645) * lu(k,1038)
    2000   315224452 :          lu(k,1044) = lu(k,1044) - lu(k,646) * lu(k,1038)
    2001   315224452 :          lu(k,1045) = lu(k,1045) - lu(k,647) * lu(k,1038)
    2002   315224452 :          lu(k,1047) = lu(k,1047) - lu(k,648) * lu(k,1038)
    2003   315224452 :          lu(k,1049) = lu(k,1049) - lu(k,649) * lu(k,1038)
    2004   315224452 :          lu(k,1050) = lu(k,1050) - lu(k,650) * lu(k,1038)
    2005   315224452 :          lu(k,1051) = lu(k,1051) - lu(k,651) * lu(k,1038)
    2006   315224452 :          lu(k,1757) = lu(k,1757) - lu(k,643) * lu(k,1753)
    2007   315224452 :          lu(k,1773) = lu(k,1773) - lu(k,644) * lu(k,1753)
    2008   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,645) * lu(k,1753)
    2009   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,646) * lu(k,1753)
    2010   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,647) * lu(k,1753)
    2011   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,648) * lu(k,1753)
    2012   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,649) * lu(k,1753)
    2013   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,650) * lu(k,1753)
    2014   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,651) * lu(k,1753)
    2015   315224452 :          lu(k,1866) = lu(k,1866) - lu(k,643) * lu(k,1865)
    2016   315224452 :          lu(k,1877) = lu(k,1877) - lu(k,644) * lu(k,1865)
    2017   315224452 :          lu(k,1886) = lu(k,1886) - lu(k,645) * lu(k,1865)
    2018   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,646) * lu(k,1865)
    2019   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,647) * lu(k,1865)
    2020   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,648) * lu(k,1865)
    2021   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,649) * lu(k,1865)
    2022   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,650) * lu(k,1865)
    2023   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,651) * lu(k,1865)
    2024   315224452 :          lu(k,652) = 1._r8 / lu(k,652)
    2025   315224452 :          lu(k,653) = lu(k,653) * lu(k,652)
    2026   315224452 :          lu(k,654) = lu(k,654) * lu(k,652)
    2027   315224452 :          lu(k,655) = lu(k,655) * lu(k,652)
    2028   315224452 :          lu(k,656) = lu(k,656) * lu(k,652)
    2029   315224452 :          lu(k,657) = lu(k,657) * lu(k,652)
    2030   315224452 :          lu(k,658) = lu(k,658) * lu(k,652)
    2031   315224452 :          lu(k,659) = lu(k,659) * lu(k,652)
    2032   315224452 :          lu(k,660) = lu(k,660) * lu(k,652)
    2033   315224452 :          lu(k,661) = lu(k,661) * lu(k,652)
    2034   315224452 :          lu(k,1174) = lu(k,1174) - lu(k,653) * lu(k,1172)
    2035   315224452 :          lu(k,1175) = lu(k,1175) - lu(k,654) * lu(k,1172)
    2036   315224452 :          lu(k,1176) = lu(k,1176) - lu(k,655) * lu(k,1172)
    2037   315224452 :          lu(k,1177) = lu(k,1177) - lu(k,656) * lu(k,1172)
    2038   315224452 :          lu(k,1178) = lu(k,1178) - lu(k,657) * lu(k,1172)
    2039   315224452 :          lu(k,1181) = lu(k,1181) - lu(k,658) * lu(k,1172)
    2040   315224452 :          lu(k,1182) = - lu(k,659) * lu(k,1172)
    2041   315224452 :          lu(k,1185) = lu(k,1185) - lu(k,660) * lu(k,1172)
    2042   315224452 :          lu(k,1187) = lu(k,1187) - lu(k,661) * lu(k,1172)
    2043   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,653) * lu(k,1754)
    2044   315224452 :          lu(k,1790) = lu(k,1790) - lu(k,654) * lu(k,1754)
    2045   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,655) * lu(k,1754)
    2046   315224452 :          lu(k,1794) = lu(k,1794) - lu(k,656) * lu(k,1754)
    2047   315224452 :          lu(k,1795) = lu(k,1795) - lu(k,657) * lu(k,1754)
    2048   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,658) * lu(k,1754)
    2049   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,659) * lu(k,1754)
    2050   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,660) * lu(k,1754)
    2051   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,661) * lu(k,1754)
    2052   315224452 :          lu(k,2330) = lu(k,2330) - lu(k,653) * lu(k,2305)
    2053   315224452 :          lu(k,2332) = - lu(k,654) * lu(k,2305)
    2054   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,655) * lu(k,2305)
    2055   315224452 :          lu(k,2335) = lu(k,2335) - lu(k,656) * lu(k,2305)
    2056   315224452 :          lu(k,2336) = lu(k,2336) - lu(k,657) * lu(k,2305)
    2057   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,658) * lu(k,2305)
    2058   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,659) * lu(k,2305)
    2059   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,660) * lu(k,2305)
    2060   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,661) * lu(k,2305)
    2061   315224452 :          lu(k,665) = 1._r8 / lu(k,665)
    2062   315224452 :          lu(k,666) = lu(k,666) * lu(k,665)
    2063   315224452 :          lu(k,667) = lu(k,667) * lu(k,665)
    2064   315224452 :          lu(k,668) = lu(k,668) * lu(k,665)
    2065   315224452 :          lu(k,669) = lu(k,669) * lu(k,665)
    2066   315224452 :          lu(k,670) = lu(k,670) * lu(k,665)
    2067   315224452 :          lu(k,671) = lu(k,671) * lu(k,665)
    2068   315224452 :          lu(k,672) = lu(k,672) * lu(k,665)
    2069   315224452 :          lu(k,673) = lu(k,673) * lu(k,665)
    2070   315224452 :          lu(k,674) = lu(k,674) * lu(k,665)
    2071   315224452 :          lu(k,750) = lu(k,750) - lu(k,666) * lu(k,749)
    2072   315224452 :          lu(k,751) = lu(k,751) - lu(k,667) * lu(k,749)
    2073   315224452 :          lu(k,752) = lu(k,752) - lu(k,668) * lu(k,749)
    2074   315224452 :          lu(k,753) = lu(k,753) - lu(k,669) * lu(k,749)
    2075   315224452 :          lu(k,754) = lu(k,754) - lu(k,670) * lu(k,749)
    2076   315224452 :          lu(k,755) = lu(k,755) - lu(k,671) * lu(k,749)
    2077   315224452 :          lu(k,756) = lu(k,756) - lu(k,672) * lu(k,749)
    2078   315224452 :          lu(k,757) = - lu(k,673) * lu(k,749)
    2079   315224452 :          lu(k,760) = lu(k,760) - lu(k,674) * lu(k,749)
    2080   315224452 :          lu(k,1762) = lu(k,1762) - lu(k,666) * lu(k,1755)
    2081   315224452 :          lu(k,1763) = lu(k,1763) - lu(k,667) * lu(k,1755)
    2082   315224452 :          lu(k,1765) = - lu(k,668) * lu(k,1755)
    2083   315224452 :          lu(k,1774) = lu(k,1774) - lu(k,669) * lu(k,1755)
    2084   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,670) * lu(k,1755)
    2085   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,671) * lu(k,1755)
    2086   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,672) * lu(k,1755)
    2087   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,673) * lu(k,1755)
    2088   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,674) * lu(k,1755)
    2089   315224452 :          lu(k,2312) = lu(k,2312) - lu(k,666) * lu(k,2306)
    2090   315224452 :          lu(k,2313) = lu(k,2313) - lu(k,667) * lu(k,2306)
    2091   315224452 :          lu(k,2315) = lu(k,2315) - lu(k,668) * lu(k,2306)
    2092   315224452 :          lu(k,2323) = lu(k,2323) - lu(k,669) * lu(k,2306)
    2093   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,670) * lu(k,2306)
    2094   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,671) * lu(k,2306)
    2095   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,672) * lu(k,2306)
    2096   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,673) * lu(k,2306)
    2097   325174377 :          lu(k,2368) = lu(k,2368) - lu(k,674) * lu(k,2306)
    2098             :       end do
    2099     9949925 :       end subroutine lu_fac14
    2100     9949925 :       subroutine lu_fac15( avec_len, lu )
    2101             :       use chem_mods, only : nzcnt
    2102             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2103             :       implicit none
    2104             : !-----------------------------------------------------------------------
    2105             : ! ... dummy args
    2106             : !-----------------------------------------------------------------------
    2107             :       integer, intent(in) :: avec_len
    2108             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2109             : !-----------------------------------------------------------------------
    2110             : ! ... local variables
    2111             : !-----------------------------------------------------------------------
    2112             :       integer :: k
    2113   325174377 :       do k = 1,avec_len
    2114   315224452 :          lu(k,676) = 1._r8 / lu(k,676)
    2115   315224452 :          lu(k,677) = lu(k,677) * lu(k,676)
    2116   315224452 :          lu(k,678) = lu(k,678) * lu(k,676)
    2117   315224452 :          lu(k,679) = lu(k,679) * lu(k,676)
    2118   315224452 :          lu(k,680) = lu(k,680) * lu(k,676)
    2119   315224452 :          lu(k,681) = lu(k,681) * lu(k,676)
    2120   315224452 :          lu(k,682) = lu(k,682) * lu(k,676)
    2121   315224452 :          lu(k,683) = lu(k,683) * lu(k,676)
    2122   315224452 :          lu(k,684) = lu(k,684) * lu(k,676)
    2123   315224452 :          lu(k,685) = lu(k,685) * lu(k,676)
    2124   315224452 :          lu(k,862) = - lu(k,677) * lu(k,861)
    2125   315224452 :          lu(k,863) = lu(k,863) - lu(k,678) * lu(k,861)
    2126   315224452 :          lu(k,864) = lu(k,864) - lu(k,679) * lu(k,861)
    2127   315224452 :          lu(k,865) = lu(k,865) - lu(k,680) * lu(k,861)
    2128   315224452 :          lu(k,866) = lu(k,866) - lu(k,681) * lu(k,861)
    2129   315224452 :          lu(k,869) = lu(k,869) - lu(k,682) * lu(k,861)
    2130   315224452 :          lu(k,870) = lu(k,870) - lu(k,683) * lu(k,861)
    2131   315224452 :          lu(k,871) = lu(k,871) - lu(k,684) * lu(k,861)
    2132   315224452 :          lu(k,872) = lu(k,872) - lu(k,685) * lu(k,861)
    2133   315224452 :          lu(k,1531) = lu(k,1531) - lu(k,677) * lu(k,1529)
    2134   315224452 :          lu(k,1532) = lu(k,1532) - lu(k,678) * lu(k,1529)
    2135   315224452 :          lu(k,1533) = lu(k,1533) - lu(k,679) * lu(k,1529)
    2136   315224452 :          lu(k,1534) = lu(k,1534) - lu(k,680) * lu(k,1529)
    2137   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,681) * lu(k,1529)
    2138   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,682) * lu(k,1529)
    2139   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,683) * lu(k,1529)
    2140   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,684) * lu(k,1529)
    2141   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,685) * lu(k,1529)
    2142   315224452 :          lu(k,2074) = lu(k,2074) - lu(k,677) * lu(k,2071)
    2143   315224452 :          lu(k,2077) = lu(k,2077) - lu(k,678) * lu(k,2071)
    2144   315224452 :          lu(k,2078) = lu(k,2078) - lu(k,679) * lu(k,2071)
    2145   315224452 :          lu(k,2079) = lu(k,2079) - lu(k,680) * lu(k,2071)
    2146   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,681) * lu(k,2071)
    2147   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,682) * lu(k,2071)
    2148   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,683) * lu(k,2071)
    2149   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,684) * lu(k,2071)
    2150   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,685) * lu(k,2071)
    2151   315224452 :          lu(k,687) = 1._r8 / lu(k,687)
    2152   315224452 :          lu(k,688) = lu(k,688) * lu(k,687)
    2153   315224452 :          lu(k,689) = lu(k,689) * lu(k,687)
    2154   315224452 :          lu(k,690) = lu(k,690) * lu(k,687)
    2155   315224452 :          lu(k,691) = lu(k,691) * lu(k,687)
    2156   315224452 :          lu(k,692) = lu(k,692) * lu(k,687)
    2157   315224452 :          lu(k,693) = lu(k,693) * lu(k,687)
    2158   315224452 :          lu(k,694) = lu(k,694) * lu(k,687)
    2159   315224452 :          lu(k,695) = lu(k,695) * lu(k,687)
    2160   315224452 :          lu(k,696) = lu(k,696) * lu(k,687)
    2161   315224452 :          lu(k,1040) = lu(k,1040) - lu(k,688) * lu(k,1039)
    2162   315224452 :          lu(k,1041) = lu(k,1041) - lu(k,689) * lu(k,1039)
    2163   315224452 :          lu(k,1042) = lu(k,1042) - lu(k,690) * lu(k,1039)
    2164   315224452 :          lu(k,1043) = lu(k,1043) - lu(k,691) * lu(k,1039)
    2165   315224452 :          lu(k,1044) = lu(k,1044) - lu(k,692) * lu(k,1039)
    2166   315224452 :          lu(k,1045) = lu(k,1045) - lu(k,693) * lu(k,1039)
    2167   315224452 :          lu(k,1047) = lu(k,1047) - lu(k,694) * lu(k,1039)
    2168   315224452 :          lu(k,1050) = lu(k,1050) - lu(k,695) * lu(k,1039)
    2169   315224452 :          lu(k,1051) = lu(k,1051) - lu(k,696) * lu(k,1039)
    2170   315224452 :          lu(k,1757) = lu(k,1757) - lu(k,688) * lu(k,1756)
    2171   315224452 :          lu(k,1773) = lu(k,1773) - lu(k,689) * lu(k,1756)
    2172   315224452 :          lu(k,1783) = lu(k,1783) - lu(k,690) * lu(k,1756)
    2173   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,691) * lu(k,1756)
    2174   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,692) * lu(k,1756)
    2175   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,693) * lu(k,1756)
    2176   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,694) * lu(k,1756)
    2177   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,695) * lu(k,1756)
    2178   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,696) * lu(k,1756)
    2179   315224452 :          lu(k,2308) = lu(k,2308) - lu(k,688) * lu(k,2307)
    2180   315224452 :          lu(k,2322) = lu(k,2322) - lu(k,689) * lu(k,2307)
    2181   315224452 :          lu(k,2326) = lu(k,2326) - lu(k,690) * lu(k,2307)
    2182   315224452 :          lu(k,2330) = lu(k,2330) - lu(k,691) * lu(k,2307)
    2183   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,692) * lu(k,2307)
    2184   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,693) * lu(k,2307)
    2185   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,694) * lu(k,2307)
    2186   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,695) * lu(k,2307)
    2187   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,696) * lu(k,2307)
    2188   315224452 :          lu(k,698) = 1._r8 / lu(k,698)
    2189   315224452 :          lu(k,699) = lu(k,699) * lu(k,698)
    2190   315224452 :          lu(k,700) = lu(k,700) * lu(k,698)
    2191   315224452 :          lu(k,701) = lu(k,701) * lu(k,698)
    2192   315224452 :          lu(k,702) = lu(k,702) * lu(k,698)
    2193   315224452 :          lu(k,703) = lu(k,703) * lu(k,698)
    2194   315224452 :          lu(k,704) = lu(k,704) * lu(k,698)
    2195   315224452 :          lu(k,1044) = lu(k,1044) - lu(k,699) * lu(k,1040)
    2196   315224452 :          lu(k,1045) = lu(k,1045) - lu(k,700) * lu(k,1040)
    2197   315224452 :          lu(k,1047) = lu(k,1047) - lu(k,701) * lu(k,1040)
    2198   315224452 :          lu(k,1048) = lu(k,1048) - lu(k,702) * lu(k,1040)
    2199   315224452 :          lu(k,1049) = lu(k,1049) - lu(k,703) * lu(k,1040)
    2200   315224452 :          lu(k,1051) = lu(k,1051) - lu(k,704) * lu(k,1040)
    2201   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,699) * lu(k,1757)
    2202   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,700) * lu(k,1757)
    2203   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,701) * lu(k,1757)
    2204   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,702) * lu(k,1757)
    2205   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,703) * lu(k,1757)
    2206   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,704) * lu(k,1757)
    2207   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,699) * lu(k,1866)
    2208   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,700) * lu(k,1866)
    2209   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,701) * lu(k,1866)
    2210   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,702) * lu(k,1866)
    2211   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,703) * lu(k,1866)
    2212   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,704) * lu(k,1866)
    2213   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,699) * lu(k,2308)
    2214   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,700) * lu(k,2308)
    2215   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,701) * lu(k,2308)
    2216   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,702) * lu(k,2308)
    2217   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,703) * lu(k,2308)
    2218   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,704) * lu(k,2308)
    2219   315224452 :          lu(k,705) = 1._r8 / lu(k,705)
    2220   315224452 :          lu(k,706) = lu(k,706) * lu(k,705)
    2221   315224452 :          lu(k,707) = lu(k,707) * lu(k,705)
    2222   315224452 :          lu(k,708) = lu(k,708) * lu(k,705)
    2223   315224452 :          lu(k,709) = lu(k,709) * lu(k,705)
    2224   315224452 :          lu(k,1139) = lu(k,1139) - lu(k,706) * lu(k,1129)
    2225   315224452 :          lu(k,1142) = lu(k,1142) - lu(k,707) * lu(k,1129)
    2226   315224452 :          lu(k,1149) = lu(k,1149) - lu(k,708) * lu(k,1129)
    2227   315224452 :          lu(k,1150) = - lu(k,709) * lu(k,1129)
    2228   315224452 :          lu(k,1399) = lu(k,1399) - lu(k,706) * lu(k,1394)
    2229   315224452 :          lu(k,1401) = lu(k,1401) - lu(k,707) * lu(k,1394)
    2230   315224452 :          lu(k,1408) = lu(k,1408) - lu(k,708) * lu(k,1394)
    2231   315224452 :          lu(k,1409) = lu(k,1409) - lu(k,709) * lu(k,1394)
    2232   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,706) * lu(k,1413)
    2233   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,707) * lu(k,1413)
    2234   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,708) * lu(k,1413)
    2235   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,709) * lu(k,1413)
    2236   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,706) * lu(k,1758)
    2237   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,707) * lu(k,1758)
    2238   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,708) * lu(k,1758)
    2239   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,709) * lu(k,1758)
    2240   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,706) * lu(k,2186)
    2241   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,707) * lu(k,2186)
    2242   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,708) * lu(k,2186)
    2243   315224452 :          lu(k,2237) = - lu(k,709) * lu(k,2186)
    2244   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,706) * lu(k,2309)
    2245   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,707) * lu(k,2309)
    2246   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,708) * lu(k,2309)
    2247   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,709) * lu(k,2309)
    2248   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,706) * lu(k,2376)
    2249   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,707) * lu(k,2376)
    2250   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,708) * lu(k,2376)
    2251   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,709) * lu(k,2376)
    2252   315224452 :          lu(k,711) = 1._r8 / lu(k,711)
    2253   315224452 :          lu(k,712) = lu(k,712) * lu(k,711)
    2254   315224452 :          lu(k,713) = lu(k,713) * lu(k,711)
    2255   315224452 :          lu(k,714) = lu(k,714) * lu(k,711)
    2256   315224452 :          lu(k,715) = lu(k,715) * lu(k,711)
    2257   315224452 :          lu(k,716) = lu(k,716) * lu(k,711)
    2258   315224452 :          lu(k,717) = lu(k,717) * lu(k,711)
    2259   315224452 :          lu(k,1252) = - lu(k,712) * lu(k,1246)
    2260   315224452 :          lu(k,1254) = - lu(k,713) * lu(k,1246)
    2261   315224452 :          lu(k,1256) = - lu(k,714) * lu(k,1246)
    2262   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,715) * lu(k,1246)
    2263   315224452 :          lu(k,1263) = lu(k,1263) - lu(k,716) * lu(k,1246)
    2264   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,717) * lu(k,1246)
    2265   315224452 :          lu(k,1296) = - lu(k,712) * lu(k,1290)
    2266   315224452 :          lu(k,1297) = lu(k,1297) - lu(k,713) * lu(k,1290)
    2267   315224452 :          lu(k,1301) = lu(k,1301) - lu(k,714) * lu(k,1290)
    2268   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,715) * lu(k,1290)
    2269   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,716) * lu(k,1290)
    2270   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,717) * lu(k,1290)
    2271   315224452 :          lu(k,1329) = lu(k,1329) - lu(k,712) * lu(k,1319)
    2272   315224452 :          lu(k,1330) = - lu(k,713) * lu(k,1319)
    2273   315224452 :          lu(k,1334) = - lu(k,714) * lu(k,1319)
    2274   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,715) * lu(k,1319)
    2275   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,716) * lu(k,1319)
    2276   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,717) * lu(k,1319)
    2277   315224452 :          lu(k,1799) = lu(k,1799) - lu(k,712) * lu(k,1759)
    2278   315224452 :          lu(k,1801) = lu(k,1801) - lu(k,713) * lu(k,1759)
    2279   315224452 :          lu(k,1806) = lu(k,1806) - lu(k,714) * lu(k,1759)
    2280   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,715) * lu(k,1759)
    2281   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,716) * lu(k,1759)
    2282   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,717) * lu(k,1759)
    2283   315224452 :          lu(k,2339) = lu(k,2339) - lu(k,712) * lu(k,2310)
    2284   315224452 :          lu(k,2341) = - lu(k,713) * lu(k,2310)
    2285   315224452 :          lu(k,2346) = - lu(k,714) * lu(k,2310)
    2286   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,715) * lu(k,2310)
    2287   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,716) * lu(k,2310)
    2288   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,717) * lu(k,2310)
    2289   315224452 :          lu(k,718) = 1._r8 / lu(k,718)
    2290   315224452 :          lu(k,719) = lu(k,719) * lu(k,718)
    2291   315224452 :          lu(k,720) = lu(k,720) * lu(k,718)
    2292   315224452 :          lu(k,721) = lu(k,721) * lu(k,718)
    2293   315224452 :          lu(k,722) = lu(k,722) * lu(k,718)
    2294   315224452 :          lu(k,723) = lu(k,723) * lu(k,718)
    2295   315224452 :          lu(k,724) = lu(k,724) * lu(k,718)
    2296   315224452 :          lu(k,1476) = lu(k,1476) - lu(k,719) * lu(k,1474)
    2297   315224452 :          lu(k,1478) = lu(k,1478) - lu(k,720) * lu(k,1474)
    2298   315224452 :          lu(k,1481) = lu(k,1481) - lu(k,721) * lu(k,1474)
    2299   315224452 :          lu(k,1484) = lu(k,1484) - lu(k,722) * lu(k,1474)
    2300   315224452 :          lu(k,1485) = lu(k,1485) - lu(k,723) * lu(k,1474)
    2301   315224452 :          lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1474)
    2302   315224452 :          lu(k,1540) = lu(k,1540) - lu(k,719) * lu(k,1530)
    2303   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,720) * lu(k,1530)
    2304   315224452 :          lu(k,1545) = - lu(k,721) * lu(k,1530)
    2305   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,722) * lu(k,1530)
    2306   315224452 :          lu(k,1551) = lu(k,1551) - lu(k,723) * lu(k,1530)
    2307   315224452 :          lu(k,1553) = lu(k,1553) - lu(k,724) * lu(k,1530)
    2308   315224452 :          lu(k,1811) = lu(k,1811) - lu(k,719) * lu(k,1760)
    2309   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,720) * lu(k,1760)
    2310   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,721) * lu(k,1760)
    2311   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,722) * lu(k,1760)
    2312   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,723) * lu(k,1760)
    2313   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,724) * lu(k,1760)
    2314   315224452 :          lu(k,2086) = lu(k,2086) - lu(k,719) * lu(k,2072)
    2315   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,720) * lu(k,2072)
    2316   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,721) * lu(k,2072)
    2317   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,722) * lu(k,2072)
    2318   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,723) * lu(k,2072)
    2319   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,724) * lu(k,2072)
    2320   315224452 :          lu(k,2218) = lu(k,2218) - lu(k,719) * lu(k,2187)
    2321   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,720) * lu(k,2187)
    2322   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,721) * lu(k,2187)
    2323   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,722) * lu(k,2187)
    2324   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,723) * lu(k,2187)
    2325   325174377 :          lu(k,2233) = lu(k,2233) - lu(k,724) * lu(k,2187)
    2326             :       end do
    2327     9949925 :       end subroutine lu_fac15
    2328     9949925 :       subroutine lu_fac16( avec_len, lu )
    2329             :       use chem_mods, only : nzcnt
    2330             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2331             :       implicit none
    2332             : !-----------------------------------------------------------------------
    2333             : ! ... dummy args
    2334             : !-----------------------------------------------------------------------
    2335             :       integer, intent(in) :: avec_len
    2336             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2337             : !-----------------------------------------------------------------------
    2338             : ! ... local variables
    2339             : !-----------------------------------------------------------------------
    2340             :       integer :: k
    2341   325174377 :       do k = 1,avec_len
    2342   315224452 :          lu(k,729) = 1._r8 / lu(k,729)
    2343   315224452 :          lu(k,730) = lu(k,730) * lu(k,729)
    2344   315224452 :          lu(k,731) = lu(k,731) * lu(k,729)
    2345   315224452 :          lu(k,732) = lu(k,732) * lu(k,729)
    2346   315224452 :          lu(k,733) = lu(k,733) * lu(k,729)
    2347   315224452 :          lu(k,734) = lu(k,734) * lu(k,729)
    2348   315224452 :          lu(k,735) = lu(k,735) * lu(k,729)
    2349   315224452 :          lu(k,736) = lu(k,736) * lu(k,729)
    2350   315224452 :          lu(k,737) = lu(k,737) * lu(k,729)
    2351   315224452 :          lu(k,738) = lu(k,738) * lu(k,729)
    2352   315224452 :          lu(k,739) = lu(k,739) * lu(k,729)
    2353   315224452 :          lu(k,766) = lu(k,766) - lu(k,730) * lu(k,765)
    2354   315224452 :          lu(k,767) = lu(k,767) - lu(k,731) * lu(k,765)
    2355   315224452 :          lu(k,768) = lu(k,768) - lu(k,732) * lu(k,765)
    2356   315224452 :          lu(k,769) = lu(k,769) - lu(k,733) * lu(k,765)
    2357   315224452 :          lu(k,770) = lu(k,770) - lu(k,734) * lu(k,765)
    2358   315224452 :          lu(k,771) = lu(k,771) - lu(k,735) * lu(k,765)
    2359   315224452 :          lu(k,772) = lu(k,772) - lu(k,736) * lu(k,765)
    2360   315224452 :          lu(k,773) = lu(k,773) - lu(k,737) * lu(k,765)
    2361   315224452 :          lu(k,774) = - lu(k,738) * lu(k,765)
    2362   315224452 :          lu(k,777) = lu(k,777) - lu(k,739) * lu(k,765)
    2363   315224452 :          lu(k,1762) = lu(k,1762) - lu(k,730) * lu(k,1761)
    2364   315224452 :          lu(k,1764) = lu(k,1764) - lu(k,731) * lu(k,1761)
    2365   315224452 :          lu(k,1765) = lu(k,1765) - lu(k,732) * lu(k,1761)
    2366   315224452 :          lu(k,1774) = lu(k,1774) - lu(k,733) * lu(k,1761)
    2367   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,734) * lu(k,1761)
    2368   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,735) * lu(k,1761)
    2369   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,736) * lu(k,1761)
    2370   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,737) * lu(k,1761)
    2371   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,738) * lu(k,1761)
    2372   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,739) * lu(k,1761)
    2373   315224452 :          lu(k,2312) = lu(k,2312) - lu(k,730) * lu(k,2311)
    2374   315224452 :          lu(k,2314) = lu(k,2314) - lu(k,731) * lu(k,2311)
    2375   315224452 :          lu(k,2315) = lu(k,2315) - lu(k,732) * lu(k,2311)
    2376   315224452 :          lu(k,2323) = lu(k,2323) - lu(k,733) * lu(k,2311)
    2377   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,734) * lu(k,2311)
    2378   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,735) * lu(k,2311)
    2379   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,736) * lu(k,2311)
    2380   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,737) * lu(k,2311)
    2381   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,738) * lu(k,2311)
    2382   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,739) * lu(k,2311)
    2383   315224452 :          lu(k,740) = 1._r8 / lu(k,740)
    2384   315224452 :          lu(k,741) = lu(k,741) * lu(k,740)
    2385   315224452 :          lu(k,742) = lu(k,742) * lu(k,740)
    2386   315224452 :          lu(k,743) = lu(k,743) * lu(k,740)
    2387   315224452 :          lu(k,744) = lu(k,744) * lu(k,740)
    2388   315224452 :          lu(k,745) = lu(k,745) * lu(k,740)
    2389   315224452 :          lu(k,754) = lu(k,754) - lu(k,741) * lu(k,750)
    2390   315224452 :          lu(k,755) = lu(k,755) - lu(k,742) * lu(k,750)
    2391   315224452 :          lu(k,758) = lu(k,758) - lu(k,743) * lu(k,750)
    2392   315224452 :          lu(k,759) = lu(k,759) - lu(k,744) * lu(k,750)
    2393   315224452 :          lu(k,760) = lu(k,760) - lu(k,745) * lu(k,750)
    2394   315224452 :          lu(k,770) = lu(k,770) - lu(k,741) * lu(k,766)
    2395   315224452 :          lu(k,771) = lu(k,771) - lu(k,742) * lu(k,766)
    2396   315224452 :          lu(k,775) = lu(k,775) - lu(k,743) * lu(k,766)
    2397   315224452 :          lu(k,776) = lu(k,776) - lu(k,744) * lu(k,766)
    2398   315224452 :          lu(k,777) = lu(k,777) - lu(k,745) * lu(k,766)
    2399   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,741) * lu(k,1762)
    2400   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,742) * lu(k,1762)
    2401   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,743) * lu(k,1762)
    2402   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,744) * lu(k,1762)
    2403   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,745) * lu(k,1762)
    2404   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,741) * lu(k,1867)
    2405   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,742) * lu(k,1867)
    2406   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,743) * lu(k,1867)
    2407   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,744) * lu(k,1867)
    2408   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,745) * lu(k,1867)
    2409   315224452 :          lu(k,1944) = - lu(k,741) * lu(k,1937)
    2410   315224452 :          lu(k,1945) = - lu(k,742) * lu(k,1937)
    2411   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,743) * lu(k,1937)
    2412   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,744) * lu(k,1937)
    2413   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,745) * lu(k,1937)
    2414   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,741) * lu(k,2312)
    2415   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,742) * lu(k,2312)
    2416   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,743) * lu(k,2312)
    2417   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,744) * lu(k,2312)
    2418   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,745) * lu(k,2312)
    2419   315224452 :          lu(k,751) = 1._r8 / lu(k,751)
    2420   315224452 :          lu(k,752) = lu(k,752) * lu(k,751)
    2421   315224452 :          lu(k,753) = lu(k,753) * lu(k,751)
    2422   315224452 :          lu(k,754) = lu(k,754) * lu(k,751)
    2423   315224452 :          lu(k,755) = lu(k,755) * lu(k,751)
    2424   315224452 :          lu(k,756) = lu(k,756) * lu(k,751)
    2425   315224452 :          lu(k,757) = lu(k,757) * lu(k,751)
    2426   315224452 :          lu(k,758) = lu(k,758) * lu(k,751)
    2427   315224452 :          lu(k,759) = lu(k,759) * lu(k,751)
    2428   315224452 :          lu(k,760) = lu(k,760) * lu(k,751)
    2429   315224452 :          lu(k,1765) = lu(k,1765) - lu(k,752) * lu(k,1763)
    2430   315224452 :          lu(k,1774) = lu(k,1774) - lu(k,753) * lu(k,1763)
    2431   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,754) * lu(k,1763)
    2432   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,755) * lu(k,1763)
    2433   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,756) * lu(k,1763)
    2434   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,757) * lu(k,1763)
    2435   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,758) * lu(k,1763)
    2436   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,759) * lu(k,1763)
    2437   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,760) * lu(k,1763)
    2438   315224452 :          lu(k,1870) = lu(k,1870) - lu(k,752) * lu(k,1868)
    2439   315224452 :          lu(k,1878) = lu(k,1878) - lu(k,753) * lu(k,1868)
    2440   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,754) * lu(k,1868)
    2441   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,755) * lu(k,1868)
    2442   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,756) * lu(k,1868)
    2443   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,757) * lu(k,1868)
    2444   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,758) * lu(k,1868)
    2445   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,759) * lu(k,1868)
    2446   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,760) * lu(k,1868)
    2447   315224452 :          lu(k,2315) = lu(k,2315) - lu(k,752) * lu(k,2313)
    2448   315224452 :          lu(k,2323) = lu(k,2323) - lu(k,753) * lu(k,2313)
    2449   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,754) * lu(k,2313)
    2450   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,755) * lu(k,2313)
    2451   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,756) * lu(k,2313)
    2452   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,757) * lu(k,2313)
    2453   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,758) * lu(k,2313)
    2454   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,759) * lu(k,2313)
    2455   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,760) * lu(k,2313)
    2456   315224452 :          lu(k,767) = 1._r8 / lu(k,767)
    2457   315224452 :          lu(k,768) = lu(k,768) * lu(k,767)
    2458   315224452 :          lu(k,769) = lu(k,769) * lu(k,767)
    2459   315224452 :          lu(k,770) = lu(k,770) * lu(k,767)
    2460   315224452 :          lu(k,771) = lu(k,771) * lu(k,767)
    2461   315224452 :          lu(k,772) = lu(k,772) * lu(k,767)
    2462   315224452 :          lu(k,773) = lu(k,773) * lu(k,767)
    2463   315224452 :          lu(k,774) = lu(k,774) * lu(k,767)
    2464   315224452 :          lu(k,775) = lu(k,775) * lu(k,767)
    2465   315224452 :          lu(k,776) = lu(k,776) * lu(k,767)
    2466   315224452 :          lu(k,777) = lu(k,777) * lu(k,767)
    2467   315224452 :          lu(k,1765) = lu(k,1765) - lu(k,768) * lu(k,1764)
    2468   315224452 :          lu(k,1774) = lu(k,1774) - lu(k,769) * lu(k,1764)
    2469   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,770) * lu(k,1764)
    2470   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,771) * lu(k,1764)
    2471   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,772) * lu(k,1764)
    2472   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,773) * lu(k,1764)
    2473   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,774) * lu(k,1764)
    2474   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,775) * lu(k,1764)
    2475   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,776) * lu(k,1764)
    2476   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,777) * lu(k,1764)
    2477   315224452 :          lu(k,1870) = lu(k,1870) - lu(k,768) * lu(k,1869)
    2478   315224452 :          lu(k,1878) = lu(k,1878) - lu(k,769) * lu(k,1869)
    2479   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,770) * lu(k,1869)
    2480   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,771) * lu(k,1869)
    2481   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,772) * lu(k,1869)
    2482   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,773) * lu(k,1869)
    2483   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,774) * lu(k,1869)
    2484   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,775) * lu(k,1869)
    2485   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,776) * lu(k,1869)
    2486   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,777) * lu(k,1869)
    2487   315224452 :          lu(k,2315) = lu(k,2315) - lu(k,768) * lu(k,2314)
    2488   315224452 :          lu(k,2323) = lu(k,2323) - lu(k,769) * lu(k,2314)
    2489   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,770) * lu(k,2314)
    2490   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,771) * lu(k,2314)
    2491   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,772) * lu(k,2314)
    2492   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,773) * lu(k,2314)
    2493   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,774) * lu(k,2314)
    2494   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,775) * lu(k,2314)
    2495   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,776) * lu(k,2314)
    2496   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,777) * lu(k,2314)
    2497   315224452 :          lu(k,778) = 1._r8 / lu(k,778)
    2498   315224452 :          lu(k,779) = lu(k,779) * lu(k,778)
    2499   315224452 :          lu(k,780) = lu(k,780) * lu(k,778)
    2500   315224452 :          lu(k,781) = lu(k,781) * lu(k,778)
    2501   315224452 :          lu(k,782) = lu(k,782) * lu(k,778)
    2502   315224452 :          lu(k,783) = lu(k,783) * lu(k,778)
    2503   315224452 :          lu(k,784) = lu(k,784) * lu(k,778)
    2504   315224452 :          lu(k,785) = lu(k,785) * lu(k,778)
    2505   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,779) * lu(k,1765)
    2506   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,780) * lu(k,1765)
    2507   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,781) * lu(k,1765)
    2508   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,782) * lu(k,1765)
    2509   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,783) * lu(k,1765)
    2510   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,784) * lu(k,1765)
    2511   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,785) * lu(k,1765)
    2512   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,779) * lu(k,1870)
    2513   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,780) * lu(k,1870)
    2514   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,781) * lu(k,1870)
    2515   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,782) * lu(k,1870)
    2516   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,783) * lu(k,1870)
    2517   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,784) * lu(k,1870)
    2518   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,785) * lu(k,1870)
    2519   315224452 :          lu(k,1945) = lu(k,1945) - lu(k,779) * lu(k,1938)
    2520   315224452 :          lu(k,1947) = - lu(k,780) * lu(k,1938)
    2521   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,781) * lu(k,1938)
    2522   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,782) * lu(k,1938)
    2523   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,783) * lu(k,1938)
    2524   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,784) * lu(k,1938)
    2525   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,785) * lu(k,1938)
    2526   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,779) * lu(k,2315)
    2527   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,780) * lu(k,2315)
    2528   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,781) * lu(k,2315)
    2529   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,782) * lu(k,2315)
    2530   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,783) * lu(k,2315)
    2531   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,784) * lu(k,2315)
    2532   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,785) * lu(k,2315)
    2533   315224452 :          lu(k,787) = 1._r8 / lu(k,787)
    2534   315224452 :          lu(k,788) = lu(k,788) * lu(k,787)
    2535   315224452 :          lu(k,789) = lu(k,789) * lu(k,787)
    2536   315224452 :          lu(k,790) = lu(k,790) * lu(k,787)
    2537   315224452 :          lu(k,791) = lu(k,791) * lu(k,787)
    2538   315224452 :          lu(k,792) = lu(k,792) * lu(k,787)
    2539   315224452 :          lu(k,793) = lu(k,793) * lu(k,787)
    2540   315224452 :          lu(k,794) = lu(k,794) * lu(k,787)
    2541   315224452 :          lu(k,1495) = lu(k,1495) - lu(k,788) * lu(k,1492)
    2542   315224452 :          lu(k,1496) = lu(k,1496) - lu(k,789) * lu(k,1492)
    2543   315224452 :          lu(k,1497) = - lu(k,790) * lu(k,1492)
    2544   315224452 :          lu(k,1500) = lu(k,1500) - lu(k,791) * lu(k,1492)
    2545   315224452 :          lu(k,1504) = lu(k,1504) - lu(k,792) * lu(k,1492)
    2546   315224452 :          lu(k,1506) = lu(k,1506) - lu(k,793) * lu(k,1492)
    2547   315224452 :          lu(k,1507) = lu(k,1507) - lu(k,794) * lu(k,1492)
    2548   315224452 :          lu(k,1562) = - lu(k,788) * lu(k,1559)
    2549   315224452 :          lu(k,1563) = lu(k,1563) - lu(k,789) * lu(k,1559)
    2550   315224452 :          lu(k,1565) = lu(k,1565) - lu(k,790) * lu(k,1559)
    2551   315224452 :          lu(k,1568) = lu(k,1568) - lu(k,791) * lu(k,1559)
    2552   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,792) * lu(k,1559)
    2553   315224452 :          lu(k,1576) = lu(k,1576) - lu(k,793) * lu(k,1559)
    2554   315224452 :          lu(k,1579) = - lu(k,794) * lu(k,1559)
    2555   315224452 :          lu(k,1952) = - lu(k,788) * lu(k,1939)
    2556   315224452 :          lu(k,1953) = lu(k,1953) - lu(k,789) * lu(k,1939)
    2557   315224452 :          lu(k,1955) = lu(k,1955) - lu(k,790) * lu(k,1939)
    2558   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,791) * lu(k,1939)
    2559   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,792) * lu(k,1939)
    2560   315224452 :          lu(k,1966) = - lu(k,793) * lu(k,1939)
    2561   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,794) * lu(k,1939)
    2562   315224452 :          lu(k,2087) = lu(k,2087) - lu(k,788) * lu(k,2073)
    2563   315224452 :          lu(k,2088) = lu(k,2088) - lu(k,789) * lu(k,2073)
    2564   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,790) * lu(k,2073)
    2565   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,791) * lu(k,2073)
    2566   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,792) * lu(k,2073)
    2567   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,793) * lu(k,2073)
    2568   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,794) * lu(k,2073)
    2569   315224452 :          lu(k,2351) = lu(k,2351) - lu(k,788) * lu(k,2316)
    2570   315224452 :          lu(k,2352) = lu(k,2352) - lu(k,789) * lu(k,2316)
    2571   315224452 :          lu(k,2354) = lu(k,2354) - lu(k,790) * lu(k,2316)
    2572   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,791) * lu(k,2316)
    2573   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,792) * lu(k,2316)
    2574   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,793) * lu(k,2316)
    2575   325174377 :          lu(k,2370) = lu(k,2370) - lu(k,794) * lu(k,2316)
    2576             :       end do
    2577     9949925 :       end subroutine lu_fac16
    2578     9949925 :       subroutine lu_fac17( avec_len, lu )
    2579             :       use chem_mods, only : nzcnt
    2580             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2581             :       implicit none
    2582             : !-----------------------------------------------------------------------
    2583             : ! ... dummy args
    2584             : !-----------------------------------------------------------------------
    2585             :       integer, intent(in) :: avec_len
    2586             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2587             : !-----------------------------------------------------------------------
    2588             : ! ... local variables
    2589             : !-----------------------------------------------------------------------
    2590             :       integer :: k
    2591   325174377 :       do k = 1,avec_len
    2592   315224452 :          lu(k,797) = 1._r8 / lu(k,797)
    2593   315224452 :          lu(k,798) = lu(k,798) * lu(k,797)
    2594   315224452 :          lu(k,799) = lu(k,799) * lu(k,797)
    2595   315224452 :          lu(k,800) = lu(k,800) * lu(k,797)
    2596   315224452 :          lu(k,801) = lu(k,801) * lu(k,797)
    2597   315224452 :          lu(k,802) = lu(k,802) * lu(k,797)
    2598   315224452 :          lu(k,803) = lu(k,803) * lu(k,797)
    2599   315224452 :          lu(k,804) = lu(k,804) * lu(k,797)
    2600   315224452 :          lu(k,1794) = lu(k,1794) - lu(k,798) * lu(k,1766)
    2601   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,799) * lu(k,1766)
    2602   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,800) * lu(k,1766)
    2603   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,801) * lu(k,1766)
    2604   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,802) * lu(k,1766)
    2605   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,803) * lu(k,1766)
    2606   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,804) * lu(k,1766)
    2607   315224452 :          lu(k,1892) = lu(k,1892) - lu(k,798) * lu(k,1871)
    2608   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,799) * lu(k,1871)
    2609   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,800) * lu(k,1871)
    2610   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,801) * lu(k,1871)
    2611   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,802) * lu(k,1871)
    2612   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,803) * lu(k,1871)
    2613   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,804) * lu(k,1871)
    2614   315224452 :          lu(k,2148) = - lu(k,798) * lu(k,2138)
    2615   315224452 :          lu(k,2156) = lu(k,2156) - lu(k,799) * lu(k,2138)
    2616   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,800) * lu(k,2138)
    2617   315224452 :          lu(k,2161) = - lu(k,801) * lu(k,2138)
    2618   315224452 :          lu(k,2162) = - lu(k,802) * lu(k,2138)
    2619   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,803) * lu(k,2138)
    2620   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,804) * lu(k,2138)
    2621   315224452 :          lu(k,2204) = - lu(k,798) * lu(k,2188)
    2622   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,799) * lu(k,2188)
    2623   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,800) * lu(k,2188)
    2624   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,801) * lu(k,2188)
    2625   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,802) * lu(k,2188)
    2626   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,803) * lu(k,2188)
    2627   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,804) * lu(k,2188)
    2628   315224452 :          lu(k,2335) = lu(k,2335) - lu(k,798) * lu(k,2317)
    2629   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,799) * lu(k,2317)
    2630   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,800) * lu(k,2317)
    2631   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,801) * lu(k,2317)
    2632   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,802) * lu(k,2317)
    2633   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,803) * lu(k,2317)
    2634   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,804) * lu(k,2317)
    2635   315224452 :          lu(k,805) = 1._r8 / lu(k,805)
    2636   315224452 :          lu(k,806) = lu(k,806) * lu(k,805)
    2637   315224452 :          lu(k,807) = lu(k,807) * lu(k,805)
    2638   315224452 :          lu(k,808) = lu(k,808) * lu(k,805)
    2639   315224452 :          lu(k,809) = lu(k,809) * lu(k,805)
    2640   315224452 :          lu(k,810) = lu(k,810) * lu(k,805)
    2641   315224452 :          lu(k,811) = lu(k,811) * lu(k,805)
    2642   315224452 :          lu(k,812) = lu(k,812) * lu(k,805)
    2643   315224452 :          lu(k,863) = lu(k,863) - lu(k,806) * lu(k,862)
    2644   315224452 :          lu(k,864) = lu(k,864) - lu(k,807) * lu(k,862)
    2645   315224452 :          lu(k,866) = lu(k,866) - lu(k,808) * lu(k,862)
    2646   315224452 :          lu(k,867) = - lu(k,809) * lu(k,862)
    2647   315224452 :          lu(k,868) = - lu(k,810) * lu(k,862)
    2648   315224452 :          lu(k,869) = lu(k,869) - lu(k,811) * lu(k,862)
    2649   315224452 :          lu(k,872) = lu(k,872) - lu(k,812) * lu(k,862)
    2650   315224452 :          lu(k,996) = lu(k,996) - lu(k,806) * lu(k,995)
    2651   315224452 :          lu(k,997) = lu(k,997) - lu(k,807) * lu(k,995)
    2652   315224452 :          lu(k,999) = lu(k,999) - lu(k,808) * lu(k,995)
    2653   315224452 :          lu(k,1000) = - lu(k,809) * lu(k,995)
    2654   315224452 :          lu(k,1001) = - lu(k,810) * lu(k,995)
    2655   315224452 :          lu(k,1002) = lu(k,1002) - lu(k,811) * lu(k,995)
    2656   315224452 :          lu(k,1007) = lu(k,1007) - lu(k,812) * lu(k,995)
    2657   315224452 :          lu(k,1445) = - lu(k,806) * lu(k,1444)
    2658   315224452 :          lu(k,1446) = lu(k,1446) - lu(k,807) * lu(k,1444)
    2659   315224452 :          lu(k,1448) = - lu(k,808) * lu(k,1444)
    2660   315224452 :          lu(k,1449) = lu(k,1449) - lu(k,809) * lu(k,1444)
    2661   315224452 :          lu(k,1450) = lu(k,1450) - lu(k,810) * lu(k,1444)
    2662   315224452 :          lu(k,1451) = lu(k,1451) - lu(k,811) * lu(k,1444)
    2663   315224452 :          lu(k,1456) = lu(k,1456) - lu(k,812) * lu(k,1444)
    2664   315224452 :          lu(k,1532) = lu(k,1532) - lu(k,806) * lu(k,1531)
    2665   315224452 :          lu(k,1533) = lu(k,1533) - lu(k,807) * lu(k,1531)
    2666   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,808) * lu(k,1531)
    2667   315224452 :          lu(k,1537) = - lu(k,809) * lu(k,1531)
    2668   315224452 :          lu(k,1539) = - lu(k,810) * lu(k,1531)
    2669   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,811) * lu(k,1531)
    2670   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,812) * lu(k,1531)
    2671   315224452 :          lu(k,2077) = lu(k,2077) - lu(k,806) * lu(k,2074)
    2672   315224452 :          lu(k,2078) = lu(k,2078) - lu(k,807) * lu(k,2074)
    2673   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,808) * lu(k,2074)
    2674   315224452 :          lu(k,2083) = lu(k,2083) - lu(k,809) * lu(k,2074)
    2675   315224452 :          lu(k,2084) = - lu(k,810) * lu(k,2074)
    2676   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,811) * lu(k,2074)
    2677   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,812) * lu(k,2074)
    2678   315224452 :          lu(k,814) = 1._r8 / lu(k,814)
    2679   315224452 :          lu(k,815) = lu(k,815) * lu(k,814)
    2680   315224452 :          lu(k,816) = lu(k,816) * lu(k,814)
    2681   315224452 :          lu(k,817) = lu(k,817) * lu(k,814)
    2682   315224452 :          lu(k,818) = lu(k,818) * lu(k,814)
    2683   315224452 :          lu(k,819) = lu(k,819) * lu(k,814)
    2684   315224452 :          lu(k,820) = lu(k,820) * lu(k,814)
    2685   315224452 :          lu(k,821) = lu(k,821) * lu(k,814)
    2686   315224452 :          lu(k,822) = lu(k,822) * lu(k,814)
    2687   315224452 :          lu(k,823) = lu(k,823) * lu(k,814)
    2688   315224452 :          lu(k,1134) = lu(k,1134) - lu(k,815) * lu(k,1130)
    2689   315224452 :          lu(k,1136) = - lu(k,816) * lu(k,1130)
    2690   315224452 :          lu(k,1140) = - lu(k,817) * lu(k,1130)
    2691   315224452 :          lu(k,1142) = lu(k,1142) - lu(k,818) * lu(k,1130)
    2692   315224452 :          lu(k,1143) = - lu(k,819) * lu(k,1130)
    2693   315224452 :          lu(k,1144) = - lu(k,820) * lu(k,1130)
    2694   315224452 :          lu(k,1145) = lu(k,1145) - lu(k,821) * lu(k,1130)
    2695   315224452 :          lu(k,1148) = lu(k,1148) - lu(k,822) * lu(k,1130)
    2696   315224452 :          lu(k,1150) = lu(k,1150) - lu(k,823) * lu(k,1130)
    2697   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,815) * lu(k,1767)
    2698   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,816) * lu(k,1767)
    2699   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,817) * lu(k,1767)
    2700   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,818) * lu(k,1767)
    2701   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,819) * lu(k,1767)
    2702   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,820) * lu(k,1767)
    2703   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,821) * lu(k,1767)
    2704   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,822) * lu(k,1767)
    2705   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,823) * lu(k,1767)
    2706   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,815) * lu(k,1872)
    2707   315224452 :          lu(k,1895) = lu(k,1895) - lu(k,816) * lu(k,1872)
    2708   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,817) * lu(k,1872)
    2709   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,818) * lu(k,1872)
    2710   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,819) * lu(k,1872)
    2711   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,820) * lu(k,1872)
    2712   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,821) * lu(k,1872)
    2713   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,822) * lu(k,1872)
    2714   315224452 :          lu(k,1926) = - lu(k,823) * lu(k,1872)
    2715   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,815) * lu(k,2318)
    2716   315224452 :          lu(k,2337) = lu(k,2337) - lu(k,816) * lu(k,2318)
    2717   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,817) * lu(k,2318)
    2718   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,818) * lu(k,2318)
    2719   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,819) * lu(k,2318)
    2720   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,820) * lu(k,2318)
    2721   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,821) * lu(k,2318)
    2722   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,822) * lu(k,2318)
    2723   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,823) * lu(k,2318)
    2724   315224452 :          lu(k,824) = 1._r8 / lu(k,824)
    2725   315224452 :          lu(k,825) = lu(k,825) * lu(k,824)
    2726   315224452 :          lu(k,826) = lu(k,826) * lu(k,824)
    2727   315224452 :          lu(k,827) = lu(k,827) * lu(k,824)
    2728   315224452 :          lu(k,904) = lu(k,904) - lu(k,825) * lu(k,900)
    2729   315224452 :          lu(k,907) = lu(k,907) - lu(k,826) * lu(k,900)
    2730   315224452 :          lu(k,908) = lu(k,908) - lu(k,827) * lu(k,900)
    2731   315224452 :          lu(k,1065) = lu(k,1065) - lu(k,825) * lu(k,1061)
    2732   315224452 :          lu(k,1068) = lu(k,1068) - lu(k,826) * lu(k,1061)
    2733   315224452 :          lu(k,1070) = lu(k,1070) - lu(k,827) * lu(k,1061)
    2734   315224452 :          lu(k,1111) = lu(k,1111) - lu(k,825) * lu(k,1104)
    2735   315224452 :          lu(k,1114) = lu(k,1114) - lu(k,826) * lu(k,1104)
    2736   315224452 :          lu(k,1116) = lu(k,1116) - lu(k,827) * lu(k,1104)
    2737   315224452 :          lu(k,1182) = lu(k,1182) - lu(k,825) * lu(k,1173)
    2738   315224452 :          lu(k,1185) = lu(k,1185) - lu(k,826) * lu(k,1173)
    2739   315224452 :          lu(k,1187) = lu(k,1187) - lu(k,827) * lu(k,1173)
    2740   315224452 :          lu(k,1220) = lu(k,1220) - lu(k,825) * lu(k,1215)
    2741   315224452 :          lu(k,1223) = lu(k,1223) - lu(k,826) * lu(k,1215)
    2742   315224452 :          lu(k,1224) = lu(k,1224) - lu(k,827) * lu(k,1215)
    2743   315224452 :          lu(k,1238) = lu(k,1238) - lu(k,825) * lu(k,1228)
    2744   315224452 :          lu(k,1241) = lu(k,1241) - lu(k,826) * lu(k,1228)
    2745   315224452 :          lu(k,1242) = lu(k,1242) - lu(k,827) * lu(k,1228)
    2746   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,825) * lu(k,1247)
    2747   315224452 :          lu(k,1263) = lu(k,1263) - lu(k,826) * lu(k,1247)
    2748   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,827) * lu(k,1247)
    2749   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,825) * lu(k,1291)
    2750   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,826) * lu(k,1291)
    2751   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,827) * lu(k,1291)
    2752   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,825) * lu(k,1320)
    2753   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,826) * lu(k,1320)
    2754   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,827) * lu(k,1320)
    2755   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,825) * lu(k,1349)
    2756   315224452 :          lu(k,1364) = lu(k,1364) - lu(k,826) * lu(k,1349)
    2757   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,827) * lu(k,1349)
    2758   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,825) * lu(k,1768)
    2759   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,826) * lu(k,1768)
    2760   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,827) * lu(k,1768)
    2761   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,825) * lu(k,2377)
    2762   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,826) * lu(k,2377)
    2763   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,827) * lu(k,2377)
    2764   315224452 :          lu(k,828) = 1._r8 / lu(k,828)
    2765   315224452 :          lu(k,829) = lu(k,829) * lu(k,828)
    2766   315224452 :          lu(k,830) = lu(k,830) * lu(k,828)
    2767   315224452 :          lu(k,831) = lu(k,831) * lu(k,828)
    2768   315224452 :          lu(k,832) = lu(k,832) * lu(k,828)
    2769   315224452 :          lu(k,833) = lu(k,833) * lu(k,828)
    2770   315224452 :          lu(k,834) = lu(k,834) * lu(k,828)
    2771   315224452 :          lu(k,835) = lu(k,835) * lu(k,828)
    2772   315224452 :          lu(k,1511) = lu(k,1511) - lu(k,829) * lu(k,1508)
    2773   315224452 :          lu(k,1513) = lu(k,1513) - lu(k,830) * lu(k,1508)
    2774   315224452 :          lu(k,1514) = - lu(k,831) * lu(k,1508)
    2775   315224452 :          lu(k,1518) = - lu(k,832) * lu(k,1508)
    2776   315224452 :          lu(k,1519) = - lu(k,833) * lu(k,1508)
    2777   315224452 :          lu(k,1520) = - lu(k,834) * lu(k,1508)
    2778   315224452 :          lu(k,1523) = - lu(k,835) * lu(k,1508)
    2779   315224452 :          lu(k,1813) = lu(k,1813) - lu(k,829) * lu(k,1769)
    2780   315224452 :          lu(k,1815) = lu(k,1815) - lu(k,830) * lu(k,1769)
    2781   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,831) * lu(k,1769)
    2782   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,832) * lu(k,1769)
    2783   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,833) * lu(k,1769)
    2784   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,834) * lu(k,1769)
    2785   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,835) * lu(k,1769)
    2786   315224452 :          lu(k,1979) = lu(k,1979) - lu(k,829) * lu(k,1973)
    2787   315224452 :          lu(k,1981) = - lu(k,830) * lu(k,1973)
    2788   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,831) * lu(k,1973)
    2789   315224452 :          lu(k,1988) = - lu(k,832) * lu(k,1973)
    2790   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,833) * lu(k,1973)
    2791   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,834) * lu(k,1973)
    2792   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,835) * lu(k,1973)
    2793   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,829) * lu(k,2018)
    2794   315224452 :          lu(k,2024) = lu(k,2024) - lu(k,830) * lu(k,2018)
    2795   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,831) * lu(k,2018)
    2796   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,832) * lu(k,2018)
    2797   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,833) * lu(k,2018)
    2798   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,834) * lu(k,2018)
    2799   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,835) * lu(k,2018)
    2800   315224452 :          lu(k,2088) = lu(k,2088) - lu(k,829) * lu(k,2075)
    2801   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,830) * lu(k,2075)
    2802   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,831) * lu(k,2075)
    2803   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,832) * lu(k,2075)
    2804   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,833) * lu(k,2075)
    2805   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,834) * lu(k,2075)
    2806   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,835) * lu(k,2075)
    2807   315224452 :          lu(k,2352) = lu(k,2352) - lu(k,829) * lu(k,2319)
    2808   315224452 :          lu(k,2354) = lu(k,2354) - lu(k,830) * lu(k,2319)
    2809   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,831) * lu(k,2319)
    2810   315224452 :          lu(k,2361) = - lu(k,832) * lu(k,2319)
    2811   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,833) * lu(k,2319)
    2812   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,834) * lu(k,2319)
    2813   325174377 :          lu(k,2370) = lu(k,2370) - lu(k,835) * lu(k,2319)
    2814             :       end do
    2815     9949925 :       end subroutine lu_fac17
    2816     9949925 :       subroutine lu_fac18( avec_len, lu )
    2817             :       use chem_mods, only : nzcnt
    2818             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2819             :       implicit none
    2820             : !-----------------------------------------------------------------------
    2821             : ! ... dummy args
    2822             : !-----------------------------------------------------------------------
    2823             :       integer, intent(in) :: avec_len
    2824             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2825             : !-----------------------------------------------------------------------
    2826             : ! ... local variables
    2827             : !-----------------------------------------------------------------------
    2828             :       integer :: k
    2829   325174377 :       do k = 1,avec_len
    2830   315224452 :          lu(k,837) = 1._r8 / lu(k,837)
    2831   315224452 :          lu(k,838) = lu(k,838) * lu(k,837)
    2832   315224452 :          lu(k,839) = lu(k,839) * lu(k,837)
    2833   315224452 :          lu(k,840) = lu(k,840) * lu(k,837)
    2834   315224452 :          lu(k,841) = lu(k,841) * lu(k,837)
    2835   315224452 :          lu(k,842) = lu(k,842) * lu(k,837)
    2836   315224452 :          lu(k,843) = lu(k,843) * lu(k,837)
    2837   315224452 :          lu(k,956) = lu(k,956) - lu(k,838) * lu(k,954)
    2838   315224452 :          lu(k,957) = lu(k,957) - lu(k,839) * lu(k,954)
    2839   315224452 :          lu(k,959) = lu(k,959) - lu(k,840) * lu(k,954)
    2840   315224452 :          lu(k,962) = lu(k,962) - lu(k,841) * lu(k,954)
    2841   315224452 :          lu(k,963) = lu(k,963) - lu(k,842) * lu(k,954)
    2842   315224452 :          lu(k,964) = - lu(k,843) * lu(k,954)
    2843   315224452 :          lu(k,1495) = lu(k,1495) - lu(k,838) * lu(k,1493)
    2844   315224452 :          lu(k,1498) = lu(k,1498) - lu(k,839) * lu(k,1493)
    2845   315224452 :          lu(k,1500) = lu(k,1500) - lu(k,840) * lu(k,1493)
    2846   315224452 :          lu(k,1504) = lu(k,1504) - lu(k,841) * lu(k,1493)
    2847   315224452 :          lu(k,1506) = lu(k,1506) - lu(k,842) * lu(k,1493)
    2848   315224452 :          lu(k,1507) = lu(k,1507) - lu(k,843) * lu(k,1493)
    2849   315224452 :          lu(k,1588) = lu(k,1588) - lu(k,838) * lu(k,1584)
    2850   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,839) * lu(k,1584)
    2851   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,840) * lu(k,1584)
    2852   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,841) * lu(k,1584)
    2853   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,842) * lu(k,1584)
    2854   315224452 :          lu(k,1606) = - lu(k,843) * lu(k,1584)
    2855   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,838) * lu(k,1770)
    2856   315224452 :          lu(k,1816) = lu(k,1816) - lu(k,839) * lu(k,1770)
    2857   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,840) * lu(k,1770)
    2858   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,841) * lu(k,1770)
    2859   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,842) * lu(k,1770)
    2860   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,843) * lu(k,1770)
    2861   315224452 :          lu(k,2087) = lu(k,2087) - lu(k,838) * lu(k,2076)
    2862   315224452 :          lu(k,2091) = lu(k,2091) - lu(k,839) * lu(k,2076)
    2863   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,840) * lu(k,2076)
    2864   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,841) * lu(k,2076)
    2865   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,842) * lu(k,2076)
    2866   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,843) * lu(k,2076)
    2867   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,838) * lu(k,2139)
    2868   315224452 :          lu(k,2158) = lu(k,2158) - lu(k,839) * lu(k,2139)
    2869   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,840) * lu(k,2139)
    2870   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,841) * lu(k,2139)
    2871   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,842) * lu(k,2139)
    2872   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,843) * lu(k,2139)
    2873   315224452 :          lu(k,2351) = lu(k,2351) - lu(k,838) * lu(k,2320)
    2874   315224452 :          lu(k,2355) = lu(k,2355) - lu(k,839) * lu(k,2320)
    2875   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,840) * lu(k,2320)
    2876   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,841) * lu(k,2320)
    2877   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,842) * lu(k,2320)
    2878   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,843) * lu(k,2320)
    2879   315224452 :          lu(k,845) = 1._r8 / lu(k,845)
    2880   315224452 :          lu(k,846) = lu(k,846) * lu(k,845)
    2881   315224452 :          lu(k,847) = lu(k,847) * lu(k,845)
    2882   315224452 :          lu(k,848) = lu(k,848) * lu(k,845)
    2883   315224452 :          lu(k,849) = lu(k,849) * lu(k,845)
    2884   315224452 :          lu(k,850) = lu(k,850) * lu(k,845)
    2885   315224452 :          lu(k,851) = lu(k,851) * lu(k,845)
    2886   315224452 :          lu(k,854) = lu(k,854) - lu(k,846) * lu(k,852)
    2887   315224452 :          lu(k,855) = lu(k,855) - lu(k,847) * lu(k,852)
    2888   315224452 :          lu(k,856) = lu(k,856) - lu(k,848) * lu(k,852)
    2889   315224452 :          lu(k,857) = lu(k,857) - lu(k,849) * lu(k,852)
    2890   315224452 :          lu(k,858) = lu(k,858) - lu(k,850) * lu(k,852)
    2891   315224452 :          lu(k,859) = lu(k,859) - lu(k,851) * lu(k,852)
    2892   315224452 :          lu(k,865) = lu(k,865) - lu(k,846) * lu(k,863)
    2893   315224452 :          lu(k,866) = lu(k,866) - lu(k,847) * lu(k,863)
    2894   315224452 :          lu(k,869) = lu(k,869) - lu(k,848) * lu(k,863)
    2895   315224452 :          lu(k,870) = lu(k,870) - lu(k,849) * lu(k,863)
    2896   315224452 :          lu(k,871) = lu(k,871) - lu(k,850) * lu(k,863)
    2897   315224452 :          lu(k,872) = lu(k,872) - lu(k,851) * lu(k,863)
    2898   315224452 :          lu(k,998) = lu(k,998) - lu(k,846) * lu(k,996)
    2899   315224452 :          lu(k,999) = lu(k,999) - lu(k,847) * lu(k,996)
    2900   315224452 :          lu(k,1002) = lu(k,1002) - lu(k,848) * lu(k,996)
    2901   315224452 :          lu(k,1004) = lu(k,1004) - lu(k,849) * lu(k,996)
    2902   315224452 :          lu(k,1006) = lu(k,1006) - lu(k,850) * lu(k,996)
    2903   315224452 :          lu(k,1007) = lu(k,1007) - lu(k,851) * lu(k,996)
    2904   315224452 :          lu(k,1447) = - lu(k,846) * lu(k,1445)
    2905   315224452 :          lu(k,1448) = lu(k,1448) - lu(k,847) * lu(k,1445)
    2906   315224452 :          lu(k,1451) = lu(k,1451) - lu(k,848) * lu(k,1445)
    2907   315224452 :          lu(k,1453) = - lu(k,849) * lu(k,1445)
    2908   315224452 :          lu(k,1455) = - lu(k,850) * lu(k,1445)
    2909   315224452 :          lu(k,1456) = lu(k,1456) - lu(k,851) * lu(k,1445)
    2910   315224452 :          lu(k,1534) = lu(k,1534) - lu(k,846) * lu(k,1532)
    2911   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,847) * lu(k,1532)
    2912   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,848) * lu(k,1532)
    2913   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,849) * lu(k,1532)
    2914   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,850) * lu(k,1532)
    2915   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,851) * lu(k,1532)
    2916   315224452 :          lu(k,1875) = lu(k,1875) - lu(k,846) * lu(k,1873)
    2917   315224452 :          lu(k,1881) = lu(k,1881) - lu(k,847) * lu(k,1873)
    2918   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,848) * lu(k,1873)
    2919   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,849) * lu(k,1873)
    2920   315224452 :          lu(k,1917) = - lu(k,850) * lu(k,1873)
    2921   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,851) * lu(k,1873)
    2922   315224452 :          lu(k,2079) = lu(k,2079) - lu(k,846) * lu(k,2077)
    2923   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,847) * lu(k,2077)
    2924   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,848) * lu(k,2077)
    2925   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,849) * lu(k,2077)
    2926   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,850) * lu(k,2077)
    2927   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,851) * lu(k,2077)
    2928   315224452 :          lu(k,853) = 1._r8 / lu(k,853)
    2929   315224452 :          lu(k,854) = lu(k,854) * lu(k,853)
    2930   315224452 :          lu(k,855) = lu(k,855) * lu(k,853)
    2931   315224452 :          lu(k,856) = lu(k,856) * lu(k,853)
    2932   315224452 :          lu(k,857) = lu(k,857) * lu(k,853)
    2933   315224452 :          lu(k,858) = lu(k,858) * lu(k,853)
    2934   315224452 :          lu(k,859) = lu(k,859) * lu(k,853)
    2935   315224452 :          lu(k,865) = lu(k,865) - lu(k,854) * lu(k,864)
    2936   315224452 :          lu(k,866) = lu(k,866) - lu(k,855) * lu(k,864)
    2937   315224452 :          lu(k,869) = lu(k,869) - lu(k,856) * lu(k,864)
    2938   315224452 :          lu(k,870) = lu(k,870) - lu(k,857) * lu(k,864)
    2939   315224452 :          lu(k,871) = lu(k,871) - lu(k,858) * lu(k,864)
    2940   315224452 :          lu(k,872) = lu(k,872) - lu(k,859) * lu(k,864)
    2941   315224452 :          lu(k,998) = lu(k,998) - lu(k,854) * lu(k,997)
    2942   315224452 :          lu(k,999) = lu(k,999) - lu(k,855) * lu(k,997)
    2943   315224452 :          lu(k,1002) = lu(k,1002) - lu(k,856) * lu(k,997)
    2944   315224452 :          lu(k,1004) = lu(k,1004) - lu(k,857) * lu(k,997)
    2945   315224452 :          lu(k,1006) = lu(k,1006) - lu(k,858) * lu(k,997)
    2946   315224452 :          lu(k,1007) = lu(k,1007) - lu(k,859) * lu(k,997)
    2947   315224452 :          lu(k,1447) = lu(k,1447) - lu(k,854) * lu(k,1446)
    2948   315224452 :          lu(k,1448) = lu(k,1448) - lu(k,855) * lu(k,1446)
    2949   315224452 :          lu(k,1451) = lu(k,1451) - lu(k,856) * lu(k,1446)
    2950   315224452 :          lu(k,1453) = lu(k,1453) - lu(k,857) * lu(k,1446)
    2951   315224452 :          lu(k,1455) = lu(k,1455) - lu(k,858) * lu(k,1446)
    2952   315224452 :          lu(k,1456) = lu(k,1456) - lu(k,859) * lu(k,1446)
    2953   315224452 :          lu(k,1534) = lu(k,1534) - lu(k,854) * lu(k,1533)
    2954   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,855) * lu(k,1533)
    2955   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,856) * lu(k,1533)
    2956   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,857) * lu(k,1533)
    2957   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,858) * lu(k,1533)
    2958   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,859) * lu(k,1533)
    2959   315224452 :          lu(k,1875) = lu(k,1875) - lu(k,854) * lu(k,1874)
    2960   315224452 :          lu(k,1881) = lu(k,1881) - lu(k,855) * lu(k,1874)
    2961   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,856) * lu(k,1874)
    2962   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,857) * lu(k,1874)
    2963   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,858) * lu(k,1874)
    2964   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,859) * lu(k,1874)
    2965   315224452 :          lu(k,2079) = lu(k,2079) - lu(k,854) * lu(k,2078)
    2966   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,855) * lu(k,2078)
    2967   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,856) * lu(k,2078)
    2968   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,857) * lu(k,2078)
    2969   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,858) * lu(k,2078)
    2970   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,859) * lu(k,2078)
    2971   315224452 :          lu(k,865) = 1._r8 / lu(k,865)
    2972   315224452 :          lu(k,866) = lu(k,866) * lu(k,865)
    2973   315224452 :          lu(k,867) = lu(k,867) * lu(k,865)
    2974   315224452 :          lu(k,868) = lu(k,868) * lu(k,865)
    2975   315224452 :          lu(k,869) = lu(k,869) * lu(k,865)
    2976   315224452 :          lu(k,870) = lu(k,870) * lu(k,865)
    2977   315224452 :          lu(k,871) = lu(k,871) * lu(k,865)
    2978   315224452 :          lu(k,872) = lu(k,872) * lu(k,865)
    2979   315224452 :          lu(k,999) = lu(k,999) - lu(k,866) * lu(k,998)
    2980   315224452 :          lu(k,1000) = lu(k,1000) - lu(k,867) * lu(k,998)
    2981   315224452 :          lu(k,1001) = lu(k,1001) - lu(k,868) * lu(k,998)
    2982   315224452 :          lu(k,1002) = lu(k,1002) - lu(k,869) * lu(k,998)
    2983   315224452 :          lu(k,1004) = lu(k,1004) - lu(k,870) * lu(k,998)
    2984   315224452 :          lu(k,1006) = lu(k,1006) - lu(k,871) * lu(k,998)
    2985   315224452 :          lu(k,1007) = lu(k,1007) - lu(k,872) * lu(k,998)
    2986   315224452 :          lu(k,1448) = lu(k,1448) - lu(k,866) * lu(k,1447)
    2987   315224452 :          lu(k,1449) = lu(k,1449) - lu(k,867) * lu(k,1447)
    2988   315224452 :          lu(k,1450) = lu(k,1450) - lu(k,868) * lu(k,1447)
    2989   315224452 :          lu(k,1451) = lu(k,1451) - lu(k,869) * lu(k,1447)
    2990   315224452 :          lu(k,1453) = lu(k,1453) - lu(k,870) * lu(k,1447)
    2991   315224452 :          lu(k,1455) = lu(k,1455) - lu(k,871) * lu(k,1447)
    2992   315224452 :          lu(k,1456) = lu(k,1456) - lu(k,872) * lu(k,1447)
    2993   315224452 :          lu(k,1536) = lu(k,1536) - lu(k,866) * lu(k,1534)
    2994   315224452 :          lu(k,1537) = lu(k,1537) - lu(k,867) * lu(k,1534)
    2995   315224452 :          lu(k,1539) = lu(k,1539) - lu(k,868) * lu(k,1534)
    2996   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,869) * lu(k,1534)
    2997   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,870) * lu(k,1534)
    2998   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,871) * lu(k,1534)
    2999   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,872) * lu(k,1534)
    3000   315224452 :          lu(k,1881) = lu(k,1881) - lu(k,866) * lu(k,1875)
    3001   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,867) * lu(k,1875)
    3002   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,868) * lu(k,1875)
    3003   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,869) * lu(k,1875)
    3004   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,870) * lu(k,1875)
    3005   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,871) * lu(k,1875)
    3006   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,872) * lu(k,1875)
    3007   315224452 :          lu(k,2082) = lu(k,2082) - lu(k,866) * lu(k,2079)
    3008   315224452 :          lu(k,2083) = lu(k,2083) - lu(k,867) * lu(k,2079)
    3009   315224452 :          lu(k,2084) = lu(k,2084) - lu(k,868) * lu(k,2079)
    3010   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,869) * lu(k,2079)
    3011   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,870) * lu(k,2079)
    3012   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,871) * lu(k,2079)
    3013   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,872) * lu(k,2079)
    3014   315224452 :          lu(k,876) = 1._r8 / lu(k,876)
    3015   315224452 :          lu(k,877) = lu(k,877) * lu(k,876)
    3016   315224452 :          lu(k,878) = lu(k,878) * lu(k,876)
    3017   315224452 :          lu(k,879) = lu(k,879) * lu(k,876)
    3018   315224452 :          lu(k,880) = lu(k,880) * lu(k,876)
    3019   315224452 :          lu(k,881) = lu(k,881) * lu(k,876)
    3020   315224452 :          lu(k,882) = lu(k,882) * lu(k,876)
    3021   315224452 :          lu(k,883) = lu(k,883) * lu(k,876)
    3022   315224452 :          lu(k,884) = lu(k,884) * lu(k,876)
    3023   315224452 :          lu(k,885) = lu(k,885) * lu(k,876)
    3024   315224452 :          lu(k,886) = lu(k,886) * lu(k,876)
    3025   315224452 :          lu(k,887) = lu(k,887) * lu(k,876)
    3026   315224452 :          lu(k,888) = lu(k,888) * lu(k,876)
    3027   315224452 :          lu(k,889) = lu(k,889) * lu(k,876)
    3028   315224452 :          lu(k,890) = lu(k,890) * lu(k,876)
    3029   315224452 :          lu(k,891) = lu(k,891) * lu(k,876)
    3030   315224452 :          lu(k,1616) = - lu(k,877) * lu(k,1614)
    3031   315224452 :          lu(k,1628) = lu(k,1628) - lu(k,878) * lu(k,1614)
    3032   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,879) * lu(k,1614)
    3033   315224452 :          lu(k,1637) = lu(k,1637) - lu(k,880) * lu(k,1614)
    3034   315224452 :          lu(k,1638) = lu(k,1638) - lu(k,881) * lu(k,1614)
    3035   315224452 :          lu(k,1640) = lu(k,1640) - lu(k,882) * lu(k,1614)
    3036   315224452 :          lu(k,1641) = lu(k,1641) - lu(k,883) * lu(k,1614)
    3037   315224452 :          lu(k,1643) = lu(k,1643) - lu(k,884) * lu(k,1614)
    3038   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,885) * lu(k,1614)
    3039   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,886) * lu(k,1614)
    3040   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,887) * lu(k,1614)
    3041   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,888) * lu(k,1614)
    3042   315224452 :          lu(k,1662) = - lu(k,889) * lu(k,1614)
    3043   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,890) * lu(k,1614)
    3044   315224452 :          lu(k,1665) = - lu(k,891) * lu(k,1614)
    3045   315224452 :          lu(k,1775) = lu(k,1775) - lu(k,877) * lu(k,1771)
    3046   315224452 :          lu(k,1791) = lu(k,1791) - lu(k,878) * lu(k,1771)
    3047   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,879) * lu(k,1771)
    3048   315224452 :          lu(k,1800) = - lu(k,880) * lu(k,1771)
    3049   315224452 :          lu(k,1801) = lu(k,1801) - lu(k,881) * lu(k,1771)
    3050   315224452 :          lu(k,1803) = lu(k,1803) - lu(k,882) * lu(k,1771)
    3051   315224452 :          lu(k,1804) = lu(k,1804) - lu(k,883) * lu(k,1771)
    3052   315224452 :          lu(k,1806) = lu(k,1806) - lu(k,884) * lu(k,1771)
    3053   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,885) * lu(k,1771)
    3054   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,886) * lu(k,1771)
    3055   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,887) * lu(k,1771)
    3056   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,888) * lu(k,1771)
    3057   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,889) * lu(k,1771)
    3058   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,890) * lu(k,1771)
    3059   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,891) * lu(k,1771)
    3060   315224452 :          lu(k,2190) = lu(k,2190) - lu(k,877) * lu(k,2189)
    3061   315224452 :          lu(k,2201) = lu(k,2201) - lu(k,878) * lu(k,2189)
    3062   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,879) * lu(k,2189)
    3063   315224452 :          lu(k,2208) = - lu(k,880) * lu(k,2189)
    3064   315224452 :          lu(k,2209) = lu(k,2209) - lu(k,881) * lu(k,2189)
    3065   315224452 :          lu(k,2211) = - lu(k,882) * lu(k,2189)
    3066   315224452 :          lu(k,2212) = - lu(k,883) * lu(k,2189)
    3067   315224452 :          lu(k,2214) = lu(k,2214) - lu(k,884) * lu(k,2189)
    3068   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,885) * lu(k,2189)
    3069   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,886) * lu(k,2189)
    3070   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,887) * lu(k,2189)
    3071   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,888) * lu(k,2189)
    3072   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,889) * lu(k,2189)
    3073   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,890) * lu(k,2189)
    3074   325174377 :          lu(k,2236) = lu(k,2236) - lu(k,891) * lu(k,2189)
    3075             :       end do
    3076     9949925 :       end subroutine lu_fac18
    3077     9949925 :       subroutine lu_fac19( avec_len, lu )
    3078             :       use chem_mods, only : nzcnt
    3079             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3080             :       implicit none
    3081             : !-----------------------------------------------------------------------
    3082             : ! ... dummy args
    3083             : !-----------------------------------------------------------------------
    3084             :       integer, intent(in) :: avec_len
    3085             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3086             : !-----------------------------------------------------------------------
    3087             : ! ... local variables
    3088             : !-----------------------------------------------------------------------
    3089             :       integer :: k
    3090   325174377 :       do k = 1,avec_len
    3091   315224452 :          lu(k,892) = 1._r8 / lu(k,892)
    3092   315224452 :          lu(k,893) = lu(k,893) * lu(k,892)
    3093   315224452 :          lu(k,894) = lu(k,894) * lu(k,892)
    3094   315224452 :          lu(k,895) = lu(k,895) * lu(k,892)
    3095   315224452 :          lu(k,896) = lu(k,896) * lu(k,892)
    3096   315224452 :          lu(k,897) = lu(k,897) * lu(k,892)
    3097   315224452 :          lu(k,1092) = - lu(k,893) * lu(k,1087)
    3098   315224452 :          lu(k,1093) = - lu(k,894) * lu(k,1087)
    3099   315224452 :          lu(k,1095) = lu(k,1095) - lu(k,895) * lu(k,1087)
    3100   315224452 :          lu(k,1097) = lu(k,1097) - lu(k,896) * lu(k,1087)
    3101   315224452 :          lu(k,1098) = - lu(k,897) * lu(k,1087)
    3102   315224452 :          lu(k,1137) = - lu(k,893) * lu(k,1131)
    3103   315224452 :          lu(k,1138) = - lu(k,894) * lu(k,1131)
    3104   315224452 :          lu(k,1142) = lu(k,1142) - lu(k,895) * lu(k,1131)
    3105   315224452 :          lu(k,1144) = lu(k,1144) - lu(k,896) * lu(k,1131)
    3106   315224452 :          lu(k,1145) = lu(k,1145) - lu(k,897) * lu(k,1131)
    3107   315224452 :          lu(k,1255) = - lu(k,893) * lu(k,1248)
    3108   315224452 :          lu(k,1257) = lu(k,1257) - lu(k,894) * lu(k,1248)
    3109   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,895) * lu(k,1248)
    3110   315224452 :          lu(k,1262) = lu(k,1262) - lu(k,896) * lu(k,1248)
    3111   315224452 :          lu(k,1263) = lu(k,1263) - lu(k,897) * lu(k,1248)
    3112   315224452 :          lu(k,1331) = lu(k,1331) - lu(k,893) * lu(k,1321)
    3113   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,894) * lu(k,1321)
    3114   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,895) * lu(k,1321)
    3115   315224452 :          lu(k,1341) = lu(k,1341) - lu(k,896) * lu(k,1321)
    3116   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,897) * lu(k,1321)
    3117   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,893) * lu(k,1615)
    3118   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,894) * lu(k,1615)
    3119   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,895) * lu(k,1615)
    3120   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,896) * lu(k,1615)
    3121   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,897) * lu(k,1615)
    3122   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,893) * lu(k,1772)
    3123   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,894) * lu(k,1772)
    3124   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,895) * lu(k,1772)
    3125   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,896) * lu(k,1772)
    3126   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,897) * lu(k,1772)
    3127   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,893) * lu(k,1876)
    3128   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,894) * lu(k,1876)
    3129   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,895) * lu(k,1876)
    3130   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,896) * lu(k,1876)
    3131   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,897) * lu(k,1876)
    3132   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,893) * lu(k,2321)
    3133   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,894) * lu(k,2321)
    3134   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,895) * lu(k,2321)
    3135   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,896) * lu(k,2321)
    3136   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,897) * lu(k,2321)
    3137   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,893) * lu(k,2378)
    3138   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,894) * lu(k,2378)
    3139   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,895) * lu(k,2378)
    3140   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,896) * lu(k,2378)
    3141   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,897) * lu(k,2378)
    3142   315224452 :          lu(k,901) = 1._r8 / lu(k,901)
    3143   315224452 :          lu(k,902) = lu(k,902) * lu(k,901)
    3144   315224452 :          lu(k,903) = lu(k,903) * lu(k,901)
    3145   315224452 :          lu(k,904) = lu(k,904) * lu(k,901)
    3146   315224452 :          lu(k,905) = lu(k,905) * lu(k,901)
    3147   315224452 :          lu(k,906) = lu(k,906) * lu(k,901)
    3148   315224452 :          lu(k,907) = lu(k,907) * lu(k,901)
    3149   315224452 :          lu(k,908) = lu(k,908) * lu(k,901)
    3150   315224452 :          lu(k,909) = lu(k,909) * lu(k,901)
    3151   315224452 :          lu(k,1044) = lu(k,1044) - lu(k,902) * lu(k,1041)
    3152   315224452 :          lu(k,1046) = - lu(k,903) * lu(k,1041)
    3153   315224452 :          lu(k,1047) = lu(k,1047) - lu(k,904) * lu(k,1041)
    3154   315224452 :          lu(k,1048) = lu(k,1048) - lu(k,905) * lu(k,1041)
    3155   315224452 :          lu(k,1049) = lu(k,1049) - lu(k,906) * lu(k,1041)
    3156   315224452 :          lu(k,1050) = lu(k,1050) - lu(k,907) * lu(k,1041)
    3157   315224452 :          lu(k,1051) = lu(k,1051) - lu(k,908) * lu(k,1041)
    3158   315224452 :          lu(k,1052) = - lu(k,909) * lu(k,1041)
    3159   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,902) * lu(k,1773)
    3160   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,903) * lu(k,1773)
    3161   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,904) * lu(k,1773)
    3162   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,905) * lu(k,1773)
    3163   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,906) * lu(k,1773)
    3164   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,907) * lu(k,1773)
    3165   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,908) * lu(k,1773)
    3166   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,909) * lu(k,1773)
    3167   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,902) * lu(k,1877)
    3168   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,903) * lu(k,1877)
    3169   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,904) * lu(k,1877)
    3170   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,905) * lu(k,1877)
    3171   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,906) * lu(k,1877)
    3172   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,907) * lu(k,1877)
    3173   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,908) * lu(k,1877)
    3174   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,909) * lu(k,1877)
    3175   315224452 :          lu(k,2146) = - lu(k,902) * lu(k,2140)
    3176   315224452 :          lu(k,2156) = lu(k,2156) - lu(k,903) * lu(k,2140)
    3177   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,904) * lu(k,2140)
    3178   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,905) * lu(k,2140)
    3179   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,906) * lu(k,2140)
    3180   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,907) * lu(k,2140)
    3181   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,908) * lu(k,2140)
    3182   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,909) * lu(k,2140)
    3183   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,902) * lu(k,2322)
    3184   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,903) * lu(k,2322)
    3185   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,904) * lu(k,2322)
    3186   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,905) * lu(k,2322)
    3187   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,906) * lu(k,2322)
    3188   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,907) * lu(k,2322)
    3189   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,908) * lu(k,2322)
    3190   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,909) * lu(k,2322)
    3191   315224452 :          lu(k,2388) = lu(k,2388) - lu(k,902) * lu(k,2379)
    3192   315224452 :          lu(k,2405) = lu(k,2405) - lu(k,903) * lu(k,2379)
    3193   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,904) * lu(k,2379)
    3194   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,905) * lu(k,2379)
    3195   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,906) * lu(k,2379)
    3196   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,907) * lu(k,2379)
    3197   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,908) * lu(k,2379)
    3198   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,909) * lu(k,2379)
    3199   315224452 :          lu(k,910) = 1._r8 / lu(k,910)
    3200   315224452 :          lu(k,911) = lu(k,911) * lu(k,910)
    3201   315224452 :          lu(k,912) = lu(k,912) * lu(k,910)
    3202   315224452 :          lu(k,913) = lu(k,913) * lu(k,910)
    3203   315224452 :          lu(k,914) = lu(k,914) * lu(k,910)
    3204   315224452 :          lu(k,915) = lu(k,915) * lu(k,910)
    3205   315224452 :          lu(k,916) = lu(k,916) * lu(k,910)
    3206   315224452 :          lu(k,917) = lu(k,917) * lu(k,910)
    3207   315224452 :          lu(k,918) = lu(k,918) * lu(k,910)
    3208   315224452 :          lu(k,1089) = lu(k,1089) - lu(k,911) * lu(k,1088)
    3209   315224452 :          lu(k,1091) = lu(k,1091) - lu(k,912) * lu(k,1088)
    3210   315224452 :          lu(k,1092) = lu(k,1092) - lu(k,913) * lu(k,1088)
    3211   315224452 :          lu(k,1095) = lu(k,1095) - lu(k,914) * lu(k,1088)
    3212   315224452 :          lu(k,1096) = - lu(k,915) * lu(k,1088)
    3213   315224452 :          lu(k,1097) = lu(k,1097) - lu(k,916) * lu(k,1088)
    3214   315224452 :          lu(k,1100) = lu(k,1100) - lu(k,917) * lu(k,1088)
    3215   315224452 :          lu(k,1101) = - lu(k,918) * lu(k,1088)
    3216   315224452 :          lu(k,1323) = lu(k,1323) - lu(k,911) * lu(k,1322)
    3217   315224452 :          lu(k,1324) = lu(k,1324) - lu(k,912) * lu(k,1322)
    3218   315224452 :          lu(k,1331) = lu(k,1331) - lu(k,913) * lu(k,1322)
    3219   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,914) * lu(k,1322)
    3220   315224452 :          lu(k,1340) = lu(k,1340) - lu(k,915) * lu(k,1322)
    3221   315224452 :          lu(k,1341) = lu(k,1341) - lu(k,916) * lu(k,1322)
    3222   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,917) * lu(k,1322)
    3223   315224452 :          lu(k,1346) = lu(k,1346) - lu(k,918) * lu(k,1322)
    3224   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,911) * lu(k,1774)
    3225   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,912) * lu(k,1774)
    3226   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,913) * lu(k,1774)
    3227   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,914) * lu(k,1774)
    3228   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,915) * lu(k,1774)
    3229   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,916) * lu(k,1774)
    3230   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,917) * lu(k,1774)
    3231   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,918) * lu(k,1774)
    3232   315224452 :          lu(k,1883) = lu(k,1883) - lu(k,911) * lu(k,1878)
    3233   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,912) * lu(k,1878)
    3234   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,913) * lu(k,1878)
    3235   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,914) * lu(k,1878)
    3236   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,915) * lu(k,1878)
    3237   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,916) * lu(k,1878)
    3238   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,917) * lu(k,1878)
    3239   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,918) * lu(k,1878)
    3240   315224452 :          lu(k,1944) = lu(k,1944) - lu(k,911) * lu(k,1940)
    3241   315224452 :          lu(k,1945) = lu(k,1945) - lu(k,912) * lu(k,1940)
    3242   315224452 :          lu(k,1947) = lu(k,1947) - lu(k,913) * lu(k,1940)
    3243   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,914) * lu(k,1940)
    3244   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,915) * lu(k,1940)
    3245   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,916) * lu(k,1940)
    3246   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,917) * lu(k,1940)
    3247   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,918) * lu(k,1940)
    3248   315224452 :          lu(k,2327) = lu(k,2327) - lu(k,911) * lu(k,2323)
    3249   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,912) * lu(k,2323)
    3250   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,913) * lu(k,2323)
    3251   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,914) * lu(k,2323)
    3252   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,915) * lu(k,2323)
    3253   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,916) * lu(k,2323)
    3254   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,917) * lu(k,2323)
    3255   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,918) * lu(k,2323)
    3256   315224452 :          lu(k,919) = 1._r8 / lu(k,919)
    3257   315224452 :          lu(k,920) = lu(k,920) * lu(k,919)
    3258   315224452 :          lu(k,921) = lu(k,921) * lu(k,919)
    3259   315224452 :          lu(k,922) = lu(k,922) * lu(k,919)
    3260   315224452 :          lu(k,923) = lu(k,923) * lu(k,919)
    3261   315224452 :          lu(k,986) = lu(k,986) - lu(k,920) * lu(k,973)
    3262   315224452 :          lu(k,988) = lu(k,988) - lu(k,921) * lu(k,973)
    3263   315224452 :          lu(k,991) = lu(k,991) - lu(k,922) * lu(k,973)
    3264   315224452 :          lu(k,992) = - lu(k,923) * lu(k,973)
    3265   315224452 :          lu(k,1030) = lu(k,1030) - lu(k,920) * lu(k,1017)
    3266   315224452 :          lu(k,1032) = lu(k,1032) - lu(k,921) * lu(k,1017)
    3267   315224452 :          lu(k,1035) = lu(k,1035) - lu(k,922) * lu(k,1017)
    3268   315224452 :          lu(k,1036) = - lu(k,923) * lu(k,1017)
    3269   315224452 :          lu(k,1139) = lu(k,1139) - lu(k,920) * lu(k,1132)
    3270   315224452 :          lu(k,1142) = lu(k,1142) - lu(k,921) * lu(k,1132)
    3271   315224452 :          lu(k,1148) = lu(k,1148) - lu(k,922) * lu(k,1132)
    3272   315224452 :          lu(k,1150) = lu(k,1150) - lu(k,923) * lu(k,1132)
    3273   315224452 :          lu(k,1274) = - lu(k,920) * lu(k,1267)
    3274   315224452 :          lu(k,1275) = lu(k,1275) - lu(k,921) * lu(k,1267)
    3275   315224452 :          lu(k,1278) = lu(k,1278) - lu(k,922) * lu(k,1267)
    3276   315224452 :          lu(k,1279) = lu(k,1279) - lu(k,923) * lu(k,1267)
    3277   315224452 :          lu(k,1379) = lu(k,1379) - lu(k,920) * lu(k,1369)
    3278   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,921) * lu(k,1369)
    3279   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,922) * lu(k,1369)
    3280   315224452 :          lu(k,1391) = - lu(k,923) * lu(k,1369)
    3281   315224452 :          lu(k,1646) = - lu(k,920) * lu(k,1616)
    3282   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,921) * lu(k,1616)
    3283   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,922) * lu(k,1616)
    3284   315224452 :          lu(k,1666) = - lu(k,923) * lu(k,1616)
    3285   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,920) * lu(k,1775)
    3286   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,921) * lu(k,1775)
    3287   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,922) * lu(k,1775)
    3288   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,923) * lu(k,1775)
    3289   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,920) * lu(k,1879)
    3290   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,921) * lu(k,1879)
    3291   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,922) * lu(k,1879)
    3292   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,923) * lu(k,1879)
    3293   315224452 :          lu(k,1976) = - lu(k,920) * lu(k,1974)
    3294   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,921) * lu(k,1974)
    3295   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,922) * lu(k,1974)
    3296   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,923) * lu(k,1974)
    3297   315224452 :          lu(k,2152) = - lu(k,920) * lu(k,2141)
    3298   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,921) * lu(k,2141)
    3299   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,922) * lu(k,2141)
    3300   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,923) * lu(k,2141)
    3301   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,920) * lu(k,2190)
    3302   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,921) * lu(k,2190)
    3303   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,922) * lu(k,2190)
    3304   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,923) * lu(k,2190)
    3305   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,920) * lu(k,2324)
    3306   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,921) * lu(k,2324)
    3307   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,922) * lu(k,2324)
    3308   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,923) * lu(k,2324)
    3309   315224452 :          lu(k,925) = 1._r8 / lu(k,925)
    3310   315224452 :          lu(k,926) = lu(k,926) * lu(k,925)
    3311   315224452 :          lu(k,927) = lu(k,927) * lu(k,925)
    3312   315224452 :          lu(k,928) = lu(k,928) * lu(k,925)
    3313   315224452 :          lu(k,929) = lu(k,929) * lu(k,925)
    3314   315224452 :          lu(k,930) = lu(k,930) * lu(k,925)
    3315   315224452 :          lu(k,931) = lu(k,931) * lu(k,925)
    3316   315224452 :          lu(k,932) = lu(k,932) * lu(k,925)
    3317   315224452 :          lu(k,933) = lu(k,933) * lu(k,925)
    3318   315224452 :          lu(k,1461) = lu(k,1461) - lu(k,926) * lu(k,1460)
    3319   315224452 :          lu(k,1463) = - lu(k,927) * lu(k,1460)
    3320   315224452 :          lu(k,1464) = lu(k,1464) - lu(k,928) * lu(k,1460)
    3321   315224452 :          lu(k,1466) = - lu(k,929) * lu(k,1460)
    3322   315224452 :          lu(k,1468) = lu(k,1468) - lu(k,930) * lu(k,1460)
    3323   315224452 :          lu(k,1470) = - lu(k,931) * lu(k,1460)
    3324   315224452 :          lu(k,1471) = - lu(k,932) * lu(k,1460)
    3325   315224452 :          lu(k,1472) = lu(k,1472) - lu(k,933) * lu(k,1460)
    3326   315224452 :          lu(k,1810) = lu(k,1810) - lu(k,926) * lu(k,1776)
    3327   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,927) * lu(k,1776)
    3328   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,928) * lu(k,1776)
    3329   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,929) * lu(k,1776)
    3330   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,930) * lu(k,1776)
    3331   315224452 :          lu(k,1828) = lu(k,1828) - lu(k,931) * lu(k,1776)
    3332   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,932) * lu(k,1776)
    3333   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,933) * lu(k,1776)
    3334   315224452 :          lu(k,2020) = lu(k,2020) - lu(k,926) * lu(k,2019)
    3335   315224452 :          lu(k,2026) = - lu(k,927) * lu(k,2019)
    3336   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,928) * lu(k,2019)
    3337   315224452 :          lu(k,2032) = - lu(k,929) * lu(k,2019)
    3338   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,930) * lu(k,2019)
    3339   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,931) * lu(k,2019)
    3340   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,932) * lu(k,2019)
    3341   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,933) * lu(k,2019)
    3342   315224452 :          lu(k,2043) = - lu(k,926) * lu(k,2042)
    3343   315224452 :          lu(k,2049) = lu(k,2049) - lu(k,927) * lu(k,2042)
    3344   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,928) * lu(k,2042)
    3345   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,929) * lu(k,2042)
    3346   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,930) * lu(k,2042)
    3347   315224452 :          lu(k,2060) = - lu(k,931) * lu(k,2042)
    3348   315224452 :          lu(k,2062) = - lu(k,932) * lu(k,2042)
    3349   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,933) * lu(k,2042)
    3350   315224452 :          lu(k,2242) = lu(k,2242) - lu(k,926) * lu(k,2239)
    3351   315224452 :          lu(k,2248) = - lu(k,927) * lu(k,2239)
    3352   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,928) * lu(k,2239)
    3353   315224452 :          lu(k,2254) = - lu(k,929) * lu(k,2239)
    3354   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,930) * lu(k,2239)
    3355   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,931) * lu(k,2239)
    3356   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,932) * lu(k,2239)
    3357   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,933) * lu(k,2239)
    3358   315224452 :          lu(k,2428) = lu(k,2428) - lu(k,926) * lu(k,2426)
    3359   315224452 :          lu(k,2435) = - lu(k,927) * lu(k,2426)
    3360   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,928) * lu(k,2426)
    3361   315224452 :          lu(k,2441) = - lu(k,929) * lu(k,2426)
    3362   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,930) * lu(k,2426)
    3363   315224452 :          lu(k,2446) = - lu(k,931) * lu(k,2426)
    3364   315224452 :          lu(k,2448) = - lu(k,932) * lu(k,2426)
    3365   325174377 :          lu(k,2449) = lu(k,2449) - lu(k,933) * lu(k,2426)
    3366             :       end do
    3367     9949925 :       end subroutine lu_fac19
    3368     9949925 :       subroutine lu_fac20( avec_len, lu )
    3369             :       use chem_mods, only : nzcnt
    3370             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3371             :       implicit none
    3372             : !-----------------------------------------------------------------------
    3373             : ! ... dummy args
    3374             : !-----------------------------------------------------------------------
    3375             :       integer, intent(in) :: avec_len
    3376             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3377             : !-----------------------------------------------------------------------
    3378             : ! ... local variables
    3379             : !-----------------------------------------------------------------------
    3380             :       integer :: k
    3381   325174377 :       do k = 1,avec_len
    3382   315224452 :          lu(k,935) = 1._r8 / lu(k,935)
    3383   315224452 :          lu(k,936) = lu(k,936) * lu(k,935)
    3384   315224452 :          lu(k,937) = lu(k,937) * lu(k,935)
    3385   315224452 :          lu(k,938) = lu(k,938) * lu(k,935)
    3386   315224452 :          lu(k,939) = lu(k,939) * lu(k,935)
    3387   315224452 :          lu(k,940) = lu(k,940) * lu(k,935)
    3388   315224452 :          lu(k,941) = lu(k,941) * lu(k,935)
    3389   315224452 :          lu(k,942) = lu(k,942) * lu(k,935)
    3390   315224452 :          lu(k,943) = lu(k,943) * lu(k,935)
    3391   315224452 :          lu(k,944) = lu(k,944) * lu(k,935)
    3392   315224452 :          lu(k,945) = lu(k,945) * lu(k,935)
    3393   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,936) * lu(k,1777)
    3394   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,937) * lu(k,1777)
    3395   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,938) * lu(k,1777)
    3396   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,939) * lu(k,1777)
    3397   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,940) * lu(k,1777)
    3398   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,941) * lu(k,1777)
    3399   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,942) * lu(k,1777)
    3400   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,943) * lu(k,1777)
    3401   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,944) * lu(k,1777)
    3402   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,945) * lu(k,1777)
    3403   315224452 :          lu(k,1886) = lu(k,1886) - lu(k,936) * lu(k,1880)
    3404   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,937) * lu(k,1880)
    3405   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,938) * lu(k,1880)
    3406   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,939) * lu(k,1880)
    3407   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,940) * lu(k,1880)
    3408   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,941) * lu(k,1880)
    3409   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,942) * lu(k,1880)
    3410   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,943) * lu(k,1880)
    3411   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,944) * lu(k,1880)
    3412   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,945) * lu(k,1880)
    3413   315224452 :          lu(k,2145) = - lu(k,936) * lu(k,2142)
    3414   315224452 :          lu(k,2146) = lu(k,2146) - lu(k,937) * lu(k,2142)
    3415   315224452 :          lu(k,2156) = lu(k,2156) - lu(k,938) * lu(k,2142)
    3416   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,939) * lu(k,2142)
    3417   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,940) * lu(k,2142)
    3418   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,941) * lu(k,2142)
    3419   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,942) * lu(k,2142)
    3420   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,943) * lu(k,2142)
    3421   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,944) * lu(k,2142)
    3422   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,945) * lu(k,2142)
    3423   315224452 :          lu(k,2330) = lu(k,2330) - lu(k,936) * lu(k,2325)
    3424   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,937) * lu(k,2325)
    3425   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,938) * lu(k,2325)
    3426   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,939) * lu(k,2325)
    3427   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,940) * lu(k,2325)
    3428   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,941) * lu(k,2325)
    3429   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,942) * lu(k,2325)
    3430   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,943) * lu(k,2325)
    3431   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,944) * lu(k,2325)
    3432   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,945) * lu(k,2325)
    3433   315224452 :          lu(k,2384) = lu(k,2384) - lu(k,936) * lu(k,2380)
    3434   315224452 :          lu(k,2388) = lu(k,2388) - lu(k,937) * lu(k,2380)
    3435   315224452 :          lu(k,2405) = lu(k,2405) - lu(k,938) * lu(k,2380)
    3436   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,939) * lu(k,2380)
    3437   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,940) * lu(k,2380)
    3438   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,941) * lu(k,2380)
    3439   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,942) * lu(k,2380)
    3440   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,943) * lu(k,2380)
    3441   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,944) * lu(k,2380)
    3442   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,945) * lu(k,2380)
    3443   315224452 :          lu(k,947) = 1._r8 / lu(k,947)
    3444   315224452 :          lu(k,948) = lu(k,948) * lu(k,947)
    3445   315224452 :          lu(k,949) = lu(k,949) * lu(k,947)
    3446   315224452 :          lu(k,950) = lu(k,950) * lu(k,947)
    3447   315224452 :          lu(k,951) = lu(k,951) * lu(k,947)
    3448   315224452 :          lu(k,952) = lu(k,952) * lu(k,947)
    3449   315224452 :          lu(k,1476) = lu(k,1476) - lu(k,948) * lu(k,1475)
    3450   315224452 :          lu(k,1481) = lu(k,1481) - lu(k,949) * lu(k,1475)
    3451   315224452 :          lu(k,1484) = lu(k,1484) - lu(k,950) * lu(k,1475)
    3452   315224452 :          lu(k,1488) = - lu(k,951) * lu(k,1475)
    3453   315224452 :          lu(k,1489) = - lu(k,952) * lu(k,1475)
    3454   315224452 :          lu(k,1540) = lu(k,1540) - lu(k,948) * lu(k,1535)
    3455   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,949) * lu(k,1535)
    3456   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,950) * lu(k,1535)
    3457   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,951) * lu(k,1535)
    3458   315224452 :          lu(k,1555) = - lu(k,952) * lu(k,1535)
    3459   315224452 :          lu(k,1561) = lu(k,1561) - lu(k,948) * lu(k,1560)
    3460   315224452 :          lu(k,1568) = lu(k,1568) - lu(k,949) * lu(k,1560)
    3461   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,950) * lu(k,1560)
    3462   315224452 :          lu(k,1578) = lu(k,1578) - lu(k,951) * lu(k,1560)
    3463   315224452 :          lu(k,1579) = lu(k,1579) - lu(k,952) * lu(k,1560)
    3464   315224452 :          lu(k,1587) = lu(k,1587) - lu(k,948) * lu(k,1585)
    3465   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,949) * lu(k,1585)
    3466   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,950) * lu(k,1585)
    3467   315224452 :          lu(k,1604) = lu(k,1604) - lu(k,951) * lu(k,1585)
    3468   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,952) * lu(k,1585)
    3469   315224452 :          lu(k,1647) = - lu(k,948) * lu(k,1617)
    3470   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,949) * lu(k,1617)
    3471   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,950) * lu(k,1617)
    3472   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,951) * lu(k,1617)
    3473   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,952) * lu(k,1617)
    3474   315224452 :          lu(k,1811) = lu(k,1811) - lu(k,948) * lu(k,1778)
    3475   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,949) * lu(k,1778)
    3476   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,950) * lu(k,1778)
    3477   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,951) * lu(k,1778)
    3478   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,952) * lu(k,1778)
    3479   315224452 :          lu(k,1951) = lu(k,1951) - lu(k,948) * lu(k,1941)
    3480   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,949) * lu(k,1941)
    3481   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,950) * lu(k,1941)
    3482   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,951) * lu(k,1941)
    3483   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,952) * lu(k,1941)
    3484   315224452 :          lu(k,2086) = lu(k,2086) - lu(k,948) * lu(k,2080)
    3485   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,949) * lu(k,2080)
    3486   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,950) * lu(k,2080)
    3487   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,951) * lu(k,2080)
    3488   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,952) * lu(k,2080)
    3489   315224452 :          lu(k,2218) = lu(k,2218) - lu(k,948) * lu(k,2191)
    3490   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,949) * lu(k,2191)
    3491   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,950) * lu(k,2191)
    3492   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,951) * lu(k,2191)
    3493   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,952) * lu(k,2191)
    3494   315224452 :          lu(k,2429) = - lu(k,948) * lu(k,2427)
    3495   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,949) * lu(k,2427)
    3496   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,950) * lu(k,2427)
    3497   315224452 :          lu(k,2447) = - lu(k,951) * lu(k,2427)
    3498   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,952) * lu(k,2427)
    3499   315224452 :          lu(k,955) = 1._r8 / lu(k,955)
    3500   315224452 :          lu(k,956) = lu(k,956) * lu(k,955)
    3501   315224452 :          lu(k,957) = lu(k,957) * lu(k,955)
    3502   315224452 :          lu(k,958) = lu(k,958) * lu(k,955)
    3503   315224452 :          lu(k,959) = lu(k,959) * lu(k,955)
    3504   315224452 :          lu(k,960) = lu(k,960) * lu(k,955)
    3505   315224452 :          lu(k,961) = lu(k,961) * lu(k,955)
    3506   315224452 :          lu(k,962) = lu(k,962) * lu(k,955)
    3507   315224452 :          lu(k,963) = lu(k,963) * lu(k,955)
    3508   315224452 :          lu(k,964) = lu(k,964) * lu(k,955)
    3509   315224452 :          lu(k,1495) = lu(k,1495) - lu(k,956) * lu(k,1494)
    3510   315224452 :          lu(k,1498) = lu(k,1498) - lu(k,957) * lu(k,1494)
    3511   315224452 :          lu(k,1499) = - lu(k,958) * lu(k,1494)
    3512   315224452 :          lu(k,1500) = lu(k,1500) - lu(k,959) * lu(k,1494)
    3513   315224452 :          lu(k,1501) = - lu(k,960) * lu(k,1494)
    3514   315224452 :          lu(k,1503) = lu(k,1503) - lu(k,961) * lu(k,1494)
    3515   315224452 :          lu(k,1504) = lu(k,1504) - lu(k,962) * lu(k,1494)
    3516   315224452 :          lu(k,1506) = lu(k,1506) - lu(k,963) * lu(k,1494)
    3517   315224452 :          lu(k,1507) = lu(k,1507) - lu(k,964) * lu(k,1494)
    3518   315224452 :          lu(k,1588) = lu(k,1588) - lu(k,956) * lu(k,1586)
    3519   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,957) * lu(k,1586)
    3520   315224452 :          lu(k,1593) = - lu(k,958) * lu(k,1586)
    3521   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,959) * lu(k,1586)
    3522   315224452 :          lu(k,1596) = lu(k,1596) - lu(k,960) * lu(k,1586)
    3523   315224452 :          lu(k,1599) = - lu(k,961) * lu(k,1586)
    3524   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,962) * lu(k,1586)
    3525   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,963) * lu(k,1586)
    3526   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,964) * lu(k,1586)
    3527   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,956) * lu(k,1779)
    3528   315224452 :          lu(k,1816) = lu(k,1816) - lu(k,957) * lu(k,1779)
    3529   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,958) * lu(k,1779)
    3530   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,959) * lu(k,1779)
    3531   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,960) * lu(k,1779)
    3532   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,961) * lu(k,1779)
    3533   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,962) * lu(k,1779)
    3534   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,963) * lu(k,1779)
    3535   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,964) * lu(k,1779)
    3536   315224452 :          lu(k,1952) = lu(k,1952) - lu(k,956) * lu(k,1942)
    3537   315224452 :          lu(k,1956) = lu(k,1956) - lu(k,957) * lu(k,1942)
    3538   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,958) * lu(k,1942)
    3539   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,959) * lu(k,1942)
    3540   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,960) * lu(k,1942)
    3541   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,961) * lu(k,1942)
    3542   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,962) * lu(k,1942)
    3543   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,963) * lu(k,1942)
    3544   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,964) * lu(k,1942)
    3545   315224452 :          lu(k,2087) = lu(k,2087) - lu(k,956) * lu(k,2081)
    3546   315224452 :          lu(k,2091) = lu(k,2091) - lu(k,957) * lu(k,2081)
    3547   315224452 :          lu(k,2092) = lu(k,2092) - lu(k,958) * lu(k,2081)
    3548   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,959) * lu(k,2081)
    3549   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,960) * lu(k,2081)
    3550   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,961) * lu(k,2081)
    3551   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,962) * lu(k,2081)
    3552   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,963) * lu(k,2081)
    3553   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,964) * lu(k,2081)
    3554   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,956) * lu(k,2143)
    3555   315224452 :          lu(k,2158) = lu(k,2158) - lu(k,957) * lu(k,2143)
    3556   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,958) * lu(k,2143)
    3557   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,959) * lu(k,2143)
    3558   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,960) * lu(k,2143)
    3559   315224452 :          lu(k,2165) = - lu(k,961) * lu(k,2143)
    3560   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,962) * lu(k,2143)
    3561   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,963) * lu(k,2143)
    3562   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,964) * lu(k,2143)
    3563   315224452 :          lu(k,974) = 1._r8 / lu(k,974)
    3564   315224452 :          lu(k,975) = lu(k,975) * lu(k,974)
    3565   315224452 :          lu(k,976) = lu(k,976) * lu(k,974)
    3566   315224452 :          lu(k,977) = lu(k,977) * lu(k,974)
    3567   315224452 :          lu(k,978) = lu(k,978) * lu(k,974)
    3568   315224452 :          lu(k,979) = lu(k,979) * lu(k,974)
    3569   315224452 :          lu(k,980) = lu(k,980) * lu(k,974)
    3570   315224452 :          lu(k,981) = lu(k,981) * lu(k,974)
    3571   315224452 :          lu(k,982) = lu(k,982) * lu(k,974)
    3572   315224452 :          lu(k,983) = lu(k,983) * lu(k,974)
    3573   315224452 :          lu(k,984) = lu(k,984) * lu(k,974)
    3574   315224452 :          lu(k,985) = lu(k,985) * lu(k,974)
    3575   315224452 :          lu(k,986) = lu(k,986) * lu(k,974)
    3576   315224452 :          lu(k,987) = lu(k,987) * lu(k,974)
    3577   315224452 :          lu(k,988) = lu(k,988) * lu(k,974)
    3578   315224452 :          lu(k,989) = lu(k,989) * lu(k,974)
    3579   315224452 :          lu(k,990) = lu(k,990) * lu(k,974)
    3580   315224452 :          lu(k,991) = lu(k,991) * lu(k,974)
    3581   315224452 :          lu(k,992) = lu(k,992) * lu(k,974)
    3582   315224452 :          lu(k,1620) = - lu(k,975) * lu(k,1618)
    3583   315224452 :          lu(k,1621) = lu(k,1621) - lu(k,976) * lu(k,1618)
    3584   315224452 :          lu(k,1622) = - lu(k,977) * lu(k,1618)
    3585   315224452 :          lu(k,1623) = lu(k,1623) - lu(k,978) * lu(k,1618)
    3586   315224452 :          lu(k,1624) = lu(k,1624) - lu(k,979) * lu(k,1618)
    3587   315224452 :          lu(k,1626) = lu(k,1626) - lu(k,980) * lu(k,1618)
    3588   315224452 :          lu(k,1627) = - lu(k,981) * lu(k,1618)
    3589   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,982) * lu(k,1618)
    3590   315224452 :          lu(k,1635) = - lu(k,983) * lu(k,1618)
    3591   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,984) * lu(k,1618)
    3592   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,985) * lu(k,1618)
    3593   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,986) * lu(k,1618)
    3594   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,987) * lu(k,1618)
    3595   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,988) * lu(k,1618)
    3596   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,989) * lu(k,1618)
    3597   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,990) * lu(k,1618)
    3598   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,991) * lu(k,1618)
    3599   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,992) * lu(k,1618)
    3600   315224452 :          lu(k,1783) = lu(k,1783) - lu(k,975) * lu(k,1780)
    3601   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,976) * lu(k,1780)
    3602   315224452 :          lu(k,1785) = lu(k,1785) - lu(k,977) * lu(k,1780)
    3603   315224452 :          lu(k,1786) = lu(k,1786) - lu(k,978) * lu(k,1780)
    3604   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,979) * lu(k,1780)
    3605   315224452 :          lu(k,1789) = lu(k,1789) - lu(k,980) * lu(k,1780)
    3606   315224452 :          lu(k,1790) = lu(k,1790) - lu(k,981) * lu(k,1780)
    3607   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,982) * lu(k,1780)
    3608   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,983) * lu(k,1780)
    3609   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,984) * lu(k,1780)
    3610   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,985) * lu(k,1780)
    3611   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,986) * lu(k,1780)
    3612   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,987) * lu(k,1780)
    3613   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,988) * lu(k,1780)
    3614   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,989) * lu(k,1780)
    3615   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,990) * lu(k,1780)
    3616   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,991) * lu(k,1780)
    3617   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,992) * lu(k,1780)
    3618   315224452 :          lu(k,2194) = lu(k,2194) - lu(k,975) * lu(k,2192)
    3619   315224452 :          lu(k,2195) = lu(k,2195) - lu(k,976) * lu(k,2192)
    3620   315224452 :          lu(k,2196) = - lu(k,977) * lu(k,2192)
    3621   315224452 :          lu(k,2197) = lu(k,2197) - lu(k,978) * lu(k,2192)
    3622   315224452 :          lu(k,2198) = lu(k,2198) - lu(k,979) * lu(k,2192)
    3623   315224452 :          lu(k,2199) = - lu(k,980) * lu(k,2192)
    3624   315224452 :          lu(k,2200) = lu(k,2200) - lu(k,981) * lu(k,2192)
    3625   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,982) * lu(k,2192)
    3626   315224452 :          lu(k,2207) = lu(k,2207) - lu(k,983) * lu(k,2192)
    3627   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,984) * lu(k,2192)
    3628   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,985) * lu(k,2192)
    3629   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,986) * lu(k,2192)
    3630   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,987) * lu(k,2192)
    3631   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,988) * lu(k,2192)
    3632   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,989) * lu(k,2192)
    3633   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,990) * lu(k,2192)
    3634   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,991) * lu(k,2192)
    3635   325174377 :          lu(k,2237) = lu(k,2237) - lu(k,992) * lu(k,2192)
    3636             :       end do
    3637     9949925 :       end subroutine lu_fac20
    3638     9949925 :       subroutine lu_fac21( avec_len, lu )
    3639             :       use chem_mods, only : nzcnt
    3640             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3641             :       implicit none
    3642             : !-----------------------------------------------------------------------
    3643             : ! ... dummy args
    3644             : !-----------------------------------------------------------------------
    3645             :       integer, intent(in) :: avec_len
    3646             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3647             : !-----------------------------------------------------------------------
    3648             : ! ... local variables
    3649             : !-----------------------------------------------------------------------
    3650             :       integer :: k
    3651   325174377 :       do k = 1,avec_len
    3652   315224452 :          lu(k,999) = 1._r8 / lu(k,999)
    3653   315224452 :          lu(k,1000) = lu(k,1000) * lu(k,999)
    3654   315224452 :          lu(k,1001) = lu(k,1001) * lu(k,999)
    3655   315224452 :          lu(k,1002) = lu(k,1002) * lu(k,999)
    3656   315224452 :          lu(k,1003) = lu(k,1003) * lu(k,999)
    3657   315224452 :          lu(k,1004) = lu(k,1004) * lu(k,999)
    3658   315224452 :          lu(k,1005) = lu(k,1005) * lu(k,999)
    3659   315224452 :          lu(k,1006) = lu(k,1006) * lu(k,999)
    3660   315224452 :          lu(k,1007) = lu(k,1007) * lu(k,999)
    3661   315224452 :          lu(k,1008) = lu(k,1008) * lu(k,999)
    3662   315224452 :          lu(k,1449) = lu(k,1449) - lu(k,1000) * lu(k,1448)
    3663   315224452 :          lu(k,1450) = lu(k,1450) - lu(k,1001) * lu(k,1448)
    3664   315224452 :          lu(k,1451) = lu(k,1451) - lu(k,1002) * lu(k,1448)
    3665   315224452 :          lu(k,1452) = - lu(k,1003) * lu(k,1448)
    3666   315224452 :          lu(k,1453) = lu(k,1453) - lu(k,1004) * lu(k,1448)
    3667   315224452 :          lu(k,1454) = - lu(k,1005) * lu(k,1448)
    3668   315224452 :          lu(k,1455) = lu(k,1455) - lu(k,1006) * lu(k,1448)
    3669   315224452 :          lu(k,1456) = lu(k,1456) - lu(k,1007) * lu(k,1448)
    3670   315224452 :          lu(k,1457) = - lu(k,1008) * lu(k,1448)
    3671   315224452 :          lu(k,1537) = lu(k,1537) - lu(k,1000) * lu(k,1536)
    3672   315224452 :          lu(k,1539) = lu(k,1539) - lu(k,1001) * lu(k,1536)
    3673   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,1002) * lu(k,1536)
    3674   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,1003) * lu(k,1536)
    3675   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,1004) * lu(k,1536)
    3676   315224452 :          lu(k,1547) = - lu(k,1005) * lu(k,1536)
    3677   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,1006) * lu(k,1536)
    3678   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,1007) * lu(k,1536)
    3679   315224452 :          lu(k,1551) = lu(k,1551) - lu(k,1008) * lu(k,1536)
    3680   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1000) * lu(k,1781)
    3681   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1001) * lu(k,1781)
    3682   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1002) * lu(k,1781)
    3683   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1003) * lu(k,1781)
    3684   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1004) * lu(k,1781)
    3685   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1005) * lu(k,1781)
    3686   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1006) * lu(k,1781)
    3687   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1007) * lu(k,1781)
    3688   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1008) * lu(k,1781)
    3689   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1000) * lu(k,1881)
    3690   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1001) * lu(k,1881)
    3691   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,1002) * lu(k,1881)
    3692   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1003) * lu(k,1881)
    3693   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1004) * lu(k,1881)
    3694   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1005) * lu(k,1881)
    3695   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1006) * lu(k,1881)
    3696   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1007) * lu(k,1881)
    3697   315224452 :          lu(k,1920) = - lu(k,1008) * lu(k,1881)
    3698   315224452 :          lu(k,1945) = lu(k,1945) - lu(k,1000) * lu(k,1943)
    3699   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,1001) * lu(k,1943)
    3700   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,1002) * lu(k,1943)
    3701   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1003) * lu(k,1943)
    3702   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1004) * lu(k,1943)
    3703   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1005) * lu(k,1943)
    3704   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1006) * lu(k,1943)
    3705   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1007) * lu(k,1943)
    3706   315224452 :          lu(k,1965) = - lu(k,1008) * lu(k,1943)
    3707   315224452 :          lu(k,2083) = lu(k,2083) - lu(k,1000) * lu(k,2082)
    3708   315224452 :          lu(k,2084) = lu(k,2084) - lu(k,1001) * lu(k,2082)
    3709   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,1002) * lu(k,2082)
    3710   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1003) * lu(k,2082)
    3711   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1004) * lu(k,2082)
    3712   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1005) * lu(k,2082)
    3713   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1006) * lu(k,2082)
    3714   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1007) * lu(k,2082)
    3715   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1008) * lu(k,2082)
    3716   315224452 :          lu(k,1018) = 1._r8 / lu(k,1018)
    3717   315224452 :          lu(k,1019) = lu(k,1019) * lu(k,1018)
    3718   315224452 :          lu(k,1020) = lu(k,1020) * lu(k,1018)
    3719   315224452 :          lu(k,1021) = lu(k,1021) * lu(k,1018)
    3720   315224452 :          lu(k,1022) = lu(k,1022) * lu(k,1018)
    3721   315224452 :          lu(k,1023) = lu(k,1023) * lu(k,1018)
    3722   315224452 :          lu(k,1024) = lu(k,1024) * lu(k,1018)
    3723   315224452 :          lu(k,1025) = lu(k,1025) * lu(k,1018)
    3724   315224452 :          lu(k,1026) = lu(k,1026) * lu(k,1018)
    3725   315224452 :          lu(k,1027) = lu(k,1027) * lu(k,1018)
    3726   315224452 :          lu(k,1028) = lu(k,1028) * lu(k,1018)
    3727   315224452 :          lu(k,1029) = lu(k,1029) * lu(k,1018)
    3728   315224452 :          lu(k,1030) = lu(k,1030) * lu(k,1018)
    3729   315224452 :          lu(k,1031) = lu(k,1031) * lu(k,1018)
    3730   315224452 :          lu(k,1032) = lu(k,1032) * lu(k,1018)
    3731   315224452 :          lu(k,1033) = lu(k,1033) * lu(k,1018)
    3732   315224452 :          lu(k,1034) = lu(k,1034) * lu(k,1018)
    3733   315224452 :          lu(k,1035) = lu(k,1035) * lu(k,1018)
    3734   315224452 :          lu(k,1036) = lu(k,1036) * lu(k,1018)
    3735   315224452 :          lu(k,1620) = lu(k,1620) - lu(k,1019) * lu(k,1619)
    3736   315224452 :          lu(k,1621) = lu(k,1621) - lu(k,1020) * lu(k,1619)
    3737   315224452 :          lu(k,1622) = lu(k,1622) - lu(k,1021) * lu(k,1619)
    3738   315224452 :          lu(k,1623) = lu(k,1623) - lu(k,1022) * lu(k,1619)
    3739   315224452 :          lu(k,1624) = lu(k,1624) - lu(k,1023) * lu(k,1619)
    3740   315224452 :          lu(k,1626) = lu(k,1626) - lu(k,1024) * lu(k,1619)
    3741   315224452 :          lu(k,1627) = lu(k,1627) - lu(k,1025) * lu(k,1619)
    3742   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1026) * lu(k,1619)
    3743   315224452 :          lu(k,1635) = lu(k,1635) - lu(k,1027) * lu(k,1619)
    3744   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1028) * lu(k,1619)
    3745   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1029) * lu(k,1619)
    3746   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1030) * lu(k,1619)
    3747   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1031) * lu(k,1619)
    3748   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1032) * lu(k,1619)
    3749   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1033) * lu(k,1619)
    3750   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1034) * lu(k,1619)
    3751   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1035) * lu(k,1619)
    3752   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1036) * lu(k,1619)
    3753   315224452 :          lu(k,1783) = lu(k,1783) - lu(k,1019) * lu(k,1782)
    3754   315224452 :          lu(k,1784) = lu(k,1784) - lu(k,1020) * lu(k,1782)
    3755   315224452 :          lu(k,1785) = lu(k,1785) - lu(k,1021) * lu(k,1782)
    3756   315224452 :          lu(k,1786) = lu(k,1786) - lu(k,1022) * lu(k,1782)
    3757   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,1023) * lu(k,1782)
    3758   315224452 :          lu(k,1789) = lu(k,1789) - lu(k,1024) * lu(k,1782)
    3759   315224452 :          lu(k,1790) = lu(k,1790) - lu(k,1025) * lu(k,1782)
    3760   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1026) * lu(k,1782)
    3761   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,1027) * lu(k,1782)
    3762   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1028) * lu(k,1782)
    3763   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1029) * lu(k,1782)
    3764   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1030) * lu(k,1782)
    3765   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1031) * lu(k,1782)
    3766   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1032) * lu(k,1782)
    3767   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1033) * lu(k,1782)
    3768   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1034) * lu(k,1782)
    3769   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1035) * lu(k,1782)
    3770   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1036) * lu(k,1782)
    3771   315224452 :          lu(k,2194) = lu(k,2194) - lu(k,1019) * lu(k,2193)
    3772   315224452 :          lu(k,2195) = lu(k,2195) - lu(k,1020) * lu(k,2193)
    3773   315224452 :          lu(k,2196) = lu(k,2196) - lu(k,1021) * lu(k,2193)
    3774   315224452 :          lu(k,2197) = lu(k,2197) - lu(k,1022) * lu(k,2193)
    3775   315224452 :          lu(k,2198) = lu(k,2198) - lu(k,1023) * lu(k,2193)
    3776   315224452 :          lu(k,2199) = lu(k,2199) - lu(k,1024) * lu(k,2193)
    3777   315224452 :          lu(k,2200) = lu(k,2200) - lu(k,1025) * lu(k,2193)
    3778   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1026) * lu(k,2193)
    3779   315224452 :          lu(k,2207) = lu(k,2207) - lu(k,1027) * lu(k,2193)
    3780   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,1028) * lu(k,2193)
    3781   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1029) * lu(k,2193)
    3782   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1030) * lu(k,2193)
    3783   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1031) * lu(k,2193)
    3784   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1032) * lu(k,2193)
    3785   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1033) * lu(k,2193)
    3786   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1034) * lu(k,2193)
    3787   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1035) * lu(k,2193)
    3788   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1036) * lu(k,2193)
    3789   315224452 :          lu(k,1042) = 1._r8 / lu(k,1042)
    3790   315224452 :          lu(k,1043) = lu(k,1043) * lu(k,1042)
    3791   315224452 :          lu(k,1044) = lu(k,1044) * lu(k,1042)
    3792   315224452 :          lu(k,1045) = lu(k,1045) * lu(k,1042)
    3793   315224452 :          lu(k,1046) = lu(k,1046) * lu(k,1042)
    3794   315224452 :          lu(k,1047) = lu(k,1047) * lu(k,1042)
    3795   315224452 :          lu(k,1048) = lu(k,1048) * lu(k,1042)
    3796   315224452 :          lu(k,1049) = lu(k,1049) * lu(k,1042)
    3797   315224452 :          lu(k,1050) = lu(k,1050) * lu(k,1042)
    3798   315224452 :          lu(k,1051) = lu(k,1051) * lu(k,1042)
    3799   315224452 :          lu(k,1052) = lu(k,1052) * lu(k,1042)
    3800   315224452 :          lu(k,1624) = lu(k,1624) - lu(k,1043) * lu(k,1620)
    3801   315224452 :          lu(k,1629) = lu(k,1629) - lu(k,1044) * lu(k,1620)
    3802   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1045) * lu(k,1620)
    3803   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1046) * lu(k,1620)
    3804   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1047) * lu(k,1620)
    3805   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1048) * lu(k,1620)
    3806   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1049) * lu(k,1620)
    3807   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1050) * lu(k,1620)
    3808   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1051) * lu(k,1620)
    3809   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1052) * lu(k,1620)
    3810   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,1043) * lu(k,1783)
    3811   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,1044) * lu(k,1783)
    3812   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1045) * lu(k,1783)
    3813   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1046) * lu(k,1783)
    3814   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1047) * lu(k,1783)
    3815   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1048) * lu(k,1783)
    3816   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1049) * lu(k,1783)
    3817   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1050) * lu(k,1783)
    3818   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1051) * lu(k,1783)
    3819   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1052) * lu(k,1783)
    3820   315224452 :          lu(k,1886) = lu(k,1886) - lu(k,1043) * lu(k,1882)
    3821   315224452 :          lu(k,1890) = lu(k,1890) - lu(k,1044) * lu(k,1882)
    3822   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1045) * lu(k,1882)
    3823   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,1046) * lu(k,1882)
    3824   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1047) * lu(k,1882)
    3825   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1048) * lu(k,1882)
    3826   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1049) * lu(k,1882)
    3827   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1050) * lu(k,1882)
    3828   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1051) * lu(k,1882)
    3829   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1052) * lu(k,1882)
    3830   315224452 :          lu(k,2198) = lu(k,2198) - lu(k,1043) * lu(k,2194)
    3831   315224452 :          lu(k,2202) = lu(k,2202) - lu(k,1044) * lu(k,2194)
    3832   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1045) * lu(k,2194)
    3833   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1046) * lu(k,2194)
    3834   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1047) * lu(k,2194)
    3835   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1048) * lu(k,2194)
    3836   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1049) * lu(k,2194)
    3837   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1050) * lu(k,2194)
    3838   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1051) * lu(k,2194)
    3839   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1052) * lu(k,2194)
    3840   315224452 :          lu(k,2330) = lu(k,2330) - lu(k,1043) * lu(k,2326)
    3841   315224452 :          lu(k,2333) = lu(k,2333) - lu(k,1044) * lu(k,2326)
    3842   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1045) * lu(k,2326)
    3843   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,1046) * lu(k,2326)
    3844   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1047) * lu(k,2326)
    3845   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1048) * lu(k,2326)
    3846   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1049) * lu(k,2326)
    3847   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1050) * lu(k,2326)
    3848   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1051) * lu(k,2326)
    3849   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1052) * lu(k,2326)
    3850   315224452 :          lu(k,1054) = 1._r8 / lu(k,1054)
    3851   315224452 :          lu(k,1055) = lu(k,1055) * lu(k,1054)
    3852   315224452 :          lu(k,1056) = lu(k,1056) * lu(k,1054)
    3853   315224452 :          lu(k,1057) = lu(k,1057) * lu(k,1054)
    3854   315224452 :          lu(k,1058) = lu(k,1058) * lu(k,1054)
    3855   315224452 :          lu(k,1091) = lu(k,1091) - lu(k,1055) * lu(k,1089)
    3856   315224452 :          lu(k,1094) = - lu(k,1056) * lu(k,1089)
    3857   315224452 :          lu(k,1095) = lu(k,1095) - lu(k,1057) * lu(k,1089)
    3858   315224452 :          lu(k,1100) = lu(k,1100) - lu(k,1058) * lu(k,1089)
    3859   315224452 :          lu(k,1165) = lu(k,1165) - lu(k,1055) * lu(k,1164)
    3860   315224452 :          lu(k,1167) = lu(k,1167) - lu(k,1056) * lu(k,1164)
    3861   315224452 :          lu(k,1168) = lu(k,1168) - lu(k,1057) * lu(k,1164)
    3862   315224452 :          lu(k,1170) = lu(k,1170) - lu(k,1058) * lu(k,1164)
    3863   315224452 :          lu(k,1230) = lu(k,1230) - lu(k,1055) * lu(k,1229)
    3864   315224452 :          lu(k,1236) = lu(k,1236) - lu(k,1056) * lu(k,1229)
    3865   315224452 :          lu(k,1238) = lu(k,1238) - lu(k,1057) * lu(k,1229)
    3866   315224452 :          lu(k,1242) = lu(k,1242) - lu(k,1058) * lu(k,1229)
    3867   315224452 :          lu(k,1324) = lu(k,1324) - lu(k,1055) * lu(k,1323)
    3868   315224452 :          lu(k,1337) = - lu(k,1056) * lu(k,1323)
    3869   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1057) * lu(k,1323)
    3870   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1058) * lu(k,1323)
    3871   315224452 :          lu(k,1416) = lu(k,1416) - lu(k,1055) * lu(k,1414)
    3872   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1056) * lu(k,1414)
    3873   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1057) * lu(k,1414)
    3874   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1058) * lu(k,1414)
    3875   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1055) * lu(k,1621)
    3876   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1056) * lu(k,1621)
    3877   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1057) * lu(k,1621)
    3878   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1058) * lu(k,1621)
    3879   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1055) * lu(k,1784)
    3880   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1056) * lu(k,1784)
    3881   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1057) * lu(k,1784)
    3882   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1058) * lu(k,1784)
    3883   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1055) * lu(k,1883)
    3884   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1056) * lu(k,1883)
    3885   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1057) * lu(k,1883)
    3886   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1058) * lu(k,1883)
    3887   315224452 :          lu(k,1945) = lu(k,1945) - lu(k,1055) * lu(k,1944)
    3888   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,1056) * lu(k,1944)
    3889   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1057) * lu(k,1944)
    3890   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1058) * lu(k,1944)
    3891   315224452 :          lu(k,2147) = lu(k,2147) - lu(k,1055) * lu(k,2144)
    3892   315224452 :          lu(k,2152) = lu(k,2152) - lu(k,1056) * lu(k,2144)
    3893   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1057) * lu(k,2144)
    3894   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1058) * lu(k,2144)
    3895   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1055) * lu(k,2195)
    3896   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1056) * lu(k,2195)
    3897   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1057) * lu(k,2195)
    3898   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1058) * lu(k,2195)
    3899   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,1055) * lu(k,2327)
    3900   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1056) * lu(k,2327)
    3901   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1057) * lu(k,2327)
    3902   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1058) * lu(k,2327)
    3903   315224452 :          lu(k,2389) = lu(k,2389) - lu(k,1055) * lu(k,2381)
    3904   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1056) * lu(k,2381)
    3905   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1057) * lu(k,2381)
    3906   325174377 :          lu(k,2420) = lu(k,2420) - lu(k,1058) * lu(k,2381)
    3907             :       end do
    3908     9949925 :       end subroutine lu_fac21
    3909     9949925 :       subroutine lu_fac22( avec_len, lu )
    3910             :       use chem_mods, only : nzcnt
    3911             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3912             :       implicit none
    3913             : !-----------------------------------------------------------------------
    3914             : ! ... dummy args
    3915             : !-----------------------------------------------------------------------
    3916             :       integer, intent(in) :: avec_len
    3917             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3918             : !-----------------------------------------------------------------------
    3919             : ! ... local variables
    3920             : !-----------------------------------------------------------------------
    3921             :       integer :: k
    3922   325174377 :       do k = 1,avec_len
    3923   315224452 :          lu(k,1062) = 1._r8 / lu(k,1062)
    3924   315224452 :          lu(k,1063) = lu(k,1063) * lu(k,1062)
    3925   315224452 :          lu(k,1064) = lu(k,1064) * lu(k,1062)
    3926   315224452 :          lu(k,1065) = lu(k,1065) * lu(k,1062)
    3927   315224452 :          lu(k,1066) = lu(k,1066) * lu(k,1062)
    3928   315224452 :          lu(k,1067) = lu(k,1067) * lu(k,1062)
    3929   315224452 :          lu(k,1068) = lu(k,1068) * lu(k,1062)
    3930   315224452 :          lu(k,1069) = lu(k,1069) * lu(k,1062)
    3931   315224452 :          lu(k,1070) = lu(k,1070) * lu(k,1062)
    3932   315224452 :          lu(k,1071) = lu(k,1071) * lu(k,1062)
    3933   315224452 :          lu(k,1623) = lu(k,1623) - lu(k,1063) * lu(k,1622)
    3934   315224452 :          lu(k,1624) = lu(k,1624) - lu(k,1064) * lu(k,1622)
    3935   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1065) * lu(k,1622)
    3936   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1066) * lu(k,1622)
    3937   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1067) * lu(k,1622)
    3938   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1068) * lu(k,1622)
    3939   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1069) * lu(k,1622)
    3940   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1070) * lu(k,1622)
    3941   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1071) * lu(k,1622)
    3942   315224452 :          lu(k,1786) = lu(k,1786) - lu(k,1063) * lu(k,1785)
    3943   315224452 :          lu(k,1787) = lu(k,1787) - lu(k,1064) * lu(k,1785)
    3944   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1065) * lu(k,1785)
    3945   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1066) * lu(k,1785)
    3946   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1067) * lu(k,1785)
    3947   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1068) * lu(k,1785)
    3948   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1069) * lu(k,1785)
    3949   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1070) * lu(k,1785)
    3950   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1071) * lu(k,1785)
    3951   315224452 :          lu(k,1885) = lu(k,1885) - lu(k,1063) * lu(k,1884)
    3952   315224452 :          lu(k,1886) = lu(k,1886) - lu(k,1064) * lu(k,1884)
    3953   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1065) * lu(k,1884)
    3954   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1066) * lu(k,1884)
    3955   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1067) * lu(k,1884)
    3956   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1068) * lu(k,1884)
    3957   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1069) * lu(k,1884)
    3958   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1070) * lu(k,1884)
    3959   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1071) * lu(k,1884)
    3960   315224452 :          lu(k,2197) = lu(k,2197) - lu(k,1063) * lu(k,2196)
    3961   315224452 :          lu(k,2198) = lu(k,2198) - lu(k,1064) * lu(k,2196)
    3962   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1065) * lu(k,2196)
    3963   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1066) * lu(k,2196)
    3964   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1067) * lu(k,2196)
    3965   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1068) * lu(k,2196)
    3966   315224452 :          lu(k,2229) = - lu(k,1069) * lu(k,2196)
    3967   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1070) * lu(k,2196)
    3968   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1071) * lu(k,2196)
    3969   315224452 :          lu(k,2329) = lu(k,2329) - lu(k,1063) * lu(k,2328)
    3970   315224452 :          lu(k,2330) = lu(k,2330) - lu(k,1064) * lu(k,2328)
    3971   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1065) * lu(k,2328)
    3972   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1066) * lu(k,2328)
    3973   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1067) * lu(k,2328)
    3974   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1068) * lu(k,2328)
    3975   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1069) * lu(k,2328)
    3976   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1070) * lu(k,2328)
    3977   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1071) * lu(k,2328)
    3978   315224452 :          lu(k,2383) = lu(k,2383) - lu(k,1063) * lu(k,2382)
    3979   315224452 :          lu(k,2384) = lu(k,2384) - lu(k,1064) * lu(k,2382)
    3980   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1065) * lu(k,2382)
    3981   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1066) * lu(k,2382)
    3982   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1067) * lu(k,2382)
    3983   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1068) * lu(k,2382)
    3984   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1069) * lu(k,2382)
    3985   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1070) * lu(k,2382)
    3986   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1071) * lu(k,2382)
    3987   315224452 :          lu(k,1072) = 1._r8 / lu(k,1072)
    3988   315224452 :          lu(k,1073) = lu(k,1073) * lu(k,1072)
    3989   315224452 :          lu(k,1074) = lu(k,1074) * lu(k,1072)
    3990   315224452 :          lu(k,1075) = lu(k,1075) * lu(k,1072)
    3991   315224452 :          lu(k,1076) = lu(k,1076) * lu(k,1072)
    3992   315224452 :          lu(k,1077) = lu(k,1077) * lu(k,1072)
    3993   315224452 :          lu(k,1078) = lu(k,1078) * lu(k,1072)
    3994   315224452 :          lu(k,1079) = lu(k,1079) * lu(k,1072)
    3995   315224452 :          lu(k,1106) = lu(k,1106) - lu(k,1073) * lu(k,1105)
    3996   315224452 :          lu(k,1107) = - lu(k,1074) * lu(k,1105)
    3997   315224452 :          lu(k,1108) = - lu(k,1075) * lu(k,1105)
    3998   315224452 :          lu(k,1109) = - lu(k,1076) * lu(k,1105)
    3999   315224452 :          lu(k,1110) = lu(k,1110) - lu(k,1077) * lu(k,1105)
    4000   315224452 :          lu(k,1111) = lu(k,1111) - lu(k,1078) * lu(k,1105)
    4001   315224452 :          lu(k,1116) = lu(k,1116) - lu(k,1079) * lu(k,1105)
    4002   315224452 :          lu(k,1626) = lu(k,1626) - lu(k,1073) * lu(k,1623)
    4003   315224452 :          lu(k,1627) = lu(k,1627) - lu(k,1074) * lu(k,1623)
    4004   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1075) * lu(k,1623)
    4005   315224452 :          lu(k,1632) = lu(k,1632) - lu(k,1076) * lu(k,1623)
    4006   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1077) * lu(k,1623)
    4007   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1078) * lu(k,1623)
    4008   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1079) * lu(k,1623)
    4009   315224452 :          lu(k,1789) = lu(k,1789) - lu(k,1073) * lu(k,1786)
    4010   315224452 :          lu(k,1790) = lu(k,1790) - lu(k,1074) * lu(k,1786)
    4011   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1075) * lu(k,1786)
    4012   315224452 :          lu(k,1795) = lu(k,1795) - lu(k,1076) * lu(k,1786)
    4013   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1077) * lu(k,1786)
    4014   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1078) * lu(k,1786)
    4015   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1079) * lu(k,1786)
    4016   315224452 :          lu(k,1888) = lu(k,1888) - lu(k,1073) * lu(k,1885)
    4017   315224452 :          lu(k,1889) = lu(k,1889) - lu(k,1074) * lu(k,1885)
    4018   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1075) * lu(k,1885)
    4019   315224452 :          lu(k,1893) = lu(k,1893) - lu(k,1076) * lu(k,1885)
    4020   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1077) * lu(k,1885)
    4021   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1078) * lu(k,1885)
    4022   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1079) * lu(k,1885)
    4023   315224452 :          lu(k,2199) = lu(k,2199) - lu(k,1073) * lu(k,2197)
    4024   315224452 :          lu(k,2200) = lu(k,2200) - lu(k,1074) * lu(k,2197)
    4025   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1075) * lu(k,2197)
    4026   315224452 :          lu(k,2205) = - lu(k,1076) * lu(k,2197)
    4027   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1077) * lu(k,2197)
    4028   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1078) * lu(k,2197)
    4029   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1079) * lu(k,2197)
    4030   315224452 :          lu(k,2331) = lu(k,2331) - lu(k,1073) * lu(k,2329)
    4031   315224452 :          lu(k,2332) = lu(k,2332) - lu(k,1074) * lu(k,2329)
    4032   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,1075) * lu(k,2329)
    4033   315224452 :          lu(k,2336) = lu(k,2336) - lu(k,1076) * lu(k,2329)
    4034   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1077) * lu(k,2329)
    4035   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1078) * lu(k,2329)
    4036   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1079) * lu(k,2329)
    4037   315224452 :          lu(k,2386) = lu(k,2386) - lu(k,1073) * lu(k,2383)
    4038   315224452 :          lu(k,2387) = lu(k,2387) - lu(k,1074) * lu(k,2383)
    4039   315224452 :          lu(k,2389) = lu(k,2389) - lu(k,1075) * lu(k,2383)
    4040   315224452 :          lu(k,2391) = lu(k,2391) - lu(k,1076) * lu(k,2383)
    4041   315224452 :          lu(k,2408) = - lu(k,1077) * lu(k,2383)
    4042   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1078) * lu(k,2383)
    4043   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1079) * lu(k,2383)
    4044   315224452 :          lu(k,1080) = 1._r8 / lu(k,1080)
    4045   315224452 :          lu(k,1081) = lu(k,1081) * lu(k,1080)
    4046   315224452 :          lu(k,1082) = lu(k,1082) * lu(k,1080)
    4047   315224452 :          lu(k,1083) = lu(k,1083) * lu(k,1080)
    4048   315224452 :          lu(k,1084) = lu(k,1084) * lu(k,1080)
    4049   315224452 :          lu(k,1085) = lu(k,1085) * lu(k,1080)
    4050   315224452 :          lu(k,1121) = lu(k,1121) - lu(k,1081) * lu(k,1118)
    4051   315224452 :          lu(k,1122) = lu(k,1122) - lu(k,1082) * lu(k,1118)
    4052   315224452 :          lu(k,1124) = lu(k,1124) - lu(k,1083) * lu(k,1118)
    4053   315224452 :          lu(k,1127) = - lu(k,1084) * lu(k,1118)
    4054   315224452 :          lu(k,1128) = - lu(k,1085) * lu(k,1118)
    4055   315224452 :          lu(k,1179) = - lu(k,1081) * lu(k,1174)
    4056   315224452 :          lu(k,1180) = - lu(k,1082) * lu(k,1174)
    4057   315224452 :          lu(k,1182) = lu(k,1182) - lu(k,1083) * lu(k,1174)
    4058   315224452 :          lu(k,1188) = lu(k,1188) - lu(k,1084) * lu(k,1174)
    4059   315224452 :          lu(k,1189) = - lu(k,1085) * lu(k,1174)
    4060   315224452 :          lu(k,1197) = - lu(k,1081) * lu(k,1191)
    4061   315224452 :          lu(k,1198) = lu(k,1198) - lu(k,1082) * lu(k,1191)
    4062   315224452 :          lu(k,1201) = lu(k,1201) - lu(k,1083) * lu(k,1191)
    4063   315224452 :          lu(k,1206) = - lu(k,1084) * lu(k,1191)
    4064   315224452 :          lu(k,1207) = - lu(k,1085) * lu(k,1191)
    4065   315224452 :          lu(k,1635) = lu(k,1635) - lu(k,1081) * lu(k,1624)
    4066   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1082) * lu(k,1624)
    4067   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1083) * lu(k,1624)
    4068   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1084) * lu(k,1624)
    4069   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1085) * lu(k,1624)
    4070   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,1081) * lu(k,1787)
    4071   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1082) * lu(k,1787)
    4072   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1083) * lu(k,1787)
    4073   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1084) * lu(k,1787)
    4074   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1085) * lu(k,1787)
    4075   315224452 :          lu(k,1896) = lu(k,1896) - lu(k,1081) * lu(k,1886)
    4076   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1082) * lu(k,1886)
    4077   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1083) * lu(k,1886)
    4078   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1084) * lu(k,1886)
    4079   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1085) * lu(k,1886)
    4080   315224452 :          lu(k,2149) = - lu(k,1081) * lu(k,2145)
    4081   315224452 :          lu(k,2151) = - lu(k,1082) * lu(k,2145)
    4082   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1083) * lu(k,2145)
    4083   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1084) * lu(k,2145)
    4084   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1085) * lu(k,2145)
    4085   315224452 :          lu(k,2207) = lu(k,2207) - lu(k,1081) * lu(k,2198)
    4086   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1082) * lu(k,2198)
    4087   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1083) * lu(k,2198)
    4088   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1084) * lu(k,2198)
    4089   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1085) * lu(k,2198)
    4090   315224452 :          lu(k,2338) = lu(k,2338) - lu(k,1081) * lu(k,2330)
    4091   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1082) * lu(k,2330)
    4092   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1083) * lu(k,2330)
    4093   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1084) * lu(k,2330)
    4094   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1085) * lu(k,2330)
    4095   315224452 :          lu(k,2393) = lu(k,2393) - lu(k,1081) * lu(k,2384)
    4096   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1082) * lu(k,2384)
    4097   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1083) * lu(k,2384)
    4098   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1084) * lu(k,2384)
    4099   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1085) * lu(k,2384)
    4100   315224452 :          lu(k,1090) = 1._r8 / lu(k,1090)
    4101   315224452 :          lu(k,1091) = lu(k,1091) * lu(k,1090)
    4102   315224452 :          lu(k,1092) = lu(k,1092) * lu(k,1090)
    4103   315224452 :          lu(k,1093) = lu(k,1093) * lu(k,1090)
    4104   315224452 :          lu(k,1094) = lu(k,1094) * lu(k,1090)
    4105   315224452 :          lu(k,1095) = lu(k,1095) * lu(k,1090)
    4106   315224452 :          lu(k,1096) = lu(k,1096) * lu(k,1090)
    4107   315224452 :          lu(k,1097) = lu(k,1097) * lu(k,1090)
    4108   315224452 :          lu(k,1098) = lu(k,1098) * lu(k,1090)
    4109   315224452 :          lu(k,1099) = lu(k,1099) * lu(k,1090)
    4110   315224452 :          lu(k,1100) = lu(k,1100) * lu(k,1090)
    4111   315224452 :          lu(k,1101) = lu(k,1101) * lu(k,1090)
    4112   315224452 :          lu(k,1250) = - lu(k,1091) * lu(k,1249)
    4113   315224452 :          lu(k,1255) = lu(k,1255) - lu(k,1092) * lu(k,1249)
    4114   315224452 :          lu(k,1257) = lu(k,1257) - lu(k,1093) * lu(k,1249)
    4115   315224452 :          lu(k,1258) = - lu(k,1094) * lu(k,1249)
    4116   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,1095) * lu(k,1249)
    4117   315224452 :          lu(k,1261) = lu(k,1261) - lu(k,1096) * lu(k,1249)
    4118   315224452 :          lu(k,1262) = lu(k,1262) - lu(k,1097) * lu(k,1249)
    4119   315224452 :          lu(k,1263) = lu(k,1263) - lu(k,1098) * lu(k,1249)
    4120   315224452 :          lu(k,1264) = lu(k,1264) - lu(k,1099) * lu(k,1249)
    4121   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,1100) * lu(k,1249)
    4122   315224452 :          lu(k,1266) = lu(k,1266) - lu(k,1101) * lu(k,1249)
    4123   315224452 :          lu(k,1416) = lu(k,1416) - lu(k,1091) * lu(k,1415)
    4124   315224452 :          lu(k,1422) = lu(k,1422) - lu(k,1092) * lu(k,1415)
    4125   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1093) * lu(k,1415)
    4126   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1094) * lu(k,1415)
    4127   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1095) * lu(k,1415)
    4128   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1096) * lu(k,1415)
    4129   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1097) * lu(k,1415)
    4130   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1098) * lu(k,1415)
    4131   315224452 :          lu(k,1436) = - lu(k,1099) * lu(k,1415)
    4132   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1100) * lu(k,1415)
    4133   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1101) * lu(k,1415)
    4134   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1091) * lu(k,1625)
    4135   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1092) * lu(k,1625)
    4136   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1093) * lu(k,1625)
    4137   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1094) * lu(k,1625)
    4138   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1095) * lu(k,1625)
    4139   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1096) * lu(k,1625)
    4140   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1097) * lu(k,1625)
    4141   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1098) * lu(k,1625)
    4142   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1099) * lu(k,1625)
    4143   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1100) * lu(k,1625)
    4144   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1101) * lu(k,1625)
    4145   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1091) * lu(k,1788)
    4146   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1092) * lu(k,1788)
    4147   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1093) * lu(k,1788)
    4148   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1094) * lu(k,1788)
    4149   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1095) * lu(k,1788)
    4150   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1096) * lu(k,1788)
    4151   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1097) * lu(k,1788)
    4152   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1098) * lu(k,1788)
    4153   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1099) * lu(k,1788)
    4154   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1100) * lu(k,1788)
    4155   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1101) * lu(k,1788)
    4156   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1091) * lu(k,1887)
    4157   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,1092) * lu(k,1887)
    4158   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1093) * lu(k,1887)
    4159   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1094) * lu(k,1887)
    4160   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1095) * lu(k,1887)
    4161   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1096) * lu(k,1887)
    4162   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1097) * lu(k,1887)
    4163   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1098) * lu(k,1887)
    4164   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1099) * lu(k,1887)
    4165   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1100) * lu(k,1887)
    4166   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1101) * lu(k,1887)
    4167   315224452 :          lu(k,2389) = lu(k,2389) - lu(k,1091) * lu(k,2385)
    4168   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,1092) * lu(k,2385)
    4169   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1093) * lu(k,2385)
    4170   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1094) * lu(k,2385)
    4171   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1095) * lu(k,2385)
    4172   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1096) * lu(k,2385)
    4173   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1097) * lu(k,2385)
    4174   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1098) * lu(k,2385)
    4175   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1099) * lu(k,2385)
    4176   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1100) * lu(k,2385)
    4177   325174377 :          lu(k,2421) = lu(k,2421) - lu(k,1101) * lu(k,2385)
    4178             :       end do
    4179     9949925 :       end subroutine lu_fac22
    4180     9949925 :       subroutine lu_fac23( avec_len, lu )
    4181             :       use chem_mods, only : nzcnt
    4182             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4183             :       implicit none
    4184             : !-----------------------------------------------------------------------
    4185             : ! ... dummy args
    4186             : !-----------------------------------------------------------------------
    4187             :       integer, intent(in) :: avec_len
    4188             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4189             : !-----------------------------------------------------------------------
    4190             : ! ... local variables
    4191             : !-----------------------------------------------------------------------
    4192             :       integer :: k
    4193   325174377 :       do k = 1,avec_len
    4194   315224452 :          lu(k,1106) = 1._r8 / lu(k,1106)
    4195   315224452 :          lu(k,1107) = lu(k,1107) * lu(k,1106)
    4196   315224452 :          lu(k,1108) = lu(k,1108) * lu(k,1106)
    4197   315224452 :          lu(k,1109) = lu(k,1109) * lu(k,1106)
    4198   315224452 :          lu(k,1110) = lu(k,1110) * lu(k,1106)
    4199   315224452 :          lu(k,1111) = lu(k,1111) * lu(k,1106)
    4200   315224452 :          lu(k,1112) = lu(k,1112) * lu(k,1106)
    4201   315224452 :          lu(k,1113) = lu(k,1113) * lu(k,1106)
    4202   315224452 :          lu(k,1114) = lu(k,1114) * lu(k,1106)
    4203   315224452 :          lu(k,1115) = lu(k,1115) * lu(k,1106)
    4204   315224452 :          lu(k,1116) = lu(k,1116) * lu(k,1106)
    4205   315224452 :          lu(k,1117) = lu(k,1117) * lu(k,1106)
    4206   315224452 :          lu(k,1627) = lu(k,1627) - lu(k,1107) * lu(k,1626)
    4207   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1108) * lu(k,1626)
    4208   315224452 :          lu(k,1632) = lu(k,1632) - lu(k,1109) * lu(k,1626)
    4209   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1110) * lu(k,1626)
    4210   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1111) * lu(k,1626)
    4211   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1112) * lu(k,1626)
    4212   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1113) * lu(k,1626)
    4213   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1114) * lu(k,1626)
    4214   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1115) * lu(k,1626)
    4215   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1116) * lu(k,1626)
    4216   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1117) * lu(k,1626)
    4217   315224452 :          lu(k,1790) = lu(k,1790) - lu(k,1107) * lu(k,1789)
    4218   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1108) * lu(k,1789)
    4219   315224452 :          lu(k,1795) = lu(k,1795) - lu(k,1109) * lu(k,1789)
    4220   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1110) * lu(k,1789)
    4221   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1111) * lu(k,1789)
    4222   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1112) * lu(k,1789)
    4223   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1113) * lu(k,1789)
    4224   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1114) * lu(k,1789)
    4225   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1115) * lu(k,1789)
    4226   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1116) * lu(k,1789)
    4227   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1117) * lu(k,1789)
    4228   315224452 :          lu(k,1889) = lu(k,1889) - lu(k,1107) * lu(k,1888)
    4229   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1108) * lu(k,1888)
    4230   315224452 :          lu(k,1893) = lu(k,1893) - lu(k,1109) * lu(k,1888)
    4231   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1110) * lu(k,1888)
    4232   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1111) * lu(k,1888)
    4233   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1112) * lu(k,1888)
    4234   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1113) * lu(k,1888)
    4235   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1114) * lu(k,1888)
    4236   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1115) * lu(k,1888)
    4237   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1116) * lu(k,1888)
    4238   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1117) * lu(k,1888)
    4239   315224452 :          lu(k,2200) = lu(k,2200) - lu(k,1107) * lu(k,2199)
    4240   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1108) * lu(k,2199)
    4241   315224452 :          lu(k,2205) = lu(k,2205) - lu(k,1109) * lu(k,2199)
    4242   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1110) * lu(k,2199)
    4243   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1111) * lu(k,2199)
    4244   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1112) * lu(k,2199)
    4245   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1113) * lu(k,2199)
    4246   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1114) * lu(k,2199)
    4247   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1115) * lu(k,2199)
    4248   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1116) * lu(k,2199)
    4249   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1117) * lu(k,2199)
    4250   315224452 :          lu(k,2332) = lu(k,2332) - lu(k,1107) * lu(k,2331)
    4251   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,1108) * lu(k,2331)
    4252   315224452 :          lu(k,2336) = lu(k,2336) - lu(k,1109) * lu(k,2331)
    4253   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1110) * lu(k,2331)
    4254   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1111) * lu(k,2331)
    4255   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1112) * lu(k,2331)
    4256   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1113) * lu(k,2331)
    4257   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1114) * lu(k,2331)
    4258   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1115) * lu(k,2331)
    4259   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1116) * lu(k,2331)
    4260   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1117) * lu(k,2331)
    4261   315224452 :          lu(k,2387) = lu(k,2387) - lu(k,1107) * lu(k,2386)
    4262   315224452 :          lu(k,2389) = lu(k,2389) - lu(k,1108) * lu(k,2386)
    4263   315224452 :          lu(k,2391) = lu(k,2391) - lu(k,1109) * lu(k,2386)
    4264   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1110) * lu(k,2386)
    4265   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1111) * lu(k,2386)
    4266   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1112) * lu(k,2386)
    4267   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1113) * lu(k,2386)
    4268   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1114) * lu(k,2386)
    4269   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1115) * lu(k,2386)
    4270   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1116) * lu(k,2386)
    4271   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1117) * lu(k,2386)
    4272   315224452 :          lu(k,1119) = 1._r8 / lu(k,1119)
    4273   315224452 :          lu(k,1120) = lu(k,1120) * lu(k,1119)
    4274   315224452 :          lu(k,1121) = lu(k,1121) * lu(k,1119)
    4275   315224452 :          lu(k,1122) = lu(k,1122) * lu(k,1119)
    4276   315224452 :          lu(k,1123) = lu(k,1123) * lu(k,1119)
    4277   315224452 :          lu(k,1124) = lu(k,1124) * lu(k,1119)
    4278   315224452 :          lu(k,1125) = lu(k,1125) * lu(k,1119)
    4279   315224452 :          lu(k,1126) = lu(k,1126) * lu(k,1119)
    4280   315224452 :          lu(k,1127) = lu(k,1127) * lu(k,1119)
    4281   315224452 :          lu(k,1128) = lu(k,1128) * lu(k,1119)
    4282   315224452 :          lu(k,1176) = lu(k,1176) - lu(k,1120) * lu(k,1175)
    4283   315224452 :          lu(k,1179) = lu(k,1179) - lu(k,1121) * lu(k,1175)
    4284   315224452 :          lu(k,1180) = lu(k,1180) - lu(k,1122) * lu(k,1175)
    4285   315224452 :          lu(k,1181) = lu(k,1181) - lu(k,1123) * lu(k,1175)
    4286   315224452 :          lu(k,1182) = lu(k,1182) - lu(k,1124) * lu(k,1175)
    4287   315224452 :          lu(k,1185) = lu(k,1185) - lu(k,1125) * lu(k,1175)
    4288   315224452 :          lu(k,1187) = lu(k,1187) - lu(k,1126) * lu(k,1175)
    4289   315224452 :          lu(k,1188) = lu(k,1188) - lu(k,1127) * lu(k,1175)
    4290   315224452 :          lu(k,1189) = lu(k,1189) - lu(k,1128) * lu(k,1175)
    4291   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1120) * lu(k,1627)
    4292   315224452 :          lu(k,1635) = lu(k,1635) - lu(k,1121) * lu(k,1627)
    4293   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1122) * lu(k,1627)
    4294   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1123) * lu(k,1627)
    4295   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1124) * lu(k,1627)
    4296   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1125) * lu(k,1627)
    4297   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1126) * lu(k,1627)
    4298   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1127) * lu(k,1627)
    4299   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1128) * lu(k,1627)
    4300   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1120) * lu(k,1790)
    4301   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,1121) * lu(k,1790)
    4302   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1122) * lu(k,1790)
    4303   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1123) * lu(k,1790)
    4304   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1124) * lu(k,1790)
    4305   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1125) * lu(k,1790)
    4306   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1126) * lu(k,1790)
    4307   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1127) * lu(k,1790)
    4308   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1128) * lu(k,1790)
    4309   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1120) * lu(k,1889)
    4310   315224452 :          lu(k,1896) = lu(k,1896) - lu(k,1121) * lu(k,1889)
    4311   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1122) * lu(k,1889)
    4312   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1123) * lu(k,1889)
    4313   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1124) * lu(k,1889)
    4314   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1125) * lu(k,1889)
    4315   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1126) * lu(k,1889)
    4316   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1127) * lu(k,1889)
    4317   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1128) * lu(k,1889)
    4318   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1120) * lu(k,2200)
    4319   315224452 :          lu(k,2207) = lu(k,2207) - lu(k,1121) * lu(k,2200)
    4320   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1122) * lu(k,2200)
    4321   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1123) * lu(k,2200)
    4322   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1124) * lu(k,2200)
    4323   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1125) * lu(k,2200)
    4324   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1126) * lu(k,2200)
    4325   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1127) * lu(k,2200)
    4326   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1128) * lu(k,2200)
    4327   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,1120) * lu(k,2332)
    4328   315224452 :          lu(k,2338) = lu(k,2338) - lu(k,1121) * lu(k,2332)
    4329   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1122) * lu(k,2332)
    4330   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1123) * lu(k,2332)
    4331   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1124) * lu(k,2332)
    4332   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1125) * lu(k,2332)
    4333   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1126) * lu(k,2332)
    4334   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1127) * lu(k,2332)
    4335   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1128) * lu(k,2332)
    4336   315224452 :          lu(k,2389) = lu(k,2389) - lu(k,1120) * lu(k,2387)
    4337   315224452 :          lu(k,2393) = lu(k,2393) - lu(k,1121) * lu(k,2387)
    4338   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1122) * lu(k,2387)
    4339   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1123) * lu(k,2387)
    4340   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1124) * lu(k,2387)
    4341   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1125) * lu(k,2387)
    4342   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1126) * lu(k,2387)
    4343   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1127) * lu(k,2387)
    4344   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1128) * lu(k,2387)
    4345   315224452 :          lu(k,1133) = 1._r8 / lu(k,1133)
    4346   315224452 :          lu(k,1134) = lu(k,1134) * lu(k,1133)
    4347   315224452 :          lu(k,1135) = lu(k,1135) * lu(k,1133)
    4348   315224452 :          lu(k,1136) = lu(k,1136) * lu(k,1133)
    4349   315224452 :          lu(k,1137) = lu(k,1137) * lu(k,1133)
    4350   315224452 :          lu(k,1138) = lu(k,1138) * lu(k,1133)
    4351   315224452 :          lu(k,1139) = lu(k,1139) * lu(k,1133)
    4352   315224452 :          lu(k,1140) = lu(k,1140) * lu(k,1133)
    4353   315224452 :          lu(k,1141) = lu(k,1141) * lu(k,1133)
    4354   315224452 :          lu(k,1142) = lu(k,1142) * lu(k,1133)
    4355   315224452 :          lu(k,1143) = lu(k,1143) * lu(k,1133)
    4356   315224452 :          lu(k,1144) = lu(k,1144) * lu(k,1133)
    4357   315224452 :          lu(k,1145) = lu(k,1145) * lu(k,1133)
    4358   315224452 :          lu(k,1146) = lu(k,1146) * lu(k,1133)
    4359   315224452 :          lu(k,1147) = lu(k,1147) * lu(k,1133)
    4360   315224452 :          lu(k,1148) = lu(k,1148) * lu(k,1133)
    4361   315224452 :          lu(k,1149) = lu(k,1149) * lu(k,1133)
    4362   315224452 :          lu(k,1150) = lu(k,1150) * lu(k,1133)
    4363   315224452 :          lu(k,1371) = lu(k,1371) - lu(k,1134) * lu(k,1370)
    4364   315224452 :          lu(k,1372) = lu(k,1372) - lu(k,1135) * lu(k,1370)
    4365   315224452 :          lu(k,1373) = - lu(k,1136) * lu(k,1370)
    4366   315224452 :          lu(k,1374) = lu(k,1374) - lu(k,1137) * lu(k,1370)
    4367   315224452 :          lu(k,1378) = lu(k,1378) - lu(k,1138) * lu(k,1370)
    4368   315224452 :          lu(k,1379) = lu(k,1379) - lu(k,1139) * lu(k,1370)
    4369   315224452 :          lu(k,1380) = - lu(k,1140) * lu(k,1370)
    4370   315224452 :          lu(k,1381) = - lu(k,1141) * lu(k,1370)
    4371   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,1142) * lu(k,1370)
    4372   315224452 :          lu(k,1383) = - lu(k,1143) * lu(k,1370)
    4373   315224452 :          lu(k,1384) = - lu(k,1144) * lu(k,1370)
    4374   315224452 :          lu(k,1385) = lu(k,1385) - lu(k,1145) * lu(k,1370)
    4375   315224452 :          lu(k,1387) = lu(k,1387) - lu(k,1146) * lu(k,1370)
    4376   315224452 :          lu(k,1388) = - lu(k,1147) * lu(k,1370)
    4377   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,1148) * lu(k,1370)
    4378   315224452 :          lu(k,1390) = lu(k,1390) - lu(k,1149) * lu(k,1370)
    4379   315224452 :          lu(k,1391) = lu(k,1391) - lu(k,1150) * lu(k,1370)
    4380   315224452 :          lu(k,1629) = lu(k,1629) - lu(k,1134) * lu(k,1628)
    4381   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1135) * lu(k,1628)
    4382   315224452 :          lu(k,1634) = lu(k,1634) - lu(k,1136) * lu(k,1628)
    4383   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1137) * lu(k,1628)
    4384   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1138) * lu(k,1628)
    4385   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1139) * lu(k,1628)
    4386   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1140) * lu(k,1628)
    4387   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1141) * lu(k,1628)
    4388   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1142) * lu(k,1628)
    4389   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1143) * lu(k,1628)
    4390   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1144) * lu(k,1628)
    4391   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1145) * lu(k,1628)
    4392   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1146) * lu(k,1628)
    4393   315224452 :          lu(k,1663) = - lu(k,1147) * lu(k,1628)
    4394   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1148) * lu(k,1628)
    4395   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1149) * lu(k,1628)
    4396   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1150) * lu(k,1628)
    4397   315224452 :          lu(k,1792) = lu(k,1792) - lu(k,1134) * lu(k,1791)
    4398   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1135) * lu(k,1791)
    4399   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,1136) * lu(k,1791)
    4400   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1137) * lu(k,1791)
    4401   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1138) * lu(k,1791)
    4402   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1139) * lu(k,1791)
    4403   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1140) * lu(k,1791)
    4404   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1141) * lu(k,1791)
    4405   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1142) * lu(k,1791)
    4406   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1143) * lu(k,1791)
    4407   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1144) * lu(k,1791)
    4408   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1145) * lu(k,1791)
    4409   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1146) * lu(k,1791)
    4410   315224452 :          lu(k,1828) = lu(k,1828) - lu(k,1147) * lu(k,1791)
    4411   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1148) * lu(k,1791)
    4412   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1149) * lu(k,1791)
    4413   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1150) * lu(k,1791)
    4414   315224452 :          lu(k,2202) = lu(k,2202) - lu(k,1134) * lu(k,2201)
    4415   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1135) * lu(k,2201)
    4416   315224452 :          lu(k,2206) = - lu(k,1136) * lu(k,2201)
    4417   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,1137) * lu(k,2201)
    4418   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1138) * lu(k,2201)
    4419   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1139) * lu(k,2201)
    4420   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1140) * lu(k,2201)
    4421   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1141) * lu(k,2201)
    4422   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1142) * lu(k,2201)
    4423   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1143) * lu(k,2201)
    4424   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1144) * lu(k,2201)
    4425   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1145) * lu(k,2201)
    4426   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1146) * lu(k,2201)
    4427   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1147) * lu(k,2201)
    4428   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1148) * lu(k,2201)
    4429   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1149) * lu(k,2201)
    4430   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1150) * lu(k,2201)
    4431   315224452 :          lu(k,1151) = 1._r8 / lu(k,1151)
    4432   315224452 :          lu(k,1152) = lu(k,1152) * lu(k,1151)
    4433   315224452 :          lu(k,1153) = lu(k,1153) * lu(k,1151)
    4434   315224452 :          lu(k,1154) = lu(k,1154) * lu(k,1151)
    4435   315224452 :          lu(k,1155) = lu(k,1155) * lu(k,1151)
    4436   315224452 :          lu(k,1156) = lu(k,1156) * lu(k,1151)
    4437   315224452 :          lu(k,1157) = lu(k,1157) * lu(k,1151)
    4438   315224452 :          lu(k,1158) = lu(k,1158) * lu(k,1151)
    4439   315224452 :          lu(k,1159) = lu(k,1159) * lu(k,1151)
    4440   315224452 :          lu(k,1193) = lu(k,1193) - lu(k,1152) * lu(k,1192)
    4441   315224452 :          lu(k,1198) = lu(k,1198) - lu(k,1153) * lu(k,1192)
    4442   315224452 :          lu(k,1200) = - lu(k,1154) * lu(k,1192)
    4443   315224452 :          lu(k,1201) = lu(k,1201) - lu(k,1155) * lu(k,1192)
    4444   315224452 :          lu(k,1204) = lu(k,1204) - lu(k,1156) * lu(k,1192)
    4445   315224452 :          lu(k,1205) = lu(k,1205) - lu(k,1157) * lu(k,1192)
    4446   315224452 :          lu(k,1206) = lu(k,1206) - lu(k,1158) * lu(k,1192)
    4447   315224452 :          lu(k,1207) = lu(k,1207) - lu(k,1159) * lu(k,1192)
    4448   315224452 :          lu(k,1372) = lu(k,1372) - lu(k,1152) * lu(k,1371)
    4449   315224452 :          lu(k,1378) = lu(k,1378) - lu(k,1153) * lu(k,1371)
    4450   315224452 :          lu(k,1381) = lu(k,1381) - lu(k,1154) * lu(k,1371)
    4451   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,1155) * lu(k,1371)
    4452   315224452 :          lu(k,1386) = - lu(k,1156) * lu(k,1371)
    4453   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,1157) * lu(k,1371)
    4454   315224452 :          lu(k,1390) = lu(k,1390) - lu(k,1158) * lu(k,1371)
    4455   315224452 :          lu(k,1391) = lu(k,1391) - lu(k,1159) * lu(k,1371)
    4456   315224452 :          lu(k,1630) = lu(k,1630) - lu(k,1152) * lu(k,1629)
    4457   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1153) * lu(k,1629)
    4458   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1154) * lu(k,1629)
    4459   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1155) * lu(k,1629)
    4460   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1156) * lu(k,1629)
    4461   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1157) * lu(k,1629)
    4462   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1158) * lu(k,1629)
    4463   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1159) * lu(k,1629)
    4464   315224452 :          lu(k,1793) = lu(k,1793) - lu(k,1152) * lu(k,1792)
    4465   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1153) * lu(k,1792)
    4466   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1154) * lu(k,1792)
    4467   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1155) * lu(k,1792)
    4468   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1156) * lu(k,1792)
    4469   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1157) * lu(k,1792)
    4470   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1158) * lu(k,1792)
    4471   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1159) * lu(k,1792)
    4472   315224452 :          lu(k,1891) = lu(k,1891) - lu(k,1152) * lu(k,1890)
    4473   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1153) * lu(k,1890)
    4474   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1154) * lu(k,1890)
    4475   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1155) * lu(k,1890)
    4476   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1156) * lu(k,1890)
    4477   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1157) * lu(k,1890)
    4478   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1158) * lu(k,1890)
    4479   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1159) * lu(k,1890)
    4480   315224452 :          lu(k,2147) = lu(k,2147) - lu(k,1152) * lu(k,2146)
    4481   315224452 :          lu(k,2151) = lu(k,2151) - lu(k,1153) * lu(k,2146)
    4482   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1154) * lu(k,2146)
    4483   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1155) * lu(k,2146)
    4484   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1156) * lu(k,2146)
    4485   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1157) * lu(k,2146)
    4486   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1158) * lu(k,2146)
    4487   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1159) * lu(k,2146)
    4488   315224452 :          lu(k,2203) = lu(k,2203) - lu(k,1152) * lu(k,2202)
    4489   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1153) * lu(k,2202)
    4490   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1154) * lu(k,2202)
    4491   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1155) * lu(k,2202)
    4492   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1156) * lu(k,2202)
    4493   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1157) * lu(k,2202)
    4494   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1158) * lu(k,2202)
    4495   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1159) * lu(k,2202)
    4496   315224452 :          lu(k,2334) = lu(k,2334) - lu(k,1152) * lu(k,2333)
    4497   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1153) * lu(k,2333)
    4498   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1154) * lu(k,2333)
    4499   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1155) * lu(k,2333)
    4500   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1156) * lu(k,2333)
    4501   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1157) * lu(k,2333)
    4502   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1158) * lu(k,2333)
    4503   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1159) * lu(k,2333)
    4504   315224452 :          lu(k,2389) = lu(k,2389) - lu(k,1152) * lu(k,2388)
    4505   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1153) * lu(k,2388)
    4506   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1154) * lu(k,2388)
    4507   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1155) * lu(k,2388)
    4508   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1156) * lu(k,2388)
    4509   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1157) * lu(k,2388)
    4510   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1158) * lu(k,2388)
    4511   325174377 :          lu(k,2422) = lu(k,2422) - lu(k,1159) * lu(k,2388)
    4512             :       end do
    4513     9949925 :       end subroutine lu_fac23
    4514     9949925 :       subroutine lu_fac24( avec_len, lu )
    4515             :       use chem_mods, only : nzcnt
    4516             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4517             :       implicit none
    4518             : !-----------------------------------------------------------------------
    4519             : ! ... dummy args
    4520             : !-----------------------------------------------------------------------
    4521             :       integer, intent(in) :: avec_len
    4522             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4523             : !-----------------------------------------------------------------------
    4524             : ! ... local variables
    4525             : !-----------------------------------------------------------------------
    4526             :       integer :: k
    4527   325174377 :       do k = 1,avec_len
    4528   315224452 :          lu(k,1160) = 1._r8 / lu(k,1160)
    4529   315224452 :          lu(k,1161) = lu(k,1161) * lu(k,1160)
    4530   315224452 :          lu(k,1162) = lu(k,1162) * lu(k,1160)
    4531   315224452 :          lu(k,1163) = lu(k,1163) * lu(k,1160)
    4532   315224452 :          lu(k,1167) = lu(k,1167) - lu(k,1161) * lu(k,1165)
    4533   315224452 :          lu(k,1168) = lu(k,1168) - lu(k,1162) * lu(k,1165)
    4534   315224452 :          lu(k,1170) = lu(k,1170) - lu(k,1163) * lu(k,1165)
    4535   315224452 :          lu(k,1181) = lu(k,1181) - lu(k,1161) * lu(k,1176)
    4536   315224452 :          lu(k,1182) = lu(k,1182) - lu(k,1162) * lu(k,1176)
    4537   315224452 :          lu(k,1187) = lu(k,1187) - lu(k,1163) * lu(k,1176)
    4538   315224452 :          lu(k,1199) = - lu(k,1161) * lu(k,1193)
    4539   315224452 :          lu(k,1201) = lu(k,1201) - lu(k,1162) * lu(k,1193)
    4540   315224452 :          lu(k,1205) = lu(k,1205) - lu(k,1163) * lu(k,1193)
    4541   315224452 :          lu(k,1236) = lu(k,1236) - lu(k,1161) * lu(k,1230)
    4542   315224452 :          lu(k,1238) = lu(k,1238) - lu(k,1162) * lu(k,1230)
    4543   315224452 :          lu(k,1242) = lu(k,1242) - lu(k,1163) * lu(k,1230)
    4544   315224452 :          lu(k,1258) = lu(k,1258) - lu(k,1161) * lu(k,1250)
    4545   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,1162) * lu(k,1250)
    4546   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,1163) * lu(k,1250)
    4547   315224452 :          lu(k,1274) = lu(k,1274) - lu(k,1161) * lu(k,1268)
    4548   315224452 :          lu(k,1275) = lu(k,1275) - lu(k,1162) * lu(k,1268)
    4549   315224452 :          lu(k,1278) = lu(k,1278) - lu(k,1163) * lu(k,1268)
    4550   315224452 :          lu(k,1283) = - lu(k,1161) * lu(k,1280)
    4551   315224452 :          lu(k,1285) = lu(k,1285) - lu(k,1162) * lu(k,1280)
    4552   315224452 :          lu(k,1287) = lu(k,1287) - lu(k,1163) * lu(k,1280)
    4553   315224452 :          lu(k,1337) = lu(k,1337) - lu(k,1161) * lu(k,1324)
    4554   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1162) * lu(k,1324)
    4555   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1163) * lu(k,1324)
    4556   315224452 :          lu(k,1359) = - lu(k,1161) * lu(k,1350)
    4557   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,1162) * lu(k,1350)
    4558   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,1163) * lu(k,1350)
    4559   315224452 :          lu(k,1379) = lu(k,1379) - lu(k,1161) * lu(k,1372)
    4560   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,1162) * lu(k,1372)
    4561   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,1163) * lu(k,1372)
    4562   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1161) * lu(k,1416)
    4563   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1162) * lu(k,1416)
    4564   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1163) * lu(k,1416)
    4565   315224452 :          lu(k,1450) = lu(k,1450) - lu(k,1161) * lu(k,1449)
    4566   315224452 :          lu(k,1452) = lu(k,1452) - lu(k,1162) * lu(k,1449)
    4567   315224452 :          lu(k,1458) = - lu(k,1163) * lu(k,1449)
    4568   315224452 :          lu(k,1510) = - lu(k,1161) * lu(k,1509)
    4569   315224452 :          lu(k,1514) = lu(k,1514) - lu(k,1162) * lu(k,1509)
    4570   315224452 :          lu(k,1522) = lu(k,1522) - lu(k,1163) * lu(k,1509)
    4571   315224452 :          lu(k,1539) = lu(k,1539) - lu(k,1161) * lu(k,1537)
    4572   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,1162) * lu(k,1537)
    4573   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,1163) * lu(k,1537)
    4574   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1161) * lu(k,1630)
    4575   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1162) * lu(k,1630)
    4576   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1163) * lu(k,1630)
    4577   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1161) * lu(k,1793)
    4578   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1162) * lu(k,1793)
    4579   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1163) * lu(k,1793)
    4580   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1161) * lu(k,1891)
    4581   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1162) * lu(k,1891)
    4582   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1163) * lu(k,1891)
    4583   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,1161) * lu(k,1945)
    4584   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1162) * lu(k,1945)
    4585   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1163) * lu(k,1945)
    4586   315224452 :          lu(k,1976) = lu(k,1976) - lu(k,1161) * lu(k,1975)
    4587   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1162) * lu(k,1975)
    4588   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1163) * lu(k,1975)
    4589   315224452 :          lu(k,2084) = lu(k,2084) - lu(k,1161) * lu(k,2083)
    4590   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1162) * lu(k,2083)
    4591   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1163) * lu(k,2083)
    4592   315224452 :          lu(k,2152) = lu(k,2152) - lu(k,1161) * lu(k,2147)
    4593   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1162) * lu(k,2147)
    4594   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1163) * lu(k,2147)
    4595   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1161) * lu(k,2203)
    4596   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1162) * lu(k,2203)
    4597   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1163) * lu(k,2203)
    4598   315224452 :          lu(k,2241) = lu(k,2241) - lu(k,1161) * lu(k,2240)
    4599   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1162) * lu(k,2240)
    4600   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1163) * lu(k,2240)
    4601   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1161) * lu(k,2334)
    4602   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1162) * lu(k,2334)
    4603   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1163) * lu(k,2334)
    4604   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1161) * lu(k,2389)
    4605   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1162) * lu(k,2389)
    4606   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1163) * lu(k,2389)
    4607   315224452 :          lu(k,1166) = 1._r8 / lu(k,1166)
    4608   315224452 :          lu(k,1167) = lu(k,1167) * lu(k,1166)
    4609   315224452 :          lu(k,1168) = lu(k,1168) * lu(k,1166)
    4610   315224452 :          lu(k,1169) = lu(k,1169) * lu(k,1166)
    4611   315224452 :          lu(k,1170) = lu(k,1170) * lu(k,1166)
    4612   315224452 :          lu(k,1181) = lu(k,1181) - lu(k,1167) * lu(k,1177)
    4613   315224452 :          lu(k,1182) = lu(k,1182) - lu(k,1168) * lu(k,1177)
    4614   315224452 :          lu(k,1185) = lu(k,1185) - lu(k,1169) * lu(k,1177)
    4615   315224452 :          lu(k,1187) = lu(k,1187) - lu(k,1170) * lu(k,1177)
    4616   315224452 :          lu(k,1199) = lu(k,1199) - lu(k,1167) * lu(k,1194)
    4617   315224452 :          lu(k,1201) = lu(k,1201) - lu(k,1168) * lu(k,1194)
    4618   315224452 :          lu(k,1203) = lu(k,1203) - lu(k,1169) * lu(k,1194)
    4619   315224452 :          lu(k,1205) = lu(k,1205) - lu(k,1170) * lu(k,1194)
    4620   315224452 :          lu(k,1236) = lu(k,1236) - lu(k,1167) * lu(k,1231)
    4621   315224452 :          lu(k,1238) = lu(k,1238) - lu(k,1168) * lu(k,1231)
    4622   315224452 :          lu(k,1241) = lu(k,1241) - lu(k,1169) * lu(k,1231)
    4623   315224452 :          lu(k,1242) = lu(k,1242) - lu(k,1170) * lu(k,1231)
    4624   315224452 :          lu(k,1258) = lu(k,1258) - lu(k,1167) * lu(k,1251)
    4625   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,1168) * lu(k,1251)
    4626   315224452 :          lu(k,1263) = lu(k,1263) - lu(k,1169) * lu(k,1251)
    4627   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,1170) * lu(k,1251)
    4628   315224452 :          lu(k,1304) = lu(k,1304) - lu(k,1167) * lu(k,1292)
    4629   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1168) * lu(k,1292)
    4630   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,1169) * lu(k,1292)
    4631   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1170) * lu(k,1292)
    4632   315224452 :          lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1325)
    4633   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1168) * lu(k,1325)
    4634   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,1169) * lu(k,1325)
    4635   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1170) * lu(k,1325)
    4636   315224452 :          lu(k,1359) = lu(k,1359) - lu(k,1167) * lu(k,1351)
    4637   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,1168) * lu(k,1351)
    4638   315224452 :          lu(k,1364) = lu(k,1364) - lu(k,1169) * lu(k,1351)
    4639   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,1170) * lu(k,1351)
    4640   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1167) * lu(k,1417)
    4641   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1168) * lu(k,1417)
    4642   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1169) * lu(k,1417)
    4643   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1170) * lu(k,1417)
    4644   315224452 :          lu(k,1539) = lu(k,1539) - lu(k,1167) * lu(k,1538)
    4645   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,1168) * lu(k,1538)
    4646   315224452 :          lu(k,1548) = lu(k,1548) - lu(k,1169) * lu(k,1538)
    4647   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,1170) * lu(k,1538)
    4648   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1167) * lu(k,1631)
    4649   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1168) * lu(k,1631)
    4650   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1169) * lu(k,1631)
    4651   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1170) * lu(k,1631)
    4652   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1167) * lu(k,1794)
    4653   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1168) * lu(k,1794)
    4654   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1169) * lu(k,1794)
    4655   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1170) * lu(k,1794)
    4656   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1167) * lu(k,1892)
    4657   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1168) * lu(k,1892)
    4658   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1169) * lu(k,1892)
    4659   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1170) * lu(k,1892)
    4660   315224452 :          lu(k,2152) = lu(k,2152) - lu(k,1167) * lu(k,2148)
    4661   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1168) * lu(k,2148)
    4662   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1169) * lu(k,2148)
    4663   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1170) * lu(k,2148)
    4664   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1167) * lu(k,2204)
    4665   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1168) * lu(k,2204)
    4666   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1169) * lu(k,2204)
    4667   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1170) * lu(k,2204)
    4668   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1167) * lu(k,2335)
    4669   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1168) * lu(k,2335)
    4670   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1169) * lu(k,2335)
    4671   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1170) * lu(k,2335)
    4672   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1167) * lu(k,2390)
    4673   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1168) * lu(k,2390)
    4674   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1169) * lu(k,2390)
    4675   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1170) * lu(k,2390)
    4676   315224452 :          lu(k,1178) = 1._r8 / lu(k,1178)
    4677   315224452 :          lu(k,1179) = lu(k,1179) * lu(k,1178)
    4678   315224452 :          lu(k,1180) = lu(k,1180) * lu(k,1178)
    4679   315224452 :          lu(k,1181) = lu(k,1181) * lu(k,1178)
    4680   315224452 :          lu(k,1182) = lu(k,1182) * lu(k,1178)
    4681   315224452 :          lu(k,1183) = lu(k,1183) * lu(k,1178)
    4682   315224452 :          lu(k,1184) = lu(k,1184) * lu(k,1178)
    4683   315224452 :          lu(k,1185) = lu(k,1185) * lu(k,1178)
    4684   315224452 :          lu(k,1186) = lu(k,1186) * lu(k,1178)
    4685   315224452 :          lu(k,1187) = lu(k,1187) * lu(k,1178)
    4686   315224452 :          lu(k,1188) = lu(k,1188) * lu(k,1178)
    4687   315224452 :          lu(k,1189) = lu(k,1189) * lu(k,1178)
    4688   315224452 :          lu(k,1635) = lu(k,1635) - lu(k,1179) * lu(k,1632)
    4689   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1180) * lu(k,1632)
    4690   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1181) * lu(k,1632)
    4691   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1182) * lu(k,1632)
    4692   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1183) * lu(k,1632)
    4693   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1184) * lu(k,1632)
    4694   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1185) * lu(k,1632)
    4695   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1186) * lu(k,1632)
    4696   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1187) * lu(k,1632)
    4697   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1188) * lu(k,1632)
    4698   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1189) * lu(k,1632)
    4699   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,1179) * lu(k,1795)
    4700   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1180) * lu(k,1795)
    4701   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1181) * lu(k,1795)
    4702   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1182) * lu(k,1795)
    4703   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1183) * lu(k,1795)
    4704   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1184) * lu(k,1795)
    4705   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1185) * lu(k,1795)
    4706   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1186) * lu(k,1795)
    4707   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1187) * lu(k,1795)
    4708   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1188) * lu(k,1795)
    4709   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1189) * lu(k,1795)
    4710   315224452 :          lu(k,1896) = lu(k,1896) - lu(k,1179) * lu(k,1893)
    4711   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1180) * lu(k,1893)
    4712   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1181) * lu(k,1893)
    4713   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1182) * lu(k,1893)
    4714   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1183) * lu(k,1893)
    4715   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1184) * lu(k,1893)
    4716   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1185) * lu(k,1893)
    4717   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1186) * lu(k,1893)
    4718   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1187) * lu(k,1893)
    4719   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1188) * lu(k,1893)
    4720   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1189) * lu(k,1893)
    4721   315224452 :          lu(k,2207) = lu(k,2207) - lu(k,1179) * lu(k,2205)
    4722   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1180) * lu(k,2205)
    4723   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1181) * lu(k,2205)
    4724   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1182) * lu(k,2205)
    4725   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1183) * lu(k,2205)
    4726   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1184) * lu(k,2205)
    4727   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1185) * lu(k,2205)
    4728   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1186) * lu(k,2205)
    4729   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1187) * lu(k,2205)
    4730   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1188) * lu(k,2205)
    4731   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1189) * lu(k,2205)
    4732   315224452 :          lu(k,2338) = lu(k,2338) - lu(k,1179) * lu(k,2336)
    4733   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1180) * lu(k,2336)
    4734   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1181) * lu(k,2336)
    4735   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1182) * lu(k,2336)
    4736   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1183) * lu(k,2336)
    4737   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1184) * lu(k,2336)
    4738   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1185) * lu(k,2336)
    4739   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1186) * lu(k,2336)
    4740   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1187) * lu(k,2336)
    4741   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1188) * lu(k,2336)
    4742   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1189) * lu(k,2336)
    4743   315224452 :          lu(k,2393) = lu(k,2393) - lu(k,1179) * lu(k,2391)
    4744   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1180) * lu(k,2391)
    4745   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1181) * lu(k,2391)
    4746   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1182) * lu(k,2391)
    4747   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1183) * lu(k,2391)
    4748   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1184) * lu(k,2391)
    4749   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1185) * lu(k,2391)
    4750   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1186) * lu(k,2391)
    4751   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1187) * lu(k,2391)
    4752   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1188) * lu(k,2391)
    4753   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1189) * lu(k,2391)
    4754   315224452 :          lu(k,1195) = 1._r8 / lu(k,1195)
    4755   315224452 :          lu(k,1196) = lu(k,1196) * lu(k,1195)
    4756   315224452 :          lu(k,1197) = lu(k,1197) * lu(k,1195)
    4757   315224452 :          lu(k,1198) = lu(k,1198) * lu(k,1195)
    4758   315224452 :          lu(k,1199) = lu(k,1199) * lu(k,1195)
    4759   315224452 :          lu(k,1200) = lu(k,1200) * lu(k,1195)
    4760   315224452 :          lu(k,1201) = lu(k,1201) * lu(k,1195)
    4761   315224452 :          lu(k,1202) = lu(k,1202) * lu(k,1195)
    4762   315224452 :          lu(k,1203) = lu(k,1203) * lu(k,1195)
    4763   315224452 :          lu(k,1204) = lu(k,1204) * lu(k,1195)
    4764   315224452 :          lu(k,1205) = lu(k,1205) * lu(k,1195)
    4765   315224452 :          lu(k,1206) = lu(k,1206) * lu(k,1195)
    4766   315224452 :          lu(k,1207) = lu(k,1207) * lu(k,1195)
    4767   315224452 :          lu(k,1294) = lu(k,1294) - lu(k,1196) * lu(k,1293)
    4768   315224452 :          lu(k,1295) = - lu(k,1197) * lu(k,1293)
    4769   315224452 :          lu(k,1303) = lu(k,1303) - lu(k,1198) * lu(k,1293)
    4770   315224452 :          lu(k,1304) = lu(k,1304) - lu(k,1199) * lu(k,1293)
    4771   315224452 :          lu(k,1305) = lu(k,1305) - lu(k,1200) * lu(k,1293)
    4772   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1201) * lu(k,1293)
    4773   315224452 :          lu(k,1308) = lu(k,1308) - lu(k,1202) * lu(k,1293)
    4774   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,1203) * lu(k,1293)
    4775   315224452 :          lu(k,1310) = lu(k,1310) - lu(k,1204) * lu(k,1293)
    4776   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1205) * lu(k,1293)
    4777   315224452 :          lu(k,1313) = lu(k,1313) - lu(k,1206) * lu(k,1293)
    4778   315224452 :          lu(k,1314) = - lu(k,1207) * lu(k,1293)
    4779   315224452 :          lu(k,1327) = lu(k,1327) - lu(k,1196) * lu(k,1326)
    4780   315224452 :          lu(k,1328) = - lu(k,1197) * lu(k,1326)
    4781   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,1198) * lu(k,1326)
    4782   315224452 :          lu(k,1337) = lu(k,1337) - lu(k,1199) * lu(k,1326)
    4783   315224452 :          lu(k,1338) = lu(k,1338) - lu(k,1200) * lu(k,1326)
    4784   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1201) * lu(k,1326)
    4785   315224452 :          lu(k,1341) = lu(k,1341) - lu(k,1202) * lu(k,1326)
    4786   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,1203) * lu(k,1326)
    4787   315224452 :          lu(k,1343) = lu(k,1343) - lu(k,1204) * lu(k,1326)
    4788   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1205) * lu(k,1326)
    4789   315224452 :          lu(k,1346) = lu(k,1346) - lu(k,1206) * lu(k,1326)
    4790   315224452 :          lu(k,1347) = - lu(k,1207) * lu(k,1326)
    4791   315224452 :          lu(k,1353) = lu(k,1353) - lu(k,1196) * lu(k,1352)
    4792   315224452 :          lu(k,1354) = - lu(k,1197) * lu(k,1352)
    4793   315224452 :          lu(k,1358) = lu(k,1358) - lu(k,1198) * lu(k,1352)
    4794   315224452 :          lu(k,1359) = lu(k,1359) - lu(k,1199) * lu(k,1352)
    4795   315224452 :          lu(k,1360) = lu(k,1360) - lu(k,1200) * lu(k,1352)
    4796   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,1201) * lu(k,1352)
    4797   315224452 :          lu(k,1363) = lu(k,1363) - lu(k,1202) * lu(k,1352)
    4798   315224452 :          lu(k,1364) = lu(k,1364) - lu(k,1203) * lu(k,1352)
    4799   315224452 :          lu(k,1365) = - lu(k,1204) * lu(k,1352)
    4800   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,1205) * lu(k,1352)
    4801   315224452 :          lu(k,1367) = lu(k,1367) - lu(k,1206) * lu(k,1352)
    4802   315224452 :          lu(k,1368) = - lu(k,1207) * lu(k,1352)
    4803   315224452 :          lu(k,1634) = lu(k,1634) - lu(k,1196) * lu(k,1633)
    4804   315224452 :          lu(k,1635) = lu(k,1635) - lu(k,1197) * lu(k,1633)
    4805   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1198) * lu(k,1633)
    4806   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1199) * lu(k,1633)
    4807   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1200) * lu(k,1633)
    4808   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1201) * lu(k,1633)
    4809   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1202) * lu(k,1633)
    4810   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1203) * lu(k,1633)
    4811   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1204) * lu(k,1633)
    4812   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1205) * lu(k,1633)
    4813   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1206) * lu(k,1633)
    4814   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1207) * lu(k,1633)
    4815   315224452 :          lu(k,1797) = lu(k,1797) - lu(k,1196) * lu(k,1796)
    4816   315224452 :          lu(k,1798) = lu(k,1798) - lu(k,1197) * lu(k,1796)
    4817   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1198) * lu(k,1796)
    4818   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1199) * lu(k,1796)
    4819   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1200) * lu(k,1796)
    4820   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1201) * lu(k,1796)
    4821   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1202) * lu(k,1796)
    4822   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1203) * lu(k,1796)
    4823   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1204) * lu(k,1796)
    4824   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1205) * lu(k,1796)
    4825   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1206) * lu(k,1796)
    4826   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1207) * lu(k,1796)
    4827   315224452 :          lu(k,1895) = lu(k,1895) - lu(k,1196) * lu(k,1894)
    4828   315224452 :          lu(k,1896) = lu(k,1896) - lu(k,1197) * lu(k,1894)
    4829   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1198) * lu(k,1894)
    4830   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1199) * lu(k,1894)
    4831   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1200) * lu(k,1894)
    4832   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1201) * lu(k,1894)
    4833   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1202) * lu(k,1894)
    4834   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1203) * lu(k,1894)
    4835   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1204) * lu(k,1894)
    4836   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1205) * lu(k,1894)
    4837   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1206) * lu(k,1894)
    4838   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1207) * lu(k,1894)
    4839   315224452 :          lu(k,1208) = 1._r8 / lu(k,1208)
    4840   315224452 :          lu(k,1209) = lu(k,1209) * lu(k,1208)
    4841   315224452 :          lu(k,1210) = lu(k,1210) * lu(k,1208)
    4842   315224452 :          lu(k,1211) = lu(k,1211) * lu(k,1208)
    4843   315224452 :          lu(k,1212) = lu(k,1212) * lu(k,1208)
    4844   315224452 :          lu(k,1213) = lu(k,1213) * lu(k,1208)
    4845   315224452 :          lu(k,1218) = lu(k,1218) - lu(k,1209) * lu(k,1216)
    4846   315224452 :          lu(k,1219) = lu(k,1219) - lu(k,1210) * lu(k,1216)
    4847   315224452 :          lu(k,1220) = lu(k,1220) - lu(k,1211) * lu(k,1216)
    4848   315224452 :          lu(k,1223) = lu(k,1223) - lu(k,1212) * lu(k,1216)
    4849   315224452 :          lu(k,1224) = lu(k,1224) - lu(k,1213) * lu(k,1216)
    4850   315224452 :          lu(k,1234) = lu(k,1234) - lu(k,1209) * lu(k,1232)
    4851   315224452 :          lu(k,1235) = lu(k,1235) - lu(k,1210) * lu(k,1232)
    4852   315224452 :          lu(k,1238) = lu(k,1238) - lu(k,1211) * lu(k,1232)
    4853   315224452 :          lu(k,1241) = lu(k,1241) - lu(k,1212) * lu(k,1232)
    4854   315224452 :          lu(k,1242) = lu(k,1242) - lu(k,1213) * lu(k,1232)
    4855   315224452 :          lu(k,1298) = - lu(k,1209) * lu(k,1294)
    4856   315224452 :          lu(k,1303) = lu(k,1303) - lu(k,1210) * lu(k,1294)
    4857   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1211) * lu(k,1294)
    4858   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,1212) * lu(k,1294)
    4859   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1213) * lu(k,1294)
    4860   315224452 :          lu(k,1331) = lu(k,1331) - lu(k,1209) * lu(k,1327)
    4861   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,1210) * lu(k,1327)
    4862   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1211) * lu(k,1327)
    4863   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,1212) * lu(k,1327)
    4864   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1213) * lu(k,1327)
    4865   315224452 :          lu(k,1355) = lu(k,1355) - lu(k,1209) * lu(k,1353)
    4866   315224452 :          lu(k,1358) = lu(k,1358) - lu(k,1210) * lu(k,1353)
    4867   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,1211) * lu(k,1353)
    4868   315224452 :          lu(k,1364) = lu(k,1364) - lu(k,1212) * lu(k,1353)
    4869   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,1213) * lu(k,1353)
    4870   315224452 :          lu(k,1374) = lu(k,1374) - lu(k,1209) * lu(k,1373)
    4871   315224452 :          lu(k,1378) = lu(k,1378) - lu(k,1210) * lu(k,1373)
    4872   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,1211) * lu(k,1373)
    4873   315224452 :          lu(k,1385) = lu(k,1385) - lu(k,1212) * lu(k,1373)
    4874   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,1213) * lu(k,1373)
    4875   315224452 :          lu(k,1396) = - lu(k,1209) * lu(k,1395)
    4876   315224452 :          lu(k,1398) = lu(k,1398) - lu(k,1210) * lu(k,1395)
    4877   315224452 :          lu(k,1401) = lu(k,1401) - lu(k,1211) * lu(k,1395)
    4878   315224452 :          lu(k,1404) = lu(k,1404) - lu(k,1212) * lu(k,1395)
    4879   315224452 :          lu(k,1407) = lu(k,1407) - lu(k,1213) * lu(k,1395)
    4880   315224452 :          lu(k,1422) = lu(k,1422) - lu(k,1209) * lu(k,1418)
    4881   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1210) * lu(k,1418)
    4882   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1211) * lu(k,1418)
    4883   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1212) * lu(k,1418)
    4884   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1213) * lu(k,1418)
    4885   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1209) * lu(k,1634)
    4886   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1210) * lu(k,1634)
    4887   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1211) * lu(k,1634)
    4888   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1212) * lu(k,1634)
    4889   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1213) * lu(k,1634)
    4890   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1209) * lu(k,1797)
    4891   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1210) * lu(k,1797)
    4892   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1211) * lu(k,1797)
    4893   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1212) * lu(k,1797)
    4894   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1213) * lu(k,1797)
    4895   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,1209) * lu(k,1895)
    4896   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1210) * lu(k,1895)
    4897   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1211) * lu(k,1895)
    4898   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1212) * lu(k,1895)
    4899   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1213) * lu(k,1895)
    4900   315224452 :          lu(k,1947) = lu(k,1947) - lu(k,1209) * lu(k,1946)
    4901   315224452 :          lu(k,1949) = lu(k,1949) - lu(k,1210) * lu(k,1946)
    4902   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1211) * lu(k,1946)
    4903   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1212) * lu(k,1946)
    4904   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1213) * lu(k,1946)
    4905   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,1209) * lu(k,2206)
    4906   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1210) * lu(k,2206)
    4907   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1211) * lu(k,2206)
    4908   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1212) * lu(k,2206)
    4909   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1213) * lu(k,2206)
    4910   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,1209) * lu(k,2337)
    4911   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1210) * lu(k,2337)
    4912   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1211) * lu(k,2337)
    4913   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1212) * lu(k,2337)
    4914   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1213) * lu(k,2337)
    4915   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,1209) * lu(k,2392)
    4916   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1210) * lu(k,2392)
    4917   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1211) * lu(k,2392)
    4918   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1212) * lu(k,2392)
    4919   325174377 :          lu(k,2420) = lu(k,2420) - lu(k,1213) * lu(k,2392)
    4920             :       end do
    4921     9949925 :       end subroutine lu_fac24
    4922     9949925 :       subroutine lu_fac25( avec_len, lu )
    4923             :       use chem_mods, only : nzcnt
    4924             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4925             :       implicit none
    4926             : !-----------------------------------------------------------------------
    4927             : ! ... dummy args
    4928             : !-----------------------------------------------------------------------
    4929             :       integer, intent(in) :: avec_len
    4930             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4931             : !-----------------------------------------------------------------------
    4932             : ! ... local variables
    4933             : !-----------------------------------------------------------------------
    4934             :       integer :: k
    4935   325174377 :       do k = 1,avec_len
    4936   315224452 :          lu(k,1217) = 1._r8 / lu(k,1217)
    4937   315224452 :          lu(k,1218) = lu(k,1218) * lu(k,1217)
    4938   315224452 :          lu(k,1219) = lu(k,1219) * lu(k,1217)
    4939   315224452 :          lu(k,1220) = lu(k,1220) * lu(k,1217)
    4940   315224452 :          lu(k,1221) = lu(k,1221) * lu(k,1217)
    4941   315224452 :          lu(k,1222) = lu(k,1222) * lu(k,1217)
    4942   315224452 :          lu(k,1223) = lu(k,1223) * lu(k,1217)
    4943   315224452 :          lu(k,1224) = lu(k,1224) * lu(k,1217)
    4944   315224452 :          lu(k,1225) = lu(k,1225) * lu(k,1217)
    4945   315224452 :          lu(k,1226) = lu(k,1226) * lu(k,1217)
    4946   315224452 :          lu(k,1298) = lu(k,1298) - lu(k,1218) * lu(k,1295)
    4947   315224452 :          lu(k,1303) = lu(k,1303) - lu(k,1219) * lu(k,1295)
    4948   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1220) * lu(k,1295)
    4949   315224452 :          lu(k,1307) = lu(k,1307) - lu(k,1221) * lu(k,1295)
    4950   315224452 :          lu(k,1308) = lu(k,1308) - lu(k,1222) * lu(k,1295)
    4951   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,1223) * lu(k,1295)
    4952   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1224) * lu(k,1295)
    4953   315224452 :          lu(k,1313) = lu(k,1313) - lu(k,1225) * lu(k,1295)
    4954   315224452 :          lu(k,1314) = lu(k,1314) - lu(k,1226) * lu(k,1295)
    4955   315224452 :          lu(k,1331) = lu(k,1331) - lu(k,1218) * lu(k,1328)
    4956   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,1219) * lu(k,1328)
    4957   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1220) * lu(k,1328)
    4958   315224452 :          lu(k,1340) = lu(k,1340) - lu(k,1221) * lu(k,1328)
    4959   315224452 :          lu(k,1341) = lu(k,1341) - lu(k,1222) * lu(k,1328)
    4960   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,1223) * lu(k,1328)
    4961   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1224) * lu(k,1328)
    4962   315224452 :          lu(k,1346) = lu(k,1346) - lu(k,1225) * lu(k,1328)
    4963   315224452 :          lu(k,1347) = lu(k,1347) - lu(k,1226) * lu(k,1328)
    4964   315224452 :          lu(k,1355) = lu(k,1355) - lu(k,1218) * lu(k,1354)
    4965   315224452 :          lu(k,1358) = lu(k,1358) - lu(k,1219) * lu(k,1354)
    4966   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,1220) * lu(k,1354)
    4967   315224452 :          lu(k,1362) = lu(k,1362) - lu(k,1221) * lu(k,1354)
    4968   315224452 :          lu(k,1363) = lu(k,1363) - lu(k,1222) * lu(k,1354)
    4969   315224452 :          lu(k,1364) = lu(k,1364) - lu(k,1223) * lu(k,1354)
    4970   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,1224) * lu(k,1354)
    4971   315224452 :          lu(k,1367) = lu(k,1367) - lu(k,1225) * lu(k,1354)
    4972   315224452 :          lu(k,1368) = lu(k,1368) - lu(k,1226) * lu(k,1354)
    4973   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1218) * lu(k,1635)
    4974   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1219) * lu(k,1635)
    4975   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1220) * lu(k,1635)
    4976   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1221) * lu(k,1635)
    4977   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1222) * lu(k,1635)
    4978   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1223) * lu(k,1635)
    4979   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1224) * lu(k,1635)
    4980   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1225) * lu(k,1635)
    4981   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1226) * lu(k,1635)
    4982   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1218) * lu(k,1798)
    4983   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1219) * lu(k,1798)
    4984   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1220) * lu(k,1798)
    4985   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1221) * lu(k,1798)
    4986   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1222) * lu(k,1798)
    4987   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1223) * lu(k,1798)
    4988   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1224) * lu(k,1798)
    4989   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1225) * lu(k,1798)
    4990   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1226) * lu(k,1798)
    4991   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,1218) * lu(k,1896)
    4992   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1219) * lu(k,1896)
    4993   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1220) * lu(k,1896)
    4994   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1221) * lu(k,1896)
    4995   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1222) * lu(k,1896)
    4996   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1223) * lu(k,1896)
    4997   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1224) * lu(k,1896)
    4998   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1225) * lu(k,1896)
    4999   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1226) * lu(k,1896)
    5000   315224452 :          lu(k,2150) = - lu(k,1218) * lu(k,2149)
    5001   315224452 :          lu(k,2151) = lu(k,2151) - lu(k,1219) * lu(k,2149)
    5002   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1220) * lu(k,2149)
    5003   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1221) * lu(k,2149)
    5004   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1222) * lu(k,2149)
    5005   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1223) * lu(k,2149)
    5006   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1224) * lu(k,2149)
    5007   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1225) * lu(k,2149)
    5008   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1226) * lu(k,2149)
    5009   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,1218) * lu(k,2207)
    5010   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1219) * lu(k,2207)
    5011   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1220) * lu(k,2207)
    5012   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1221) * lu(k,2207)
    5013   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1222) * lu(k,2207)
    5014   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1223) * lu(k,2207)
    5015   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1224) * lu(k,2207)
    5016   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1225) * lu(k,2207)
    5017   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1226) * lu(k,2207)
    5018   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,1218) * lu(k,2338)
    5019   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1219) * lu(k,2338)
    5020   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1220) * lu(k,2338)
    5021   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1221) * lu(k,2338)
    5022   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1222) * lu(k,2338)
    5023   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1223) * lu(k,2338)
    5024   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1224) * lu(k,2338)
    5025   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1225) * lu(k,2338)
    5026   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1226) * lu(k,2338)
    5027   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,1218) * lu(k,2393)
    5028   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1219) * lu(k,2393)
    5029   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1220) * lu(k,2393)
    5030   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1221) * lu(k,2393)
    5031   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1222) * lu(k,2393)
    5032   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1223) * lu(k,2393)
    5033   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1224) * lu(k,2393)
    5034   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1225) * lu(k,2393)
    5035   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1226) * lu(k,2393)
    5036   315224452 :          lu(k,1233) = 1._r8 / lu(k,1233)
    5037   315224452 :          lu(k,1234) = lu(k,1234) * lu(k,1233)
    5038   315224452 :          lu(k,1235) = lu(k,1235) * lu(k,1233)
    5039   315224452 :          lu(k,1236) = lu(k,1236) * lu(k,1233)
    5040   315224452 :          lu(k,1237) = lu(k,1237) * lu(k,1233)
    5041   315224452 :          lu(k,1238) = lu(k,1238) * lu(k,1233)
    5042   315224452 :          lu(k,1239) = lu(k,1239) * lu(k,1233)
    5043   315224452 :          lu(k,1240) = lu(k,1240) * lu(k,1233)
    5044   315224452 :          lu(k,1241) = lu(k,1241) * lu(k,1233)
    5045   315224452 :          lu(k,1242) = lu(k,1242) * lu(k,1233)
    5046   315224452 :          lu(k,1243) = lu(k,1243) * lu(k,1233)
    5047   315224452 :          lu(k,1255) = lu(k,1255) - lu(k,1234) * lu(k,1252)
    5048   315224452 :          lu(k,1257) = lu(k,1257) - lu(k,1235) * lu(k,1252)
    5049   315224452 :          lu(k,1258) = lu(k,1258) - lu(k,1236) * lu(k,1252)
    5050   315224452 :          lu(k,1259) = lu(k,1259) - lu(k,1237) * lu(k,1252)
    5051   315224452 :          lu(k,1260) = lu(k,1260) - lu(k,1238) * lu(k,1252)
    5052   315224452 :          lu(k,1261) = lu(k,1261) - lu(k,1239) * lu(k,1252)
    5053   315224452 :          lu(k,1262) = lu(k,1262) - lu(k,1240) * lu(k,1252)
    5054   315224452 :          lu(k,1263) = lu(k,1263) - lu(k,1241) * lu(k,1252)
    5055   315224452 :          lu(k,1265) = lu(k,1265) - lu(k,1242) * lu(k,1252)
    5056   315224452 :          lu(k,1266) = lu(k,1266) - lu(k,1243) * lu(k,1252)
    5057   315224452 :          lu(k,1298) = lu(k,1298) - lu(k,1234) * lu(k,1296)
    5058   315224452 :          lu(k,1303) = lu(k,1303) - lu(k,1235) * lu(k,1296)
    5059   315224452 :          lu(k,1304) = lu(k,1304) - lu(k,1236) * lu(k,1296)
    5060   315224452 :          lu(k,1305) = lu(k,1305) - lu(k,1237) * lu(k,1296)
    5061   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1238) * lu(k,1296)
    5062   315224452 :          lu(k,1307) = lu(k,1307) - lu(k,1239) * lu(k,1296)
    5063   315224452 :          lu(k,1308) = lu(k,1308) - lu(k,1240) * lu(k,1296)
    5064   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,1241) * lu(k,1296)
    5065   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1242) * lu(k,1296)
    5066   315224452 :          lu(k,1313) = lu(k,1313) - lu(k,1243) * lu(k,1296)
    5067   315224452 :          lu(k,1331) = lu(k,1331) - lu(k,1234) * lu(k,1329)
    5068   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,1235) * lu(k,1329)
    5069   315224452 :          lu(k,1337) = lu(k,1337) - lu(k,1236) * lu(k,1329)
    5070   315224452 :          lu(k,1338) = lu(k,1338) - lu(k,1237) * lu(k,1329)
    5071   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1238) * lu(k,1329)
    5072   315224452 :          lu(k,1340) = lu(k,1340) - lu(k,1239) * lu(k,1329)
    5073   315224452 :          lu(k,1341) = lu(k,1341) - lu(k,1240) * lu(k,1329)
    5074   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,1241) * lu(k,1329)
    5075   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1242) * lu(k,1329)
    5076   315224452 :          lu(k,1346) = lu(k,1346) - lu(k,1243) * lu(k,1329)
    5077   315224452 :          lu(k,1422) = lu(k,1422) - lu(k,1234) * lu(k,1419)
    5078   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1235) * lu(k,1419)
    5079   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1236) * lu(k,1419)
    5080   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1237) * lu(k,1419)
    5081   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1238) * lu(k,1419)
    5082   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1239) * lu(k,1419)
    5083   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1240) * lu(k,1419)
    5084   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1241) * lu(k,1419)
    5085   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1242) * lu(k,1419)
    5086   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1243) * lu(k,1419)
    5087   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1234) * lu(k,1636)
    5088   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1235) * lu(k,1636)
    5089   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1236) * lu(k,1636)
    5090   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1237) * lu(k,1636)
    5091   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1238) * lu(k,1636)
    5092   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1239) * lu(k,1636)
    5093   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1240) * lu(k,1636)
    5094   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1241) * lu(k,1636)
    5095   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1242) * lu(k,1636)
    5096   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1243) * lu(k,1636)
    5097   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1234) * lu(k,1799)
    5098   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1235) * lu(k,1799)
    5099   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1236) * lu(k,1799)
    5100   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1237) * lu(k,1799)
    5101   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1238) * lu(k,1799)
    5102   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1239) * lu(k,1799)
    5103   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1240) * lu(k,1799)
    5104   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1241) * lu(k,1799)
    5105   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1242) * lu(k,1799)
    5106   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1243) * lu(k,1799)
    5107   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,1234) * lu(k,1897)
    5108   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1235) * lu(k,1897)
    5109   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1236) * lu(k,1897)
    5110   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1237) * lu(k,1897)
    5111   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1238) * lu(k,1897)
    5112   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1239) * lu(k,1897)
    5113   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1240) * lu(k,1897)
    5114   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1241) * lu(k,1897)
    5115   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1242) * lu(k,1897)
    5116   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1243) * lu(k,1897)
    5117   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,1234) * lu(k,2339)
    5118   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1235) * lu(k,2339)
    5119   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1236) * lu(k,2339)
    5120   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1237) * lu(k,2339)
    5121   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1238) * lu(k,2339)
    5122   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1239) * lu(k,2339)
    5123   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1240) * lu(k,2339)
    5124   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1241) * lu(k,2339)
    5125   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1242) * lu(k,2339)
    5126   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1243) * lu(k,2339)
    5127   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,1234) * lu(k,2394)
    5128   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1235) * lu(k,2394)
    5129   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1236) * lu(k,2394)
    5130   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1237) * lu(k,2394)
    5131   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1238) * lu(k,2394)
    5132   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1239) * lu(k,2394)
    5133   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1240) * lu(k,2394)
    5134   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1241) * lu(k,2394)
    5135   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1242) * lu(k,2394)
    5136   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1243) * lu(k,2394)
    5137   315224452 :          lu(k,1253) = 1._r8 / lu(k,1253)
    5138   315224452 :          lu(k,1254) = lu(k,1254) * lu(k,1253)
    5139   315224452 :          lu(k,1255) = lu(k,1255) * lu(k,1253)
    5140   315224452 :          lu(k,1256) = lu(k,1256) * lu(k,1253)
    5141   315224452 :          lu(k,1257) = lu(k,1257) * lu(k,1253)
    5142   315224452 :          lu(k,1258) = lu(k,1258) * lu(k,1253)
    5143   315224452 :          lu(k,1259) = lu(k,1259) * lu(k,1253)
    5144   315224452 :          lu(k,1260) = lu(k,1260) * lu(k,1253)
    5145   315224452 :          lu(k,1261) = lu(k,1261) * lu(k,1253)
    5146   315224452 :          lu(k,1262) = lu(k,1262) * lu(k,1253)
    5147   315224452 :          lu(k,1263) = lu(k,1263) * lu(k,1253)
    5148   315224452 :          lu(k,1264) = lu(k,1264) * lu(k,1253)
    5149   315224452 :          lu(k,1265) = lu(k,1265) * lu(k,1253)
    5150   315224452 :          lu(k,1266) = lu(k,1266) * lu(k,1253)
    5151   315224452 :          lu(k,1421) = lu(k,1421) - lu(k,1254) * lu(k,1420)
    5152   315224452 :          lu(k,1422) = lu(k,1422) - lu(k,1255) * lu(k,1420)
    5153   315224452 :          lu(k,1426) = lu(k,1426) - lu(k,1256) * lu(k,1420)
    5154   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1257) * lu(k,1420)
    5155   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1258) * lu(k,1420)
    5156   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1259) * lu(k,1420)
    5157   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1260) * lu(k,1420)
    5158   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1261) * lu(k,1420)
    5159   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1262) * lu(k,1420)
    5160   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1263) * lu(k,1420)
    5161   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1264) * lu(k,1420)
    5162   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1265) * lu(k,1420)
    5163   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1266) * lu(k,1420)
    5164   315224452 :          lu(k,1638) = lu(k,1638) - lu(k,1254) * lu(k,1637)
    5165   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1255) * lu(k,1637)
    5166   315224452 :          lu(k,1643) = lu(k,1643) - lu(k,1256) * lu(k,1637)
    5167   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1257) * lu(k,1637)
    5168   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1258) * lu(k,1637)
    5169   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1259) * lu(k,1637)
    5170   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1260) * lu(k,1637)
    5171   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1261) * lu(k,1637)
    5172   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1262) * lu(k,1637)
    5173   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1263) * lu(k,1637)
    5174   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1264) * lu(k,1637)
    5175   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1265) * lu(k,1637)
    5176   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1266) * lu(k,1637)
    5177   315224452 :          lu(k,1801) = lu(k,1801) - lu(k,1254) * lu(k,1800)
    5178   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1255) * lu(k,1800)
    5179   315224452 :          lu(k,1806) = lu(k,1806) - lu(k,1256) * lu(k,1800)
    5180   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1257) * lu(k,1800)
    5181   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1258) * lu(k,1800)
    5182   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1259) * lu(k,1800)
    5183   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1260) * lu(k,1800)
    5184   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1261) * lu(k,1800)
    5185   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1262) * lu(k,1800)
    5186   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1263) * lu(k,1800)
    5187   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1264) * lu(k,1800)
    5188   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1265) * lu(k,1800)
    5189   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1266) * lu(k,1800)
    5190   315224452 :          lu(k,1899) = lu(k,1899) - lu(k,1254) * lu(k,1898)
    5191   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,1255) * lu(k,1898)
    5192   315224452 :          lu(k,1904) = lu(k,1904) - lu(k,1256) * lu(k,1898)
    5193   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1257) * lu(k,1898)
    5194   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1258) * lu(k,1898)
    5195   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1259) * lu(k,1898)
    5196   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1260) * lu(k,1898)
    5197   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1261) * lu(k,1898)
    5198   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1262) * lu(k,1898)
    5199   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1263) * lu(k,1898)
    5200   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1264) * lu(k,1898)
    5201   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1265) * lu(k,1898)
    5202   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1266) * lu(k,1898)
    5203   315224452 :          lu(k,2209) = lu(k,2209) - lu(k,1254) * lu(k,2208)
    5204   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,1255) * lu(k,2208)
    5205   315224452 :          lu(k,2214) = lu(k,2214) - lu(k,1256) * lu(k,2208)
    5206   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1257) * lu(k,2208)
    5207   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1258) * lu(k,2208)
    5208   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1259) * lu(k,2208)
    5209   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1260) * lu(k,2208)
    5210   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1261) * lu(k,2208)
    5211   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1262) * lu(k,2208)
    5212   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1263) * lu(k,2208)
    5213   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1264) * lu(k,2208)
    5214   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1265) * lu(k,2208)
    5215   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1266) * lu(k,2208)
    5216   315224452 :          lu(k,2341) = lu(k,2341) - lu(k,1254) * lu(k,2340)
    5217   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,1255) * lu(k,2340)
    5218   315224452 :          lu(k,2346) = lu(k,2346) - lu(k,1256) * lu(k,2340)
    5219   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1257) * lu(k,2340)
    5220   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1258) * lu(k,2340)
    5221   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1259) * lu(k,2340)
    5222   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1260) * lu(k,2340)
    5223   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1261) * lu(k,2340)
    5224   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1262) * lu(k,2340)
    5225   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1263) * lu(k,2340)
    5226   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1264) * lu(k,2340)
    5227   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1265) * lu(k,2340)
    5228   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1266) * lu(k,2340)
    5229   315224452 :          lu(k,2396) = lu(k,2396) - lu(k,1254) * lu(k,2395)
    5230   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,1255) * lu(k,2395)
    5231   315224452 :          lu(k,2401) = lu(k,2401) - lu(k,1256) * lu(k,2395)
    5232   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1257) * lu(k,2395)
    5233   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1258) * lu(k,2395)
    5234   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1259) * lu(k,2395)
    5235   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1260) * lu(k,2395)
    5236   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1261) * lu(k,2395)
    5237   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1262) * lu(k,2395)
    5238   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1263) * lu(k,2395)
    5239   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1264) * lu(k,2395)
    5240   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1265) * lu(k,2395)
    5241   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1266) * lu(k,2395)
    5242   315224452 :          lu(k,1269) = 1._r8 / lu(k,1269)
    5243   315224452 :          lu(k,1270) = lu(k,1270) * lu(k,1269)
    5244   315224452 :          lu(k,1271) = lu(k,1271) * lu(k,1269)
    5245   315224452 :          lu(k,1272) = lu(k,1272) * lu(k,1269)
    5246   315224452 :          lu(k,1273) = lu(k,1273) * lu(k,1269)
    5247   315224452 :          lu(k,1274) = lu(k,1274) * lu(k,1269)
    5248   315224452 :          lu(k,1275) = lu(k,1275) * lu(k,1269)
    5249   315224452 :          lu(k,1276) = lu(k,1276) * lu(k,1269)
    5250   315224452 :          lu(k,1277) = lu(k,1277) * lu(k,1269)
    5251   315224452 :          lu(k,1278) = lu(k,1278) * lu(k,1269)
    5252   315224452 :          lu(k,1279) = lu(k,1279) * lu(k,1269)
    5253   315224452 :          lu(k,1298) = lu(k,1298) - lu(k,1270) * lu(k,1297)
    5254   315224452 :          lu(k,1300) = - lu(k,1271) * lu(k,1297)
    5255   315224452 :          lu(k,1302) = - lu(k,1272) * lu(k,1297)
    5256   315224452 :          lu(k,1303) = lu(k,1303) - lu(k,1273) * lu(k,1297)
    5257   315224452 :          lu(k,1304) = lu(k,1304) - lu(k,1274) * lu(k,1297)
    5258   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1275) * lu(k,1297)
    5259   315224452 :          lu(k,1309) = lu(k,1309) - lu(k,1276) * lu(k,1297)
    5260   315224452 :          lu(k,1311) = - lu(k,1277) * lu(k,1297)
    5261   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1278) * lu(k,1297)
    5262   315224452 :          lu(k,1314) = lu(k,1314) - lu(k,1279) * lu(k,1297)
    5263   315224452 :          lu(k,1331) = lu(k,1331) - lu(k,1270) * lu(k,1330)
    5264   315224452 :          lu(k,1333) = - lu(k,1271) * lu(k,1330)
    5265   315224452 :          lu(k,1335) = - lu(k,1272) * lu(k,1330)
    5266   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,1273) * lu(k,1330)
    5267   315224452 :          lu(k,1337) = lu(k,1337) - lu(k,1274) * lu(k,1330)
    5268   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1275) * lu(k,1330)
    5269   315224452 :          lu(k,1342) = lu(k,1342) - lu(k,1276) * lu(k,1330)
    5270   315224452 :          lu(k,1344) = - lu(k,1277) * lu(k,1330)
    5271   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1278) * lu(k,1330)
    5272   315224452 :          lu(k,1347) = lu(k,1347) - lu(k,1279) * lu(k,1330)
    5273   315224452 :          lu(k,1422) = lu(k,1422) - lu(k,1270) * lu(k,1421)
    5274   315224452 :          lu(k,1425) = lu(k,1425) - lu(k,1271) * lu(k,1421)
    5275   315224452 :          lu(k,1427) = lu(k,1427) - lu(k,1272) * lu(k,1421)
    5276   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1273) * lu(k,1421)
    5277   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1274) * lu(k,1421)
    5278   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1275) * lu(k,1421)
    5279   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1276) * lu(k,1421)
    5280   315224452 :          lu(k,1437) = lu(k,1437) - lu(k,1277) * lu(k,1421)
    5281   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1278) * lu(k,1421)
    5282   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1279) * lu(k,1421)
    5283   315224452 :          lu(k,1639) = lu(k,1639) - lu(k,1270) * lu(k,1638)
    5284   315224452 :          lu(k,1642) = lu(k,1642) - lu(k,1271) * lu(k,1638)
    5285   315224452 :          lu(k,1644) = lu(k,1644) - lu(k,1272) * lu(k,1638)
    5286   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1273) * lu(k,1638)
    5287   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1274) * lu(k,1638)
    5288   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1275) * lu(k,1638)
    5289   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1276) * lu(k,1638)
    5290   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1277) * lu(k,1638)
    5291   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1278) * lu(k,1638)
    5292   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1279) * lu(k,1638)
    5293   315224452 :          lu(k,1802) = lu(k,1802) - lu(k,1270) * lu(k,1801)
    5294   315224452 :          lu(k,1805) = lu(k,1805) - lu(k,1271) * lu(k,1801)
    5295   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,1272) * lu(k,1801)
    5296   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1273) * lu(k,1801)
    5297   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1274) * lu(k,1801)
    5298   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1275) * lu(k,1801)
    5299   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1276) * lu(k,1801)
    5300   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1277) * lu(k,1801)
    5301   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1278) * lu(k,1801)
    5302   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1279) * lu(k,1801)
    5303   315224452 :          lu(k,1900) = lu(k,1900) - lu(k,1270) * lu(k,1899)
    5304   315224452 :          lu(k,1903) = lu(k,1903) - lu(k,1271) * lu(k,1899)
    5305   315224452 :          lu(k,1905) = lu(k,1905) - lu(k,1272) * lu(k,1899)
    5306   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1273) * lu(k,1899)
    5307   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1274) * lu(k,1899)
    5308   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1275) * lu(k,1899)
    5309   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1276) * lu(k,1899)
    5310   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1277) * lu(k,1899)
    5311   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1278) * lu(k,1899)
    5312   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1279) * lu(k,1899)
    5313   315224452 :          lu(k,2210) = lu(k,2210) - lu(k,1270) * lu(k,2209)
    5314   315224452 :          lu(k,2213) = - lu(k,1271) * lu(k,2209)
    5315   315224452 :          lu(k,2215) = - lu(k,1272) * lu(k,2209)
    5316   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1273) * lu(k,2209)
    5317   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1274) * lu(k,2209)
    5318   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1275) * lu(k,2209)
    5319   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1276) * lu(k,2209)
    5320   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1277) * lu(k,2209)
    5321   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1278) * lu(k,2209)
    5322   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1279) * lu(k,2209)
    5323   315224452 :          lu(k,2342) = lu(k,2342) - lu(k,1270) * lu(k,2341)
    5324   315224452 :          lu(k,2345) = lu(k,2345) - lu(k,1271) * lu(k,2341)
    5325   315224452 :          lu(k,2347) = lu(k,2347) - lu(k,1272) * lu(k,2341)
    5326   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1273) * lu(k,2341)
    5327   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1274) * lu(k,2341)
    5328   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1275) * lu(k,2341)
    5329   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1276) * lu(k,2341)
    5330   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1277) * lu(k,2341)
    5331   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1278) * lu(k,2341)
    5332   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1279) * lu(k,2341)
    5333   315224452 :          lu(k,2397) = lu(k,2397) - lu(k,1270) * lu(k,2396)
    5334   315224452 :          lu(k,2400) = lu(k,2400) - lu(k,1271) * lu(k,2396)
    5335   315224452 :          lu(k,2402) = lu(k,2402) - lu(k,1272) * lu(k,2396)
    5336   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1273) * lu(k,2396)
    5337   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1274) * lu(k,2396)
    5338   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1275) * lu(k,2396)
    5339   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1276) * lu(k,2396)
    5340   315224452 :          lu(k,2418) = - lu(k,1277) * lu(k,2396)
    5341   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1278) * lu(k,2396)
    5342   325174377 :          lu(k,2422) = lu(k,2422) - lu(k,1279) * lu(k,2396)
    5343             :       end do
    5344     9949925 :       end subroutine lu_fac25
    5345     9949925 :       subroutine lu_fac26( avec_len, lu )
    5346             :       use chem_mods, only : nzcnt
    5347             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5348             :       implicit none
    5349             : !-----------------------------------------------------------------------
    5350             : ! ... dummy args
    5351             : !-----------------------------------------------------------------------
    5352             :       integer, intent(in) :: avec_len
    5353             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5354             : !-----------------------------------------------------------------------
    5355             : ! ... local variables
    5356             : !-----------------------------------------------------------------------
    5357             :       integer :: k
    5358   325174377 :       do k = 1,avec_len
    5359   315224452 :          lu(k,1281) = 1._r8 / lu(k,1281)
    5360   315224452 :          lu(k,1282) = lu(k,1282) * lu(k,1281)
    5361   315224452 :          lu(k,1283) = lu(k,1283) * lu(k,1281)
    5362   315224452 :          lu(k,1284) = lu(k,1284) * lu(k,1281)
    5363   315224452 :          lu(k,1285) = lu(k,1285) * lu(k,1281)
    5364   315224452 :          lu(k,1286) = lu(k,1286) * lu(k,1281)
    5365   315224452 :          lu(k,1287) = lu(k,1287) * lu(k,1281)
    5366   315224452 :          lu(k,1288) = lu(k,1288) * lu(k,1281)
    5367   315224452 :          lu(k,1303) = lu(k,1303) - lu(k,1282) * lu(k,1298)
    5368   315224452 :          lu(k,1304) = lu(k,1304) - lu(k,1283) * lu(k,1298)
    5369   315224452 :          lu(k,1305) = lu(k,1305) - lu(k,1284) * lu(k,1298)
    5370   315224452 :          lu(k,1306) = lu(k,1306) - lu(k,1285) * lu(k,1298)
    5371   315224452 :          lu(k,1310) = lu(k,1310) - lu(k,1286) * lu(k,1298)
    5372   315224452 :          lu(k,1312) = lu(k,1312) - lu(k,1287) * lu(k,1298)
    5373   315224452 :          lu(k,1314) = lu(k,1314) - lu(k,1288) * lu(k,1298)
    5374   315224452 :          lu(k,1336) = lu(k,1336) - lu(k,1282) * lu(k,1331)
    5375   315224452 :          lu(k,1337) = lu(k,1337) - lu(k,1283) * lu(k,1331)
    5376   315224452 :          lu(k,1338) = lu(k,1338) - lu(k,1284) * lu(k,1331)
    5377   315224452 :          lu(k,1339) = lu(k,1339) - lu(k,1285) * lu(k,1331)
    5378   315224452 :          lu(k,1343) = lu(k,1343) - lu(k,1286) * lu(k,1331)
    5379   315224452 :          lu(k,1345) = lu(k,1345) - lu(k,1287) * lu(k,1331)
    5380   315224452 :          lu(k,1347) = lu(k,1347) - lu(k,1288) * lu(k,1331)
    5381   315224452 :          lu(k,1358) = lu(k,1358) - lu(k,1282) * lu(k,1355)
    5382   315224452 :          lu(k,1359) = lu(k,1359) - lu(k,1283) * lu(k,1355)
    5383   315224452 :          lu(k,1360) = lu(k,1360) - lu(k,1284) * lu(k,1355)
    5384   315224452 :          lu(k,1361) = lu(k,1361) - lu(k,1285) * lu(k,1355)
    5385   315224452 :          lu(k,1365) = lu(k,1365) - lu(k,1286) * lu(k,1355)
    5386   315224452 :          lu(k,1366) = lu(k,1366) - lu(k,1287) * lu(k,1355)
    5387   315224452 :          lu(k,1368) = lu(k,1368) - lu(k,1288) * lu(k,1355)
    5388   315224452 :          lu(k,1378) = lu(k,1378) - lu(k,1282) * lu(k,1374)
    5389   315224452 :          lu(k,1379) = lu(k,1379) - lu(k,1283) * lu(k,1374)
    5390   315224452 :          lu(k,1381) = lu(k,1381) - lu(k,1284) * lu(k,1374)
    5391   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,1285) * lu(k,1374)
    5392   315224452 :          lu(k,1386) = lu(k,1386) - lu(k,1286) * lu(k,1374)
    5393   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,1287) * lu(k,1374)
    5394   315224452 :          lu(k,1391) = lu(k,1391) - lu(k,1288) * lu(k,1374)
    5395   315224452 :          lu(k,1398) = lu(k,1398) - lu(k,1282) * lu(k,1396)
    5396   315224452 :          lu(k,1399) = lu(k,1399) - lu(k,1283) * lu(k,1396)
    5397   315224452 :          lu(k,1400) = lu(k,1400) - lu(k,1284) * lu(k,1396)
    5398   315224452 :          lu(k,1401) = lu(k,1401) - lu(k,1285) * lu(k,1396)
    5399   315224452 :          lu(k,1405) = - lu(k,1286) * lu(k,1396)
    5400   315224452 :          lu(k,1407) = lu(k,1407) - lu(k,1287) * lu(k,1396)
    5401   315224452 :          lu(k,1409) = lu(k,1409) - lu(k,1288) * lu(k,1396)
    5402   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1282) * lu(k,1422)
    5403   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1283) * lu(k,1422)
    5404   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1284) * lu(k,1422)
    5405   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1285) * lu(k,1422)
    5406   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1286) * lu(k,1422)
    5407   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1287) * lu(k,1422)
    5408   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1288) * lu(k,1422)
    5409   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1282) * lu(k,1639)
    5410   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1283) * lu(k,1639)
    5411   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1284) * lu(k,1639)
    5412   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1285) * lu(k,1639)
    5413   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1286) * lu(k,1639)
    5414   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1287) * lu(k,1639)
    5415   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1288) * lu(k,1639)
    5416   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1282) * lu(k,1802)
    5417   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1283) * lu(k,1802)
    5418   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1284) * lu(k,1802)
    5419   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1285) * lu(k,1802)
    5420   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1286) * lu(k,1802)
    5421   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1287) * lu(k,1802)
    5422   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1288) * lu(k,1802)
    5423   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1282) * lu(k,1900)
    5424   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1283) * lu(k,1900)
    5425   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1284) * lu(k,1900)
    5426   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1285) * lu(k,1900)
    5427   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1286) * lu(k,1900)
    5428   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1287) * lu(k,1900)
    5429   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1288) * lu(k,1900)
    5430   315224452 :          lu(k,1949) = lu(k,1949) - lu(k,1282) * lu(k,1947)
    5431   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,1283) * lu(k,1947)
    5432   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,1284) * lu(k,1947)
    5433   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1285) * lu(k,1947)
    5434   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1286) * lu(k,1947)
    5435   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1287) * lu(k,1947)
    5436   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1288) * lu(k,1947)
    5437   315224452 :          lu(k,2151) = lu(k,2151) - lu(k,1282) * lu(k,2150)
    5438   315224452 :          lu(k,2152) = lu(k,2152) - lu(k,1283) * lu(k,2150)
    5439   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1284) * lu(k,2150)
    5440   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1285) * lu(k,2150)
    5441   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1286) * lu(k,2150)
    5442   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1287) * lu(k,2150)
    5443   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1288) * lu(k,2150)
    5444   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1282) * lu(k,2210)
    5445   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1283) * lu(k,2210)
    5446   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1284) * lu(k,2210)
    5447   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1285) * lu(k,2210)
    5448   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1286) * lu(k,2210)
    5449   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1287) * lu(k,2210)
    5450   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1288) * lu(k,2210)
    5451   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1282) * lu(k,2342)
    5452   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1283) * lu(k,2342)
    5453   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1284) * lu(k,2342)
    5454   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1285) * lu(k,2342)
    5455   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1286) * lu(k,2342)
    5456   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1287) * lu(k,2342)
    5457   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1288) * lu(k,2342)
    5458   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1282) * lu(k,2397)
    5459   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1283) * lu(k,2397)
    5460   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1284) * lu(k,2397)
    5461   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1285) * lu(k,2397)
    5462   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1286) * lu(k,2397)
    5463   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1287) * lu(k,2397)
    5464   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1288) * lu(k,2397)
    5465   315224452 :          lu(k,1299) = 1._r8 / lu(k,1299)
    5466   315224452 :          lu(k,1300) = lu(k,1300) * lu(k,1299)
    5467   315224452 :          lu(k,1301) = lu(k,1301) * lu(k,1299)
    5468   315224452 :          lu(k,1302) = lu(k,1302) * lu(k,1299)
    5469   315224452 :          lu(k,1303) = lu(k,1303) * lu(k,1299)
    5470   315224452 :          lu(k,1304) = lu(k,1304) * lu(k,1299)
    5471   315224452 :          lu(k,1305) = lu(k,1305) * lu(k,1299)
    5472   315224452 :          lu(k,1306) = lu(k,1306) * lu(k,1299)
    5473   315224452 :          lu(k,1307) = lu(k,1307) * lu(k,1299)
    5474   315224452 :          lu(k,1308) = lu(k,1308) * lu(k,1299)
    5475   315224452 :          lu(k,1309) = lu(k,1309) * lu(k,1299)
    5476   315224452 :          lu(k,1310) = lu(k,1310) * lu(k,1299)
    5477   315224452 :          lu(k,1311) = lu(k,1311) * lu(k,1299)
    5478   315224452 :          lu(k,1312) = lu(k,1312) * lu(k,1299)
    5479   315224452 :          lu(k,1313) = lu(k,1313) * lu(k,1299)
    5480   315224452 :          lu(k,1314) = lu(k,1314) * lu(k,1299)
    5481   315224452 :          lu(k,1425) = lu(k,1425) - lu(k,1300) * lu(k,1423)
    5482   315224452 :          lu(k,1426) = lu(k,1426) - lu(k,1301) * lu(k,1423)
    5483   315224452 :          lu(k,1427) = lu(k,1427) - lu(k,1302) * lu(k,1423)
    5484   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1303) * lu(k,1423)
    5485   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1304) * lu(k,1423)
    5486   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1305) * lu(k,1423)
    5487   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1306) * lu(k,1423)
    5488   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1307) * lu(k,1423)
    5489   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1308) * lu(k,1423)
    5490   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1309) * lu(k,1423)
    5491   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1310) * lu(k,1423)
    5492   315224452 :          lu(k,1437) = lu(k,1437) - lu(k,1311) * lu(k,1423)
    5493   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1312) * lu(k,1423)
    5494   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1313) * lu(k,1423)
    5495   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1314) * lu(k,1423)
    5496   315224452 :          lu(k,1642) = lu(k,1642) - lu(k,1300) * lu(k,1640)
    5497   315224452 :          lu(k,1643) = lu(k,1643) - lu(k,1301) * lu(k,1640)
    5498   315224452 :          lu(k,1644) = lu(k,1644) - lu(k,1302) * lu(k,1640)
    5499   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1303) * lu(k,1640)
    5500   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1304) * lu(k,1640)
    5501   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1305) * lu(k,1640)
    5502   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1306) * lu(k,1640)
    5503   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1307) * lu(k,1640)
    5504   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1308) * lu(k,1640)
    5505   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1309) * lu(k,1640)
    5506   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1310) * lu(k,1640)
    5507   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1311) * lu(k,1640)
    5508   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1312) * lu(k,1640)
    5509   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1313) * lu(k,1640)
    5510   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1314) * lu(k,1640)
    5511   315224452 :          lu(k,1805) = lu(k,1805) - lu(k,1300) * lu(k,1803)
    5512   315224452 :          lu(k,1806) = lu(k,1806) - lu(k,1301) * lu(k,1803)
    5513   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,1302) * lu(k,1803)
    5514   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1303) * lu(k,1803)
    5515   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1304) * lu(k,1803)
    5516   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1305) * lu(k,1803)
    5517   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1306) * lu(k,1803)
    5518   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1307) * lu(k,1803)
    5519   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1308) * lu(k,1803)
    5520   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1309) * lu(k,1803)
    5521   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1310) * lu(k,1803)
    5522   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1311) * lu(k,1803)
    5523   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1312) * lu(k,1803)
    5524   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1313) * lu(k,1803)
    5525   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1314) * lu(k,1803)
    5526   315224452 :          lu(k,1903) = lu(k,1903) - lu(k,1300) * lu(k,1901)
    5527   315224452 :          lu(k,1904) = lu(k,1904) - lu(k,1301) * lu(k,1901)
    5528   315224452 :          lu(k,1905) = lu(k,1905) - lu(k,1302) * lu(k,1901)
    5529   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1303) * lu(k,1901)
    5530   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1304) * lu(k,1901)
    5531   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1305) * lu(k,1901)
    5532   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1306) * lu(k,1901)
    5533   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1307) * lu(k,1901)
    5534   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1308) * lu(k,1901)
    5535   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1309) * lu(k,1901)
    5536   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1310) * lu(k,1901)
    5537   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1311) * lu(k,1901)
    5538   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1312) * lu(k,1901)
    5539   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1313) * lu(k,1901)
    5540   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1314) * lu(k,1901)
    5541   315224452 :          lu(k,2213) = lu(k,2213) - lu(k,1300) * lu(k,2211)
    5542   315224452 :          lu(k,2214) = lu(k,2214) - lu(k,1301) * lu(k,2211)
    5543   315224452 :          lu(k,2215) = lu(k,2215) - lu(k,1302) * lu(k,2211)
    5544   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1303) * lu(k,2211)
    5545   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1304) * lu(k,2211)
    5546   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1305) * lu(k,2211)
    5547   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1306) * lu(k,2211)
    5548   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1307) * lu(k,2211)
    5549   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1308) * lu(k,2211)
    5550   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1309) * lu(k,2211)
    5551   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1310) * lu(k,2211)
    5552   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1311) * lu(k,2211)
    5553   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1312) * lu(k,2211)
    5554   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1313) * lu(k,2211)
    5555   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1314) * lu(k,2211)
    5556   315224452 :          lu(k,2345) = lu(k,2345) - lu(k,1300) * lu(k,2343)
    5557   315224452 :          lu(k,2346) = lu(k,2346) - lu(k,1301) * lu(k,2343)
    5558   315224452 :          lu(k,2347) = lu(k,2347) - lu(k,1302) * lu(k,2343)
    5559   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1303) * lu(k,2343)
    5560   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1304) * lu(k,2343)
    5561   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1305) * lu(k,2343)
    5562   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1306) * lu(k,2343)
    5563   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1307) * lu(k,2343)
    5564   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1308) * lu(k,2343)
    5565   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1309) * lu(k,2343)
    5566   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1310) * lu(k,2343)
    5567   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1311) * lu(k,2343)
    5568   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1312) * lu(k,2343)
    5569   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1313) * lu(k,2343)
    5570   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1314) * lu(k,2343)
    5571   315224452 :          lu(k,2400) = lu(k,2400) - lu(k,1300) * lu(k,2398)
    5572   315224452 :          lu(k,2401) = lu(k,2401) - lu(k,1301) * lu(k,2398)
    5573   315224452 :          lu(k,2402) = lu(k,2402) - lu(k,1302) * lu(k,2398)
    5574   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1303) * lu(k,2398)
    5575   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1304) * lu(k,2398)
    5576   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1305) * lu(k,2398)
    5577   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1306) * lu(k,2398)
    5578   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1307) * lu(k,2398)
    5579   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1308) * lu(k,2398)
    5580   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1309) * lu(k,2398)
    5581   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1310) * lu(k,2398)
    5582   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1311) * lu(k,2398)
    5583   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1312) * lu(k,2398)
    5584   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1313) * lu(k,2398)
    5585   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1314) * lu(k,2398)
    5586   315224452 :          lu(k,1332) = 1._r8 / lu(k,1332)
    5587   315224452 :          lu(k,1333) = lu(k,1333) * lu(k,1332)
    5588   315224452 :          lu(k,1334) = lu(k,1334) * lu(k,1332)
    5589   315224452 :          lu(k,1335) = lu(k,1335) * lu(k,1332)
    5590   315224452 :          lu(k,1336) = lu(k,1336) * lu(k,1332)
    5591   315224452 :          lu(k,1337) = lu(k,1337) * lu(k,1332)
    5592   315224452 :          lu(k,1338) = lu(k,1338) * lu(k,1332)
    5593   315224452 :          lu(k,1339) = lu(k,1339) * lu(k,1332)
    5594   315224452 :          lu(k,1340) = lu(k,1340) * lu(k,1332)
    5595   315224452 :          lu(k,1341) = lu(k,1341) * lu(k,1332)
    5596   315224452 :          lu(k,1342) = lu(k,1342) * lu(k,1332)
    5597   315224452 :          lu(k,1343) = lu(k,1343) * lu(k,1332)
    5598   315224452 :          lu(k,1344) = lu(k,1344) * lu(k,1332)
    5599   315224452 :          lu(k,1345) = lu(k,1345) * lu(k,1332)
    5600   315224452 :          lu(k,1346) = lu(k,1346) * lu(k,1332)
    5601   315224452 :          lu(k,1347) = lu(k,1347) * lu(k,1332)
    5602   315224452 :          lu(k,1425) = lu(k,1425) - lu(k,1333) * lu(k,1424)
    5603   315224452 :          lu(k,1426) = lu(k,1426) - lu(k,1334) * lu(k,1424)
    5604   315224452 :          lu(k,1427) = lu(k,1427) - lu(k,1335) * lu(k,1424)
    5605   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1336) * lu(k,1424)
    5606   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1337) * lu(k,1424)
    5607   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1338) * lu(k,1424)
    5608   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1339) * lu(k,1424)
    5609   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1340) * lu(k,1424)
    5610   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1341) * lu(k,1424)
    5611   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1342) * lu(k,1424)
    5612   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1343) * lu(k,1424)
    5613   315224452 :          lu(k,1437) = lu(k,1437) - lu(k,1344) * lu(k,1424)
    5614   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1345) * lu(k,1424)
    5615   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1346) * lu(k,1424)
    5616   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1347) * lu(k,1424)
    5617   315224452 :          lu(k,1642) = lu(k,1642) - lu(k,1333) * lu(k,1641)
    5618   315224452 :          lu(k,1643) = lu(k,1643) - lu(k,1334) * lu(k,1641)
    5619   315224452 :          lu(k,1644) = lu(k,1644) - lu(k,1335) * lu(k,1641)
    5620   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1336) * lu(k,1641)
    5621   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1337) * lu(k,1641)
    5622   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1338) * lu(k,1641)
    5623   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1339) * lu(k,1641)
    5624   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1340) * lu(k,1641)
    5625   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1341) * lu(k,1641)
    5626   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1342) * lu(k,1641)
    5627   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1343) * lu(k,1641)
    5628   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1344) * lu(k,1641)
    5629   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1345) * lu(k,1641)
    5630   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1346) * lu(k,1641)
    5631   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1347) * lu(k,1641)
    5632   315224452 :          lu(k,1805) = lu(k,1805) - lu(k,1333) * lu(k,1804)
    5633   315224452 :          lu(k,1806) = lu(k,1806) - lu(k,1334) * lu(k,1804)
    5634   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,1335) * lu(k,1804)
    5635   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1336) * lu(k,1804)
    5636   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1337) * lu(k,1804)
    5637   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1338) * lu(k,1804)
    5638   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1339) * lu(k,1804)
    5639   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1340) * lu(k,1804)
    5640   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1341) * lu(k,1804)
    5641   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1342) * lu(k,1804)
    5642   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1343) * lu(k,1804)
    5643   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1344) * lu(k,1804)
    5644   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1345) * lu(k,1804)
    5645   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1346) * lu(k,1804)
    5646   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1347) * lu(k,1804)
    5647   315224452 :          lu(k,1903) = lu(k,1903) - lu(k,1333) * lu(k,1902)
    5648   315224452 :          lu(k,1904) = lu(k,1904) - lu(k,1334) * lu(k,1902)
    5649   315224452 :          lu(k,1905) = lu(k,1905) - lu(k,1335) * lu(k,1902)
    5650   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1336) * lu(k,1902)
    5651   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1337) * lu(k,1902)
    5652   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1338) * lu(k,1902)
    5653   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1339) * lu(k,1902)
    5654   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1340) * lu(k,1902)
    5655   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1341) * lu(k,1902)
    5656   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1342) * lu(k,1902)
    5657   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1343) * lu(k,1902)
    5658   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1344) * lu(k,1902)
    5659   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1345) * lu(k,1902)
    5660   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1346) * lu(k,1902)
    5661   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1347) * lu(k,1902)
    5662   315224452 :          lu(k,2213) = lu(k,2213) - lu(k,1333) * lu(k,2212)
    5663   315224452 :          lu(k,2214) = lu(k,2214) - lu(k,1334) * lu(k,2212)
    5664   315224452 :          lu(k,2215) = lu(k,2215) - lu(k,1335) * lu(k,2212)
    5665   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1336) * lu(k,2212)
    5666   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1337) * lu(k,2212)
    5667   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1338) * lu(k,2212)
    5668   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1339) * lu(k,2212)
    5669   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1340) * lu(k,2212)
    5670   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1341) * lu(k,2212)
    5671   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1342) * lu(k,2212)
    5672   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1343) * lu(k,2212)
    5673   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1344) * lu(k,2212)
    5674   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1345) * lu(k,2212)
    5675   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1346) * lu(k,2212)
    5676   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1347) * lu(k,2212)
    5677   315224452 :          lu(k,2345) = lu(k,2345) - lu(k,1333) * lu(k,2344)
    5678   315224452 :          lu(k,2346) = lu(k,2346) - lu(k,1334) * lu(k,2344)
    5679   315224452 :          lu(k,2347) = lu(k,2347) - lu(k,1335) * lu(k,2344)
    5680   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1336) * lu(k,2344)
    5681   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1337) * lu(k,2344)
    5682   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1338) * lu(k,2344)
    5683   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1339) * lu(k,2344)
    5684   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1340) * lu(k,2344)
    5685   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1341) * lu(k,2344)
    5686   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1342) * lu(k,2344)
    5687   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1343) * lu(k,2344)
    5688   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1344) * lu(k,2344)
    5689   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1345) * lu(k,2344)
    5690   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1346) * lu(k,2344)
    5691   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1347) * lu(k,2344)
    5692   315224452 :          lu(k,2400) = lu(k,2400) - lu(k,1333) * lu(k,2399)
    5693   315224452 :          lu(k,2401) = lu(k,2401) - lu(k,1334) * lu(k,2399)
    5694   315224452 :          lu(k,2402) = lu(k,2402) - lu(k,1335) * lu(k,2399)
    5695   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1336) * lu(k,2399)
    5696   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1337) * lu(k,2399)
    5697   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1338) * lu(k,2399)
    5698   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1339) * lu(k,2399)
    5699   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1340) * lu(k,2399)
    5700   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1341) * lu(k,2399)
    5701   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1342) * lu(k,2399)
    5702   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1343) * lu(k,2399)
    5703   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1344) * lu(k,2399)
    5704   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1345) * lu(k,2399)
    5705   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1346) * lu(k,2399)
    5706   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1347) * lu(k,2399)
    5707   315224452 :          lu(k,1356) = 1._r8 / lu(k,1356)
    5708   315224452 :          lu(k,1357) = lu(k,1357) * lu(k,1356)
    5709   315224452 :          lu(k,1358) = lu(k,1358) * lu(k,1356)
    5710   315224452 :          lu(k,1359) = lu(k,1359) * lu(k,1356)
    5711   315224452 :          lu(k,1360) = lu(k,1360) * lu(k,1356)
    5712   315224452 :          lu(k,1361) = lu(k,1361) * lu(k,1356)
    5713   315224452 :          lu(k,1362) = lu(k,1362) * lu(k,1356)
    5714   315224452 :          lu(k,1363) = lu(k,1363) * lu(k,1356)
    5715   315224452 :          lu(k,1364) = lu(k,1364) * lu(k,1356)
    5716   315224452 :          lu(k,1365) = lu(k,1365) * lu(k,1356)
    5717   315224452 :          lu(k,1366) = lu(k,1366) * lu(k,1356)
    5718   315224452 :          lu(k,1367) = lu(k,1367) * lu(k,1356)
    5719   315224452 :          lu(k,1368) = lu(k,1368) * lu(k,1356)
    5720   315224452 :          lu(k,1377) = - lu(k,1357) * lu(k,1375)
    5721   315224452 :          lu(k,1378) = lu(k,1378) - lu(k,1358) * lu(k,1375)
    5722   315224452 :          lu(k,1379) = lu(k,1379) - lu(k,1359) * lu(k,1375)
    5723   315224452 :          lu(k,1381) = lu(k,1381) - lu(k,1360) * lu(k,1375)
    5724   315224452 :          lu(k,1382) = lu(k,1382) - lu(k,1361) * lu(k,1375)
    5725   315224452 :          lu(k,1383) = lu(k,1383) - lu(k,1362) * lu(k,1375)
    5726   315224452 :          lu(k,1384) = lu(k,1384) - lu(k,1363) * lu(k,1375)
    5727   315224452 :          lu(k,1385) = lu(k,1385) - lu(k,1364) * lu(k,1375)
    5728   315224452 :          lu(k,1386) = lu(k,1386) - lu(k,1365) * lu(k,1375)
    5729   315224452 :          lu(k,1389) = lu(k,1389) - lu(k,1366) * lu(k,1375)
    5730   315224452 :          lu(k,1390) = lu(k,1390) - lu(k,1367) * lu(k,1375)
    5731   315224452 :          lu(k,1391) = lu(k,1391) - lu(k,1368) * lu(k,1375)
    5732   315224452 :          lu(k,1427) = lu(k,1427) - lu(k,1357) * lu(k,1425)
    5733   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1358) * lu(k,1425)
    5734   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1359) * lu(k,1425)
    5735   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1360) * lu(k,1425)
    5736   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1361) * lu(k,1425)
    5737   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1362) * lu(k,1425)
    5738   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1363) * lu(k,1425)
    5739   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1364) * lu(k,1425)
    5740   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1365) * lu(k,1425)
    5741   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1366) * lu(k,1425)
    5742   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1367) * lu(k,1425)
    5743   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1368) * lu(k,1425)
    5744   315224452 :          lu(k,1644) = lu(k,1644) - lu(k,1357) * lu(k,1642)
    5745   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1358) * lu(k,1642)
    5746   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1359) * lu(k,1642)
    5747   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1360) * lu(k,1642)
    5748   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1361) * lu(k,1642)
    5749   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1362) * lu(k,1642)
    5750   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1363) * lu(k,1642)
    5751   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1364) * lu(k,1642)
    5752   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1365) * lu(k,1642)
    5753   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1366) * lu(k,1642)
    5754   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1367) * lu(k,1642)
    5755   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1368) * lu(k,1642)
    5756   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,1357) * lu(k,1805)
    5757   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1358) * lu(k,1805)
    5758   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1359) * lu(k,1805)
    5759   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1360) * lu(k,1805)
    5760   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1361) * lu(k,1805)
    5761   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1362) * lu(k,1805)
    5762   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1363) * lu(k,1805)
    5763   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1364) * lu(k,1805)
    5764   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1365) * lu(k,1805)
    5765   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1366) * lu(k,1805)
    5766   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1367) * lu(k,1805)
    5767   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1368) * lu(k,1805)
    5768   315224452 :          lu(k,1905) = lu(k,1905) - lu(k,1357) * lu(k,1903)
    5769   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1358) * lu(k,1903)
    5770   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1359) * lu(k,1903)
    5771   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1360) * lu(k,1903)
    5772   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1361) * lu(k,1903)
    5773   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1362) * lu(k,1903)
    5774   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1363) * lu(k,1903)
    5775   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1364) * lu(k,1903)
    5776   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1365) * lu(k,1903)
    5777   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1366) * lu(k,1903)
    5778   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1367) * lu(k,1903)
    5779   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1368) * lu(k,1903)
    5780   315224452 :          lu(k,2215) = lu(k,2215) - lu(k,1357) * lu(k,2213)
    5781   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1358) * lu(k,2213)
    5782   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1359) * lu(k,2213)
    5783   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1360) * lu(k,2213)
    5784   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1361) * lu(k,2213)
    5785   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1362) * lu(k,2213)
    5786   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1363) * lu(k,2213)
    5787   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1364) * lu(k,2213)
    5788   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1365) * lu(k,2213)
    5789   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1366) * lu(k,2213)
    5790   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1367) * lu(k,2213)
    5791   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1368) * lu(k,2213)
    5792   315224452 :          lu(k,2347) = lu(k,2347) - lu(k,1357) * lu(k,2345)
    5793   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1358) * lu(k,2345)
    5794   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1359) * lu(k,2345)
    5795   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1360) * lu(k,2345)
    5796   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1361) * lu(k,2345)
    5797   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1362) * lu(k,2345)
    5798   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1363) * lu(k,2345)
    5799   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1364) * lu(k,2345)
    5800   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1365) * lu(k,2345)
    5801   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1366) * lu(k,2345)
    5802   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1367) * lu(k,2345)
    5803   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1368) * lu(k,2345)
    5804   315224452 :          lu(k,2402) = lu(k,2402) - lu(k,1357) * lu(k,2400)
    5805   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1358) * lu(k,2400)
    5806   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1359) * lu(k,2400)
    5807   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1360) * lu(k,2400)
    5808   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1361) * lu(k,2400)
    5809   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1362) * lu(k,2400)
    5810   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1363) * lu(k,2400)
    5811   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1364) * lu(k,2400)
    5812   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1365) * lu(k,2400)
    5813   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1366) * lu(k,2400)
    5814   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1367) * lu(k,2400)
    5815   325174377 :          lu(k,2422) = lu(k,2422) - lu(k,1368) * lu(k,2400)
    5816             :       end do
    5817     9949925 :       end subroutine lu_fac26
    5818     9949925 :       subroutine lu_fac27( avec_len, lu )
    5819             :       use chem_mods, only : nzcnt
    5820             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5821             :       implicit none
    5822             : !-----------------------------------------------------------------------
    5823             : ! ... dummy args
    5824             : !-----------------------------------------------------------------------
    5825             :       integer, intent(in) :: avec_len
    5826             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5827             : !-----------------------------------------------------------------------
    5828             : ! ... local variables
    5829             : !-----------------------------------------------------------------------
    5830             :       integer :: k
    5831   325174377 :       do k = 1,avec_len
    5832   315224452 :          lu(k,1376) = 1._r8 / lu(k,1376)
    5833   315224452 :          lu(k,1377) = lu(k,1377) * lu(k,1376)
    5834   315224452 :          lu(k,1378) = lu(k,1378) * lu(k,1376)
    5835   315224452 :          lu(k,1379) = lu(k,1379) * lu(k,1376)
    5836   315224452 :          lu(k,1380) = lu(k,1380) * lu(k,1376)
    5837   315224452 :          lu(k,1381) = lu(k,1381) * lu(k,1376)
    5838   315224452 :          lu(k,1382) = lu(k,1382) * lu(k,1376)
    5839   315224452 :          lu(k,1383) = lu(k,1383) * lu(k,1376)
    5840   315224452 :          lu(k,1384) = lu(k,1384) * lu(k,1376)
    5841   315224452 :          lu(k,1385) = lu(k,1385) * lu(k,1376)
    5842   315224452 :          lu(k,1386) = lu(k,1386) * lu(k,1376)
    5843   315224452 :          lu(k,1387) = lu(k,1387) * lu(k,1376)
    5844   315224452 :          lu(k,1388) = lu(k,1388) * lu(k,1376)
    5845   315224452 :          lu(k,1389) = lu(k,1389) * lu(k,1376)
    5846   315224452 :          lu(k,1390) = lu(k,1390) * lu(k,1376)
    5847   315224452 :          lu(k,1391) = lu(k,1391) * lu(k,1376)
    5848   315224452 :          lu(k,1427) = lu(k,1427) - lu(k,1377) * lu(k,1426)
    5849   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1378) * lu(k,1426)
    5850   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1379) * lu(k,1426)
    5851   315224452 :          lu(k,1430) = - lu(k,1380) * lu(k,1426)
    5852   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1381) * lu(k,1426)
    5853   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1382) * lu(k,1426)
    5854   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1383) * lu(k,1426)
    5855   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1384) * lu(k,1426)
    5856   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1385) * lu(k,1426)
    5857   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1386) * lu(k,1426)
    5858   315224452 :          lu(k,1437) = lu(k,1437) - lu(k,1387) * lu(k,1426)
    5859   315224452 :          lu(k,1438) = - lu(k,1388) * lu(k,1426)
    5860   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1389) * lu(k,1426)
    5861   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1390) * lu(k,1426)
    5862   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1391) * lu(k,1426)
    5863   315224452 :          lu(k,1644) = lu(k,1644) - lu(k,1377) * lu(k,1643)
    5864   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1378) * lu(k,1643)
    5865   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1379) * lu(k,1643)
    5866   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1380) * lu(k,1643)
    5867   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1381) * lu(k,1643)
    5868   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1382) * lu(k,1643)
    5869   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1383) * lu(k,1643)
    5870   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1384) * lu(k,1643)
    5871   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1385) * lu(k,1643)
    5872   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1386) * lu(k,1643)
    5873   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1387) * lu(k,1643)
    5874   315224452 :          lu(k,1663) = lu(k,1663) - lu(k,1388) * lu(k,1643)
    5875   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1389) * lu(k,1643)
    5876   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1390) * lu(k,1643)
    5877   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1391) * lu(k,1643)
    5878   315224452 :          lu(k,1807) = lu(k,1807) - lu(k,1377) * lu(k,1806)
    5879   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1378) * lu(k,1806)
    5880   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1379) * lu(k,1806)
    5881   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1380) * lu(k,1806)
    5882   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1381) * lu(k,1806)
    5883   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1382) * lu(k,1806)
    5884   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1383) * lu(k,1806)
    5885   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1384) * lu(k,1806)
    5886   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1385) * lu(k,1806)
    5887   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1386) * lu(k,1806)
    5888   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1387) * lu(k,1806)
    5889   315224452 :          lu(k,1828) = lu(k,1828) - lu(k,1388) * lu(k,1806)
    5890   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1389) * lu(k,1806)
    5891   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1390) * lu(k,1806)
    5892   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1391) * lu(k,1806)
    5893   315224452 :          lu(k,1905) = lu(k,1905) - lu(k,1377) * lu(k,1904)
    5894   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1378) * lu(k,1904)
    5895   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1379) * lu(k,1904)
    5896   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,1380) * lu(k,1904)
    5897   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1381) * lu(k,1904)
    5898   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1382) * lu(k,1904)
    5899   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1383) * lu(k,1904)
    5900   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1384) * lu(k,1904)
    5901   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1385) * lu(k,1904)
    5902   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1386) * lu(k,1904)
    5903   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1387) * lu(k,1904)
    5904   315224452 :          lu(k,1923) = - lu(k,1388) * lu(k,1904)
    5905   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1389) * lu(k,1904)
    5906   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1390) * lu(k,1904)
    5907   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1391) * lu(k,1904)
    5908   315224452 :          lu(k,2215) = lu(k,2215) - lu(k,1377) * lu(k,2214)
    5909   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1378) * lu(k,2214)
    5910   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1379) * lu(k,2214)
    5911   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1380) * lu(k,2214)
    5912   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1381) * lu(k,2214)
    5913   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1382) * lu(k,2214)
    5914   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1383) * lu(k,2214)
    5915   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1384) * lu(k,2214)
    5916   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1385) * lu(k,2214)
    5917   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1386) * lu(k,2214)
    5918   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1387) * lu(k,2214)
    5919   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1388) * lu(k,2214)
    5920   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1389) * lu(k,2214)
    5921   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1390) * lu(k,2214)
    5922   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1391) * lu(k,2214)
    5923   315224452 :          lu(k,2347) = lu(k,2347) - lu(k,1377) * lu(k,2346)
    5924   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1378) * lu(k,2346)
    5925   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1379) * lu(k,2346)
    5926   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,1380) * lu(k,2346)
    5927   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1381) * lu(k,2346)
    5928   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1382) * lu(k,2346)
    5929   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1383) * lu(k,2346)
    5930   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1384) * lu(k,2346)
    5931   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1385) * lu(k,2346)
    5932   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1386) * lu(k,2346)
    5933   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1387) * lu(k,2346)
    5934   315224452 :          lu(k,2367) = - lu(k,1388) * lu(k,2346)
    5935   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1389) * lu(k,2346)
    5936   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1390) * lu(k,2346)
    5937   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1391) * lu(k,2346)
    5938   315224452 :          lu(k,2402) = lu(k,2402) - lu(k,1377) * lu(k,2401)
    5939   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1378) * lu(k,2401)
    5940   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1379) * lu(k,2401)
    5941   315224452 :          lu(k,2405) = lu(k,2405) - lu(k,1380) * lu(k,2401)
    5942   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1381) * lu(k,2401)
    5943   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1382) * lu(k,2401)
    5944   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1383) * lu(k,2401)
    5945   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1384) * lu(k,2401)
    5946   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1385) * lu(k,2401)
    5947   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1386) * lu(k,2401)
    5948   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1387) * lu(k,2401)
    5949   315224452 :          lu(k,2419) = - lu(k,1388) * lu(k,2401)
    5950   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1389) * lu(k,2401)
    5951   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1390) * lu(k,2401)
    5952   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1391) * lu(k,2401)
    5953   315224452 :          lu(k,1397) = 1._r8 / lu(k,1397)
    5954   315224452 :          lu(k,1398) = lu(k,1398) * lu(k,1397)
    5955   315224452 :          lu(k,1399) = lu(k,1399) * lu(k,1397)
    5956   315224452 :          lu(k,1400) = lu(k,1400) * lu(k,1397)
    5957   315224452 :          lu(k,1401) = lu(k,1401) * lu(k,1397)
    5958   315224452 :          lu(k,1402) = lu(k,1402) * lu(k,1397)
    5959   315224452 :          lu(k,1403) = lu(k,1403) * lu(k,1397)
    5960   315224452 :          lu(k,1404) = lu(k,1404) * lu(k,1397)
    5961   315224452 :          lu(k,1405) = lu(k,1405) * lu(k,1397)
    5962   315224452 :          lu(k,1406) = lu(k,1406) * lu(k,1397)
    5963   315224452 :          lu(k,1407) = lu(k,1407) * lu(k,1397)
    5964   315224452 :          lu(k,1408) = lu(k,1408) * lu(k,1397)
    5965   315224452 :          lu(k,1409) = lu(k,1409) * lu(k,1397)
    5966   315224452 :          lu(k,1428) = lu(k,1428) - lu(k,1398) * lu(k,1427)
    5967   315224452 :          lu(k,1429) = lu(k,1429) - lu(k,1399) * lu(k,1427)
    5968   315224452 :          lu(k,1431) = lu(k,1431) - lu(k,1400) * lu(k,1427)
    5969   315224452 :          lu(k,1432) = lu(k,1432) - lu(k,1401) * lu(k,1427)
    5970   315224452 :          lu(k,1433) = lu(k,1433) - lu(k,1402) * lu(k,1427)
    5971   315224452 :          lu(k,1434) = lu(k,1434) - lu(k,1403) * lu(k,1427)
    5972   315224452 :          lu(k,1435) = lu(k,1435) - lu(k,1404) * lu(k,1427)
    5973   315224452 :          lu(k,1436) = lu(k,1436) - lu(k,1405) * lu(k,1427)
    5974   315224452 :          lu(k,1437) = lu(k,1437) - lu(k,1406) * lu(k,1427)
    5975   315224452 :          lu(k,1439) = lu(k,1439) - lu(k,1407) * lu(k,1427)
    5976   315224452 :          lu(k,1440) = lu(k,1440) - lu(k,1408) * lu(k,1427)
    5977   315224452 :          lu(k,1441) = lu(k,1441) - lu(k,1409) * lu(k,1427)
    5978   315224452 :          lu(k,1645) = lu(k,1645) - lu(k,1398) * lu(k,1644)
    5979   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1399) * lu(k,1644)
    5980   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1400) * lu(k,1644)
    5981   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1401) * lu(k,1644)
    5982   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1402) * lu(k,1644)
    5983   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1403) * lu(k,1644)
    5984   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1404) * lu(k,1644)
    5985   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1405) * lu(k,1644)
    5986   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1406) * lu(k,1644)
    5987   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1407) * lu(k,1644)
    5988   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1408) * lu(k,1644)
    5989   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1409) * lu(k,1644)
    5990   315224452 :          lu(k,1808) = lu(k,1808) - lu(k,1398) * lu(k,1807)
    5991   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1399) * lu(k,1807)
    5992   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1400) * lu(k,1807)
    5993   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1401) * lu(k,1807)
    5994   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1402) * lu(k,1807)
    5995   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1403) * lu(k,1807)
    5996   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1404) * lu(k,1807)
    5997   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1405) * lu(k,1807)
    5998   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1406) * lu(k,1807)
    5999   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1407) * lu(k,1807)
    6000   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1408) * lu(k,1807)
    6001   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1409) * lu(k,1807)
    6002   315224452 :          lu(k,1906) = lu(k,1906) - lu(k,1398) * lu(k,1905)
    6003   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1399) * lu(k,1905)
    6004   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1400) * lu(k,1905)
    6005   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1401) * lu(k,1905)
    6006   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1402) * lu(k,1905)
    6007   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1403) * lu(k,1905)
    6008   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1404) * lu(k,1905)
    6009   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1405) * lu(k,1905)
    6010   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1406) * lu(k,1905)
    6011   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1407) * lu(k,1905)
    6012   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1408) * lu(k,1905)
    6013   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1409) * lu(k,1905)
    6014   315224452 :          lu(k,1949) = lu(k,1949) - lu(k,1398) * lu(k,1948)
    6015   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,1399) * lu(k,1948)
    6016   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,1400) * lu(k,1948)
    6017   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1401) * lu(k,1948)
    6018   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1402) * lu(k,1948)
    6019   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1403) * lu(k,1948)
    6020   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1404) * lu(k,1948)
    6021   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1405) * lu(k,1948)
    6022   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1406) * lu(k,1948)
    6023   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1407) * lu(k,1948)
    6024   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,1408) * lu(k,1948)
    6025   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1409) * lu(k,1948)
    6026   315224452 :          lu(k,2216) = lu(k,2216) - lu(k,1398) * lu(k,2215)
    6027   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1399) * lu(k,2215)
    6028   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1400) * lu(k,2215)
    6029   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1401) * lu(k,2215)
    6030   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1402) * lu(k,2215)
    6031   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1403) * lu(k,2215)
    6032   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1404) * lu(k,2215)
    6033   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1405) * lu(k,2215)
    6034   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1406) * lu(k,2215)
    6035   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1407) * lu(k,2215)
    6036   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1408) * lu(k,2215)
    6037   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1409) * lu(k,2215)
    6038   315224452 :          lu(k,2348) = lu(k,2348) - lu(k,1398) * lu(k,2347)
    6039   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1399) * lu(k,2347)
    6040   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1400) * lu(k,2347)
    6041   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1401) * lu(k,2347)
    6042   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1402) * lu(k,2347)
    6043   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1403) * lu(k,2347)
    6044   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1404) * lu(k,2347)
    6045   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1405) * lu(k,2347)
    6046   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1406) * lu(k,2347)
    6047   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1407) * lu(k,2347)
    6048   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1408) * lu(k,2347)
    6049   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1409) * lu(k,2347)
    6050   315224452 :          lu(k,2403) = lu(k,2403) - lu(k,1398) * lu(k,2402)
    6051   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1399) * lu(k,2402)
    6052   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1400) * lu(k,2402)
    6053   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1401) * lu(k,2402)
    6054   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1402) * lu(k,2402)
    6055   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1403) * lu(k,2402)
    6056   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1404) * lu(k,2402)
    6057   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1405) * lu(k,2402)
    6058   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1406) * lu(k,2402)
    6059   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1407) * lu(k,2402)
    6060   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1408) * lu(k,2402)
    6061   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1409) * lu(k,2402)
    6062   315224452 :          lu(k,1428) = 1._r8 / lu(k,1428)
    6063   315224452 :          lu(k,1429) = lu(k,1429) * lu(k,1428)
    6064   315224452 :          lu(k,1430) = lu(k,1430) * lu(k,1428)
    6065   315224452 :          lu(k,1431) = lu(k,1431) * lu(k,1428)
    6066   315224452 :          lu(k,1432) = lu(k,1432) * lu(k,1428)
    6067   315224452 :          lu(k,1433) = lu(k,1433) * lu(k,1428)
    6068   315224452 :          lu(k,1434) = lu(k,1434) * lu(k,1428)
    6069   315224452 :          lu(k,1435) = lu(k,1435) * lu(k,1428)
    6070   315224452 :          lu(k,1436) = lu(k,1436) * lu(k,1428)
    6071   315224452 :          lu(k,1437) = lu(k,1437) * lu(k,1428)
    6072   315224452 :          lu(k,1438) = lu(k,1438) * lu(k,1428)
    6073   315224452 :          lu(k,1439) = lu(k,1439) * lu(k,1428)
    6074   315224452 :          lu(k,1440) = lu(k,1440) * lu(k,1428)
    6075   315224452 :          lu(k,1441) = lu(k,1441) * lu(k,1428)
    6076   315224452 :          lu(k,1646) = lu(k,1646) - lu(k,1429) * lu(k,1645)
    6077   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1430) * lu(k,1645)
    6078   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1431) * lu(k,1645)
    6079   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1432) * lu(k,1645)
    6080   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1433) * lu(k,1645)
    6081   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1434) * lu(k,1645)
    6082   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1435) * lu(k,1645)
    6083   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1436) * lu(k,1645)
    6084   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1437) * lu(k,1645)
    6085   315224452 :          lu(k,1663) = lu(k,1663) - lu(k,1438) * lu(k,1645)
    6086   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1439) * lu(k,1645)
    6087   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1440) * lu(k,1645)
    6088   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1441) * lu(k,1645)
    6089   315224452 :          lu(k,1809) = lu(k,1809) - lu(k,1429) * lu(k,1808)
    6090   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1430) * lu(k,1808)
    6091   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1431) * lu(k,1808)
    6092   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1432) * lu(k,1808)
    6093   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1433) * lu(k,1808)
    6094   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1434) * lu(k,1808)
    6095   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1435) * lu(k,1808)
    6096   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1436) * lu(k,1808)
    6097   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1437) * lu(k,1808)
    6098   315224452 :          lu(k,1828) = lu(k,1828) - lu(k,1438) * lu(k,1808)
    6099   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1439) * lu(k,1808)
    6100   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1440) * lu(k,1808)
    6101   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1441) * lu(k,1808)
    6102   315224452 :          lu(k,1907) = lu(k,1907) - lu(k,1429) * lu(k,1906)
    6103   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,1430) * lu(k,1906)
    6104   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1431) * lu(k,1906)
    6105   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1432) * lu(k,1906)
    6106   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1433) * lu(k,1906)
    6107   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1434) * lu(k,1906)
    6108   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1435) * lu(k,1906)
    6109   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1436) * lu(k,1906)
    6110   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1437) * lu(k,1906)
    6111   315224452 :          lu(k,1923) = lu(k,1923) - lu(k,1438) * lu(k,1906)
    6112   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1439) * lu(k,1906)
    6113   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1440) * lu(k,1906)
    6114   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1441) * lu(k,1906)
    6115   315224452 :          lu(k,1950) = lu(k,1950) - lu(k,1429) * lu(k,1949)
    6116   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,1430) * lu(k,1949)
    6117   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,1431) * lu(k,1949)
    6118   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1432) * lu(k,1949)
    6119   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1433) * lu(k,1949)
    6120   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1434) * lu(k,1949)
    6121   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1435) * lu(k,1949)
    6122   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1436) * lu(k,1949)
    6123   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1437) * lu(k,1949)
    6124   315224452 :          lu(k,1968) = - lu(k,1438) * lu(k,1949)
    6125   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1439) * lu(k,1949)
    6126   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,1440) * lu(k,1949)
    6127   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1441) * lu(k,1949)
    6128   315224452 :          lu(k,2152) = lu(k,2152) - lu(k,1429) * lu(k,2151)
    6129   315224452 :          lu(k,2156) = lu(k,2156) - lu(k,1430) * lu(k,2151)
    6130   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1431) * lu(k,2151)
    6131   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1432) * lu(k,2151)
    6132   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1433) * lu(k,2151)
    6133   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1434) * lu(k,2151)
    6134   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1435) * lu(k,2151)
    6135   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1436) * lu(k,2151)
    6136   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1437) * lu(k,2151)
    6137   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1438) * lu(k,2151)
    6138   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1439) * lu(k,2151)
    6139   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1440) * lu(k,2151)
    6140   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1441) * lu(k,2151)
    6141   315224452 :          lu(k,2217) = lu(k,2217) - lu(k,1429) * lu(k,2216)
    6142   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1430) * lu(k,2216)
    6143   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1431) * lu(k,2216)
    6144   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1432) * lu(k,2216)
    6145   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1433) * lu(k,2216)
    6146   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1434) * lu(k,2216)
    6147   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1435) * lu(k,2216)
    6148   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1436) * lu(k,2216)
    6149   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1437) * lu(k,2216)
    6150   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1438) * lu(k,2216)
    6151   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1439) * lu(k,2216)
    6152   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1440) * lu(k,2216)
    6153   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1441) * lu(k,2216)
    6154   315224452 :          lu(k,2349) = lu(k,2349) - lu(k,1429) * lu(k,2348)
    6155   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,1430) * lu(k,2348)
    6156   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1431) * lu(k,2348)
    6157   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1432) * lu(k,2348)
    6158   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1433) * lu(k,2348)
    6159   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1434) * lu(k,2348)
    6160   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1435) * lu(k,2348)
    6161   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1436) * lu(k,2348)
    6162   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1437) * lu(k,2348)
    6163   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1438) * lu(k,2348)
    6164   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1439) * lu(k,2348)
    6165   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1440) * lu(k,2348)
    6166   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1441) * lu(k,2348)
    6167   315224452 :          lu(k,2404) = lu(k,2404) - lu(k,1429) * lu(k,2403)
    6168   315224452 :          lu(k,2405) = lu(k,2405) - lu(k,1430) * lu(k,2403)
    6169   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1431) * lu(k,2403)
    6170   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1432) * lu(k,2403)
    6171   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1433) * lu(k,2403)
    6172   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1434) * lu(k,2403)
    6173   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1435) * lu(k,2403)
    6174   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1436) * lu(k,2403)
    6175   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1437) * lu(k,2403)
    6176   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,1438) * lu(k,2403)
    6177   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1439) * lu(k,2403)
    6178   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1440) * lu(k,2403)
    6179   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1441) * lu(k,2403)
    6180   315224452 :          lu(k,1450) = 1._r8 / lu(k,1450)
    6181   315224452 :          lu(k,1451) = lu(k,1451) * lu(k,1450)
    6182   315224452 :          lu(k,1452) = lu(k,1452) * lu(k,1450)
    6183   315224452 :          lu(k,1453) = lu(k,1453) * lu(k,1450)
    6184   315224452 :          lu(k,1454) = lu(k,1454) * lu(k,1450)
    6185   315224452 :          lu(k,1455) = lu(k,1455) * lu(k,1450)
    6186   315224452 :          lu(k,1456) = lu(k,1456) * lu(k,1450)
    6187   315224452 :          lu(k,1457) = lu(k,1457) * lu(k,1450)
    6188   315224452 :          lu(k,1458) = lu(k,1458) * lu(k,1450)
    6189   315224452 :          lu(k,1512) = lu(k,1512) - lu(k,1451) * lu(k,1510)
    6190   315224452 :          lu(k,1514) = lu(k,1514) - lu(k,1452) * lu(k,1510)
    6191   315224452 :          lu(k,1515) = - lu(k,1453) * lu(k,1510)
    6192   315224452 :          lu(k,1516) = - lu(k,1454) * lu(k,1510)
    6193   315224452 :          lu(k,1518) = lu(k,1518) - lu(k,1455) * lu(k,1510)
    6194   315224452 :          lu(k,1519) = lu(k,1519) - lu(k,1456) * lu(k,1510)
    6195   315224452 :          lu(k,1520) = lu(k,1520) - lu(k,1457) * lu(k,1510)
    6196   315224452 :          lu(k,1522) = lu(k,1522) - lu(k,1458) * lu(k,1510)
    6197   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,1451) * lu(k,1539)
    6198   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,1452) * lu(k,1539)
    6199   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,1453) * lu(k,1539)
    6200   315224452 :          lu(k,1547) = lu(k,1547) - lu(k,1454) * lu(k,1539)
    6201   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,1455) * lu(k,1539)
    6202   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,1456) * lu(k,1539)
    6203   315224452 :          lu(k,1551) = lu(k,1551) - lu(k,1457) * lu(k,1539)
    6204   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,1458) * lu(k,1539)
    6205   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1451) * lu(k,1646)
    6206   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1452) * lu(k,1646)
    6207   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1453) * lu(k,1646)
    6208   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1454) * lu(k,1646)
    6209   315224452 :          lu(k,1657) = - lu(k,1455) * lu(k,1646)
    6210   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,1456) * lu(k,1646)
    6211   315224452 :          lu(k,1660) = - lu(k,1457) * lu(k,1646)
    6212   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1458) * lu(k,1646)
    6213   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1451) * lu(k,1809)
    6214   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1452) * lu(k,1809)
    6215   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1453) * lu(k,1809)
    6216   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1454) * lu(k,1809)
    6217   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1455) * lu(k,1809)
    6218   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1456) * lu(k,1809)
    6219   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1457) * lu(k,1809)
    6220   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1458) * lu(k,1809)
    6221   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,1451) * lu(k,1907)
    6222   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1452) * lu(k,1907)
    6223   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1453) * lu(k,1907)
    6224   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1454) * lu(k,1907)
    6225   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1455) * lu(k,1907)
    6226   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1456) * lu(k,1907)
    6227   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1457) * lu(k,1907)
    6228   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1458) * lu(k,1907)
    6229   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,1451) * lu(k,1950)
    6230   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1452) * lu(k,1950)
    6231   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1453) * lu(k,1950)
    6232   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1454) * lu(k,1950)
    6233   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1455) * lu(k,1950)
    6234   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1456) * lu(k,1950)
    6235   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1457) * lu(k,1950)
    6236   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1458) * lu(k,1950)
    6237   315224452 :          lu(k,1980) = - lu(k,1451) * lu(k,1976)
    6238   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1452) * lu(k,1976)
    6239   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1453) * lu(k,1976)
    6240   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1454) * lu(k,1976)
    6241   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1455) * lu(k,1976)
    6242   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1456) * lu(k,1976)
    6243   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1457) * lu(k,1976)
    6244   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1458) * lu(k,1976)
    6245   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,1451) * lu(k,2084)
    6246   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1452) * lu(k,2084)
    6247   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1453) * lu(k,2084)
    6248   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1454) * lu(k,2084)
    6249   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1455) * lu(k,2084)
    6250   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1456) * lu(k,2084)
    6251   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1457) * lu(k,2084)
    6252   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1458) * lu(k,2084)
    6253   315224452 :          lu(k,2156) = lu(k,2156) - lu(k,1451) * lu(k,2152)
    6254   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1452) * lu(k,2152)
    6255   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1453) * lu(k,2152)
    6256   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1454) * lu(k,2152)
    6257   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1455) * lu(k,2152)
    6258   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1456) * lu(k,2152)
    6259   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1457) * lu(k,2152)
    6260   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1458) * lu(k,2152)
    6261   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1451) * lu(k,2217)
    6262   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1452) * lu(k,2217)
    6263   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1453) * lu(k,2217)
    6264   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1454) * lu(k,2217)
    6265   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1455) * lu(k,2217)
    6266   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1456) * lu(k,2217)
    6267   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1457) * lu(k,2217)
    6268   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1458) * lu(k,2217)
    6269   315224452 :          lu(k,2245) = - lu(k,1451) * lu(k,2241)
    6270   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1452) * lu(k,2241)
    6271   315224452 :          lu(k,2250) = - lu(k,1453) * lu(k,2241)
    6272   315224452 :          lu(k,2251) = - lu(k,1454) * lu(k,2241)
    6273   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1455) * lu(k,2241)
    6274   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1456) * lu(k,2241)
    6275   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1457) * lu(k,2241)
    6276   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1458) * lu(k,2241)
    6277   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,1451) * lu(k,2349)
    6278   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1452) * lu(k,2349)
    6279   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1453) * lu(k,2349)
    6280   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1454) * lu(k,2349)
    6281   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1455) * lu(k,2349)
    6282   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1456) * lu(k,2349)
    6283   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1457) * lu(k,2349)
    6284   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1458) * lu(k,2349)
    6285   315224452 :          lu(k,2405) = lu(k,2405) - lu(k,1451) * lu(k,2404)
    6286   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1452) * lu(k,2404)
    6287   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1453) * lu(k,2404)
    6288   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1454) * lu(k,2404)
    6289   315224452 :          lu(k,2413) = - lu(k,1455) * lu(k,2404)
    6290   315224452 :          lu(k,2415) = - lu(k,1456) * lu(k,2404)
    6291   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1457) * lu(k,2404)
    6292   325174377 :          lu(k,2420) = lu(k,2420) - lu(k,1458) * lu(k,2404)
    6293             :       end do
    6294     9949925 :       end subroutine lu_fac27
    6295     9949925 :       subroutine lu_fac28( avec_len, lu )
    6296             :       use chem_mods, only : nzcnt
    6297             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6298             :       implicit none
    6299             : !-----------------------------------------------------------------------
    6300             : ! ... dummy args
    6301             : !-----------------------------------------------------------------------
    6302             :       integer, intent(in) :: avec_len
    6303             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6304             : !-----------------------------------------------------------------------
    6305             : ! ... local variables
    6306             : !-----------------------------------------------------------------------
    6307             :       integer :: k
    6308   325174377 :       do k = 1,avec_len
    6309   315224452 :          lu(k,1461) = 1._r8 / lu(k,1461)
    6310   315224452 :          lu(k,1462) = lu(k,1462) * lu(k,1461)
    6311   315224452 :          lu(k,1463) = lu(k,1463) * lu(k,1461)
    6312   315224452 :          lu(k,1464) = lu(k,1464) * lu(k,1461)
    6313   315224452 :          lu(k,1465) = lu(k,1465) * lu(k,1461)
    6314   315224452 :          lu(k,1466) = lu(k,1466) * lu(k,1461)
    6315   315224452 :          lu(k,1467) = lu(k,1467) * lu(k,1461)
    6316   315224452 :          lu(k,1468) = lu(k,1468) * lu(k,1461)
    6317   315224452 :          lu(k,1469) = lu(k,1469) * lu(k,1461)
    6318   315224452 :          lu(k,1470) = lu(k,1470) * lu(k,1461)
    6319   315224452 :          lu(k,1471) = lu(k,1471) * lu(k,1461)
    6320   315224452 :          lu(k,1472) = lu(k,1472) * lu(k,1461)
    6321   315224452 :          lu(k,1812) = lu(k,1812) - lu(k,1462) * lu(k,1810)
    6322   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1463) * lu(k,1810)
    6323   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1464) * lu(k,1810)
    6324   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1465) * lu(k,1810)
    6325   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1466) * lu(k,1810)
    6326   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1467) * lu(k,1810)
    6327   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1468) * lu(k,1810)
    6328   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1469) * lu(k,1810)
    6329   315224452 :          lu(k,1828) = lu(k,1828) - lu(k,1470) * lu(k,1810)
    6330   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1471) * lu(k,1810)
    6331   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1472) * lu(k,1810)
    6332   315224452 :          lu(k,1978) = lu(k,1978) - lu(k,1462) * lu(k,1977)
    6333   315224452 :          lu(k,1983) = lu(k,1983) - lu(k,1463) * lu(k,1977)
    6334   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1464) * lu(k,1977)
    6335   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1465) * lu(k,1977)
    6336   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1466) * lu(k,1977)
    6337   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1467) * lu(k,1977)
    6338   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1468) * lu(k,1977)
    6339   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1469) * lu(k,1977)
    6340   315224452 :          lu(k,1994) = - lu(k,1470) * lu(k,1977)
    6341   315224452 :          lu(k,1996) = - lu(k,1471) * lu(k,1977)
    6342   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1472) * lu(k,1977)
    6343   315224452 :          lu(k,2021) = lu(k,2021) - lu(k,1462) * lu(k,2020)
    6344   315224452 :          lu(k,2026) = lu(k,2026) - lu(k,1463) * lu(k,2020)
    6345   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1464) * lu(k,2020)
    6346   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1465) * lu(k,2020)
    6347   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1466) * lu(k,2020)
    6348   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1467) * lu(k,2020)
    6349   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1468) * lu(k,2020)
    6350   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1469) * lu(k,2020)
    6351   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,1470) * lu(k,2020)
    6352   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1471) * lu(k,2020)
    6353   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1472) * lu(k,2020)
    6354   315224452 :          lu(k,2044) = - lu(k,1462) * lu(k,2043)
    6355   315224452 :          lu(k,2049) = lu(k,2049) - lu(k,1463) * lu(k,2043)
    6356   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1464) * lu(k,2043)
    6357   315224452 :          lu(k,2054) = - lu(k,1465) * lu(k,2043)
    6358   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1466) * lu(k,2043)
    6359   315224452 :          lu(k,2056) = - lu(k,1467) * lu(k,2043)
    6360   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1468) * lu(k,2043)
    6361   315224452 :          lu(k,2058) = - lu(k,1469) * lu(k,2043)
    6362   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,1470) * lu(k,2043)
    6363   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1471) * lu(k,2043)
    6364   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1472) * lu(k,2043)
    6365   315224452 :          lu(k,2087) = lu(k,2087) - lu(k,1462) * lu(k,2085)
    6366   315224452 :          lu(k,2092) = lu(k,2092) - lu(k,1463) * lu(k,2085)
    6367   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1464) * lu(k,2085)
    6368   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1465) * lu(k,2085)
    6369   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1466) * lu(k,2085)
    6370   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1467) * lu(k,2085)
    6371   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1468) * lu(k,2085)
    6372   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1469) * lu(k,2085)
    6373   315224452 :          lu(k,2103) = - lu(k,1470) * lu(k,2085)
    6374   315224452 :          lu(k,2105) = - lu(k,1471) * lu(k,2085)
    6375   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1472) * lu(k,2085)
    6376   315224452 :          lu(k,2108) = - lu(k,1462) * lu(k,2107)
    6377   315224452 :          lu(k,2113) = - lu(k,1463) * lu(k,2107)
    6378   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1464) * lu(k,2107)
    6379   315224452 :          lu(k,2118) = - lu(k,1465) * lu(k,2107)
    6380   315224452 :          lu(k,2119) = - lu(k,1466) * lu(k,2107)
    6381   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1467) * lu(k,2107)
    6382   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1468) * lu(k,2107)
    6383   315224452 :          lu(k,2122) = - lu(k,1469) * lu(k,2107)
    6384   315224452 :          lu(k,2124) = - lu(k,1470) * lu(k,2107)
    6385   315224452 :          lu(k,2126) = - lu(k,1471) * lu(k,2107)
    6386   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1472) * lu(k,2107)
    6387   315224452 :          lu(k,2154) = lu(k,2154) - lu(k,1462) * lu(k,2153)
    6388   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1463) * lu(k,2153)
    6389   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1464) * lu(k,2153)
    6390   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1465) * lu(k,2153)
    6391   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1466) * lu(k,2153)
    6392   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1467) * lu(k,2153)
    6393   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1468) * lu(k,2153)
    6394   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1469) * lu(k,2153)
    6395   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1470) * lu(k,2153)
    6396   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1471) * lu(k,2153)
    6397   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1472) * lu(k,2153)
    6398   315224452 :          lu(k,2243) = lu(k,2243) - lu(k,1462) * lu(k,2242)
    6399   315224452 :          lu(k,2248) = lu(k,2248) - lu(k,1463) * lu(k,2242)
    6400   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1464) * lu(k,2242)
    6401   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1465) * lu(k,2242)
    6402   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1466) * lu(k,2242)
    6403   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1467) * lu(k,2242)
    6404   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1468) * lu(k,2242)
    6405   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1469) * lu(k,2242)
    6406   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,1470) * lu(k,2242)
    6407   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1471) * lu(k,2242)
    6408   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1472) * lu(k,2242)
    6409   315224452 :          lu(k,2351) = lu(k,2351) - lu(k,1462) * lu(k,2350)
    6410   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1463) * lu(k,2350)
    6411   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1464) * lu(k,2350)
    6412   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1465) * lu(k,2350)
    6413   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1466) * lu(k,2350)
    6414   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1467) * lu(k,2350)
    6415   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1468) * lu(k,2350)
    6416   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1469) * lu(k,2350)
    6417   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1470) * lu(k,2350)
    6418   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1471) * lu(k,2350)
    6419   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1472) * lu(k,2350)
    6420   315224452 :          lu(k,2430) = - lu(k,1462) * lu(k,2428)
    6421   315224452 :          lu(k,2435) = lu(k,2435) - lu(k,1463) * lu(k,2428)
    6422   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1464) * lu(k,2428)
    6423   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1465) * lu(k,2428)
    6424   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1466) * lu(k,2428)
    6425   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1467) * lu(k,2428)
    6426   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1468) * lu(k,2428)
    6427   315224452 :          lu(k,2444) = - lu(k,1469) * lu(k,2428)
    6428   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,1470) * lu(k,2428)
    6429   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1471) * lu(k,2428)
    6430   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1472) * lu(k,2428)
    6431   315224452 :          lu(k,1476) = 1._r8 / lu(k,1476)
    6432   315224452 :          lu(k,1477) = lu(k,1477) * lu(k,1476)
    6433   315224452 :          lu(k,1478) = lu(k,1478) * lu(k,1476)
    6434   315224452 :          lu(k,1479) = lu(k,1479) * lu(k,1476)
    6435   315224452 :          lu(k,1480) = lu(k,1480) * lu(k,1476)
    6436   315224452 :          lu(k,1481) = lu(k,1481) * lu(k,1476)
    6437   315224452 :          lu(k,1482) = lu(k,1482) * lu(k,1476)
    6438   315224452 :          lu(k,1483) = lu(k,1483) * lu(k,1476)
    6439   315224452 :          lu(k,1484) = lu(k,1484) * lu(k,1476)
    6440   315224452 :          lu(k,1485) = lu(k,1485) * lu(k,1476)
    6441   315224452 :          lu(k,1486) = lu(k,1486) * lu(k,1476)
    6442   315224452 :          lu(k,1487) = lu(k,1487) * lu(k,1476)
    6443   315224452 :          lu(k,1488) = lu(k,1488) * lu(k,1476)
    6444   315224452 :          lu(k,1489) = lu(k,1489) * lu(k,1476)
    6445   315224452 :          lu(k,1541) = - lu(k,1477) * lu(k,1540)
    6446   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,1478) * lu(k,1540)
    6447   315224452 :          lu(k,1543) = - lu(k,1479) * lu(k,1540)
    6448   315224452 :          lu(k,1544) = - lu(k,1480) * lu(k,1540)
    6449   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,1481) * lu(k,1540)
    6450   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,1482) * lu(k,1540)
    6451   315224452 :          lu(k,1547) = lu(k,1547) - lu(k,1483) * lu(k,1540)
    6452   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,1484) * lu(k,1540)
    6453   315224452 :          lu(k,1551) = lu(k,1551) - lu(k,1485) * lu(k,1540)
    6454   315224452 :          lu(k,1552) = - lu(k,1486) * lu(k,1540)
    6455   315224452 :          lu(k,1553) = lu(k,1553) - lu(k,1487) * lu(k,1540)
    6456   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,1488) * lu(k,1540)
    6457   315224452 :          lu(k,1555) = lu(k,1555) - lu(k,1489) * lu(k,1540)
    6458   315224452 :          lu(k,1563) = lu(k,1563) - lu(k,1477) * lu(k,1561)
    6459   315224452 :          lu(k,1564) = lu(k,1564) - lu(k,1478) * lu(k,1561)
    6460   315224452 :          lu(k,1565) = lu(k,1565) - lu(k,1479) * lu(k,1561)
    6461   315224452 :          lu(k,1566) = lu(k,1566) - lu(k,1480) * lu(k,1561)
    6462   315224452 :          lu(k,1568) = lu(k,1568) - lu(k,1481) * lu(k,1561)
    6463   315224452 :          lu(k,1569) = lu(k,1569) - lu(k,1482) * lu(k,1561)
    6464   315224452 :          lu(k,1570) = lu(k,1570) - lu(k,1483) * lu(k,1561)
    6465   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,1484) * lu(k,1561)
    6466   315224452 :          lu(k,1575) = - lu(k,1485) * lu(k,1561)
    6467   315224452 :          lu(k,1576) = lu(k,1576) - lu(k,1486) * lu(k,1561)
    6468   315224452 :          lu(k,1577) = - lu(k,1487) * lu(k,1561)
    6469   315224452 :          lu(k,1578) = lu(k,1578) - lu(k,1488) * lu(k,1561)
    6470   315224452 :          lu(k,1579) = lu(k,1579) - lu(k,1489) * lu(k,1561)
    6471   315224452 :          lu(k,1589) = lu(k,1589) - lu(k,1477) * lu(k,1587)
    6472   315224452 :          lu(k,1590) = lu(k,1590) - lu(k,1478) * lu(k,1587)
    6473   315224452 :          lu(k,1591) = lu(k,1591) - lu(k,1479) * lu(k,1587)
    6474   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,1480) * lu(k,1587)
    6475   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,1481) * lu(k,1587)
    6476   315224452 :          lu(k,1595) = lu(k,1595) - lu(k,1482) * lu(k,1587)
    6477   315224452 :          lu(k,1596) = lu(k,1596) - lu(k,1483) * lu(k,1587)
    6478   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,1484) * lu(k,1587)
    6479   315224452 :          lu(k,1601) = - lu(k,1485) * lu(k,1587)
    6480   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,1486) * lu(k,1587)
    6481   315224452 :          lu(k,1603) = - lu(k,1487) * lu(k,1587)
    6482   315224452 :          lu(k,1604) = lu(k,1604) - lu(k,1488) * lu(k,1587)
    6483   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,1489) * lu(k,1587)
    6484   315224452 :          lu(k,1648) = - lu(k,1477) * lu(k,1647)
    6485   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1478) * lu(k,1647)
    6486   315224452 :          lu(k,1650) = - lu(k,1479) * lu(k,1647)
    6487   315224452 :          lu(k,1651) = - lu(k,1480) * lu(k,1647)
    6488   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1481) * lu(k,1647)
    6489   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1482) * lu(k,1647)
    6490   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1483) * lu(k,1647)
    6491   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,1484) * lu(k,1647)
    6492   315224452 :          lu(k,1660) = lu(k,1660) - lu(k,1485) * lu(k,1647)
    6493   315224452 :          lu(k,1661) = - lu(k,1486) * lu(k,1647)
    6494   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1487) * lu(k,1647)
    6495   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1488) * lu(k,1647)
    6496   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1489) * lu(k,1647)
    6497   315224452 :          lu(k,1813) = lu(k,1813) - lu(k,1477) * lu(k,1811)
    6498   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1478) * lu(k,1811)
    6499   315224452 :          lu(k,1815) = lu(k,1815) - lu(k,1479) * lu(k,1811)
    6500   315224452 :          lu(k,1816) = lu(k,1816) - lu(k,1480) * lu(k,1811)
    6501   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1481) * lu(k,1811)
    6502   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1482) * lu(k,1811)
    6503   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1483) * lu(k,1811)
    6504   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1484) * lu(k,1811)
    6505   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1485) * lu(k,1811)
    6506   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1486) * lu(k,1811)
    6507   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1487) * lu(k,1811)
    6508   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1488) * lu(k,1811)
    6509   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1489) * lu(k,1811)
    6510   315224452 :          lu(k,1953) = lu(k,1953) - lu(k,1477) * lu(k,1951)
    6511   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,1478) * lu(k,1951)
    6512   315224452 :          lu(k,1955) = lu(k,1955) - lu(k,1479) * lu(k,1951)
    6513   315224452 :          lu(k,1956) = lu(k,1956) - lu(k,1480) * lu(k,1951)
    6514   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1481) * lu(k,1951)
    6515   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1482) * lu(k,1951)
    6516   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1483) * lu(k,1951)
    6517   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1484) * lu(k,1951)
    6518   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1485) * lu(k,1951)
    6519   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1486) * lu(k,1951)
    6520   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1487) * lu(k,1951)
    6521   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1488) * lu(k,1951)
    6522   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1489) * lu(k,1951)
    6523   315224452 :          lu(k,2088) = lu(k,2088) - lu(k,1477) * lu(k,2086)
    6524   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,1478) * lu(k,2086)
    6525   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,1479) * lu(k,2086)
    6526   315224452 :          lu(k,2091) = lu(k,2091) - lu(k,1480) * lu(k,2086)
    6527   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1481) * lu(k,2086)
    6528   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1482) * lu(k,2086)
    6529   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1483) * lu(k,2086)
    6530   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1484) * lu(k,2086)
    6531   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1485) * lu(k,2086)
    6532   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1486) * lu(k,2086)
    6533   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1487) * lu(k,2086)
    6534   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1488) * lu(k,2086)
    6535   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1489) * lu(k,2086)
    6536   315224452 :          lu(k,2219) = lu(k,2219) - lu(k,1477) * lu(k,2218)
    6537   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1478) * lu(k,2218)
    6538   315224452 :          lu(k,2221) = lu(k,2221) - lu(k,1479) * lu(k,2218)
    6539   315224452 :          lu(k,2222) = lu(k,2222) - lu(k,1480) * lu(k,2218)
    6540   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1481) * lu(k,2218)
    6541   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1482) * lu(k,2218)
    6542   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1483) * lu(k,2218)
    6543   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1484) * lu(k,2218)
    6544   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1485) * lu(k,2218)
    6545   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1486) * lu(k,2218)
    6546   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1487) * lu(k,2218)
    6547   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1488) * lu(k,2218)
    6548   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1489) * lu(k,2218)
    6549   315224452 :          lu(k,2431) = - lu(k,1477) * lu(k,2429)
    6550   315224452 :          lu(k,2432) = - lu(k,1478) * lu(k,2429)
    6551   315224452 :          lu(k,2433) = - lu(k,1479) * lu(k,2429)
    6552   315224452 :          lu(k,2434) = - lu(k,1480) * lu(k,2429)
    6553   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1481) * lu(k,2429)
    6554   315224452 :          lu(k,2437) = - lu(k,1482) * lu(k,2429)
    6555   315224452 :          lu(k,2438) = - lu(k,1483) * lu(k,2429)
    6556   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1484) * lu(k,2429)
    6557   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1485) * lu(k,2429)
    6558   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1486) * lu(k,2429)
    6559   315224452 :          lu(k,2445) = - lu(k,1487) * lu(k,2429)
    6560   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1488) * lu(k,2429)
    6561   325174377 :          lu(k,2449) = lu(k,2449) - lu(k,1489) * lu(k,2429)
    6562             :       end do
    6563     9949925 :       end subroutine lu_fac28
    6564     9949925 :       subroutine lu_fac29( avec_len, lu )
    6565             :       use chem_mods, only : nzcnt
    6566             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6567             :       implicit none
    6568             : !-----------------------------------------------------------------------
    6569             : ! ... dummy args
    6570             : !-----------------------------------------------------------------------
    6571             :       integer, intent(in) :: avec_len
    6572             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6573             : !-----------------------------------------------------------------------
    6574             : ! ... local variables
    6575             : !-----------------------------------------------------------------------
    6576             :       integer :: k
    6577   325174377 :       do k = 1,avec_len
    6578   315224452 :          lu(k,1495) = 1._r8 / lu(k,1495)
    6579   315224452 :          lu(k,1496) = lu(k,1496) * lu(k,1495)
    6580   315224452 :          lu(k,1497) = lu(k,1497) * lu(k,1495)
    6581   315224452 :          lu(k,1498) = lu(k,1498) * lu(k,1495)
    6582   315224452 :          lu(k,1499) = lu(k,1499) * lu(k,1495)
    6583   315224452 :          lu(k,1500) = lu(k,1500) * lu(k,1495)
    6584   315224452 :          lu(k,1501) = lu(k,1501) * lu(k,1495)
    6585   315224452 :          lu(k,1502) = lu(k,1502) * lu(k,1495)
    6586   315224452 :          lu(k,1503) = lu(k,1503) * lu(k,1495)
    6587   315224452 :          lu(k,1504) = lu(k,1504) * lu(k,1495)
    6588   315224452 :          lu(k,1505) = lu(k,1505) * lu(k,1495)
    6589   315224452 :          lu(k,1506) = lu(k,1506) * lu(k,1495)
    6590   315224452 :          lu(k,1507) = lu(k,1507) * lu(k,1495)
    6591   315224452 :          lu(k,1563) = lu(k,1563) - lu(k,1496) * lu(k,1562)
    6592   315224452 :          lu(k,1565) = lu(k,1565) - lu(k,1497) * lu(k,1562)
    6593   315224452 :          lu(k,1566) = lu(k,1566) - lu(k,1498) * lu(k,1562)
    6594   315224452 :          lu(k,1567) = lu(k,1567) - lu(k,1499) * lu(k,1562)
    6595   315224452 :          lu(k,1568) = lu(k,1568) - lu(k,1500) * lu(k,1562)
    6596   315224452 :          lu(k,1570) = lu(k,1570) - lu(k,1501) * lu(k,1562)
    6597   315224452 :          lu(k,1572) = - lu(k,1502) * lu(k,1562)
    6598   315224452 :          lu(k,1573) = lu(k,1573) - lu(k,1503) * lu(k,1562)
    6599   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,1504) * lu(k,1562)
    6600   315224452 :          lu(k,1575) = lu(k,1575) - lu(k,1505) * lu(k,1562)
    6601   315224452 :          lu(k,1576) = lu(k,1576) - lu(k,1506) * lu(k,1562)
    6602   315224452 :          lu(k,1579) = lu(k,1579) - lu(k,1507) * lu(k,1562)
    6603   315224452 :          lu(k,1589) = lu(k,1589) - lu(k,1496) * lu(k,1588)
    6604   315224452 :          lu(k,1591) = lu(k,1591) - lu(k,1497) * lu(k,1588)
    6605   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,1498) * lu(k,1588)
    6606   315224452 :          lu(k,1593) = lu(k,1593) - lu(k,1499) * lu(k,1588)
    6607   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,1500) * lu(k,1588)
    6608   315224452 :          lu(k,1596) = lu(k,1596) - lu(k,1501) * lu(k,1588)
    6609   315224452 :          lu(k,1598) = - lu(k,1502) * lu(k,1588)
    6610   315224452 :          lu(k,1599) = lu(k,1599) - lu(k,1503) * lu(k,1588)
    6611   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,1504) * lu(k,1588)
    6612   315224452 :          lu(k,1601) = lu(k,1601) - lu(k,1505) * lu(k,1588)
    6613   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,1506) * lu(k,1588)
    6614   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,1507) * lu(k,1588)
    6615   315224452 :          lu(k,1813) = lu(k,1813) - lu(k,1496) * lu(k,1812)
    6616   315224452 :          lu(k,1815) = lu(k,1815) - lu(k,1497) * lu(k,1812)
    6617   315224452 :          lu(k,1816) = lu(k,1816) - lu(k,1498) * lu(k,1812)
    6618   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1499) * lu(k,1812)
    6619   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1500) * lu(k,1812)
    6620   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1501) * lu(k,1812)
    6621   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1502) * lu(k,1812)
    6622   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1503) * lu(k,1812)
    6623   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1504) * lu(k,1812)
    6624   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1505) * lu(k,1812)
    6625   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1506) * lu(k,1812)
    6626   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1507) * lu(k,1812)
    6627   315224452 :          lu(k,1953) = lu(k,1953) - lu(k,1496) * lu(k,1952)
    6628   315224452 :          lu(k,1955) = lu(k,1955) - lu(k,1497) * lu(k,1952)
    6629   315224452 :          lu(k,1956) = lu(k,1956) - lu(k,1498) * lu(k,1952)
    6630   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,1499) * lu(k,1952)
    6631   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1500) * lu(k,1952)
    6632   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1501) * lu(k,1952)
    6633   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1502) * lu(k,1952)
    6634   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1503) * lu(k,1952)
    6635   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1504) * lu(k,1952)
    6636   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1505) * lu(k,1952)
    6637   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1506) * lu(k,1952)
    6638   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1507) * lu(k,1952)
    6639   315224452 :          lu(k,1979) = lu(k,1979) - lu(k,1496) * lu(k,1978)
    6640   315224452 :          lu(k,1981) = lu(k,1981) - lu(k,1497) * lu(k,1978)
    6641   315224452 :          lu(k,1982) = - lu(k,1498) * lu(k,1978)
    6642   315224452 :          lu(k,1983) = lu(k,1983) - lu(k,1499) * lu(k,1978)
    6643   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1500) * lu(k,1978)
    6644   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1501) * lu(k,1978)
    6645   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1502) * lu(k,1978)
    6646   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1503) * lu(k,1978)
    6647   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1504) * lu(k,1978)
    6648   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1505) * lu(k,1978)
    6649   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1506) * lu(k,1978)
    6650   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1507) * lu(k,1978)
    6651   315224452 :          lu(k,2022) = lu(k,2022) - lu(k,1496) * lu(k,2021)
    6652   315224452 :          lu(k,2024) = lu(k,2024) - lu(k,1497) * lu(k,2021)
    6653   315224452 :          lu(k,2025) = lu(k,2025) - lu(k,1498) * lu(k,2021)
    6654   315224452 :          lu(k,2026) = lu(k,2026) - lu(k,1499) * lu(k,2021)
    6655   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1500) * lu(k,2021)
    6656   315224452 :          lu(k,2029) = - lu(k,1501) * lu(k,2021)
    6657   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1502) * lu(k,2021)
    6658   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1503) * lu(k,2021)
    6659   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1504) * lu(k,2021)
    6660   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1505) * lu(k,2021)
    6661   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1506) * lu(k,2021)
    6662   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1507) * lu(k,2021)
    6663   315224452 :          lu(k,2045) = - lu(k,1496) * lu(k,2044)
    6664   315224452 :          lu(k,2047) = - lu(k,1497) * lu(k,2044)
    6665   315224452 :          lu(k,2048) = - lu(k,1498) * lu(k,2044)
    6666   315224452 :          lu(k,2049) = lu(k,2049) - lu(k,1499) * lu(k,2044)
    6667   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1500) * lu(k,2044)
    6668   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1501) * lu(k,2044)
    6669   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1502) * lu(k,2044)
    6670   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1503) * lu(k,2044)
    6671   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1504) * lu(k,2044)
    6672   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1505) * lu(k,2044)
    6673   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1506) * lu(k,2044)
    6674   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1507) * lu(k,2044)
    6675   315224452 :          lu(k,2088) = lu(k,2088) - lu(k,1496) * lu(k,2087)
    6676   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,1497) * lu(k,2087)
    6677   315224452 :          lu(k,2091) = lu(k,2091) - lu(k,1498) * lu(k,2087)
    6678   315224452 :          lu(k,2092) = lu(k,2092) - lu(k,1499) * lu(k,2087)
    6679   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1500) * lu(k,2087)
    6680   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1501) * lu(k,2087)
    6681   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1502) * lu(k,2087)
    6682   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1503) * lu(k,2087)
    6683   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1504) * lu(k,2087)
    6684   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1505) * lu(k,2087)
    6685   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1506) * lu(k,2087)
    6686   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1507) * lu(k,2087)
    6687   315224452 :          lu(k,2109) = - lu(k,1496) * lu(k,2108)
    6688   315224452 :          lu(k,2111) = - lu(k,1497) * lu(k,2108)
    6689   315224452 :          lu(k,2112) = - lu(k,1498) * lu(k,2108)
    6690   315224452 :          lu(k,2113) = lu(k,2113) - lu(k,1499) * lu(k,2108)
    6691   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1500) * lu(k,2108)
    6692   315224452 :          lu(k,2116) = - lu(k,1501) * lu(k,2108)
    6693   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1502) * lu(k,2108)
    6694   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1503) * lu(k,2108)
    6695   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1504) * lu(k,2108)
    6696   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1505) * lu(k,2108)
    6697   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1506) * lu(k,2108)
    6698   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1507) * lu(k,2108)
    6699   315224452 :          lu(k,2155) = lu(k,2155) - lu(k,1496) * lu(k,2154)
    6700   315224452 :          lu(k,2157) = - lu(k,1497) * lu(k,2154)
    6701   315224452 :          lu(k,2158) = lu(k,2158) - lu(k,1498) * lu(k,2154)
    6702   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1499) * lu(k,2154)
    6703   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1500) * lu(k,2154)
    6704   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1501) * lu(k,2154)
    6705   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1502) * lu(k,2154)
    6706   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1503) * lu(k,2154)
    6707   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1504) * lu(k,2154)
    6708   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1505) * lu(k,2154)
    6709   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1506) * lu(k,2154)
    6710   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1507) * lu(k,2154)
    6711   315224452 :          lu(k,2244) = - lu(k,1496) * lu(k,2243)
    6712   315224452 :          lu(k,2246) = - lu(k,1497) * lu(k,2243)
    6713   315224452 :          lu(k,2247) = - lu(k,1498) * lu(k,2243)
    6714   315224452 :          lu(k,2248) = lu(k,2248) - lu(k,1499) * lu(k,2243)
    6715   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1500) * lu(k,2243)
    6716   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1501) * lu(k,2243)
    6717   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1502) * lu(k,2243)
    6718   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1503) * lu(k,2243)
    6719   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1504) * lu(k,2243)
    6720   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1505) * lu(k,2243)
    6721   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1506) * lu(k,2243)
    6722   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1507) * lu(k,2243)
    6723   315224452 :          lu(k,2352) = lu(k,2352) - lu(k,1496) * lu(k,2351)
    6724   315224452 :          lu(k,2354) = lu(k,2354) - lu(k,1497) * lu(k,2351)
    6725   315224452 :          lu(k,2355) = lu(k,2355) - lu(k,1498) * lu(k,2351)
    6726   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1499) * lu(k,2351)
    6727   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1500) * lu(k,2351)
    6728   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1501) * lu(k,2351)
    6729   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1502) * lu(k,2351)
    6730   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1503) * lu(k,2351)
    6731   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1504) * lu(k,2351)
    6732   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1505) * lu(k,2351)
    6733   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1506) * lu(k,2351)
    6734   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1507) * lu(k,2351)
    6735   315224452 :          lu(k,2431) = lu(k,2431) - lu(k,1496) * lu(k,2430)
    6736   315224452 :          lu(k,2433) = lu(k,2433) - lu(k,1497) * lu(k,2430)
    6737   315224452 :          lu(k,2434) = lu(k,2434) - lu(k,1498) * lu(k,2430)
    6738   315224452 :          lu(k,2435) = lu(k,2435) - lu(k,1499) * lu(k,2430)
    6739   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1500) * lu(k,2430)
    6740   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1501) * lu(k,2430)
    6741   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1502) * lu(k,2430)
    6742   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1503) * lu(k,2430)
    6743   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1504) * lu(k,2430)
    6744   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1505) * lu(k,2430)
    6745   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1506) * lu(k,2430)
    6746   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1507) * lu(k,2430)
    6747   315224452 :          lu(k,1511) = 1._r8 / lu(k,1511)
    6748   315224452 :          lu(k,1512) = lu(k,1512) * lu(k,1511)
    6749   315224452 :          lu(k,1513) = lu(k,1513) * lu(k,1511)
    6750   315224452 :          lu(k,1514) = lu(k,1514) * lu(k,1511)
    6751   315224452 :          lu(k,1515) = lu(k,1515) * lu(k,1511)
    6752   315224452 :          lu(k,1516) = lu(k,1516) * lu(k,1511)
    6753   315224452 :          lu(k,1517) = lu(k,1517) * lu(k,1511)
    6754   315224452 :          lu(k,1518) = lu(k,1518) * lu(k,1511)
    6755   315224452 :          lu(k,1519) = lu(k,1519) * lu(k,1511)
    6756   315224452 :          lu(k,1520) = lu(k,1520) * lu(k,1511)
    6757   315224452 :          lu(k,1521) = lu(k,1521) * lu(k,1511)
    6758   315224452 :          lu(k,1522) = lu(k,1522) * lu(k,1511)
    6759   315224452 :          lu(k,1523) = lu(k,1523) * lu(k,1511)
    6760   315224452 :          lu(k,1542) = lu(k,1542) - lu(k,1512) * lu(k,1541)
    6761   315224452 :          lu(k,1543) = lu(k,1543) - lu(k,1513) * lu(k,1541)
    6762   315224452 :          lu(k,1545) = lu(k,1545) - lu(k,1514) * lu(k,1541)
    6763   315224452 :          lu(k,1546) = lu(k,1546) - lu(k,1515) * lu(k,1541)
    6764   315224452 :          lu(k,1547) = lu(k,1547) - lu(k,1516) * lu(k,1541)
    6765   315224452 :          lu(k,1548) = lu(k,1548) - lu(k,1517) * lu(k,1541)
    6766   315224452 :          lu(k,1549) = lu(k,1549) - lu(k,1518) * lu(k,1541)
    6767   315224452 :          lu(k,1550) = lu(k,1550) - lu(k,1519) * lu(k,1541)
    6768   315224452 :          lu(k,1551) = lu(k,1551) - lu(k,1520) * lu(k,1541)
    6769   315224452 :          lu(k,1553) = lu(k,1553) - lu(k,1521) * lu(k,1541)
    6770   315224452 :          lu(k,1554) = lu(k,1554) - lu(k,1522) * lu(k,1541)
    6771   315224452 :          lu(k,1555) = lu(k,1555) - lu(k,1523) * lu(k,1541)
    6772   315224452 :          lu(k,1564) = lu(k,1564) - lu(k,1512) * lu(k,1563)
    6773   315224452 :          lu(k,1565) = lu(k,1565) - lu(k,1513) * lu(k,1563)
    6774   315224452 :          lu(k,1568) = lu(k,1568) - lu(k,1514) * lu(k,1563)
    6775   315224452 :          lu(k,1569) = lu(k,1569) - lu(k,1515) * lu(k,1563)
    6776   315224452 :          lu(k,1570) = lu(k,1570) - lu(k,1516) * lu(k,1563)
    6777   315224452 :          lu(k,1571) = - lu(k,1517) * lu(k,1563)
    6778   315224452 :          lu(k,1572) = lu(k,1572) - lu(k,1518) * lu(k,1563)
    6779   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,1519) * lu(k,1563)
    6780   315224452 :          lu(k,1575) = lu(k,1575) - lu(k,1520) * lu(k,1563)
    6781   315224452 :          lu(k,1577) = lu(k,1577) - lu(k,1521) * lu(k,1563)
    6782   315224452 :          lu(k,1578) = lu(k,1578) - lu(k,1522) * lu(k,1563)
    6783   315224452 :          lu(k,1579) = lu(k,1579) - lu(k,1523) * lu(k,1563)
    6784   315224452 :          lu(k,1590) = lu(k,1590) - lu(k,1512) * lu(k,1589)
    6785   315224452 :          lu(k,1591) = lu(k,1591) - lu(k,1513) * lu(k,1589)
    6786   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,1514) * lu(k,1589)
    6787   315224452 :          lu(k,1595) = lu(k,1595) - lu(k,1515) * lu(k,1589)
    6788   315224452 :          lu(k,1596) = lu(k,1596) - lu(k,1516) * lu(k,1589)
    6789   315224452 :          lu(k,1597) = lu(k,1597) - lu(k,1517) * lu(k,1589)
    6790   315224452 :          lu(k,1598) = lu(k,1598) - lu(k,1518) * lu(k,1589)
    6791   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,1519) * lu(k,1589)
    6792   315224452 :          lu(k,1601) = lu(k,1601) - lu(k,1520) * lu(k,1589)
    6793   315224452 :          lu(k,1603) = lu(k,1603) - lu(k,1521) * lu(k,1589)
    6794   315224452 :          lu(k,1604) = lu(k,1604) - lu(k,1522) * lu(k,1589)
    6795   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,1523) * lu(k,1589)
    6796   315224452 :          lu(k,1649) = lu(k,1649) - lu(k,1512) * lu(k,1648)
    6797   315224452 :          lu(k,1650) = lu(k,1650) - lu(k,1513) * lu(k,1648)
    6798   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1514) * lu(k,1648)
    6799   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1515) * lu(k,1648)
    6800   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1516) * lu(k,1648)
    6801   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1517) * lu(k,1648)
    6802   315224452 :          lu(k,1657) = lu(k,1657) - lu(k,1518) * lu(k,1648)
    6803   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,1519) * lu(k,1648)
    6804   315224452 :          lu(k,1660) = lu(k,1660) - lu(k,1520) * lu(k,1648)
    6805   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1521) * lu(k,1648)
    6806   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1522) * lu(k,1648)
    6807   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1523) * lu(k,1648)
    6808   315224452 :          lu(k,1814) = lu(k,1814) - lu(k,1512) * lu(k,1813)
    6809   315224452 :          lu(k,1815) = lu(k,1815) - lu(k,1513) * lu(k,1813)
    6810   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1514) * lu(k,1813)
    6811   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1515) * lu(k,1813)
    6812   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1516) * lu(k,1813)
    6813   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1517) * lu(k,1813)
    6814   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1518) * lu(k,1813)
    6815   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1519) * lu(k,1813)
    6816   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1520) * lu(k,1813)
    6817   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1521) * lu(k,1813)
    6818   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1522) * lu(k,1813)
    6819   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1523) * lu(k,1813)
    6820   315224452 :          lu(k,1909) = lu(k,1909) - lu(k,1512) * lu(k,1908)
    6821   315224452 :          lu(k,1910) = lu(k,1910) - lu(k,1513) * lu(k,1908)
    6822   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1514) * lu(k,1908)
    6823   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1515) * lu(k,1908)
    6824   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1516) * lu(k,1908)
    6825   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1517) * lu(k,1908)
    6826   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1518) * lu(k,1908)
    6827   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1519) * lu(k,1908)
    6828   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1520) * lu(k,1908)
    6829   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1521) * lu(k,1908)
    6830   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1522) * lu(k,1908)
    6831   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1523) * lu(k,1908)
    6832   315224452 :          lu(k,1954) = lu(k,1954) - lu(k,1512) * lu(k,1953)
    6833   315224452 :          lu(k,1955) = lu(k,1955) - lu(k,1513) * lu(k,1953)
    6834   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1514) * lu(k,1953)
    6835   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1515) * lu(k,1953)
    6836   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1516) * lu(k,1953)
    6837   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1517) * lu(k,1953)
    6838   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1518) * lu(k,1953)
    6839   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1519) * lu(k,1953)
    6840   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1520) * lu(k,1953)
    6841   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1521) * lu(k,1953)
    6842   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1522) * lu(k,1953)
    6843   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1523) * lu(k,1953)
    6844   315224452 :          lu(k,1980) = lu(k,1980) - lu(k,1512) * lu(k,1979)
    6845   315224452 :          lu(k,1981) = lu(k,1981) - lu(k,1513) * lu(k,1979)
    6846   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1514) * lu(k,1979)
    6847   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1515) * lu(k,1979)
    6848   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1516) * lu(k,1979)
    6849   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1517) * lu(k,1979)
    6850   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1518) * lu(k,1979)
    6851   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1519) * lu(k,1979)
    6852   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1520) * lu(k,1979)
    6853   315224452 :          lu(k,1993) = - lu(k,1521) * lu(k,1979)
    6854   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1522) * lu(k,1979)
    6855   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1523) * lu(k,1979)
    6856   315224452 :          lu(k,2023) = lu(k,2023) - lu(k,1512) * lu(k,2022)
    6857   315224452 :          lu(k,2024) = lu(k,2024) - lu(k,1513) * lu(k,2022)
    6858   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1514) * lu(k,2022)
    6859   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,1515) * lu(k,2022)
    6860   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1516) * lu(k,2022)
    6861   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1517) * lu(k,2022)
    6862   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1518) * lu(k,2022)
    6863   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1519) * lu(k,2022)
    6864   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1520) * lu(k,2022)
    6865   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1521) * lu(k,2022)
    6866   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1522) * lu(k,2022)
    6867   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1523) * lu(k,2022)
    6868   315224452 :          lu(k,2046) = - lu(k,1512) * lu(k,2045)
    6869   315224452 :          lu(k,2047) = lu(k,2047) - lu(k,1513) * lu(k,2045)
    6870   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1514) * lu(k,2045)
    6871   315224452 :          lu(k,2051) = - lu(k,1515) * lu(k,2045)
    6872   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1516) * lu(k,2045)
    6873   315224452 :          lu(k,2053) = - lu(k,1517) * lu(k,2045)
    6874   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1518) * lu(k,2045)
    6875   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1519) * lu(k,2045)
    6876   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1520) * lu(k,2045)
    6877   315224452 :          lu(k,2059) = - lu(k,1521) * lu(k,2045)
    6878   315224452 :          lu(k,2061) = - lu(k,1522) * lu(k,2045)
    6879   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1523) * lu(k,2045)
    6880   315224452 :          lu(k,2089) = lu(k,2089) - lu(k,1512) * lu(k,2088)
    6881   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,1513) * lu(k,2088)
    6882   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1514) * lu(k,2088)
    6883   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1515) * lu(k,2088)
    6884   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1516) * lu(k,2088)
    6885   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1517) * lu(k,2088)
    6886   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1518) * lu(k,2088)
    6887   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1519) * lu(k,2088)
    6888   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1520) * lu(k,2088)
    6889   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1521) * lu(k,2088)
    6890   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1522) * lu(k,2088)
    6891   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1523) * lu(k,2088)
    6892   315224452 :          lu(k,2110) = lu(k,2110) - lu(k,1512) * lu(k,2109)
    6893   315224452 :          lu(k,2111) = lu(k,2111) - lu(k,1513) * lu(k,2109)
    6894   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1514) * lu(k,2109)
    6895   315224452 :          lu(k,2115) = - lu(k,1515) * lu(k,2109)
    6896   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1516) * lu(k,2109)
    6897   315224452 :          lu(k,2117) = - lu(k,1517) * lu(k,2109)
    6898   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1518) * lu(k,2109)
    6899   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1519) * lu(k,2109)
    6900   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1520) * lu(k,2109)
    6901   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1521) * lu(k,2109)
    6902   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1522) * lu(k,2109)
    6903   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1523) * lu(k,2109)
    6904   315224452 :          lu(k,2156) = lu(k,2156) - lu(k,1512) * lu(k,2155)
    6905   315224452 :          lu(k,2157) = lu(k,2157) - lu(k,1513) * lu(k,2155)
    6906   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1514) * lu(k,2155)
    6907   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1515) * lu(k,2155)
    6908   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1516) * lu(k,2155)
    6909   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1517) * lu(k,2155)
    6910   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1518) * lu(k,2155)
    6911   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1519) * lu(k,2155)
    6912   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1520) * lu(k,2155)
    6913   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1521) * lu(k,2155)
    6914   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1522) * lu(k,2155)
    6915   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1523) * lu(k,2155)
    6916   315224452 :          lu(k,2220) = lu(k,2220) - lu(k,1512) * lu(k,2219)
    6917   315224452 :          lu(k,2221) = lu(k,2221) - lu(k,1513) * lu(k,2219)
    6918   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1514) * lu(k,2219)
    6919   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1515) * lu(k,2219)
    6920   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1516) * lu(k,2219)
    6921   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1517) * lu(k,2219)
    6922   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1518) * lu(k,2219)
    6923   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1519) * lu(k,2219)
    6924   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1520) * lu(k,2219)
    6925   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1521) * lu(k,2219)
    6926   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1522) * lu(k,2219)
    6927   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1523) * lu(k,2219)
    6928   315224452 :          lu(k,2245) = lu(k,2245) - lu(k,1512) * lu(k,2244)
    6929   315224452 :          lu(k,2246) = lu(k,2246) - lu(k,1513) * lu(k,2244)
    6930   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1514) * lu(k,2244)
    6931   315224452 :          lu(k,2250) = lu(k,2250) - lu(k,1515) * lu(k,2244)
    6932   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1516) * lu(k,2244)
    6933   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1517) * lu(k,2244)
    6934   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1518) * lu(k,2244)
    6935   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1519) * lu(k,2244)
    6936   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1520) * lu(k,2244)
    6937   315224452 :          lu(k,2258) = - lu(k,1521) * lu(k,2244)
    6938   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1522) * lu(k,2244)
    6939   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1523) * lu(k,2244)
    6940   315224452 :          lu(k,2353) = lu(k,2353) - lu(k,1512) * lu(k,2352)
    6941   315224452 :          lu(k,2354) = lu(k,2354) - lu(k,1513) * lu(k,2352)
    6942   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1514) * lu(k,2352)
    6943   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1515) * lu(k,2352)
    6944   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1516) * lu(k,2352)
    6945   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1517) * lu(k,2352)
    6946   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1518) * lu(k,2352)
    6947   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1519) * lu(k,2352)
    6948   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1520) * lu(k,2352)
    6949   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1521) * lu(k,2352)
    6950   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1522) * lu(k,2352)
    6951   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1523) * lu(k,2352)
    6952   315224452 :          lu(k,2432) = lu(k,2432) - lu(k,1512) * lu(k,2431)
    6953   315224452 :          lu(k,2433) = lu(k,2433) - lu(k,1513) * lu(k,2431)
    6954   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1514) * lu(k,2431)
    6955   315224452 :          lu(k,2437) = lu(k,2437) - lu(k,1515) * lu(k,2431)
    6956   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1516) * lu(k,2431)
    6957   315224452 :          lu(k,2439) = - lu(k,1517) * lu(k,2431)
    6958   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1518) * lu(k,2431)
    6959   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1519) * lu(k,2431)
    6960   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1520) * lu(k,2431)
    6961   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1521) * lu(k,2431)
    6962   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1522) * lu(k,2431)
    6963   325174377 :          lu(k,2449) = lu(k,2449) - lu(k,1523) * lu(k,2431)
    6964             :       end do
    6965     9949925 :       end subroutine lu_fac29
    6966     9949925 :       subroutine lu_fac30( avec_len, lu )
    6967             :       use chem_mods, only : nzcnt
    6968             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6969             :       implicit none
    6970             : !-----------------------------------------------------------------------
    6971             : ! ... dummy args
    6972             : !-----------------------------------------------------------------------
    6973             :       integer, intent(in) :: avec_len
    6974             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6975             : !-----------------------------------------------------------------------
    6976             : ! ... local variables
    6977             : !-----------------------------------------------------------------------
    6978             :       integer :: k
    6979   325174377 :       do k = 1,avec_len
    6980   315224452 :          lu(k,1542) = 1._r8 / lu(k,1542)
    6981   315224452 :          lu(k,1543) = lu(k,1543) * lu(k,1542)
    6982   315224452 :          lu(k,1544) = lu(k,1544) * lu(k,1542)
    6983   315224452 :          lu(k,1545) = lu(k,1545) * lu(k,1542)
    6984   315224452 :          lu(k,1546) = lu(k,1546) * lu(k,1542)
    6985   315224452 :          lu(k,1547) = lu(k,1547) * lu(k,1542)
    6986   315224452 :          lu(k,1548) = lu(k,1548) * lu(k,1542)
    6987   315224452 :          lu(k,1549) = lu(k,1549) * lu(k,1542)
    6988   315224452 :          lu(k,1550) = lu(k,1550) * lu(k,1542)
    6989   315224452 :          lu(k,1551) = lu(k,1551) * lu(k,1542)
    6990   315224452 :          lu(k,1552) = lu(k,1552) * lu(k,1542)
    6991   315224452 :          lu(k,1553) = lu(k,1553) * lu(k,1542)
    6992   315224452 :          lu(k,1554) = lu(k,1554) * lu(k,1542)
    6993   315224452 :          lu(k,1555) = lu(k,1555) * lu(k,1542)
    6994   315224452 :          lu(k,1565) = lu(k,1565) - lu(k,1543) * lu(k,1564)
    6995   315224452 :          lu(k,1566) = lu(k,1566) - lu(k,1544) * lu(k,1564)
    6996   315224452 :          lu(k,1568) = lu(k,1568) - lu(k,1545) * lu(k,1564)
    6997   315224452 :          lu(k,1569) = lu(k,1569) - lu(k,1546) * lu(k,1564)
    6998   315224452 :          lu(k,1570) = lu(k,1570) - lu(k,1547) * lu(k,1564)
    6999   315224452 :          lu(k,1571) = lu(k,1571) - lu(k,1548) * lu(k,1564)
    7000   315224452 :          lu(k,1572) = lu(k,1572) - lu(k,1549) * lu(k,1564)
    7001   315224452 :          lu(k,1574) = lu(k,1574) - lu(k,1550) * lu(k,1564)
    7002   315224452 :          lu(k,1575) = lu(k,1575) - lu(k,1551) * lu(k,1564)
    7003   315224452 :          lu(k,1576) = lu(k,1576) - lu(k,1552) * lu(k,1564)
    7004   315224452 :          lu(k,1577) = lu(k,1577) - lu(k,1553) * lu(k,1564)
    7005   315224452 :          lu(k,1578) = lu(k,1578) - lu(k,1554) * lu(k,1564)
    7006   315224452 :          lu(k,1579) = lu(k,1579) - lu(k,1555) * lu(k,1564)
    7007   315224452 :          lu(k,1591) = lu(k,1591) - lu(k,1543) * lu(k,1590)
    7008   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,1544) * lu(k,1590)
    7009   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,1545) * lu(k,1590)
    7010   315224452 :          lu(k,1595) = lu(k,1595) - lu(k,1546) * lu(k,1590)
    7011   315224452 :          lu(k,1596) = lu(k,1596) - lu(k,1547) * lu(k,1590)
    7012   315224452 :          lu(k,1597) = lu(k,1597) - lu(k,1548) * lu(k,1590)
    7013   315224452 :          lu(k,1598) = lu(k,1598) - lu(k,1549) * lu(k,1590)
    7014   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,1550) * lu(k,1590)
    7015   315224452 :          lu(k,1601) = lu(k,1601) - lu(k,1551) * lu(k,1590)
    7016   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,1552) * lu(k,1590)
    7017   315224452 :          lu(k,1603) = lu(k,1603) - lu(k,1553) * lu(k,1590)
    7018   315224452 :          lu(k,1604) = lu(k,1604) - lu(k,1554) * lu(k,1590)
    7019   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,1555) * lu(k,1590)
    7020   315224452 :          lu(k,1650) = lu(k,1650) - lu(k,1543) * lu(k,1649)
    7021   315224452 :          lu(k,1651) = lu(k,1651) - lu(k,1544) * lu(k,1649)
    7022   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1545) * lu(k,1649)
    7023   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1546) * lu(k,1649)
    7024   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1547) * lu(k,1649)
    7025   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1548) * lu(k,1649)
    7026   315224452 :          lu(k,1657) = lu(k,1657) - lu(k,1549) * lu(k,1649)
    7027   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,1550) * lu(k,1649)
    7028   315224452 :          lu(k,1660) = lu(k,1660) - lu(k,1551) * lu(k,1649)
    7029   315224452 :          lu(k,1661) = lu(k,1661) - lu(k,1552) * lu(k,1649)
    7030   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1553) * lu(k,1649)
    7031   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1554) * lu(k,1649)
    7032   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1555) * lu(k,1649)
    7033   315224452 :          lu(k,1815) = lu(k,1815) - lu(k,1543) * lu(k,1814)
    7034   315224452 :          lu(k,1816) = lu(k,1816) - lu(k,1544) * lu(k,1814)
    7035   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1545) * lu(k,1814)
    7036   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1546) * lu(k,1814)
    7037   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1547) * lu(k,1814)
    7038   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1548) * lu(k,1814)
    7039   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1549) * lu(k,1814)
    7040   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1550) * lu(k,1814)
    7041   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1551) * lu(k,1814)
    7042   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1552) * lu(k,1814)
    7043   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1553) * lu(k,1814)
    7044   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1554) * lu(k,1814)
    7045   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1555) * lu(k,1814)
    7046   315224452 :          lu(k,1910) = lu(k,1910) - lu(k,1543) * lu(k,1909)
    7047   315224452 :          lu(k,1911) = lu(k,1911) - lu(k,1544) * lu(k,1909)
    7048   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1545) * lu(k,1909)
    7049   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1546) * lu(k,1909)
    7050   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1547) * lu(k,1909)
    7051   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1548) * lu(k,1909)
    7052   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1549) * lu(k,1909)
    7053   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1550) * lu(k,1909)
    7054   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1551) * lu(k,1909)
    7055   315224452 :          lu(k,1921) = lu(k,1921) - lu(k,1552) * lu(k,1909)
    7056   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1553) * lu(k,1909)
    7057   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1554) * lu(k,1909)
    7058   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1555) * lu(k,1909)
    7059   315224452 :          lu(k,1955) = lu(k,1955) - lu(k,1543) * lu(k,1954)
    7060   315224452 :          lu(k,1956) = lu(k,1956) - lu(k,1544) * lu(k,1954)
    7061   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1545) * lu(k,1954)
    7062   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1546) * lu(k,1954)
    7063   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1547) * lu(k,1954)
    7064   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1548) * lu(k,1954)
    7065   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1549) * lu(k,1954)
    7066   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1550) * lu(k,1954)
    7067   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1551) * lu(k,1954)
    7068   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1552) * lu(k,1954)
    7069   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1553) * lu(k,1954)
    7070   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1554) * lu(k,1954)
    7071   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1555) * lu(k,1954)
    7072   315224452 :          lu(k,1981) = lu(k,1981) - lu(k,1543) * lu(k,1980)
    7073   315224452 :          lu(k,1982) = lu(k,1982) - lu(k,1544) * lu(k,1980)
    7074   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1545) * lu(k,1980)
    7075   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1546) * lu(k,1980)
    7076   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1547) * lu(k,1980)
    7077   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1548) * lu(k,1980)
    7078   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1549) * lu(k,1980)
    7079   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1550) * lu(k,1980)
    7080   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1551) * lu(k,1980)
    7081   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1552) * lu(k,1980)
    7082   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1553) * lu(k,1980)
    7083   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1554) * lu(k,1980)
    7084   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1555) * lu(k,1980)
    7085   315224452 :          lu(k,2024) = lu(k,2024) - lu(k,1543) * lu(k,2023)
    7086   315224452 :          lu(k,2025) = lu(k,2025) - lu(k,1544) * lu(k,2023)
    7087   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1545) * lu(k,2023)
    7088   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,1546) * lu(k,2023)
    7089   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1547) * lu(k,2023)
    7090   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1548) * lu(k,2023)
    7091   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1549) * lu(k,2023)
    7092   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1550) * lu(k,2023)
    7093   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1551) * lu(k,2023)
    7094   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1552) * lu(k,2023)
    7095   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1553) * lu(k,2023)
    7096   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1554) * lu(k,2023)
    7097   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1555) * lu(k,2023)
    7098   315224452 :          lu(k,2047) = lu(k,2047) - lu(k,1543) * lu(k,2046)
    7099   315224452 :          lu(k,2048) = lu(k,2048) - lu(k,1544) * lu(k,2046)
    7100   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1545) * lu(k,2046)
    7101   315224452 :          lu(k,2051) = lu(k,2051) - lu(k,1546) * lu(k,2046)
    7102   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1547) * lu(k,2046)
    7103   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1548) * lu(k,2046)
    7104   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1549) * lu(k,2046)
    7105   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1550) * lu(k,2046)
    7106   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1551) * lu(k,2046)
    7107   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1552) * lu(k,2046)
    7108   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1553) * lu(k,2046)
    7109   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1554) * lu(k,2046)
    7110   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1555) * lu(k,2046)
    7111   315224452 :          lu(k,2090) = lu(k,2090) - lu(k,1543) * lu(k,2089)
    7112   315224452 :          lu(k,2091) = lu(k,2091) - lu(k,1544) * lu(k,2089)
    7113   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1545) * lu(k,2089)
    7114   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1546) * lu(k,2089)
    7115   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1547) * lu(k,2089)
    7116   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1548) * lu(k,2089)
    7117   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1549) * lu(k,2089)
    7118   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1550) * lu(k,2089)
    7119   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1551) * lu(k,2089)
    7120   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1552) * lu(k,2089)
    7121   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1553) * lu(k,2089)
    7122   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1554) * lu(k,2089)
    7123   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1555) * lu(k,2089)
    7124   315224452 :          lu(k,2111) = lu(k,2111) - lu(k,1543) * lu(k,2110)
    7125   315224452 :          lu(k,2112) = lu(k,2112) - lu(k,1544) * lu(k,2110)
    7126   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1545) * lu(k,2110)
    7127   315224452 :          lu(k,2115) = lu(k,2115) - lu(k,1546) * lu(k,2110)
    7128   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1547) * lu(k,2110)
    7129   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1548) * lu(k,2110)
    7130   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1549) * lu(k,2110)
    7131   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1550) * lu(k,2110)
    7132   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1551) * lu(k,2110)
    7133   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1552) * lu(k,2110)
    7134   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1553) * lu(k,2110)
    7135   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1554) * lu(k,2110)
    7136   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1555) * lu(k,2110)
    7137   315224452 :          lu(k,2157) = lu(k,2157) - lu(k,1543) * lu(k,2156)
    7138   315224452 :          lu(k,2158) = lu(k,2158) - lu(k,1544) * lu(k,2156)
    7139   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1545) * lu(k,2156)
    7140   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1546) * lu(k,2156)
    7141   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1547) * lu(k,2156)
    7142   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1548) * lu(k,2156)
    7143   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1549) * lu(k,2156)
    7144   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1550) * lu(k,2156)
    7145   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1551) * lu(k,2156)
    7146   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1552) * lu(k,2156)
    7147   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1553) * lu(k,2156)
    7148   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1554) * lu(k,2156)
    7149   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1555) * lu(k,2156)
    7150   315224452 :          lu(k,2221) = lu(k,2221) - lu(k,1543) * lu(k,2220)
    7151   315224452 :          lu(k,2222) = lu(k,2222) - lu(k,1544) * lu(k,2220)
    7152   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1545) * lu(k,2220)
    7153   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1546) * lu(k,2220)
    7154   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1547) * lu(k,2220)
    7155   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1548) * lu(k,2220)
    7156   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1549) * lu(k,2220)
    7157   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1550) * lu(k,2220)
    7158   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1551) * lu(k,2220)
    7159   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1552) * lu(k,2220)
    7160   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1553) * lu(k,2220)
    7161   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1554) * lu(k,2220)
    7162   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1555) * lu(k,2220)
    7163   315224452 :          lu(k,2246) = lu(k,2246) - lu(k,1543) * lu(k,2245)
    7164   315224452 :          lu(k,2247) = lu(k,2247) - lu(k,1544) * lu(k,2245)
    7165   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1545) * lu(k,2245)
    7166   315224452 :          lu(k,2250) = lu(k,2250) - lu(k,1546) * lu(k,2245)
    7167   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1547) * lu(k,2245)
    7168   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1548) * lu(k,2245)
    7169   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1549) * lu(k,2245)
    7170   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1550) * lu(k,2245)
    7171   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1551) * lu(k,2245)
    7172   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1552) * lu(k,2245)
    7173   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1553) * lu(k,2245)
    7174   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1554) * lu(k,2245)
    7175   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1555) * lu(k,2245)
    7176   315224452 :          lu(k,2354) = lu(k,2354) - lu(k,1543) * lu(k,2353)
    7177   315224452 :          lu(k,2355) = lu(k,2355) - lu(k,1544) * lu(k,2353)
    7178   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1545) * lu(k,2353)
    7179   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1546) * lu(k,2353)
    7180   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1547) * lu(k,2353)
    7181   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1548) * lu(k,2353)
    7182   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1549) * lu(k,2353)
    7183   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1550) * lu(k,2353)
    7184   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1551) * lu(k,2353)
    7185   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1552) * lu(k,2353)
    7186   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1553) * lu(k,2353)
    7187   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1554) * lu(k,2353)
    7188   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1555) * lu(k,2353)
    7189   315224452 :          lu(k,2406) = - lu(k,1543) * lu(k,2405)
    7190   315224452 :          lu(k,2407) = lu(k,2407) - lu(k,1544) * lu(k,2405)
    7191   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1545) * lu(k,2405)
    7192   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1546) * lu(k,2405)
    7193   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1547) * lu(k,2405)
    7194   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1548) * lu(k,2405)
    7195   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1549) * lu(k,2405)
    7196   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1550) * lu(k,2405)
    7197   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1551) * lu(k,2405)
    7198   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1552) * lu(k,2405)
    7199   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1553) * lu(k,2405)
    7200   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1554) * lu(k,2405)
    7201   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1555) * lu(k,2405)
    7202   315224452 :          lu(k,2433) = lu(k,2433) - lu(k,1543) * lu(k,2432)
    7203   315224452 :          lu(k,2434) = lu(k,2434) - lu(k,1544) * lu(k,2432)
    7204   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1545) * lu(k,2432)
    7205   315224452 :          lu(k,2437) = lu(k,2437) - lu(k,1546) * lu(k,2432)
    7206   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1547) * lu(k,2432)
    7207   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1548) * lu(k,2432)
    7208   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1549) * lu(k,2432)
    7209   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1550) * lu(k,2432)
    7210   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1551) * lu(k,2432)
    7211   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1552) * lu(k,2432)
    7212   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1553) * lu(k,2432)
    7213   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1554) * lu(k,2432)
    7214   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1555) * lu(k,2432)
    7215   315224452 :          lu(k,1565) = 1._r8 / lu(k,1565)
    7216   315224452 :          lu(k,1566) = lu(k,1566) * lu(k,1565)
    7217   315224452 :          lu(k,1567) = lu(k,1567) * lu(k,1565)
    7218   315224452 :          lu(k,1568) = lu(k,1568) * lu(k,1565)
    7219   315224452 :          lu(k,1569) = lu(k,1569) * lu(k,1565)
    7220   315224452 :          lu(k,1570) = lu(k,1570) * lu(k,1565)
    7221   315224452 :          lu(k,1571) = lu(k,1571) * lu(k,1565)
    7222   315224452 :          lu(k,1572) = lu(k,1572) * lu(k,1565)
    7223   315224452 :          lu(k,1573) = lu(k,1573) * lu(k,1565)
    7224   315224452 :          lu(k,1574) = lu(k,1574) * lu(k,1565)
    7225   315224452 :          lu(k,1575) = lu(k,1575) * lu(k,1565)
    7226   315224452 :          lu(k,1576) = lu(k,1576) * lu(k,1565)
    7227   315224452 :          lu(k,1577) = lu(k,1577) * lu(k,1565)
    7228   315224452 :          lu(k,1578) = lu(k,1578) * lu(k,1565)
    7229   315224452 :          lu(k,1579) = lu(k,1579) * lu(k,1565)
    7230   315224452 :          lu(k,1592) = lu(k,1592) - lu(k,1566) * lu(k,1591)
    7231   315224452 :          lu(k,1593) = lu(k,1593) - lu(k,1567) * lu(k,1591)
    7232   315224452 :          lu(k,1594) = lu(k,1594) - lu(k,1568) * lu(k,1591)
    7233   315224452 :          lu(k,1595) = lu(k,1595) - lu(k,1569) * lu(k,1591)
    7234   315224452 :          lu(k,1596) = lu(k,1596) - lu(k,1570) * lu(k,1591)
    7235   315224452 :          lu(k,1597) = lu(k,1597) - lu(k,1571) * lu(k,1591)
    7236   315224452 :          lu(k,1598) = lu(k,1598) - lu(k,1572) * lu(k,1591)
    7237   315224452 :          lu(k,1599) = lu(k,1599) - lu(k,1573) * lu(k,1591)
    7238   315224452 :          lu(k,1600) = lu(k,1600) - lu(k,1574) * lu(k,1591)
    7239   315224452 :          lu(k,1601) = lu(k,1601) - lu(k,1575) * lu(k,1591)
    7240   315224452 :          lu(k,1602) = lu(k,1602) - lu(k,1576) * lu(k,1591)
    7241   315224452 :          lu(k,1603) = lu(k,1603) - lu(k,1577) * lu(k,1591)
    7242   315224452 :          lu(k,1604) = lu(k,1604) - lu(k,1578) * lu(k,1591)
    7243   315224452 :          lu(k,1606) = lu(k,1606) - lu(k,1579) * lu(k,1591)
    7244   315224452 :          lu(k,1651) = lu(k,1651) - lu(k,1566) * lu(k,1650)
    7245   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1567) * lu(k,1650)
    7246   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1568) * lu(k,1650)
    7247   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1569) * lu(k,1650)
    7248   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1570) * lu(k,1650)
    7249   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1571) * lu(k,1650)
    7250   315224452 :          lu(k,1657) = lu(k,1657) - lu(k,1572) * lu(k,1650)
    7251   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1573) * lu(k,1650)
    7252   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,1574) * lu(k,1650)
    7253   315224452 :          lu(k,1660) = lu(k,1660) - lu(k,1575) * lu(k,1650)
    7254   315224452 :          lu(k,1661) = lu(k,1661) - lu(k,1576) * lu(k,1650)
    7255   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1577) * lu(k,1650)
    7256   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1578) * lu(k,1650)
    7257   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1579) * lu(k,1650)
    7258   315224452 :          lu(k,1816) = lu(k,1816) - lu(k,1566) * lu(k,1815)
    7259   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1567) * lu(k,1815)
    7260   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1568) * lu(k,1815)
    7261   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1569) * lu(k,1815)
    7262   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1570) * lu(k,1815)
    7263   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1571) * lu(k,1815)
    7264   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1572) * lu(k,1815)
    7265   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1573) * lu(k,1815)
    7266   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1574) * lu(k,1815)
    7267   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1575) * lu(k,1815)
    7268   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1576) * lu(k,1815)
    7269   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1577) * lu(k,1815)
    7270   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1578) * lu(k,1815)
    7271   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1579) * lu(k,1815)
    7272   315224452 :          lu(k,1911) = lu(k,1911) - lu(k,1566) * lu(k,1910)
    7273   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1567) * lu(k,1910)
    7274   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1568) * lu(k,1910)
    7275   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1569) * lu(k,1910)
    7276   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1570) * lu(k,1910)
    7277   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1571) * lu(k,1910)
    7278   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1572) * lu(k,1910)
    7279   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1573) * lu(k,1910)
    7280   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1574) * lu(k,1910)
    7281   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1575) * lu(k,1910)
    7282   315224452 :          lu(k,1921) = lu(k,1921) - lu(k,1576) * lu(k,1910)
    7283   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1577) * lu(k,1910)
    7284   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1578) * lu(k,1910)
    7285   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1579) * lu(k,1910)
    7286   315224452 :          lu(k,1956) = lu(k,1956) - lu(k,1566) * lu(k,1955)
    7287   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,1567) * lu(k,1955)
    7288   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1568) * lu(k,1955)
    7289   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1569) * lu(k,1955)
    7290   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1570) * lu(k,1955)
    7291   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1571) * lu(k,1955)
    7292   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1572) * lu(k,1955)
    7293   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1573) * lu(k,1955)
    7294   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1574) * lu(k,1955)
    7295   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1575) * lu(k,1955)
    7296   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1576) * lu(k,1955)
    7297   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1577) * lu(k,1955)
    7298   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1578) * lu(k,1955)
    7299   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1579) * lu(k,1955)
    7300   315224452 :          lu(k,1982) = lu(k,1982) - lu(k,1566) * lu(k,1981)
    7301   315224452 :          lu(k,1983) = lu(k,1983) - lu(k,1567) * lu(k,1981)
    7302   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1568) * lu(k,1981)
    7303   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1569) * lu(k,1981)
    7304   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1570) * lu(k,1981)
    7305   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1571) * lu(k,1981)
    7306   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1572) * lu(k,1981)
    7307   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1573) * lu(k,1981)
    7308   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1574) * lu(k,1981)
    7309   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1575) * lu(k,1981)
    7310   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1576) * lu(k,1981)
    7311   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1577) * lu(k,1981)
    7312   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1578) * lu(k,1981)
    7313   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1579) * lu(k,1981)
    7314   315224452 :          lu(k,2025) = lu(k,2025) - lu(k,1566) * lu(k,2024)
    7315   315224452 :          lu(k,2026) = lu(k,2026) - lu(k,1567) * lu(k,2024)
    7316   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1568) * lu(k,2024)
    7317   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,1569) * lu(k,2024)
    7318   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1570) * lu(k,2024)
    7319   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1571) * lu(k,2024)
    7320   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1572) * lu(k,2024)
    7321   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1573) * lu(k,2024)
    7322   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1574) * lu(k,2024)
    7323   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1575) * lu(k,2024)
    7324   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1576) * lu(k,2024)
    7325   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1577) * lu(k,2024)
    7326   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1578) * lu(k,2024)
    7327   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1579) * lu(k,2024)
    7328   315224452 :          lu(k,2048) = lu(k,2048) - lu(k,1566) * lu(k,2047)
    7329   315224452 :          lu(k,2049) = lu(k,2049) - lu(k,1567) * lu(k,2047)
    7330   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1568) * lu(k,2047)
    7331   315224452 :          lu(k,2051) = lu(k,2051) - lu(k,1569) * lu(k,2047)
    7332   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1570) * lu(k,2047)
    7333   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1571) * lu(k,2047)
    7334   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1572) * lu(k,2047)
    7335   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1573) * lu(k,2047)
    7336   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1574) * lu(k,2047)
    7337   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1575) * lu(k,2047)
    7338   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1576) * lu(k,2047)
    7339   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1577) * lu(k,2047)
    7340   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1578) * lu(k,2047)
    7341   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1579) * lu(k,2047)
    7342   315224452 :          lu(k,2091) = lu(k,2091) - lu(k,1566) * lu(k,2090)
    7343   315224452 :          lu(k,2092) = lu(k,2092) - lu(k,1567) * lu(k,2090)
    7344   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1568) * lu(k,2090)
    7345   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1569) * lu(k,2090)
    7346   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1570) * lu(k,2090)
    7347   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1571) * lu(k,2090)
    7348   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1572) * lu(k,2090)
    7349   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1573) * lu(k,2090)
    7350   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1574) * lu(k,2090)
    7351   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1575) * lu(k,2090)
    7352   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1576) * lu(k,2090)
    7353   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1577) * lu(k,2090)
    7354   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1578) * lu(k,2090)
    7355   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1579) * lu(k,2090)
    7356   315224452 :          lu(k,2112) = lu(k,2112) - lu(k,1566) * lu(k,2111)
    7357   315224452 :          lu(k,2113) = lu(k,2113) - lu(k,1567) * lu(k,2111)
    7358   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1568) * lu(k,2111)
    7359   315224452 :          lu(k,2115) = lu(k,2115) - lu(k,1569) * lu(k,2111)
    7360   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1570) * lu(k,2111)
    7361   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1571) * lu(k,2111)
    7362   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1572) * lu(k,2111)
    7363   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1573) * lu(k,2111)
    7364   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1574) * lu(k,2111)
    7365   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1575) * lu(k,2111)
    7366   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1576) * lu(k,2111)
    7367   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1577) * lu(k,2111)
    7368   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1578) * lu(k,2111)
    7369   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1579) * lu(k,2111)
    7370   315224452 :          lu(k,2158) = lu(k,2158) - lu(k,1566) * lu(k,2157)
    7371   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1567) * lu(k,2157)
    7372   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1568) * lu(k,2157)
    7373   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1569) * lu(k,2157)
    7374   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1570) * lu(k,2157)
    7375   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1571) * lu(k,2157)
    7376   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1572) * lu(k,2157)
    7377   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1573) * lu(k,2157)
    7378   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1574) * lu(k,2157)
    7379   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1575) * lu(k,2157)
    7380   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1576) * lu(k,2157)
    7381   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1577) * lu(k,2157)
    7382   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1578) * lu(k,2157)
    7383   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1579) * lu(k,2157)
    7384   315224452 :          lu(k,2222) = lu(k,2222) - lu(k,1566) * lu(k,2221)
    7385   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1567) * lu(k,2221)
    7386   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1568) * lu(k,2221)
    7387   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1569) * lu(k,2221)
    7388   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1570) * lu(k,2221)
    7389   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1571) * lu(k,2221)
    7390   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1572) * lu(k,2221)
    7391   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1573) * lu(k,2221)
    7392   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1574) * lu(k,2221)
    7393   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1575) * lu(k,2221)
    7394   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1576) * lu(k,2221)
    7395   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1577) * lu(k,2221)
    7396   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1578) * lu(k,2221)
    7397   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1579) * lu(k,2221)
    7398   315224452 :          lu(k,2247) = lu(k,2247) - lu(k,1566) * lu(k,2246)
    7399   315224452 :          lu(k,2248) = lu(k,2248) - lu(k,1567) * lu(k,2246)
    7400   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1568) * lu(k,2246)
    7401   315224452 :          lu(k,2250) = lu(k,2250) - lu(k,1569) * lu(k,2246)
    7402   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1570) * lu(k,2246)
    7403   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1571) * lu(k,2246)
    7404   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1572) * lu(k,2246)
    7405   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1573) * lu(k,2246)
    7406   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1574) * lu(k,2246)
    7407   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1575) * lu(k,2246)
    7408   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1576) * lu(k,2246)
    7409   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1577) * lu(k,2246)
    7410   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1578) * lu(k,2246)
    7411   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1579) * lu(k,2246)
    7412   315224452 :          lu(k,2355) = lu(k,2355) - lu(k,1566) * lu(k,2354)
    7413   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1567) * lu(k,2354)
    7414   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1568) * lu(k,2354)
    7415   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1569) * lu(k,2354)
    7416   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1570) * lu(k,2354)
    7417   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1571) * lu(k,2354)
    7418   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1572) * lu(k,2354)
    7419   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1573) * lu(k,2354)
    7420   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1574) * lu(k,2354)
    7421   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1575) * lu(k,2354)
    7422   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1576) * lu(k,2354)
    7423   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1577) * lu(k,2354)
    7424   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1578) * lu(k,2354)
    7425   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1579) * lu(k,2354)
    7426   315224452 :          lu(k,2407) = lu(k,2407) - lu(k,1566) * lu(k,2406)
    7427   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1567) * lu(k,2406)
    7428   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1568) * lu(k,2406)
    7429   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1569) * lu(k,2406)
    7430   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1570) * lu(k,2406)
    7431   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1571) * lu(k,2406)
    7432   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1572) * lu(k,2406)
    7433   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1573) * lu(k,2406)
    7434   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1574) * lu(k,2406)
    7435   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1575) * lu(k,2406)
    7436   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1576) * lu(k,2406)
    7437   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1577) * lu(k,2406)
    7438   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1578) * lu(k,2406)
    7439   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1579) * lu(k,2406)
    7440   315224452 :          lu(k,2434) = lu(k,2434) - lu(k,1566) * lu(k,2433)
    7441   315224452 :          lu(k,2435) = lu(k,2435) - lu(k,1567) * lu(k,2433)
    7442   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1568) * lu(k,2433)
    7443   315224452 :          lu(k,2437) = lu(k,2437) - lu(k,1569) * lu(k,2433)
    7444   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1570) * lu(k,2433)
    7445   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1571) * lu(k,2433)
    7446   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1572) * lu(k,2433)
    7447   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1573) * lu(k,2433)
    7448   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1574) * lu(k,2433)
    7449   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1575) * lu(k,2433)
    7450   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1576) * lu(k,2433)
    7451   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1577) * lu(k,2433)
    7452   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1578) * lu(k,2433)
    7453   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1579) * lu(k,2433)
    7454   315224452 :          lu(k,1592) = 1._r8 / lu(k,1592)
    7455   315224452 :          lu(k,1593) = lu(k,1593) * lu(k,1592)
    7456   315224452 :          lu(k,1594) = lu(k,1594) * lu(k,1592)
    7457   315224452 :          lu(k,1595) = lu(k,1595) * lu(k,1592)
    7458   315224452 :          lu(k,1596) = lu(k,1596) * lu(k,1592)
    7459   315224452 :          lu(k,1597) = lu(k,1597) * lu(k,1592)
    7460   315224452 :          lu(k,1598) = lu(k,1598) * lu(k,1592)
    7461   315224452 :          lu(k,1599) = lu(k,1599) * lu(k,1592)
    7462   315224452 :          lu(k,1600) = lu(k,1600) * lu(k,1592)
    7463   315224452 :          lu(k,1601) = lu(k,1601) * lu(k,1592)
    7464   315224452 :          lu(k,1602) = lu(k,1602) * lu(k,1592)
    7465   315224452 :          lu(k,1603) = lu(k,1603) * lu(k,1592)
    7466   315224452 :          lu(k,1604) = lu(k,1604) * lu(k,1592)
    7467   315224452 :          lu(k,1605) = lu(k,1605) * lu(k,1592)
    7468   315224452 :          lu(k,1606) = lu(k,1606) * lu(k,1592)
    7469   315224452 :          lu(k,1652) = lu(k,1652) - lu(k,1593) * lu(k,1651)
    7470   315224452 :          lu(k,1653) = lu(k,1653) - lu(k,1594) * lu(k,1651)
    7471   315224452 :          lu(k,1654) = lu(k,1654) - lu(k,1595) * lu(k,1651)
    7472   315224452 :          lu(k,1655) = lu(k,1655) - lu(k,1596) * lu(k,1651)
    7473   315224452 :          lu(k,1656) = lu(k,1656) - lu(k,1597) * lu(k,1651)
    7474   315224452 :          lu(k,1657) = lu(k,1657) - lu(k,1598) * lu(k,1651)
    7475   315224452 :          lu(k,1658) = lu(k,1658) - lu(k,1599) * lu(k,1651)
    7476   315224452 :          lu(k,1659) = lu(k,1659) - lu(k,1600) * lu(k,1651)
    7477   315224452 :          lu(k,1660) = lu(k,1660) - lu(k,1601) * lu(k,1651)
    7478   315224452 :          lu(k,1661) = lu(k,1661) - lu(k,1602) * lu(k,1651)
    7479   315224452 :          lu(k,1662) = lu(k,1662) - lu(k,1603) * lu(k,1651)
    7480   315224452 :          lu(k,1664) = lu(k,1664) - lu(k,1604) * lu(k,1651)
    7481   315224452 :          lu(k,1665) = lu(k,1665) - lu(k,1605) * lu(k,1651)
    7482   315224452 :          lu(k,1666) = lu(k,1666) - lu(k,1606) * lu(k,1651)
    7483   315224452 :          lu(k,1817) = lu(k,1817) - lu(k,1593) * lu(k,1816)
    7484   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1594) * lu(k,1816)
    7485   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1595) * lu(k,1816)
    7486   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1596) * lu(k,1816)
    7487   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1597) * lu(k,1816)
    7488   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1598) * lu(k,1816)
    7489   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1599) * lu(k,1816)
    7490   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1600) * lu(k,1816)
    7491   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1601) * lu(k,1816)
    7492   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1602) * lu(k,1816)
    7493   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1603) * lu(k,1816)
    7494   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1604) * lu(k,1816)
    7495   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1605) * lu(k,1816)
    7496   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1606) * lu(k,1816)
    7497   315224452 :          lu(k,1912) = lu(k,1912) - lu(k,1593) * lu(k,1911)
    7498   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1594) * lu(k,1911)
    7499   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1595) * lu(k,1911)
    7500   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1596) * lu(k,1911)
    7501   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1597) * lu(k,1911)
    7502   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1598) * lu(k,1911)
    7503   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1599) * lu(k,1911)
    7504   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1600) * lu(k,1911)
    7505   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1601) * lu(k,1911)
    7506   315224452 :          lu(k,1921) = lu(k,1921) - lu(k,1602) * lu(k,1911)
    7507   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1603) * lu(k,1911)
    7508   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1604) * lu(k,1911)
    7509   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1605) * lu(k,1911)
    7510   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1606) * lu(k,1911)
    7511   315224452 :          lu(k,1957) = lu(k,1957) - lu(k,1593) * lu(k,1956)
    7512   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1594) * lu(k,1956)
    7513   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1595) * lu(k,1956)
    7514   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1596) * lu(k,1956)
    7515   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1597) * lu(k,1956)
    7516   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1598) * lu(k,1956)
    7517   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1599) * lu(k,1956)
    7518   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1600) * lu(k,1956)
    7519   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1601) * lu(k,1956)
    7520   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1602) * lu(k,1956)
    7521   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1603) * lu(k,1956)
    7522   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1604) * lu(k,1956)
    7523   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,1605) * lu(k,1956)
    7524   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1606) * lu(k,1956)
    7525   315224452 :          lu(k,1983) = lu(k,1983) - lu(k,1593) * lu(k,1982)
    7526   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1594) * lu(k,1982)
    7527   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1595) * lu(k,1982)
    7528   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1596) * lu(k,1982)
    7529   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1597) * lu(k,1982)
    7530   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1598) * lu(k,1982)
    7531   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1599) * lu(k,1982)
    7532   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1600) * lu(k,1982)
    7533   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1601) * lu(k,1982)
    7534   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1602) * lu(k,1982)
    7535   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1603) * lu(k,1982)
    7536   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1604) * lu(k,1982)
    7537   315224452 :          lu(k,1996) = lu(k,1996) - lu(k,1605) * lu(k,1982)
    7538   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1606) * lu(k,1982)
    7539   315224452 :          lu(k,2026) = lu(k,2026) - lu(k,1593) * lu(k,2025)
    7540   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1594) * lu(k,2025)
    7541   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,1595) * lu(k,2025)
    7542   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1596) * lu(k,2025)
    7543   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1597) * lu(k,2025)
    7544   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1598) * lu(k,2025)
    7545   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1599) * lu(k,2025)
    7546   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1600) * lu(k,2025)
    7547   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1601) * lu(k,2025)
    7548   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1602) * lu(k,2025)
    7549   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1603) * lu(k,2025)
    7550   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1604) * lu(k,2025)
    7551   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1605) * lu(k,2025)
    7552   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1606) * lu(k,2025)
    7553   315224452 :          lu(k,2049) = lu(k,2049) - lu(k,1593) * lu(k,2048)
    7554   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1594) * lu(k,2048)
    7555   315224452 :          lu(k,2051) = lu(k,2051) - lu(k,1595) * lu(k,2048)
    7556   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1596) * lu(k,2048)
    7557   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1597) * lu(k,2048)
    7558   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1598) * lu(k,2048)
    7559   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1599) * lu(k,2048)
    7560   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1600) * lu(k,2048)
    7561   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1601) * lu(k,2048)
    7562   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1602) * lu(k,2048)
    7563   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1603) * lu(k,2048)
    7564   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1604) * lu(k,2048)
    7565   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1605) * lu(k,2048)
    7566   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1606) * lu(k,2048)
    7567   315224452 :          lu(k,2092) = lu(k,2092) - lu(k,1593) * lu(k,2091)
    7568   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1594) * lu(k,2091)
    7569   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1595) * lu(k,2091)
    7570   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1596) * lu(k,2091)
    7571   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1597) * lu(k,2091)
    7572   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1598) * lu(k,2091)
    7573   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1599) * lu(k,2091)
    7574   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1600) * lu(k,2091)
    7575   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1601) * lu(k,2091)
    7576   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1602) * lu(k,2091)
    7577   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1603) * lu(k,2091)
    7578   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1604) * lu(k,2091)
    7579   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,1605) * lu(k,2091)
    7580   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1606) * lu(k,2091)
    7581   315224452 :          lu(k,2113) = lu(k,2113) - lu(k,1593) * lu(k,2112)
    7582   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1594) * lu(k,2112)
    7583   315224452 :          lu(k,2115) = lu(k,2115) - lu(k,1595) * lu(k,2112)
    7584   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1596) * lu(k,2112)
    7585   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1597) * lu(k,2112)
    7586   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1598) * lu(k,2112)
    7587   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1599) * lu(k,2112)
    7588   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1600) * lu(k,2112)
    7589   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1601) * lu(k,2112)
    7590   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1602) * lu(k,2112)
    7591   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1603) * lu(k,2112)
    7592   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1604) * lu(k,2112)
    7593   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,1605) * lu(k,2112)
    7594   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1606) * lu(k,2112)
    7595   315224452 :          lu(k,2159) = lu(k,2159) - lu(k,1593) * lu(k,2158)
    7596   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1594) * lu(k,2158)
    7597   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1595) * lu(k,2158)
    7598   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1596) * lu(k,2158)
    7599   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1597) * lu(k,2158)
    7600   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1598) * lu(k,2158)
    7601   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1599) * lu(k,2158)
    7602   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1600) * lu(k,2158)
    7603   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1601) * lu(k,2158)
    7604   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1602) * lu(k,2158)
    7605   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1603) * lu(k,2158)
    7606   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1604) * lu(k,2158)
    7607   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1605) * lu(k,2158)
    7608   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1606) * lu(k,2158)
    7609   315224452 :          lu(k,2223) = lu(k,2223) - lu(k,1593) * lu(k,2222)
    7610   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1594) * lu(k,2222)
    7611   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1595) * lu(k,2222)
    7612   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1596) * lu(k,2222)
    7613   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1597) * lu(k,2222)
    7614   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1598) * lu(k,2222)
    7615   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1599) * lu(k,2222)
    7616   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1600) * lu(k,2222)
    7617   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1601) * lu(k,2222)
    7618   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1602) * lu(k,2222)
    7619   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1603) * lu(k,2222)
    7620   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1604) * lu(k,2222)
    7621   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1605) * lu(k,2222)
    7622   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1606) * lu(k,2222)
    7623   315224452 :          lu(k,2248) = lu(k,2248) - lu(k,1593) * lu(k,2247)
    7624   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1594) * lu(k,2247)
    7625   315224452 :          lu(k,2250) = lu(k,2250) - lu(k,1595) * lu(k,2247)
    7626   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1596) * lu(k,2247)
    7627   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1597) * lu(k,2247)
    7628   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1598) * lu(k,2247)
    7629   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1599) * lu(k,2247)
    7630   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1600) * lu(k,2247)
    7631   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1601) * lu(k,2247)
    7632   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1602) * lu(k,2247)
    7633   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1603) * lu(k,2247)
    7634   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1604) * lu(k,2247)
    7635   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1605) * lu(k,2247)
    7636   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1606) * lu(k,2247)
    7637   315224452 :          lu(k,2356) = lu(k,2356) - lu(k,1593) * lu(k,2355)
    7638   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1594) * lu(k,2355)
    7639   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1595) * lu(k,2355)
    7640   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1596) * lu(k,2355)
    7641   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1597) * lu(k,2355)
    7642   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1598) * lu(k,2355)
    7643   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1599) * lu(k,2355)
    7644   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1600) * lu(k,2355)
    7645   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1601) * lu(k,2355)
    7646   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1602) * lu(k,2355)
    7647   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1603) * lu(k,2355)
    7648   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1604) * lu(k,2355)
    7649   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1605) * lu(k,2355)
    7650   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1606) * lu(k,2355)
    7651   315224452 :          lu(k,2408) = lu(k,2408) - lu(k,1593) * lu(k,2407)
    7652   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1594) * lu(k,2407)
    7653   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1595) * lu(k,2407)
    7654   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1596) * lu(k,2407)
    7655   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1597) * lu(k,2407)
    7656   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1598) * lu(k,2407)
    7657   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1599) * lu(k,2407)
    7658   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1600) * lu(k,2407)
    7659   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1601) * lu(k,2407)
    7660   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1602) * lu(k,2407)
    7661   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1603) * lu(k,2407)
    7662   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1604) * lu(k,2407)
    7663   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1605) * lu(k,2407)
    7664   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1606) * lu(k,2407)
    7665   315224452 :          lu(k,2435) = lu(k,2435) - lu(k,1593) * lu(k,2434)
    7666   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1594) * lu(k,2434)
    7667   315224452 :          lu(k,2437) = lu(k,2437) - lu(k,1595) * lu(k,2434)
    7668   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1596) * lu(k,2434)
    7669   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1597) * lu(k,2434)
    7670   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1598) * lu(k,2434)
    7671   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1599) * lu(k,2434)
    7672   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1600) * lu(k,2434)
    7673   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1601) * lu(k,2434)
    7674   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1602) * lu(k,2434)
    7675   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1603) * lu(k,2434)
    7676   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1604) * lu(k,2434)
    7677   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1605) * lu(k,2434)
    7678   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1606) * lu(k,2434)
    7679   315224452 :          lu(k,1652) = 1._r8 / lu(k,1652)
    7680   315224452 :          lu(k,1653) = lu(k,1653) * lu(k,1652)
    7681   315224452 :          lu(k,1654) = lu(k,1654) * lu(k,1652)
    7682   315224452 :          lu(k,1655) = lu(k,1655) * lu(k,1652)
    7683   315224452 :          lu(k,1656) = lu(k,1656) * lu(k,1652)
    7684   315224452 :          lu(k,1657) = lu(k,1657) * lu(k,1652)
    7685   315224452 :          lu(k,1658) = lu(k,1658) * lu(k,1652)
    7686   315224452 :          lu(k,1659) = lu(k,1659) * lu(k,1652)
    7687   315224452 :          lu(k,1660) = lu(k,1660) * lu(k,1652)
    7688   315224452 :          lu(k,1661) = lu(k,1661) * lu(k,1652)
    7689   315224452 :          lu(k,1662) = lu(k,1662) * lu(k,1652)
    7690   315224452 :          lu(k,1663) = lu(k,1663) * lu(k,1652)
    7691   315224452 :          lu(k,1664) = lu(k,1664) * lu(k,1652)
    7692   315224452 :          lu(k,1665) = lu(k,1665) * lu(k,1652)
    7693   315224452 :          lu(k,1666) = lu(k,1666) * lu(k,1652)
    7694   315224452 :          lu(k,1818) = lu(k,1818) - lu(k,1653) * lu(k,1817)
    7695   315224452 :          lu(k,1819) = lu(k,1819) - lu(k,1654) * lu(k,1817)
    7696   315224452 :          lu(k,1820) = lu(k,1820) - lu(k,1655) * lu(k,1817)
    7697   315224452 :          lu(k,1821) = lu(k,1821) - lu(k,1656) * lu(k,1817)
    7698   315224452 :          lu(k,1822) = lu(k,1822) - lu(k,1657) * lu(k,1817)
    7699   315224452 :          lu(k,1823) = lu(k,1823) - lu(k,1658) * lu(k,1817)
    7700   315224452 :          lu(k,1824) = lu(k,1824) - lu(k,1659) * lu(k,1817)
    7701   315224452 :          lu(k,1825) = lu(k,1825) - lu(k,1660) * lu(k,1817)
    7702   315224452 :          lu(k,1826) = lu(k,1826) - lu(k,1661) * lu(k,1817)
    7703   315224452 :          lu(k,1827) = lu(k,1827) - lu(k,1662) * lu(k,1817)
    7704   315224452 :          lu(k,1828) = lu(k,1828) - lu(k,1663) * lu(k,1817)
    7705   315224452 :          lu(k,1829) = lu(k,1829) - lu(k,1664) * lu(k,1817)
    7706   315224452 :          lu(k,1830) = lu(k,1830) - lu(k,1665) * lu(k,1817)
    7707   315224452 :          lu(k,1831) = lu(k,1831) - lu(k,1666) * lu(k,1817)
    7708   315224452 :          lu(k,1913) = lu(k,1913) - lu(k,1653) * lu(k,1912)
    7709   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1654) * lu(k,1912)
    7710   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1655) * lu(k,1912)
    7711   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1656) * lu(k,1912)
    7712   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1657) * lu(k,1912)
    7713   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1658) * lu(k,1912)
    7714   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1659) * lu(k,1912)
    7715   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1660) * lu(k,1912)
    7716   315224452 :          lu(k,1921) = lu(k,1921) - lu(k,1661) * lu(k,1912)
    7717   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1662) * lu(k,1912)
    7718   315224452 :          lu(k,1923) = lu(k,1923) - lu(k,1663) * lu(k,1912)
    7719   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1664) * lu(k,1912)
    7720   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1665) * lu(k,1912)
    7721   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1666) * lu(k,1912)
    7722   315224452 :          lu(k,1958) = lu(k,1958) - lu(k,1653) * lu(k,1957)
    7723   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1654) * lu(k,1957)
    7724   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1655) * lu(k,1957)
    7725   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1656) * lu(k,1957)
    7726   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1657) * lu(k,1957)
    7727   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1658) * lu(k,1957)
    7728   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1659) * lu(k,1957)
    7729   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1660) * lu(k,1957)
    7730   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1661) * lu(k,1957)
    7731   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1662) * lu(k,1957)
    7732   315224452 :          lu(k,1968) = lu(k,1968) - lu(k,1663) * lu(k,1957)
    7733   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1664) * lu(k,1957)
    7734   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,1665) * lu(k,1957)
    7735   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1666) * lu(k,1957)
    7736   315224452 :          lu(k,1984) = lu(k,1984) - lu(k,1653) * lu(k,1983)
    7737   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1654) * lu(k,1983)
    7738   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1655) * lu(k,1983)
    7739   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1656) * lu(k,1983)
    7740   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1657) * lu(k,1983)
    7741   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1658) * lu(k,1983)
    7742   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1659) * lu(k,1983)
    7743   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1660) * lu(k,1983)
    7744   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1661) * lu(k,1983)
    7745   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1662) * lu(k,1983)
    7746   315224452 :          lu(k,1994) = lu(k,1994) - lu(k,1663) * lu(k,1983)
    7747   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1664) * lu(k,1983)
    7748   315224452 :          lu(k,1996) = lu(k,1996) - lu(k,1665) * lu(k,1983)
    7749   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1666) * lu(k,1983)
    7750   315224452 :          lu(k,2027) = lu(k,2027) - lu(k,1653) * lu(k,2026)
    7751   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,1654) * lu(k,2026)
    7752   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1655) * lu(k,2026)
    7753   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1656) * lu(k,2026)
    7754   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1657) * lu(k,2026)
    7755   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1658) * lu(k,2026)
    7756   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1659) * lu(k,2026)
    7757   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1660) * lu(k,2026)
    7758   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1661) * lu(k,2026)
    7759   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1662) * lu(k,2026)
    7760   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,1663) * lu(k,2026)
    7761   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1664) * lu(k,2026)
    7762   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1665) * lu(k,2026)
    7763   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1666) * lu(k,2026)
    7764   315224452 :          lu(k,2050) = lu(k,2050) - lu(k,1653) * lu(k,2049)
    7765   315224452 :          lu(k,2051) = lu(k,2051) - lu(k,1654) * lu(k,2049)
    7766   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1655) * lu(k,2049)
    7767   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1656) * lu(k,2049)
    7768   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1657) * lu(k,2049)
    7769   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1658) * lu(k,2049)
    7770   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1659) * lu(k,2049)
    7771   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1660) * lu(k,2049)
    7772   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1661) * lu(k,2049)
    7773   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1662) * lu(k,2049)
    7774   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,1663) * lu(k,2049)
    7775   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1664) * lu(k,2049)
    7776   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1665) * lu(k,2049)
    7777   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1666) * lu(k,2049)
    7778   315224452 :          lu(k,2093) = lu(k,2093) - lu(k,1653) * lu(k,2092)
    7779   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1654) * lu(k,2092)
    7780   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1655) * lu(k,2092)
    7781   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1656) * lu(k,2092)
    7782   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1657) * lu(k,2092)
    7783   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1658) * lu(k,2092)
    7784   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1659) * lu(k,2092)
    7785   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1660) * lu(k,2092)
    7786   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1661) * lu(k,2092)
    7787   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1662) * lu(k,2092)
    7788   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,1663) * lu(k,2092)
    7789   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1664) * lu(k,2092)
    7790   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,1665) * lu(k,2092)
    7791   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1666) * lu(k,2092)
    7792   315224452 :          lu(k,2114) = lu(k,2114) - lu(k,1653) * lu(k,2113)
    7793   315224452 :          lu(k,2115) = lu(k,2115) - lu(k,1654) * lu(k,2113)
    7794   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1655) * lu(k,2113)
    7795   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1656) * lu(k,2113)
    7796   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1657) * lu(k,2113)
    7797   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1658) * lu(k,2113)
    7798   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1659) * lu(k,2113)
    7799   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1660) * lu(k,2113)
    7800   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1661) * lu(k,2113)
    7801   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1662) * lu(k,2113)
    7802   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,1663) * lu(k,2113)
    7803   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1664) * lu(k,2113)
    7804   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,1665) * lu(k,2113)
    7805   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1666) * lu(k,2113)
    7806   315224452 :          lu(k,2160) = lu(k,2160) - lu(k,1653) * lu(k,2159)
    7807   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1654) * lu(k,2159)
    7808   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1655) * lu(k,2159)
    7809   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1656) * lu(k,2159)
    7810   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1657) * lu(k,2159)
    7811   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1658) * lu(k,2159)
    7812   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1659) * lu(k,2159)
    7813   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1660) * lu(k,2159)
    7814   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1661) * lu(k,2159)
    7815   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1662) * lu(k,2159)
    7816   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1663) * lu(k,2159)
    7817   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1664) * lu(k,2159)
    7818   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1665) * lu(k,2159)
    7819   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1666) * lu(k,2159)
    7820   315224452 :          lu(k,2224) = lu(k,2224) - lu(k,1653) * lu(k,2223)
    7821   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1654) * lu(k,2223)
    7822   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1655) * lu(k,2223)
    7823   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1656) * lu(k,2223)
    7824   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1657) * lu(k,2223)
    7825   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1658) * lu(k,2223)
    7826   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1659) * lu(k,2223)
    7827   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1660) * lu(k,2223)
    7828   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1661) * lu(k,2223)
    7829   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1662) * lu(k,2223)
    7830   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1663) * lu(k,2223)
    7831   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1664) * lu(k,2223)
    7832   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1665) * lu(k,2223)
    7833   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1666) * lu(k,2223)
    7834   315224452 :          lu(k,2249) = lu(k,2249) - lu(k,1653) * lu(k,2248)
    7835   315224452 :          lu(k,2250) = lu(k,2250) - lu(k,1654) * lu(k,2248)
    7836   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1655) * lu(k,2248)
    7837   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1656) * lu(k,2248)
    7838   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1657) * lu(k,2248)
    7839   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1658) * lu(k,2248)
    7840   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1659) * lu(k,2248)
    7841   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1660) * lu(k,2248)
    7842   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1661) * lu(k,2248)
    7843   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1662) * lu(k,2248)
    7844   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,1663) * lu(k,2248)
    7845   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1664) * lu(k,2248)
    7846   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1665) * lu(k,2248)
    7847   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1666) * lu(k,2248)
    7848   315224452 :          lu(k,2357) = lu(k,2357) - lu(k,1653) * lu(k,2356)
    7849   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1654) * lu(k,2356)
    7850   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1655) * lu(k,2356)
    7851   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1656) * lu(k,2356)
    7852   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1657) * lu(k,2356)
    7853   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1658) * lu(k,2356)
    7854   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1659) * lu(k,2356)
    7855   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1660) * lu(k,2356)
    7856   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1661) * lu(k,2356)
    7857   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1662) * lu(k,2356)
    7858   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1663) * lu(k,2356)
    7859   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1664) * lu(k,2356)
    7860   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1665) * lu(k,2356)
    7861   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1666) * lu(k,2356)
    7862   315224452 :          lu(k,2409) = lu(k,2409) - lu(k,1653) * lu(k,2408)
    7863   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1654) * lu(k,2408)
    7864   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1655) * lu(k,2408)
    7865   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1656) * lu(k,2408)
    7866   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1657) * lu(k,2408)
    7867   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1658) * lu(k,2408)
    7868   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1659) * lu(k,2408)
    7869   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1660) * lu(k,2408)
    7870   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1661) * lu(k,2408)
    7871   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1662) * lu(k,2408)
    7872   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,1663) * lu(k,2408)
    7873   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1664) * lu(k,2408)
    7874   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1665) * lu(k,2408)
    7875   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1666) * lu(k,2408)
    7876   315224452 :          lu(k,2436) = lu(k,2436) - lu(k,1653) * lu(k,2435)
    7877   315224452 :          lu(k,2437) = lu(k,2437) - lu(k,1654) * lu(k,2435)
    7878   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1655) * lu(k,2435)
    7879   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1656) * lu(k,2435)
    7880   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1657) * lu(k,2435)
    7881   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1658) * lu(k,2435)
    7882   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1659) * lu(k,2435)
    7883   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1660) * lu(k,2435)
    7884   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1661) * lu(k,2435)
    7885   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1662) * lu(k,2435)
    7886   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,1663) * lu(k,2435)
    7887   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1664) * lu(k,2435)
    7888   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1665) * lu(k,2435)
    7889   325174377 :          lu(k,2449) = lu(k,2449) - lu(k,1666) * lu(k,2435)
    7890             :       end do
    7891     9949925 :       end subroutine lu_fac30
    7892     9949925 :       subroutine lu_fac31( avec_len, lu )
    7893             :       use chem_mods, only : nzcnt
    7894             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7895             :       implicit none
    7896             : !-----------------------------------------------------------------------
    7897             : ! ... dummy args
    7898             : !-----------------------------------------------------------------------
    7899             :       integer, intent(in) :: avec_len
    7900             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7901             : !-----------------------------------------------------------------------
    7902             : ! ... local variables
    7903             : !-----------------------------------------------------------------------
    7904             :       integer :: k
    7905   325174377 :       do k = 1,avec_len
    7906   315224452 :          lu(k,1818) = 1._r8 / lu(k,1818)
    7907   315224452 :          lu(k,1819) = lu(k,1819) * lu(k,1818)
    7908   315224452 :          lu(k,1820) = lu(k,1820) * lu(k,1818)
    7909   315224452 :          lu(k,1821) = lu(k,1821) * lu(k,1818)
    7910   315224452 :          lu(k,1822) = lu(k,1822) * lu(k,1818)
    7911   315224452 :          lu(k,1823) = lu(k,1823) * lu(k,1818)
    7912   315224452 :          lu(k,1824) = lu(k,1824) * lu(k,1818)
    7913   315224452 :          lu(k,1825) = lu(k,1825) * lu(k,1818)
    7914   315224452 :          lu(k,1826) = lu(k,1826) * lu(k,1818)
    7915   315224452 :          lu(k,1827) = lu(k,1827) * lu(k,1818)
    7916   315224452 :          lu(k,1828) = lu(k,1828) * lu(k,1818)
    7917   315224452 :          lu(k,1829) = lu(k,1829) * lu(k,1818)
    7918   315224452 :          lu(k,1830) = lu(k,1830) * lu(k,1818)
    7919   315224452 :          lu(k,1831) = lu(k,1831) * lu(k,1818)
    7920   315224452 :          lu(k,1914) = lu(k,1914) - lu(k,1819) * lu(k,1913)
    7921   315224452 :          lu(k,1915) = lu(k,1915) - lu(k,1820) * lu(k,1913)
    7922   315224452 :          lu(k,1916) = lu(k,1916) - lu(k,1821) * lu(k,1913)
    7923   315224452 :          lu(k,1917) = lu(k,1917) - lu(k,1822) * lu(k,1913)
    7924   315224452 :          lu(k,1918) = lu(k,1918) - lu(k,1823) * lu(k,1913)
    7925   315224452 :          lu(k,1919) = lu(k,1919) - lu(k,1824) * lu(k,1913)
    7926   315224452 :          lu(k,1920) = lu(k,1920) - lu(k,1825) * lu(k,1913)
    7927   315224452 :          lu(k,1921) = lu(k,1921) - lu(k,1826) * lu(k,1913)
    7928   315224452 :          lu(k,1922) = lu(k,1922) - lu(k,1827) * lu(k,1913)
    7929   315224452 :          lu(k,1923) = lu(k,1923) - lu(k,1828) * lu(k,1913)
    7930   315224452 :          lu(k,1924) = lu(k,1924) - lu(k,1829) * lu(k,1913)
    7931   315224452 :          lu(k,1925) = lu(k,1925) - lu(k,1830) * lu(k,1913)
    7932   315224452 :          lu(k,1926) = lu(k,1926) - lu(k,1831) * lu(k,1913)
    7933   315224452 :          lu(k,1959) = lu(k,1959) - lu(k,1819) * lu(k,1958)
    7934   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1820) * lu(k,1958)
    7935   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1821) * lu(k,1958)
    7936   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1822) * lu(k,1958)
    7937   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1823) * lu(k,1958)
    7938   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1824) * lu(k,1958)
    7939   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1825) * lu(k,1958)
    7940   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1826) * lu(k,1958)
    7941   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1827) * lu(k,1958)
    7942   315224452 :          lu(k,1968) = lu(k,1968) - lu(k,1828) * lu(k,1958)
    7943   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1829) * lu(k,1958)
    7944   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,1830) * lu(k,1958)
    7945   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1831) * lu(k,1958)
    7946   315224452 :          lu(k,1985) = lu(k,1985) - lu(k,1819) * lu(k,1984)
    7947   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1820) * lu(k,1984)
    7948   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1821) * lu(k,1984)
    7949   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1822) * lu(k,1984)
    7950   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1823) * lu(k,1984)
    7951   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1824) * lu(k,1984)
    7952   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1825) * lu(k,1984)
    7953   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1826) * lu(k,1984)
    7954   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1827) * lu(k,1984)
    7955   315224452 :          lu(k,1994) = lu(k,1994) - lu(k,1828) * lu(k,1984)
    7956   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1829) * lu(k,1984)
    7957   315224452 :          lu(k,1996) = lu(k,1996) - lu(k,1830) * lu(k,1984)
    7958   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1831) * lu(k,1984)
    7959   315224452 :          lu(k,2028) = lu(k,2028) - lu(k,1819) * lu(k,2027)
    7960   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1820) * lu(k,2027)
    7961   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1821) * lu(k,2027)
    7962   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1822) * lu(k,2027)
    7963   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1823) * lu(k,2027)
    7964   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1824) * lu(k,2027)
    7965   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1825) * lu(k,2027)
    7966   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1826) * lu(k,2027)
    7967   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1827) * lu(k,2027)
    7968   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,1828) * lu(k,2027)
    7969   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1829) * lu(k,2027)
    7970   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1830) * lu(k,2027)
    7971   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1831) * lu(k,2027)
    7972   315224452 :          lu(k,2051) = lu(k,2051) - lu(k,1819) * lu(k,2050)
    7973   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1820) * lu(k,2050)
    7974   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1821) * lu(k,2050)
    7975   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1822) * lu(k,2050)
    7976   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1823) * lu(k,2050)
    7977   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1824) * lu(k,2050)
    7978   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1825) * lu(k,2050)
    7979   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1826) * lu(k,2050)
    7980   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1827) * lu(k,2050)
    7981   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,1828) * lu(k,2050)
    7982   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1829) * lu(k,2050)
    7983   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1830) * lu(k,2050)
    7984   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1831) * lu(k,2050)
    7985   315224452 :          lu(k,2094) = lu(k,2094) - lu(k,1819) * lu(k,2093)
    7986   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1820) * lu(k,2093)
    7987   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1821) * lu(k,2093)
    7988   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1822) * lu(k,2093)
    7989   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1823) * lu(k,2093)
    7990   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1824) * lu(k,2093)
    7991   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1825) * lu(k,2093)
    7992   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1826) * lu(k,2093)
    7993   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1827) * lu(k,2093)
    7994   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,1828) * lu(k,2093)
    7995   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1829) * lu(k,2093)
    7996   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,1830) * lu(k,2093)
    7997   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1831) * lu(k,2093)
    7998   315224452 :          lu(k,2115) = lu(k,2115) - lu(k,1819) * lu(k,2114)
    7999   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1820) * lu(k,2114)
    8000   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1821) * lu(k,2114)
    8001   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1822) * lu(k,2114)
    8002   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1823) * lu(k,2114)
    8003   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1824) * lu(k,2114)
    8004   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1825) * lu(k,2114)
    8005   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1826) * lu(k,2114)
    8006   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1827) * lu(k,2114)
    8007   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,1828) * lu(k,2114)
    8008   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1829) * lu(k,2114)
    8009   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,1830) * lu(k,2114)
    8010   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1831) * lu(k,2114)
    8011   315224452 :          lu(k,2161) = lu(k,2161) - lu(k,1819) * lu(k,2160)
    8012   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1820) * lu(k,2160)
    8013   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1821) * lu(k,2160)
    8014   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1822) * lu(k,2160)
    8015   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1823) * lu(k,2160)
    8016   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1824) * lu(k,2160)
    8017   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1825) * lu(k,2160)
    8018   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1826) * lu(k,2160)
    8019   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1827) * lu(k,2160)
    8020   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1828) * lu(k,2160)
    8021   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1829) * lu(k,2160)
    8022   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1830) * lu(k,2160)
    8023   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1831) * lu(k,2160)
    8024   315224452 :          lu(k,2225) = lu(k,2225) - lu(k,1819) * lu(k,2224)
    8025   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1820) * lu(k,2224)
    8026   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1821) * lu(k,2224)
    8027   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1822) * lu(k,2224)
    8028   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1823) * lu(k,2224)
    8029   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1824) * lu(k,2224)
    8030   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1825) * lu(k,2224)
    8031   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1826) * lu(k,2224)
    8032   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1827) * lu(k,2224)
    8033   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1828) * lu(k,2224)
    8034   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1829) * lu(k,2224)
    8035   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1830) * lu(k,2224)
    8036   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1831) * lu(k,2224)
    8037   315224452 :          lu(k,2250) = lu(k,2250) - lu(k,1819) * lu(k,2249)
    8038   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1820) * lu(k,2249)
    8039   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1821) * lu(k,2249)
    8040   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1822) * lu(k,2249)
    8041   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1823) * lu(k,2249)
    8042   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1824) * lu(k,2249)
    8043   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1825) * lu(k,2249)
    8044   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1826) * lu(k,2249)
    8045   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1827) * lu(k,2249)
    8046   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,1828) * lu(k,2249)
    8047   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1829) * lu(k,2249)
    8048   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1830) * lu(k,2249)
    8049   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1831) * lu(k,2249)
    8050   315224452 :          lu(k,2358) = lu(k,2358) - lu(k,1819) * lu(k,2357)
    8051   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1820) * lu(k,2357)
    8052   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1821) * lu(k,2357)
    8053   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1822) * lu(k,2357)
    8054   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1823) * lu(k,2357)
    8055   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1824) * lu(k,2357)
    8056   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1825) * lu(k,2357)
    8057   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1826) * lu(k,2357)
    8058   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1827) * lu(k,2357)
    8059   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1828) * lu(k,2357)
    8060   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1829) * lu(k,2357)
    8061   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1830) * lu(k,2357)
    8062   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1831) * lu(k,2357)
    8063   315224452 :          lu(k,2410) = lu(k,2410) - lu(k,1819) * lu(k,2409)
    8064   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1820) * lu(k,2409)
    8065   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1821) * lu(k,2409)
    8066   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1822) * lu(k,2409)
    8067   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1823) * lu(k,2409)
    8068   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1824) * lu(k,2409)
    8069   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1825) * lu(k,2409)
    8070   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1826) * lu(k,2409)
    8071   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1827) * lu(k,2409)
    8072   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,1828) * lu(k,2409)
    8073   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1829) * lu(k,2409)
    8074   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1830) * lu(k,2409)
    8075   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1831) * lu(k,2409)
    8076   315224452 :          lu(k,2437) = lu(k,2437) - lu(k,1819) * lu(k,2436)
    8077   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1820) * lu(k,2436)
    8078   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1821) * lu(k,2436)
    8079   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1822) * lu(k,2436)
    8080   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1823) * lu(k,2436)
    8081   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1824) * lu(k,2436)
    8082   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1825) * lu(k,2436)
    8083   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1826) * lu(k,2436)
    8084   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1827) * lu(k,2436)
    8085   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,1828) * lu(k,2436)
    8086   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1829) * lu(k,2436)
    8087   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1830) * lu(k,2436)
    8088   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1831) * lu(k,2436)
    8089   315224452 :          lu(k,1914) = 1._r8 / lu(k,1914)
    8090   315224452 :          lu(k,1915) = lu(k,1915) * lu(k,1914)
    8091   315224452 :          lu(k,1916) = lu(k,1916) * lu(k,1914)
    8092   315224452 :          lu(k,1917) = lu(k,1917) * lu(k,1914)
    8093   315224452 :          lu(k,1918) = lu(k,1918) * lu(k,1914)
    8094   315224452 :          lu(k,1919) = lu(k,1919) * lu(k,1914)
    8095   315224452 :          lu(k,1920) = lu(k,1920) * lu(k,1914)
    8096   315224452 :          lu(k,1921) = lu(k,1921) * lu(k,1914)
    8097   315224452 :          lu(k,1922) = lu(k,1922) * lu(k,1914)
    8098   315224452 :          lu(k,1923) = lu(k,1923) * lu(k,1914)
    8099   315224452 :          lu(k,1924) = lu(k,1924) * lu(k,1914)
    8100   315224452 :          lu(k,1925) = lu(k,1925) * lu(k,1914)
    8101   315224452 :          lu(k,1926) = lu(k,1926) * lu(k,1914)
    8102   315224452 :          lu(k,1960) = lu(k,1960) - lu(k,1915) * lu(k,1959)
    8103   315224452 :          lu(k,1961) = lu(k,1961) - lu(k,1916) * lu(k,1959)
    8104   315224452 :          lu(k,1962) = lu(k,1962) - lu(k,1917) * lu(k,1959)
    8105   315224452 :          lu(k,1963) = lu(k,1963) - lu(k,1918) * lu(k,1959)
    8106   315224452 :          lu(k,1964) = lu(k,1964) - lu(k,1919) * lu(k,1959)
    8107   315224452 :          lu(k,1965) = lu(k,1965) - lu(k,1920) * lu(k,1959)
    8108   315224452 :          lu(k,1966) = lu(k,1966) - lu(k,1921) * lu(k,1959)
    8109   315224452 :          lu(k,1967) = lu(k,1967) - lu(k,1922) * lu(k,1959)
    8110   315224452 :          lu(k,1968) = lu(k,1968) - lu(k,1923) * lu(k,1959)
    8111   315224452 :          lu(k,1969) = lu(k,1969) - lu(k,1924) * lu(k,1959)
    8112   315224452 :          lu(k,1970) = lu(k,1970) - lu(k,1925) * lu(k,1959)
    8113   315224452 :          lu(k,1971) = lu(k,1971) - lu(k,1926) * lu(k,1959)
    8114   315224452 :          lu(k,1986) = lu(k,1986) - lu(k,1915) * lu(k,1985)
    8115   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1916) * lu(k,1985)
    8116   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1917) * lu(k,1985)
    8117   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1918) * lu(k,1985)
    8118   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1919) * lu(k,1985)
    8119   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1920) * lu(k,1985)
    8120   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1921) * lu(k,1985)
    8121   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1922) * lu(k,1985)
    8122   315224452 :          lu(k,1994) = lu(k,1994) - lu(k,1923) * lu(k,1985)
    8123   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1924) * lu(k,1985)
    8124   315224452 :          lu(k,1996) = lu(k,1996) - lu(k,1925) * lu(k,1985)
    8125   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1926) * lu(k,1985)
    8126   315224452 :          lu(k,2029) = lu(k,2029) - lu(k,1915) * lu(k,2028)
    8127   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1916) * lu(k,2028)
    8128   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1917) * lu(k,2028)
    8129   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1918) * lu(k,2028)
    8130   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1919) * lu(k,2028)
    8131   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1920) * lu(k,2028)
    8132   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1921) * lu(k,2028)
    8133   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1922) * lu(k,2028)
    8134   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,1923) * lu(k,2028)
    8135   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1924) * lu(k,2028)
    8136   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1925) * lu(k,2028)
    8137   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1926) * lu(k,2028)
    8138   315224452 :          lu(k,2052) = lu(k,2052) - lu(k,1915) * lu(k,2051)
    8139   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1916) * lu(k,2051)
    8140   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1917) * lu(k,2051)
    8141   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1918) * lu(k,2051)
    8142   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1919) * lu(k,2051)
    8143   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1920) * lu(k,2051)
    8144   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1921) * lu(k,2051)
    8145   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1922) * lu(k,2051)
    8146   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,1923) * lu(k,2051)
    8147   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1924) * lu(k,2051)
    8148   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1925) * lu(k,2051)
    8149   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1926) * lu(k,2051)
    8150   315224452 :          lu(k,2095) = lu(k,2095) - lu(k,1915) * lu(k,2094)
    8151   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1916) * lu(k,2094)
    8152   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1917) * lu(k,2094)
    8153   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1918) * lu(k,2094)
    8154   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1919) * lu(k,2094)
    8155   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1920) * lu(k,2094)
    8156   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1921) * lu(k,2094)
    8157   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1922) * lu(k,2094)
    8158   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,1923) * lu(k,2094)
    8159   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1924) * lu(k,2094)
    8160   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,1925) * lu(k,2094)
    8161   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1926) * lu(k,2094)
    8162   315224452 :          lu(k,2116) = lu(k,2116) - lu(k,1915) * lu(k,2115)
    8163   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1916) * lu(k,2115)
    8164   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1917) * lu(k,2115)
    8165   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1918) * lu(k,2115)
    8166   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1919) * lu(k,2115)
    8167   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1920) * lu(k,2115)
    8168   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1921) * lu(k,2115)
    8169   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1922) * lu(k,2115)
    8170   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,1923) * lu(k,2115)
    8171   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1924) * lu(k,2115)
    8172   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,1925) * lu(k,2115)
    8173   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1926) * lu(k,2115)
    8174   315224452 :          lu(k,2162) = lu(k,2162) - lu(k,1915) * lu(k,2161)
    8175   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1916) * lu(k,2161)
    8176   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1917) * lu(k,2161)
    8177   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1918) * lu(k,2161)
    8178   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1919) * lu(k,2161)
    8179   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1920) * lu(k,2161)
    8180   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1921) * lu(k,2161)
    8181   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1922) * lu(k,2161)
    8182   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1923) * lu(k,2161)
    8183   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1924) * lu(k,2161)
    8184   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1925) * lu(k,2161)
    8185   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1926) * lu(k,2161)
    8186   315224452 :          lu(k,2226) = lu(k,2226) - lu(k,1915) * lu(k,2225)
    8187   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1916) * lu(k,2225)
    8188   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1917) * lu(k,2225)
    8189   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1918) * lu(k,2225)
    8190   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1919) * lu(k,2225)
    8191   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1920) * lu(k,2225)
    8192   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1921) * lu(k,2225)
    8193   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1922) * lu(k,2225)
    8194   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1923) * lu(k,2225)
    8195   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1924) * lu(k,2225)
    8196   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1925) * lu(k,2225)
    8197   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1926) * lu(k,2225)
    8198   315224452 :          lu(k,2251) = lu(k,2251) - lu(k,1915) * lu(k,2250)
    8199   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1916) * lu(k,2250)
    8200   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1917) * lu(k,2250)
    8201   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1918) * lu(k,2250)
    8202   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1919) * lu(k,2250)
    8203   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1920) * lu(k,2250)
    8204   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1921) * lu(k,2250)
    8205   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1922) * lu(k,2250)
    8206   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,1923) * lu(k,2250)
    8207   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1924) * lu(k,2250)
    8208   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1925) * lu(k,2250)
    8209   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1926) * lu(k,2250)
    8210   315224452 :          lu(k,2359) = lu(k,2359) - lu(k,1915) * lu(k,2358)
    8211   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1916) * lu(k,2358)
    8212   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1917) * lu(k,2358)
    8213   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1918) * lu(k,2358)
    8214   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1919) * lu(k,2358)
    8215   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1920) * lu(k,2358)
    8216   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1921) * lu(k,2358)
    8217   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1922) * lu(k,2358)
    8218   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1923) * lu(k,2358)
    8219   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1924) * lu(k,2358)
    8220   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1925) * lu(k,2358)
    8221   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1926) * lu(k,2358)
    8222   315224452 :          lu(k,2411) = lu(k,2411) - lu(k,1915) * lu(k,2410)
    8223   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1916) * lu(k,2410)
    8224   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1917) * lu(k,2410)
    8225   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1918) * lu(k,2410)
    8226   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1919) * lu(k,2410)
    8227   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1920) * lu(k,2410)
    8228   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1921) * lu(k,2410)
    8229   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1922) * lu(k,2410)
    8230   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,1923) * lu(k,2410)
    8231   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1924) * lu(k,2410)
    8232   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1925) * lu(k,2410)
    8233   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1926) * lu(k,2410)
    8234   315224452 :          lu(k,2438) = lu(k,2438) - lu(k,1915) * lu(k,2437)
    8235   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1916) * lu(k,2437)
    8236   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1917) * lu(k,2437)
    8237   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1918) * lu(k,2437)
    8238   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1919) * lu(k,2437)
    8239   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1920) * lu(k,2437)
    8240   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1921) * lu(k,2437)
    8241   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1922) * lu(k,2437)
    8242   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,1923) * lu(k,2437)
    8243   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1924) * lu(k,2437)
    8244   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1925) * lu(k,2437)
    8245   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1926) * lu(k,2437)
    8246   315224452 :          lu(k,1960) = 1._r8 / lu(k,1960)
    8247   315224452 :          lu(k,1961) = lu(k,1961) * lu(k,1960)
    8248   315224452 :          lu(k,1962) = lu(k,1962) * lu(k,1960)
    8249   315224452 :          lu(k,1963) = lu(k,1963) * lu(k,1960)
    8250   315224452 :          lu(k,1964) = lu(k,1964) * lu(k,1960)
    8251   315224452 :          lu(k,1965) = lu(k,1965) * lu(k,1960)
    8252   315224452 :          lu(k,1966) = lu(k,1966) * lu(k,1960)
    8253   315224452 :          lu(k,1967) = lu(k,1967) * lu(k,1960)
    8254   315224452 :          lu(k,1968) = lu(k,1968) * lu(k,1960)
    8255   315224452 :          lu(k,1969) = lu(k,1969) * lu(k,1960)
    8256   315224452 :          lu(k,1970) = lu(k,1970) * lu(k,1960)
    8257   315224452 :          lu(k,1971) = lu(k,1971) * lu(k,1960)
    8258   315224452 :          lu(k,1987) = lu(k,1987) - lu(k,1961) * lu(k,1986)
    8259   315224452 :          lu(k,1988) = lu(k,1988) - lu(k,1962) * lu(k,1986)
    8260   315224452 :          lu(k,1989) = lu(k,1989) - lu(k,1963) * lu(k,1986)
    8261   315224452 :          lu(k,1990) = lu(k,1990) - lu(k,1964) * lu(k,1986)
    8262   315224452 :          lu(k,1991) = lu(k,1991) - lu(k,1965) * lu(k,1986)
    8263   315224452 :          lu(k,1992) = lu(k,1992) - lu(k,1966) * lu(k,1986)
    8264   315224452 :          lu(k,1993) = lu(k,1993) - lu(k,1967) * lu(k,1986)
    8265   315224452 :          lu(k,1994) = lu(k,1994) - lu(k,1968) * lu(k,1986)
    8266   315224452 :          lu(k,1995) = lu(k,1995) - lu(k,1969) * lu(k,1986)
    8267   315224452 :          lu(k,1996) = lu(k,1996) - lu(k,1970) * lu(k,1986)
    8268   315224452 :          lu(k,1997) = lu(k,1997) - lu(k,1971) * lu(k,1986)
    8269   315224452 :          lu(k,2030) = lu(k,2030) - lu(k,1961) * lu(k,2029)
    8270   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1962) * lu(k,2029)
    8271   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1963) * lu(k,2029)
    8272   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1964) * lu(k,2029)
    8273   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1965) * lu(k,2029)
    8274   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1966) * lu(k,2029)
    8275   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1967) * lu(k,2029)
    8276   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,1968) * lu(k,2029)
    8277   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1969) * lu(k,2029)
    8278   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1970) * lu(k,2029)
    8279   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1971) * lu(k,2029)
    8280   315224452 :          lu(k,2053) = lu(k,2053) - lu(k,1961) * lu(k,2052)
    8281   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1962) * lu(k,2052)
    8282   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1963) * lu(k,2052)
    8283   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1964) * lu(k,2052)
    8284   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1965) * lu(k,2052)
    8285   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1966) * lu(k,2052)
    8286   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1967) * lu(k,2052)
    8287   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,1968) * lu(k,2052)
    8288   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1969) * lu(k,2052)
    8289   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1970) * lu(k,2052)
    8290   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1971) * lu(k,2052)
    8291   315224452 :          lu(k,2096) = lu(k,2096) - lu(k,1961) * lu(k,2095)
    8292   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1962) * lu(k,2095)
    8293   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1963) * lu(k,2095)
    8294   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1964) * lu(k,2095)
    8295   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1965) * lu(k,2095)
    8296   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1966) * lu(k,2095)
    8297   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1967) * lu(k,2095)
    8298   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,1968) * lu(k,2095)
    8299   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1969) * lu(k,2095)
    8300   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,1970) * lu(k,2095)
    8301   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1971) * lu(k,2095)
    8302   315224452 :          lu(k,2117) = lu(k,2117) - lu(k,1961) * lu(k,2116)
    8303   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1962) * lu(k,2116)
    8304   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1963) * lu(k,2116)
    8305   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1964) * lu(k,2116)
    8306   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1965) * lu(k,2116)
    8307   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1966) * lu(k,2116)
    8308   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1967) * lu(k,2116)
    8309   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,1968) * lu(k,2116)
    8310   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1969) * lu(k,2116)
    8311   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,1970) * lu(k,2116)
    8312   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1971) * lu(k,2116)
    8313   315224452 :          lu(k,2163) = lu(k,2163) - lu(k,1961) * lu(k,2162)
    8314   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1962) * lu(k,2162)
    8315   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1963) * lu(k,2162)
    8316   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1964) * lu(k,2162)
    8317   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1965) * lu(k,2162)
    8318   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1966) * lu(k,2162)
    8319   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1967) * lu(k,2162)
    8320   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1968) * lu(k,2162)
    8321   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1969) * lu(k,2162)
    8322   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1970) * lu(k,2162)
    8323   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1971) * lu(k,2162)
    8324   315224452 :          lu(k,2227) = lu(k,2227) - lu(k,1961) * lu(k,2226)
    8325   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1962) * lu(k,2226)
    8326   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1963) * lu(k,2226)
    8327   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1964) * lu(k,2226)
    8328   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1965) * lu(k,2226)
    8329   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1966) * lu(k,2226)
    8330   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1967) * lu(k,2226)
    8331   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1968) * lu(k,2226)
    8332   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1969) * lu(k,2226)
    8333   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1970) * lu(k,2226)
    8334   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1971) * lu(k,2226)
    8335   315224452 :          lu(k,2252) = lu(k,2252) - lu(k,1961) * lu(k,2251)
    8336   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1962) * lu(k,2251)
    8337   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1963) * lu(k,2251)
    8338   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1964) * lu(k,2251)
    8339   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1965) * lu(k,2251)
    8340   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1966) * lu(k,2251)
    8341   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1967) * lu(k,2251)
    8342   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,1968) * lu(k,2251)
    8343   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1969) * lu(k,2251)
    8344   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1970) * lu(k,2251)
    8345   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1971) * lu(k,2251)
    8346   315224452 :          lu(k,2360) = lu(k,2360) - lu(k,1961) * lu(k,2359)
    8347   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1962) * lu(k,2359)
    8348   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1963) * lu(k,2359)
    8349   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1964) * lu(k,2359)
    8350   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1965) * lu(k,2359)
    8351   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1966) * lu(k,2359)
    8352   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1967) * lu(k,2359)
    8353   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1968) * lu(k,2359)
    8354   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1969) * lu(k,2359)
    8355   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1970) * lu(k,2359)
    8356   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1971) * lu(k,2359)
    8357   315224452 :          lu(k,2412) = lu(k,2412) - lu(k,1961) * lu(k,2411)
    8358   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1962) * lu(k,2411)
    8359   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1963) * lu(k,2411)
    8360   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1964) * lu(k,2411)
    8361   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1965) * lu(k,2411)
    8362   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1966) * lu(k,2411)
    8363   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1967) * lu(k,2411)
    8364   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,1968) * lu(k,2411)
    8365   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1969) * lu(k,2411)
    8366   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1970) * lu(k,2411)
    8367   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1971) * lu(k,2411)
    8368   315224452 :          lu(k,2439) = lu(k,2439) - lu(k,1961) * lu(k,2438)
    8369   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1962) * lu(k,2438)
    8370   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1963) * lu(k,2438)
    8371   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1964) * lu(k,2438)
    8372   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1965) * lu(k,2438)
    8373   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1966) * lu(k,2438)
    8374   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1967) * lu(k,2438)
    8375   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,1968) * lu(k,2438)
    8376   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1969) * lu(k,2438)
    8377   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1970) * lu(k,2438)
    8378   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1971) * lu(k,2438)
    8379   315224452 :          lu(k,1987) = 1._r8 / lu(k,1987)
    8380   315224452 :          lu(k,1988) = lu(k,1988) * lu(k,1987)
    8381   315224452 :          lu(k,1989) = lu(k,1989) * lu(k,1987)
    8382   315224452 :          lu(k,1990) = lu(k,1990) * lu(k,1987)
    8383   315224452 :          lu(k,1991) = lu(k,1991) * lu(k,1987)
    8384   315224452 :          lu(k,1992) = lu(k,1992) * lu(k,1987)
    8385   315224452 :          lu(k,1993) = lu(k,1993) * lu(k,1987)
    8386   315224452 :          lu(k,1994) = lu(k,1994) * lu(k,1987)
    8387   315224452 :          lu(k,1995) = lu(k,1995) * lu(k,1987)
    8388   315224452 :          lu(k,1996) = lu(k,1996) * lu(k,1987)
    8389   315224452 :          lu(k,1997) = lu(k,1997) * lu(k,1987)
    8390   315224452 :          lu(k,2031) = lu(k,2031) - lu(k,1988) * lu(k,2030)
    8391   315224452 :          lu(k,2032) = lu(k,2032) - lu(k,1989) * lu(k,2030)
    8392   315224452 :          lu(k,2033) = lu(k,2033) - lu(k,1990) * lu(k,2030)
    8393   315224452 :          lu(k,2034) = lu(k,2034) - lu(k,1991) * lu(k,2030)
    8394   315224452 :          lu(k,2035) = lu(k,2035) - lu(k,1992) * lu(k,2030)
    8395   315224452 :          lu(k,2036) = lu(k,2036) - lu(k,1993) * lu(k,2030)
    8396   315224452 :          lu(k,2037) = lu(k,2037) - lu(k,1994) * lu(k,2030)
    8397   315224452 :          lu(k,2038) = lu(k,2038) - lu(k,1995) * lu(k,2030)
    8398   315224452 :          lu(k,2039) = lu(k,2039) - lu(k,1996) * lu(k,2030)
    8399   315224452 :          lu(k,2040) = lu(k,2040) - lu(k,1997) * lu(k,2030)
    8400   315224452 :          lu(k,2054) = lu(k,2054) - lu(k,1988) * lu(k,2053)
    8401   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,1989) * lu(k,2053)
    8402   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,1990) * lu(k,2053)
    8403   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,1991) * lu(k,2053)
    8404   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,1992) * lu(k,2053)
    8405   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,1993) * lu(k,2053)
    8406   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,1994) * lu(k,2053)
    8407   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,1995) * lu(k,2053)
    8408   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,1996) * lu(k,2053)
    8409   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,1997) * lu(k,2053)
    8410   315224452 :          lu(k,2097) = lu(k,2097) - lu(k,1988) * lu(k,2096)
    8411   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,1989) * lu(k,2096)
    8412   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,1990) * lu(k,2096)
    8413   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,1991) * lu(k,2096)
    8414   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,1992) * lu(k,2096)
    8415   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,1993) * lu(k,2096)
    8416   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,1994) * lu(k,2096)
    8417   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,1995) * lu(k,2096)
    8418   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,1996) * lu(k,2096)
    8419   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,1997) * lu(k,2096)
    8420   315224452 :          lu(k,2118) = lu(k,2118) - lu(k,1988) * lu(k,2117)
    8421   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,1989) * lu(k,2117)
    8422   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,1990) * lu(k,2117)
    8423   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,1991) * lu(k,2117)
    8424   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,1992) * lu(k,2117)
    8425   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,1993) * lu(k,2117)
    8426   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,1994) * lu(k,2117)
    8427   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,1995) * lu(k,2117)
    8428   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,1996) * lu(k,2117)
    8429   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,1997) * lu(k,2117)
    8430   315224452 :          lu(k,2164) = lu(k,2164) - lu(k,1988) * lu(k,2163)
    8431   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,1989) * lu(k,2163)
    8432   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,1990) * lu(k,2163)
    8433   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,1991) * lu(k,2163)
    8434   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,1992) * lu(k,2163)
    8435   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,1993) * lu(k,2163)
    8436   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,1994) * lu(k,2163)
    8437   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,1995) * lu(k,2163)
    8438   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,1996) * lu(k,2163)
    8439   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,1997) * lu(k,2163)
    8440   315224452 :          lu(k,2228) = lu(k,2228) - lu(k,1988) * lu(k,2227)
    8441   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,1989) * lu(k,2227)
    8442   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,1990) * lu(k,2227)
    8443   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,1991) * lu(k,2227)
    8444   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,1992) * lu(k,2227)
    8445   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,1993) * lu(k,2227)
    8446   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,1994) * lu(k,2227)
    8447   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,1995) * lu(k,2227)
    8448   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,1996) * lu(k,2227)
    8449   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,1997) * lu(k,2227)
    8450   315224452 :          lu(k,2253) = lu(k,2253) - lu(k,1988) * lu(k,2252)
    8451   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,1989) * lu(k,2252)
    8452   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,1990) * lu(k,2252)
    8453   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,1991) * lu(k,2252)
    8454   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,1992) * lu(k,2252)
    8455   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,1993) * lu(k,2252)
    8456   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,1994) * lu(k,2252)
    8457   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,1995) * lu(k,2252)
    8458   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,1996) * lu(k,2252)
    8459   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,1997) * lu(k,2252)
    8460   315224452 :          lu(k,2361) = lu(k,2361) - lu(k,1988) * lu(k,2360)
    8461   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,1989) * lu(k,2360)
    8462   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,1990) * lu(k,2360)
    8463   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,1991) * lu(k,2360)
    8464   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,1992) * lu(k,2360)
    8465   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,1993) * lu(k,2360)
    8466   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,1994) * lu(k,2360)
    8467   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,1995) * lu(k,2360)
    8468   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,1996) * lu(k,2360)
    8469   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,1997) * lu(k,2360)
    8470   315224452 :          lu(k,2413) = lu(k,2413) - lu(k,1988) * lu(k,2412)
    8471   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,1989) * lu(k,2412)
    8472   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,1990) * lu(k,2412)
    8473   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,1991) * lu(k,2412)
    8474   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,1992) * lu(k,2412)
    8475   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,1993) * lu(k,2412)
    8476   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,1994) * lu(k,2412)
    8477   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,1995) * lu(k,2412)
    8478   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,1996) * lu(k,2412)
    8479   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,1997) * lu(k,2412)
    8480   315224452 :          lu(k,2440) = lu(k,2440) - lu(k,1988) * lu(k,2439)
    8481   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,1989) * lu(k,2439)
    8482   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,1990) * lu(k,2439)
    8483   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,1991) * lu(k,2439)
    8484   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,1992) * lu(k,2439)
    8485   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,1993) * lu(k,2439)
    8486   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,1994) * lu(k,2439)
    8487   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,1995) * lu(k,2439)
    8488   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,1996) * lu(k,2439)
    8489   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,1997) * lu(k,2439)
    8490   315224452 :          lu(k,2031) = 1._r8 / lu(k,2031)
    8491   315224452 :          lu(k,2032) = lu(k,2032) * lu(k,2031)
    8492   315224452 :          lu(k,2033) = lu(k,2033) * lu(k,2031)
    8493   315224452 :          lu(k,2034) = lu(k,2034) * lu(k,2031)
    8494   315224452 :          lu(k,2035) = lu(k,2035) * lu(k,2031)
    8495   315224452 :          lu(k,2036) = lu(k,2036) * lu(k,2031)
    8496   315224452 :          lu(k,2037) = lu(k,2037) * lu(k,2031)
    8497   315224452 :          lu(k,2038) = lu(k,2038) * lu(k,2031)
    8498   315224452 :          lu(k,2039) = lu(k,2039) * lu(k,2031)
    8499   315224452 :          lu(k,2040) = lu(k,2040) * lu(k,2031)
    8500   315224452 :          lu(k,2055) = lu(k,2055) - lu(k,2032) * lu(k,2054)
    8501   315224452 :          lu(k,2056) = lu(k,2056) - lu(k,2033) * lu(k,2054)
    8502   315224452 :          lu(k,2057) = lu(k,2057) - lu(k,2034) * lu(k,2054)
    8503   315224452 :          lu(k,2058) = lu(k,2058) - lu(k,2035) * lu(k,2054)
    8504   315224452 :          lu(k,2059) = lu(k,2059) - lu(k,2036) * lu(k,2054)
    8505   315224452 :          lu(k,2060) = lu(k,2060) - lu(k,2037) * lu(k,2054)
    8506   315224452 :          lu(k,2061) = lu(k,2061) - lu(k,2038) * lu(k,2054)
    8507   315224452 :          lu(k,2062) = lu(k,2062) - lu(k,2039) * lu(k,2054)
    8508   315224452 :          lu(k,2063) = lu(k,2063) - lu(k,2040) * lu(k,2054)
    8509   315224452 :          lu(k,2098) = lu(k,2098) - lu(k,2032) * lu(k,2097)
    8510   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,2033) * lu(k,2097)
    8511   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,2034) * lu(k,2097)
    8512   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,2035) * lu(k,2097)
    8513   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,2036) * lu(k,2097)
    8514   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,2037) * lu(k,2097)
    8515   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,2038) * lu(k,2097)
    8516   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,2039) * lu(k,2097)
    8517   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,2040) * lu(k,2097)
    8518   315224452 :          lu(k,2119) = lu(k,2119) - lu(k,2032) * lu(k,2118)
    8519   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,2033) * lu(k,2118)
    8520   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,2034) * lu(k,2118)
    8521   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,2035) * lu(k,2118)
    8522   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,2036) * lu(k,2118)
    8523   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,2037) * lu(k,2118)
    8524   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,2038) * lu(k,2118)
    8525   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,2039) * lu(k,2118)
    8526   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,2040) * lu(k,2118)
    8527   315224452 :          lu(k,2165) = lu(k,2165) - lu(k,2032) * lu(k,2164)
    8528   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,2033) * lu(k,2164)
    8529   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,2034) * lu(k,2164)
    8530   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,2035) * lu(k,2164)
    8531   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,2036) * lu(k,2164)
    8532   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,2037) * lu(k,2164)
    8533   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,2038) * lu(k,2164)
    8534   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,2039) * lu(k,2164)
    8535   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,2040) * lu(k,2164)
    8536   315224452 :          lu(k,2229) = lu(k,2229) - lu(k,2032) * lu(k,2228)
    8537   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,2033) * lu(k,2228)
    8538   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,2034) * lu(k,2228)
    8539   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,2035) * lu(k,2228)
    8540   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,2036) * lu(k,2228)
    8541   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,2037) * lu(k,2228)
    8542   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,2038) * lu(k,2228)
    8543   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,2039) * lu(k,2228)
    8544   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,2040) * lu(k,2228)
    8545   315224452 :          lu(k,2254) = lu(k,2254) - lu(k,2032) * lu(k,2253)
    8546   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,2033) * lu(k,2253)
    8547   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,2034) * lu(k,2253)
    8548   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,2035) * lu(k,2253)
    8549   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,2036) * lu(k,2253)
    8550   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,2037) * lu(k,2253)
    8551   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,2038) * lu(k,2253)
    8552   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,2039) * lu(k,2253)
    8553   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,2040) * lu(k,2253)
    8554   315224452 :          lu(k,2362) = lu(k,2362) - lu(k,2032) * lu(k,2361)
    8555   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,2033) * lu(k,2361)
    8556   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,2034) * lu(k,2361)
    8557   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,2035) * lu(k,2361)
    8558   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,2036) * lu(k,2361)
    8559   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,2037) * lu(k,2361)
    8560   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2038) * lu(k,2361)
    8561   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2039) * lu(k,2361)
    8562   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2040) * lu(k,2361)
    8563   315224452 :          lu(k,2414) = lu(k,2414) - lu(k,2032) * lu(k,2413)
    8564   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,2033) * lu(k,2413)
    8565   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,2034) * lu(k,2413)
    8566   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,2035) * lu(k,2413)
    8567   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,2036) * lu(k,2413)
    8568   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,2037) * lu(k,2413)
    8569   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2038) * lu(k,2413)
    8570   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2039) * lu(k,2413)
    8571   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2040) * lu(k,2413)
    8572   315224452 :          lu(k,2441) = lu(k,2441) - lu(k,2032) * lu(k,2440)
    8573   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,2033) * lu(k,2440)
    8574   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,2034) * lu(k,2440)
    8575   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,2035) * lu(k,2440)
    8576   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,2036) * lu(k,2440)
    8577   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,2037) * lu(k,2440)
    8578   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2038) * lu(k,2440)
    8579   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2039) * lu(k,2440)
    8580   325174377 :          lu(k,2449) = lu(k,2449) - lu(k,2040) * lu(k,2440)
    8581             :       end do
    8582     9949925 :       end subroutine lu_fac31
    8583     9949925 :       subroutine lu_fac32( avec_len, lu )
    8584             :       use chem_mods, only : nzcnt
    8585             :       use shr_kind_mod, only : r8 => shr_kind_r8
    8586             :       implicit none
    8587             : !-----------------------------------------------------------------------
    8588             : ! ... dummy args
    8589             : !-----------------------------------------------------------------------
    8590             :       integer, intent(in) :: avec_len
    8591             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    8592             : !-----------------------------------------------------------------------
    8593             : ! ... local variables
    8594             : !-----------------------------------------------------------------------
    8595             :       integer :: k
    8596   325174377 :       do k = 1,avec_len
    8597   315224452 :          lu(k,2055) = 1._r8 / lu(k,2055)
    8598   315224452 :          lu(k,2056) = lu(k,2056) * lu(k,2055)
    8599   315224452 :          lu(k,2057) = lu(k,2057) * lu(k,2055)
    8600   315224452 :          lu(k,2058) = lu(k,2058) * lu(k,2055)
    8601   315224452 :          lu(k,2059) = lu(k,2059) * lu(k,2055)
    8602   315224452 :          lu(k,2060) = lu(k,2060) * lu(k,2055)
    8603   315224452 :          lu(k,2061) = lu(k,2061) * lu(k,2055)
    8604   315224452 :          lu(k,2062) = lu(k,2062) * lu(k,2055)
    8605   315224452 :          lu(k,2063) = lu(k,2063) * lu(k,2055)
    8606   315224452 :          lu(k,2099) = lu(k,2099) - lu(k,2056) * lu(k,2098)
    8607   315224452 :          lu(k,2100) = lu(k,2100) - lu(k,2057) * lu(k,2098)
    8608   315224452 :          lu(k,2101) = lu(k,2101) - lu(k,2058) * lu(k,2098)
    8609   315224452 :          lu(k,2102) = lu(k,2102) - lu(k,2059) * lu(k,2098)
    8610   315224452 :          lu(k,2103) = lu(k,2103) - lu(k,2060) * lu(k,2098)
    8611   315224452 :          lu(k,2104) = lu(k,2104) - lu(k,2061) * lu(k,2098)
    8612   315224452 :          lu(k,2105) = lu(k,2105) - lu(k,2062) * lu(k,2098)
    8613   315224452 :          lu(k,2106) = lu(k,2106) - lu(k,2063) * lu(k,2098)
    8614   315224452 :          lu(k,2120) = lu(k,2120) - lu(k,2056) * lu(k,2119)
    8615   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,2057) * lu(k,2119)
    8616   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,2058) * lu(k,2119)
    8617   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,2059) * lu(k,2119)
    8618   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,2060) * lu(k,2119)
    8619   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,2061) * lu(k,2119)
    8620   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,2062) * lu(k,2119)
    8621   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,2063) * lu(k,2119)
    8622   315224452 :          lu(k,2166) = lu(k,2166) - lu(k,2056) * lu(k,2165)
    8623   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,2057) * lu(k,2165)
    8624   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,2058) * lu(k,2165)
    8625   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,2059) * lu(k,2165)
    8626   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,2060) * lu(k,2165)
    8627   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,2061) * lu(k,2165)
    8628   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,2062) * lu(k,2165)
    8629   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,2063) * lu(k,2165)
    8630   315224452 :          lu(k,2230) = lu(k,2230) - lu(k,2056) * lu(k,2229)
    8631   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,2057) * lu(k,2229)
    8632   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,2058) * lu(k,2229)
    8633   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,2059) * lu(k,2229)
    8634   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,2060) * lu(k,2229)
    8635   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,2061) * lu(k,2229)
    8636   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,2062) * lu(k,2229)
    8637   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,2063) * lu(k,2229)
    8638   315224452 :          lu(k,2255) = lu(k,2255) - lu(k,2056) * lu(k,2254)
    8639   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,2057) * lu(k,2254)
    8640   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,2058) * lu(k,2254)
    8641   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,2059) * lu(k,2254)
    8642   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,2060) * lu(k,2254)
    8643   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,2061) * lu(k,2254)
    8644   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,2062) * lu(k,2254)
    8645   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,2063) * lu(k,2254)
    8646   315224452 :          lu(k,2363) = lu(k,2363) - lu(k,2056) * lu(k,2362)
    8647   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,2057) * lu(k,2362)
    8648   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,2058) * lu(k,2362)
    8649   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,2059) * lu(k,2362)
    8650   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,2060) * lu(k,2362)
    8651   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2061) * lu(k,2362)
    8652   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2062) * lu(k,2362)
    8653   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2063) * lu(k,2362)
    8654   315224452 :          lu(k,2415) = lu(k,2415) - lu(k,2056) * lu(k,2414)
    8655   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,2057) * lu(k,2414)
    8656   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,2058) * lu(k,2414)
    8657   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,2059) * lu(k,2414)
    8658   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,2060) * lu(k,2414)
    8659   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2061) * lu(k,2414)
    8660   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2062) * lu(k,2414)
    8661   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2063) * lu(k,2414)
    8662   315224452 :          lu(k,2442) = lu(k,2442) - lu(k,2056) * lu(k,2441)
    8663   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,2057) * lu(k,2441)
    8664   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,2058) * lu(k,2441)
    8665   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,2059) * lu(k,2441)
    8666   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,2060) * lu(k,2441)
    8667   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2061) * lu(k,2441)
    8668   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2062) * lu(k,2441)
    8669   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2063) * lu(k,2441)
    8670   315224452 :          lu(k,2099) = 1._r8 / lu(k,2099)
    8671   315224452 :          lu(k,2100) = lu(k,2100) * lu(k,2099)
    8672   315224452 :          lu(k,2101) = lu(k,2101) * lu(k,2099)
    8673   315224452 :          lu(k,2102) = lu(k,2102) * lu(k,2099)
    8674   315224452 :          lu(k,2103) = lu(k,2103) * lu(k,2099)
    8675   315224452 :          lu(k,2104) = lu(k,2104) * lu(k,2099)
    8676   315224452 :          lu(k,2105) = lu(k,2105) * lu(k,2099)
    8677   315224452 :          lu(k,2106) = lu(k,2106) * lu(k,2099)
    8678   315224452 :          lu(k,2121) = lu(k,2121) - lu(k,2100) * lu(k,2120)
    8679   315224452 :          lu(k,2122) = lu(k,2122) - lu(k,2101) * lu(k,2120)
    8680   315224452 :          lu(k,2123) = lu(k,2123) - lu(k,2102) * lu(k,2120)
    8681   315224452 :          lu(k,2124) = lu(k,2124) - lu(k,2103) * lu(k,2120)
    8682   315224452 :          lu(k,2125) = lu(k,2125) - lu(k,2104) * lu(k,2120)
    8683   315224452 :          lu(k,2126) = lu(k,2126) - lu(k,2105) * lu(k,2120)
    8684   315224452 :          lu(k,2127) = lu(k,2127) - lu(k,2106) * lu(k,2120)
    8685   315224452 :          lu(k,2167) = lu(k,2167) - lu(k,2100) * lu(k,2166)
    8686   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,2101) * lu(k,2166)
    8687   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,2102) * lu(k,2166)
    8688   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,2103) * lu(k,2166)
    8689   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,2104) * lu(k,2166)
    8690   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,2105) * lu(k,2166)
    8691   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,2106) * lu(k,2166)
    8692   315224452 :          lu(k,2231) = lu(k,2231) - lu(k,2100) * lu(k,2230)
    8693   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,2101) * lu(k,2230)
    8694   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,2102) * lu(k,2230)
    8695   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,2103) * lu(k,2230)
    8696   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,2104) * lu(k,2230)
    8697   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,2105) * lu(k,2230)
    8698   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,2106) * lu(k,2230)
    8699   315224452 :          lu(k,2256) = lu(k,2256) - lu(k,2100) * lu(k,2255)
    8700   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,2101) * lu(k,2255)
    8701   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,2102) * lu(k,2255)
    8702   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,2103) * lu(k,2255)
    8703   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,2104) * lu(k,2255)
    8704   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,2105) * lu(k,2255)
    8705   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,2106) * lu(k,2255)
    8706   315224452 :          lu(k,2364) = lu(k,2364) - lu(k,2100) * lu(k,2363)
    8707   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,2101) * lu(k,2363)
    8708   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,2102) * lu(k,2363)
    8709   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,2103) * lu(k,2363)
    8710   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2104) * lu(k,2363)
    8711   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2105) * lu(k,2363)
    8712   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2106) * lu(k,2363)
    8713   315224452 :          lu(k,2416) = lu(k,2416) - lu(k,2100) * lu(k,2415)
    8714   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,2101) * lu(k,2415)
    8715   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,2102) * lu(k,2415)
    8716   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,2103) * lu(k,2415)
    8717   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2104) * lu(k,2415)
    8718   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2105) * lu(k,2415)
    8719   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2106) * lu(k,2415)
    8720   315224452 :          lu(k,2443) = lu(k,2443) - lu(k,2100) * lu(k,2442)
    8721   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,2101) * lu(k,2442)
    8722   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,2102) * lu(k,2442)
    8723   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,2103) * lu(k,2442)
    8724   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2104) * lu(k,2442)
    8725   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2105) * lu(k,2442)
    8726   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2106) * lu(k,2442)
    8727   315224452 :          lu(k,2121) = 1._r8 / lu(k,2121)
    8728   315224452 :          lu(k,2122) = lu(k,2122) * lu(k,2121)
    8729   315224452 :          lu(k,2123) = lu(k,2123) * lu(k,2121)
    8730   315224452 :          lu(k,2124) = lu(k,2124) * lu(k,2121)
    8731   315224452 :          lu(k,2125) = lu(k,2125) * lu(k,2121)
    8732   315224452 :          lu(k,2126) = lu(k,2126) * lu(k,2121)
    8733   315224452 :          lu(k,2127) = lu(k,2127) * lu(k,2121)
    8734   315224452 :          lu(k,2168) = lu(k,2168) - lu(k,2122) * lu(k,2167)
    8735   315224452 :          lu(k,2169) = lu(k,2169) - lu(k,2123) * lu(k,2167)
    8736   315224452 :          lu(k,2170) = lu(k,2170) - lu(k,2124) * lu(k,2167)
    8737   315224452 :          lu(k,2171) = lu(k,2171) - lu(k,2125) * lu(k,2167)
    8738   315224452 :          lu(k,2172) = lu(k,2172) - lu(k,2126) * lu(k,2167)
    8739   315224452 :          lu(k,2173) = lu(k,2173) - lu(k,2127) * lu(k,2167)
    8740   315224452 :          lu(k,2232) = lu(k,2232) - lu(k,2122) * lu(k,2231)
    8741   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,2123) * lu(k,2231)
    8742   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,2124) * lu(k,2231)
    8743   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,2125) * lu(k,2231)
    8744   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,2126) * lu(k,2231)
    8745   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,2127) * lu(k,2231)
    8746   315224452 :          lu(k,2257) = lu(k,2257) - lu(k,2122) * lu(k,2256)
    8747   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,2123) * lu(k,2256)
    8748   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,2124) * lu(k,2256)
    8749   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,2125) * lu(k,2256)
    8750   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,2126) * lu(k,2256)
    8751   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,2127) * lu(k,2256)
    8752   315224452 :          lu(k,2365) = lu(k,2365) - lu(k,2122) * lu(k,2364)
    8753   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,2123) * lu(k,2364)
    8754   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,2124) * lu(k,2364)
    8755   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2125) * lu(k,2364)
    8756   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2126) * lu(k,2364)
    8757   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2127) * lu(k,2364)
    8758   315224452 :          lu(k,2417) = lu(k,2417) - lu(k,2122) * lu(k,2416)
    8759   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,2123) * lu(k,2416)
    8760   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,2124) * lu(k,2416)
    8761   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2125) * lu(k,2416)
    8762   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2126) * lu(k,2416)
    8763   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2127) * lu(k,2416)
    8764   315224452 :          lu(k,2444) = lu(k,2444) - lu(k,2122) * lu(k,2443)
    8765   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,2123) * lu(k,2443)
    8766   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,2124) * lu(k,2443)
    8767   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2125) * lu(k,2443)
    8768   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2126) * lu(k,2443)
    8769   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2127) * lu(k,2443)
    8770   315224452 :          lu(k,2168) = 1._r8 / lu(k,2168)
    8771   315224452 :          lu(k,2169) = lu(k,2169) * lu(k,2168)
    8772   315224452 :          lu(k,2170) = lu(k,2170) * lu(k,2168)
    8773   315224452 :          lu(k,2171) = lu(k,2171) * lu(k,2168)
    8774   315224452 :          lu(k,2172) = lu(k,2172) * lu(k,2168)
    8775   315224452 :          lu(k,2173) = lu(k,2173) * lu(k,2168)
    8776   315224452 :          lu(k,2233) = lu(k,2233) - lu(k,2169) * lu(k,2232)
    8777   315224452 :          lu(k,2234) = lu(k,2234) - lu(k,2170) * lu(k,2232)
    8778   315224452 :          lu(k,2235) = lu(k,2235) - lu(k,2171) * lu(k,2232)
    8779   315224452 :          lu(k,2236) = lu(k,2236) - lu(k,2172) * lu(k,2232)
    8780   315224452 :          lu(k,2237) = lu(k,2237) - lu(k,2173) * lu(k,2232)
    8781   315224452 :          lu(k,2258) = lu(k,2258) - lu(k,2169) * lu(k,2257)
    8782   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,2170) * lu(k,2257)
    8783   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,2171) * lu(k,2257)
    8784   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,2172) * lu(k,2257)
    8785   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,2173) * lu(k,2257)
    8786   315224452 :          lu(k,2366) = lu(k,2366) - lu(k,2169) * lu(k,2365)
    8787   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,2170) * lu(k,2365)
    8788   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2171) * lu(k,2365)
    8789   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2172) * lu(k,2365)
    8790   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2173) * lu(k,2365)
    8791   315224452 :          lu(k,2418) = lu(k,2418) - lu(k,2169) * lu(k,2417)
    8792   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,2170) * lu(k,2417)
    8793   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2171) * lu(k,2417)
    8794   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2172) * lu(k,2417)
    8795   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2173) * lu(k,2417)
    8796   315224452 :          lu(k,2445) = lu(k,2445) - lu(k,2169) * lu(k,2444)
    8797   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,2170) * lu(k,2444)
    8798   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2171) * lu(k,2444)
    8799   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2172) * lu(k,2444)
    8800   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2173) * lu(k,2444)
    8801   315224452 :          lu(k,2233) = 1._r8 / lu(k,2233)
    8802   315224452 :          lu(k,2234) = lu(k,2234) * lu(k,2233)
    8803   315224452 :          lu(k,2235) = lu(k,2235) * lu(k,2233)
    8804   315224452 :          lu(k,2236) = lu(k,2236) * lu(k,2233)
    8805   315224452 :          lu(k,2237) = lu(k,2237) * lu(k,2233)
    8806   315224452 :          lu(k,2259) = lu(k,2259) - lu(k,2234) * lu(k,2258)
    8807   315224452 :          lu(k,2260) = lu(k,2260) - lu(k,2235) * lu(k,2258)
    8808   315224452 :          lu(k,2261) = lu(k,2261) - lu(k,2236) * lu(k,2258)
    8809   315224452 :          lu(k,2262) = lu(k,2262) - lu(k,2237) * lu(k,2258)
    8810   315224452 :          lu(k,2367) = lu(k,2367) - lu(k,2234) * lu(k,2366)
    8811   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2235) * lu(k,2366)
    8812   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2236) * lu(k,2366)
    8813   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2237) * lu(k,2366)
    8814   315224452 :          lu(k,2419) = lu(k,2419) - lu(k,2234) * lu(k,2418)
    8815   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2235) * lu(k,2418)
    8816   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2236) * lu(k,2418)
    8817   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2237) * lu(k,2418)
    8818   315224452 :          lu(k,2446) = lu(k,2446) - lu(k,2234) * lu(k,2445)
    8819   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2235) * lu(k,2445)
    8820   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2236) * lu(k,2445)
    8821   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2237) * lu(k,2445)
    8822   315224452 :          lu(k,2259) = 1._r8 / lu(k,2259)
    8823   315224452 :          lu(k,2260) = lu(k,2260) * lu(k,2259)
    8824   315224452 :          lu(k,2261) = lu(k,2261) * lu(k,2259)
    8825   315224452 :          lu(k,2262) = lu(k,2262) * lu(k,2259)
    8826   315224452 :          lu(k,2368) = lu(k,2368) - lu(k,2260) * lu(k,2367)
    8827   315224452 :          lu(k,2369) = lu(k,2369) - lu(k,2261) * lu(k,2367)
    8828   315224452 :          lu(k,2370) = lu(k,2370) - lu(k,2262) * lu(k,2367)
    8829   315224452 :          lu(k,2420) = lu(k,2420) - lu(k,2260) * lu(k,2419)
    8830   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2261) * lu(k,2419)
    8831   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2262) * lu(k,2419)
    8832   315224452 :          lu(k,2447) = lu(k,2447) - lu(k,2260) * lu(k,2446)
    8833   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2261) * lu(k,2446)
    8834   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2262) * lu(k,2446)
    8835   315224452 :          lu(k,2368) = 1._r8 / lu(k,2368)
    8836   315224452 :          lu(k,2369) = lu(k,2369) * lu(k,2368)
    8837   315224452 :          lu(k,2370) = lu(k,2370) * lu(k,2368)
    8838   315224452 :          lu(k,2421) = lu(k,2421) - lu(k,2369) * lu(k,2420)
    8839   315224452 :          lu(k,2422) = lu(k,2422) - lu(k,2370) * lu(k,2420)
    8840   315224452 :          lu(k,2448) = lu(k,2448) - lu(k,2369) * lu(k,2447)
    8841   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2370) * lu(k,2447)
    8842   315224452 :          lu(k,2421) = 1._r8 / lu(k,2421)
    8843   315224452 :          lu(k,2422) = lu(k,2422) * lu(k,2421)
    8844   315224452 :          lu(k,2449) = lu(k,2449) - lu(k,2422) * lu(k,2448)
    8845   325174377 :          lu(k,2449) = 1._r8 / lu(k,2449)
    8846             :       end do
    8847     9949925 :       end subroutine lu_fac32
    8848     9949925 :       subroutine lu_fac( avec_len, lu )
    8849             :       use chem_mods, only : nzcnt
    8850             :       use shr_kind_mod, only : r8 => shr_kind_r8
    8851             :       implicit none
    8852             : !-----------------------------------------------------------------------
    8853             : ! ... dummy args
    8854             : !-----------------------------------------------------------------------
    8855             :       integer, intent(in) :: avec_len
    8856             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    8857     9949925 :       call lu_fac01( avec_len, lu )
    8858     9949925 :       call lu_fac02( avec_len, lu )
    8859     9949925 :       call lu_fac03( avec_len, lu )
    8860     9949925 :       call lu_fac04( avec_len, lu )
    8861     9949925 :       call lu_fac05( avec_len, lu )
    8862     9949925 :       call lu_fac06( avec_len, lu )
    8863     9949925 :       call lu_fac07( avec_len, lu )
    8864     9949925 :       call lu_fac08( avec_len, lu )
    8865     9949925 :       call lu_fac09( avec_len, lu )
    8866     9949925 :       call lu_fac10( avec_len, lu )
    8867     9949925 :       call lu_fac11( avec_len, lu )
    8868     9949925 :       call lu_fac12( avec_len, lu )
    8869     9949925 :       call lu_fac13( avec_len, lu )
    8870     9949925 :       call lu_fac14( avec_len, lu )
    8871     9949925 :       call lu_fac15( avec_len, lu )
    8872     9949925 :       call lu_fac16( avec_len, lu )
    8873     9949925 :       call lu_fac17( avec_len, lu )
    8874     9949925 :       call lu_fac18( avec_len, lu )
    8875     9949925 :       call lu_fac19( avec_len, lu )
    8876     9949925 :       call lu_fac20( avec_len, lu )
    8877     9949925 :       call lu_fac21( avec_len, lu )
    8878     9949925 :       call lu_fac22( avec_len, lu )
    8879     9949925 :       call lu_fac23( avec_len, lu )
    8880     9949925 :       call lu_fac24( avec_len, lu )
    8881     9949925 :       call lu_fac25( avec_len, lu )
    8882     9949925 :       call lu_fac26( avec_len, lu )
    8883     9949925 :       call lu_fac27( avec_len, lu )
    8884     9949925 :       call lu_fac28( avec_len, lu )
    8885     9949925 :       call lu_fac29( avec_len, lu )
    8886     9949925 :       call lu_fac30( avec_len, lu )
    8887     9949925 :       call lu_fac31( avec_len, lu )
    8888     9949925 :       call lu_fac32( avec_len, lu )
    8889     9949925 :       end subroutine lu_fac
    8890             :       end module mo_lu_factor

Generated by: LCOV version 1.14