LCOV - code coverage report
Current view: top level - chemistry/pp_trop_strat_mam5_ts2 - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 16561 16561 100.0 %
Date: 2025-03-14 01:18:36 Functions: 56 56 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     8168963 :       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   263009123 :       do k = 1,avec_len
      20   254840160 :          lu(k,1) = 1._r8 / lu(k,1)
      21   254840160 :          lu(k,2) = 1._r8 / lu(k,2)
      22   254840160 :          lu(k,3) = 1._r8 / lu(k,3)
      23   254840160 :          lu(k,4) = 1._r8 / lu(k,4)
      24   254840160 :          lu(k,5) = 1._r8 / lu(k,5)
      25   254840160 :          lu(k,6) = 1._r8 / lu(k,6)
      26   254840160 :          lu(k,7) = 1._r8 / lu(k,7)
      27   254840160 :          lu(k,8) = 1._r8 / lu(k,8)
      28   254840160 :          lu(k,9) = 1._r8 / lu(k,9)
      29   254840160 :          lu(k,10) = 1._r8 / lu(k,10)
      30   254840160 :          lu(k,11) = 1._r8 / lu(k,11)
      31   254840160 :          lu(k,12) = 1._r8 / lu(k,12)
      32   254840160 :          lu(k,13) = 1._r8 / lu(k,13)
      33   254840160 :          lu(k,14) = 1._r8 / lu(k,14)
      34   254840160 :          lu(k,15) = 1._r8 / lu(k,15)
      35   254840160 :          lu(k,16) = 1._r8 / lu(k,16)
      36   254840160 :          lu(k,17) = 1._r8 / lu(k,17)
      37   254840160 :          lu(k,18) = 1._r8 / lu(k,18)
      38   254840160 :          lu(k,19) = 1._r8 / lu(k,19)
      39   254840160 :          lu(k,20) = 1._r8 / lu(k,20)
      40   254840160 :          lu(k,21) = 1._r8 / lu(k,21)
      41   254840160 :          lu(k,22) = 1._r8 / lu(k,22)
      42   254840160 :          lu(k,23) = 1._r8 / lu(k,23)
      43   254840160 :          lu(k,24) = 1._r8 / lu(k,24)
      44   254840160 :          lu(k,25) = 1._r8 / lu(k,25)
      45   254840160 :          lu(k,26) = 1._r8 / lu(k,26)
      46   254840160 :          lu(k,27) = 1._r8 / lu(k,27)
      47   254840160 :          lu(k,28) = 1._r8 / lu(k,28)
      48   254840160 :          lu(k,29) = 1._r8 / lu(k,29)
      49   254840160 :          lu(k,30) = 1._r8 / lu(k,30)
      50   254840160 :          lu(k,31) = 1._r8 / lu(k,31)
      51   254840160 :          lu(k,32) = 1._r8 / lu(k,32)
      52   254840160 :          lu(k,33) = 1._r8 / lu(k,33)
      53   254840160 :          lu(k,34) = 1._r8 / lu(k,34)
      54   254840160 :          lu(k,35) = 1._r8 / lu(k,35)
      55   254840160 :          lu(k,36) = 1._r8 / lu(k,36)
      56   254840160 :          lu(k,37) = 1._r8 / lu(k,37)
      57   254840160 :          lu(k,38) = 1._r8 / lu(k,38)
      58   254840160 :          lu(k,39) = 1._r8 / lu(k,39)
      59   254840160 :          lu(k,40) = 1._r8 / lu(k,40)
      60   254840160 :          lu(k,41) = 1._r8 / lu(k,41)
      61   254840160 :          lu(k,42) = 1._r8 / lu(k,42)
      62   254840160 :          lu(k,43) = 1._r8 / lu(k,43)
      63   254840160 :          lu(k,44) = 1._r8 / lu(k,44)
      64   254840160 :          lu(k,45) = 1._r8 / lu(k,45)
      65   254840160 :          lu(k,51) = 1._r8 / lu(k,51)
      66   254840160 :          lu(k,57) = 1._r8 / lu(k,57)
      67   254840160 :          lu(k,63) = 1._r8 / lu(k,63)
      68   254840160 :          lu(k,69) = 1._r8 / lu(k,69)
      69   254840160 :          lu(k,75) = 1._r8 / lu(k,75)
      70   263009123 :          lu(k,81) = 1._r8 / lu(k,81)
      71             :       end do
      72     8168963 :       end subroutine lu_fac01
      73     8168963 :       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   263009123 :       do k = 1,avec_len
      87   254840160 :          lu(k,87) = 1._r8 / lu(k,87)
      88   254840160 :          lu(k,89) = 1._r8 / lu(k,89)
      89   254840160 :          lu(k,95) = 1._r8 / lu(k,95)
      90   254840160 :          lu(k,101) = 1._r8 / lu(k,101)
      91   254840160 :          lu(k,107) = 1._r8 / lu(k,107)
      92   254840160 :          lu(k,113) = 1._r8 / lu(k,113)
      93   254840160 :          lu(k,114) = 1._r8 / lu(k,114)
      94   254840160 :          lu(k,115) = lu(k,115) * lu(k,114)
      95   254840160 :          lu(k,116) = lu(k,116) * lu(k,114)
      96   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,115) * lu(k,3497)
      97   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,116) * lu(k,3497)
      98   254840160 :          lu(k,117) = 1._r8 / lu(k,117)
      99   254840160 :          lu(k,118) = lu(k,118) * lu(k,117)
     100   254840160 :          lu(k,119) = lu(k,119) * lu(k,117)
     101   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,118) * lu(k,3870)
     102   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,119) * lu(k,3870)
     103   254840160 :          lu(k,120) = 1._r8 / lu(k,120)
     104   254840160 :          lu(k,121) = lu(k,121) * lu(k,120)
     105   254840160 :          lu(k,122) = lu(k,122) * lu(k,120)
     106   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,121) * lu(k,3771)
     107   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,122) * lu(k,3771)
     108   254840160 :          lu(k,123) = 1._r8 / lu(k,123)
     109   254840160 :          lu(k,124) = lu(k,124) * lu(k,123)
     110   254840160 :          lu(k,125) = lu(k,125) * lu(k,123)
     111   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,124) * lu(k,3871)
     112   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,125) * lu(k,3871)
     113   254840160 :          lu(k,126) = 1._r8 / lu(k,126)
     114   254840160 :          lu(k,127) = lu(k,127) * lu(k,126)
     115   254840160 :          lu(k,128) = lu(k,128) * lu(k,126)
     116   254840160 :          lu(k,129) = lu(k,129) * lu(k,126)
     117   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,127) * lu(k,3772)
     118   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,128) * lu(k,3772)
     119   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,129) * lu(k,3772)
     120   254840160 :          lu(k,130) = 1._r8 / lu(k,130)
     121   254840160 :          lu(k,131) = lu(k,131) * lu(k,130)
     122   254840160 :          lu(k,132) = lu(k,132) * lu(k,130)
     123   254840160 :          lu(k,133) = lu(k,133) * lu(k,130)
     124   254840160 :          lu(k,3984) = lu(k,3984) - lu(k,131) * lu(k,3872)
     125   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,132) * lu(k,3872)
     126   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,133) * lu(k,3872)
     127   254840160 :          lu(k,134) = 1._r8 / lu(k,134)
     128   254840160 :          lu(k,135) = lu(k,135) * lu(k,134)
     129   254840160 :          lu(k,136) = lu(k,136) * lu(k,134)
     130   254840160 :          lu(k,137) = lu(k,137) * lu(k,134)
     131   254840160 :          lu(k,3784) = lu(k,3784) - lu(k,135) * lu(k,3773)
     132   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,136) * lu(k,3773)
     133   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,137) * lu(k,3773)
     134   254840160 :          lu(k,138) = 1._r8 / lu(k,138)
     135   254840160 :          lu(k,139) = lu(k,139) * lu(k,138)
     136   254840160 :          lu(k,140) = lu(k,140) * lu(k,138)
     137   254840160 :          lu(k,141) = lu(k,141) * lu(k,138)
     138   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,139) * lu(k,3774)
     139   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,140) * lu(k,3774)
     140   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,141) * lu(k,3774)
     141   254840160 :          lu(k,142) = 1._r8 / lu(k,142)
     142   254840160 :          lu(k,143) = lu(k,143) * lu(k,142)
     143   254840160 :          lu(k,144) = lu(k,144) * lu(k,142)
     144   254840160 :          lu(k,145) = lu(k,145) * lu(k,142)
     145   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,143) * lu(k,3775)
     146   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,144) * lu(k,3775)
     147   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,145) * lu(k,3775)
     148   254840160 :          lu(k,146) = 1._r8 / lu(k,146)
     149   254840160 :          lu(k,147) = lu(k,147) * lu(k,146)
     150   254840160 :          lu(k,148) = lu(k,148) * lu(k,146)
     151   254840160 :          lu(k,149) = lu(k,149) * lu(k,146)
     152   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,147) * lu(k,3873)
     153   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,148) * lu(k,3873)
     154   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,149) * lu(k,3873)
     155   254840160 :          lu(k,150) = 1._r8 / lu(k,150)
     156   254840160 :          lu(k,151) = lu(k,151) * lu(k,150)
     157   254840160 :          lu(k,152) = lu(k,152) * lu(k,150)
     158   254840160 :          lu(k,854) = lu(k,854) - lu(k,151) * lu(k,853)
     159   254840160 :          lu(k,861) = - lu(k,152) * lu(k,853)
     160   254840160 :          lu(k,3218) = - lu(k,151) * lu(k,3216)
     161   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,152) * lu(k,3216)
     162   254840160 :          lu(k,153) = 1._r8 / lu(k,153)
     163   254840160 :          lu(k,154) = lu(k,154) * lu(k,153)
     164   254840160 :          lu(k,155) = lu(k,155) * lu(k,153)
     165   254840160 :          lu(k,279) = lu(k,279) - lu(k,154) * lu(k,278)
     166   254840160 :          lu(k,282) = lu(k,282) - lu(k,155) * lu(k,278)
     167   254840160 :          lu(k,4104) = lu(k,4104) - lu(k,154) * lu(k,4103)
     168   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,155) * lu(k,4103)
     169   254840160 :          lu(k,156) = 1._r8 / lu(k,156)
     170   254840160 :          lu(k,157) = lu(k,157) * lu(k,156)
     171   254840160 :          lu(k,158) = lu(k,158) * lu(k,156)
     172   254840160 :          lu(k,550) = lu(k,550) - lu(k,157) * lu(k,549)
     173   254840160 :          lu(k,554) = lu(k,554) - lu(k,158) * lu(k,549)
     174   254840160 :          lu(k,3625) = lu(k,3625) - lu(k,157) * lu(k,3617)
     175   263009123 :          lu(k,3663) = lu(k,3663) - lu(k,158) * lu(k,3617)
     176             :       end do
     177     8168963 :       end subroutine lu_fac02
     178     8168963 :       subroutine lu_fac03( avec_len, lu )
     179             :       use chem_mods, only : nzcnt
     180             :       use shr_kind_mod, only : r8 => shr_kind_r8
     181             :       implicit none
     182             : !-----------------------------------------------------------------------
     183             : ! ... dummy args
     184             : !-----------------------------------------------------------------------
     185             :       integer, intent(in) :: avec_len
     186             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     187             : !-----------------------------------------------------------------------
     188             : ! ... local variables
     189             : !-----------------------------------------------------------------------
     190             :       integer :: k
     191   263009123 :       do k = 1,avec_len
     192   254840160 :          lu(k,159) = 1._r8 / lu(k,159)
     193   254840160 :          lu(k,160) = lu(k,160) * lu(k,159)
     194   254840160 :          lu(k,161) = lu(k,161) * lu(k,159)
     195   254840160 :          lu(k,162) = lu(k,162) * lu(k,159)
     196   254840160 :          lu(k,163) = lu(k,163) * lu(k,159)
     197   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,160) * lu(k,3776)
     198   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,161) * lu(k,3776)
     199   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,162) * lu(k,3776)
     200   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,163) * lu(k,3776)
     201   254840160 :          lu(k,164) = 1._r8 / lu(k,164)
     202   254840160 :          lu(k,165) = lu(k,165) * lu(k,164)
     203   254840160 :          lu(k,166) = lu(k,166) * lu(k,164)
     204   254840160 :          lu(k,167) = lu(k,167) * lu(k,164)
     205   254840160 :          lu(k,168) = lu(k,168) * lu(k,164)
     206   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,165) * lu(k,3777)
     207   254840160 :          lu(k,3791) = lu(k,3791) - lu(k,166) * lu(k,3777)
     208   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,167) * lu(k,3777)
     209   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,168) * lu(k,3777)
     210   254840160 :          lu(k,169) = 1._r8 / lu(k,169)
     211   254840160 :          lu(k,170) = lu(k,170) * lu(k,169)
     212   254840160 :          lu(k,171) = lu(k,171) * lu(k,169)
     213   254840160 :          lu(k,172) = lu(k,172) * lu(k,169)
     214   254840160 :          lu(k,173) = lu(k,173) * lu(k,169)
     215   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,170) * lu(k,3778)
     216   254840160 :          lu(k,3784) = lu(k,3784) - lu(k,171) * lu(k,3778)
     217   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,172) * lu(k,3778)
     218   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,173) * lu(k,3778)
     219   254840160 :          lu(k,174) = 1._r8 / lu(k,174)
     220   254840160 :          lu(k,175) = lu(k,175) * lu(k,174)
     221   254840160 :          lu(k,176) = lu(k,176) * lu(k,174)
     222   254840160 :          lu(k,177) = lu(k,177) * lu(k,174)
     223   254840160 :          lu(k,178) = lu(k,178) * lu(k,174)
     224   254840160 :          lu(k,3782) = lu(k,3782) - lu(k,175) * lu(k,3779)
     225   254840160 :          lu(k,3791) = lu(k,3791) - lu(k,176) * lu(k,3779)
     226   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,177) * lu(k,3779)
     227   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,178) * lu(k,3779)
     228   254840160 :          lu(k,179) = 1._r8 / lu(k,179)
     229   254840160 :          lu(k,180) = lu(k,180) * lu(k,179)
     230   254840160 :          lu(k,1163) = lu(k,1163) - lu(k,180) * lu(k,1158)
     231   254840160 :          lu(k,1332) = lu(k,1332) - lu(k,180) * lu(k,1323)
     232   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,180) * lu(k,3121)
     233   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,180) * lu(k,3498)
     234   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,180) * lu(k,3812)
     235   254840160 :          lu(k,182) = 1._r8 / lu(k,182)
     236   254840160 :          lu(k,183) = lu(k,183) * lu(k,182)
     237   254840160 :          lu(k,184) = lu(k,184) * lu(k,182)
     238   254840160 :          lu(k,185) = lu(k,185) * lu(k,182)
     239   254840160 :          lu(k,186) = lu(k,186) * lu(k,182)
     240   254840160 :          lu(k,187) = lu(k,187) * lu(k,182)
     241   254840160 :          lu(k,3875) = lu(k,3875) - lu(k,183) * lu(k,3874)
     242   254840160 :          lu(k,3876) = lu(k,3876) - lu(k,184) * lu(k,3874)
     243   254840160 :          lu(k,3928) = lu(k,3928) - lu(k,185) * lu(k,3874)
     244   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,186) * lu(k,3874)
     245   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,187) * lu(k,3874)
     246   254840160 :          lu(k,188) = 1._r8 / lu(k,188)
     247   254840160 :          lu(k,189) = lu(k,189) * lu(k,188)
     248   254840160 :          lu(k,190) = lu(k,190) * lu(k,188)
     249   254840160 :          lu(k,191) = lu(k,191) * lu(k,188)
     250   254840160 :          lu(k,3921) = - lu(k,189) * lu(k,3875)
     251   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,190) * lu(k,3875)
     252   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,191) * lu(k,3875)
     253   254840160 :          lu(k,192) = 1._r8 / lu(k,192)
     254   254840160 :          lu(k,193) = lu(k,193) * lu(k,192)
     255   254840160 :          lu(k,194) = lu(k,194) * lu(k,192)
     256   254840160 :          lu(k,195) = lu(k,195) * lu(k,192)
     257   254840160 :          lu(k,196) = lu(k,196) * lu(k,192)
     258   254840160 :          lu(k,3919) = lu(k,3919) - lu(k,193) * lu(k,3876)
     259   254840160 :          lu(k,3924) = lu(k,3924) - lu(k,194) * lu(k,3876)
     260   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,195) * lu(k,3876)
     261   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,196) * lu(k,3876)
     262   254840160 :          lu(k,197) = 1._r8 / lu(k,197)
     263   254840160 :          lu(k,198) = lu(k,198) * lu(k,197)
     264   254840160 :          lu(k,199) = lu(k,199) * lu(k,197)
     265   254840160 :          lu(k,200) = lu(k,200) * lu(k,197)
     266   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,198) * lu(k,3780)
     267   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,199) * lu(k,3780)
     268   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,200) * lu(k,3780)
     269   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,198) * lu(k,3877)
     270   254840160 :          lu(k,4099) = - lu(k,199) * lu(k,3877)
     271   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,200) * lu(k,3877)
     272   254840160 :          lu(k,201) = 1._r8 / lu(k,201)
     273   254840160 :          lu(k,202) = lu(k,202) * lu(k,201)
     274   254840160 :          lu(k,203) = lu(k,203) * lu(k,201)
     275   254840160 :          lu(k,479) = lu(k,479) - lu(k,202) * lu(k,476)
     276   254840160 :          lu(k,482) = - lu(k,203) * lu(k,476)
     277   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,202) * lu(k,3618)
     278   254840160 :          lu(k,3665) = - lu(k,203) * lu(k,3618)
     279   254840160 :          lu(k,3797) = lu(k,3797) - lu(k,202) * lu(k,3781)
     280   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,203) * lu(k,3781)
     281   254840160 :          lu(k,204) = 1._r8 / lu(k,204)
     282   254840160 :          lu(k,205) = lu(k,205) * lu(k,204)
     283   254840160 :          lu(k,206) = lu(k,206) * lu(k,204)
     284   254840160 :          lu(k,1094) = - lu(k,205) * lu(k,1091)
     285   254840160 :          lu(k,1105) = lu(k,1105) - lu(k,206) * lu(k,1091)
     286   254840160 :          lu(k,3689) = - lu(k,205) * lu(k,3674)
     287   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,206) * lu(k,3674)
     288   254840160 :          lu(k,3997) = lu(k,3997) - lu(k,205) * lu(k,3878)
     289   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,206) * lu(k,3878)
     290             :       end do
     291     8168963 :       end subroutine lu_fac03
     292     8168963 :       subroutine lu_fac04( avec_len, lu )
     293             :       use chem_mods, only : nzcnt
     294             :       use shr_kind_mod, only : r8 => shr_kind_r8
     295             :       implicit none
     296             : !-----------------------------------------------------------------------
     297             : ! ... dummy args
     298             : !-----------------------------------------------------------------------
     299             :       integer, intent(in) :: avec_len
     300             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     301             : !-----------------------------------------------------------------------
     302             : ! ... local variables
     303             : !-----------------------------------------------------------------------
     304             :       integer :: k
     305   263009123 :       do k = 1,avec_len
     306   254840160 :          lu(k,207) = 1._r8 / lu(k,207)
     307   254840160 :          lu(k,208) = lu(k,208) * lu(k,207)
     308   254840160 :          lu(k,209) = lu(k,209) * lu(k,207)
     309   254840160 :          lu(k,981) = lu(k,981) - lu(k,208) * lu(k,973)
     310   254840160 :          lu(k,984) = lu(k,984) - lu(k,209) * lu(k,973)
     311   254840160 :          lu(k,1920) = - lu(k,208) * lu(k,1911)
     312   254840160 :          lu(k,1924) = lu(k,1924) - lu(k,209) * lu(k,1911)
     313   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,208) * lu(k,3879)
     314   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,209) * lu(k,3879)
     315   254840160 :          lu(k,211) = 1._r8 / lu(k,211)
     316   254840160 :          lu(k,212) = lu(k,212) * lu(k,211)
     317   254840160 :          lu(k,213) = lu(k,213) * lu(k,211)
     318   254840160 :          lu(k,214) = lu(k,214) * lu(k,211)
     319   254840160 :          lu(k,215) = lu(k,215) * lu(k,211)
     320   254840160 :          lu(k,216) = lu(k,216) * lu(k,211)
     321   254840160 :          lu(k,217) = lu(k,217) * lu(k,211)
     322   254840160 :          lu(k,3881) = lu(k,3881) - lu(k,212) * lu(k,3880)
     323   254840160 :          lu(k,3882) = lu(k,3882) - lu(k,213) * lu(k,3880)
     324   254840160 :          lu(k,3916) = lu(k,3916) - lu(k,214) * lu(k,3880)
     325   254840160 :          lu(k,3968) = lu(k,3968) - lu(k,215) * lu(k,3880)
     326   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,216) * lu(k,3880)
     327   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,217) * lu(k,3880)
     328   254840160 :          lu(k,218) = 1._r8 / lu(k,218)
     329   254840160 :          lu(k,219) = lu(k,219) * lu(k,218)
     330   254840160 :          lu(k,220) = lu(k,220) * lu(k,218)
     331   254840160 :          lu(k,221) = lu(k,221) * lu(k,218)
     332   254840160 :          lu(k,222) = lu(k,222) * lu(k,218)
     333   254840160 :          lu(k,3919) = lu(k,3919) - lu(k,219) * lu(k,3881)
     334   254840160 :          lu(k,3924) = lu(k,3924) - lu(k,220) * lu(k,3881)
     335   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,221) * lu(k,3881)
     336   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,222) * lu(k,3881)
     337   254840160 :          lu(k,223) = 1._r8 / lu(k,223)
     338   254840160 :          lu(k,224) = lu(k,224) * lu(k,223)
     339   254840160 :          lu(k,225) = lu(k,225) * lu(k,223)
     340   254840160 :          lu(k,226) = lu(k,226) * lu(k,223)
     341   254840160 :          lu(k,233) = - lu(k,224) * lu(k,228)
     342   254840160 :          lu(k,234) = - lu(k,225) * lu(k,228)
     343   254840160 :          lu(k,235) = lu(k,235) - lu(k,226) * lu(k,228)
     344   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,224) * lu(k,3882)
     345   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,225) * lu(k,3882)
     346   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,226) * lu(k,3882)
     347   254840160 :          lu(k,229) = 1._r8 / lu(k,229)
     348   254840160 :          lu(k,230) = lu(k,230) * lu(k,229)
     349   254840160 :          lu(k,231) = lu(k,231) * lu(k,229)
     350   254840160 :          lu(k,232) = lu(k,232) * lu(k,229)
     351   254840160 :          lu(k,233) = lu(k,233) * lu(k,229)
     352   254840160 :          lu(k,234) = lu(k,234) * lu(k,229)
     353   254840160 :          lu(k,235) = lu(k,235) * lu(k,229)
     354   254840160 :          lu(k,236) = lu(k,236) * lu(k,229)
     355   254840160 :          lu(k,3884) = lu(k,3884) - lu(k,230) * lu(k,3883)
     356   254840160 :          lu(k,3916) = lu(k,3916) - lu(k,231) * lu(k,3883)
     357   254840160 :          lu(k,3970) = lu(k,3970) - lu(k,232) * lu(k,3883)
     358   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,233) * lu(k,3883)
     359   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,234) * lu(k,3883)
     360   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,235) * lu(k,3883)
     361   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,236) * lu(k,3883)
     362   254840160 :          lu(k,237) = 1._r8 / lu(k,237)
     363   254840160 :          lu(k,238) = lu(k,238) * lu(k,237)
     364   254840160 :          lu(k,239) = lu(k,239) * lu(k,237)
     365   254840160 :          lu(k,240) = lu(k,240) * lu(k,237)
     366   254840160 :          lu(k,241) = lu(k,241) * lu(k,237)
     367   254840160 :          lu(k,3924) = lu(k,3924) - lu(k,238) * lu(k,3884)
     368   254840160 :          lu(k,3931) = lu(k,3931) - lu(k,239) * lu(k,3884)
     369   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,240) * lu(k,3884)
     370   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,241) * lu(k,3884)
     371   254840160 :          lu(k,242) = 1._r8 / lu(k,242)
     372   254840160 :          lu(k,243) = lu(k,243) * lu(k,242)
     373   254840160 :          lu(k,244) = lu(k,244) * lu(k,242)
     374   254840160 :          lu(k,996) = lu(k,996) - lu(k,243) * lu(k,994)
     375   254840160 :          lu(k,1000) = - lu(k,244) * lu(k,994)
     376   254840160 :          lu(k,3126) = - lu(k,243) * lu(k,3122)
     377   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,244) * lu(k,3122)
     378   254840160 :          lu(k,3479) = lu(k,3479) - lu(k,243) * lu(k,3473)
     379   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,244) * lu(k,3473)
     380   254840160 :          lu(k,3505) = lu(k,3505) - lu(k,243) * lu(k,3499)
     381   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,244) * lu(k,3499)
     382   254840160 :          lu(k,245) = 1._r8 / lu(k,245)
     383   254840160 :          lu(k,246) = lu(k,246) * lu(k,245)
     384   254840160 :          lu(k,247) = lu(k,247) * lu(k,245)
     385   254840160 :          lu(k,355) = - lu(k,246) * lu(k,352)
     386   254840160 :          lu(k,357) = lu(k,357) - lu(k,247) * lu(k,352)
     387   254840160 :          lu(k,438) = - lu(k,246) * lu(k,435)
     388   254840160 :          lu(k,442) = - lu(k,247) * lu(k,435)
     389   254840160 :          lu(k,2990) = lu(k,2990) - lu(k,246) * lu(k,2978)
     390   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,247) * lu(k,2978)
     391   254840160 :          lu(k,3933) = lu(k,3933) - lu(k,246) * lu(k,3885)
     392   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,247) * lu(k,3885)
     393   254840160 :          lu(k,248) = 1._r8 / lu(k,248)
     394   254840160 :          lu(k,249) = lu(k,249) * lu(k,248)
     395   254840160 :          lu(k,250) = lu(k,250) * lu(k,248)
     396   254840160 :          lu(k,262) = - lu(k,249) * lu(k,260)
     397   254840160 :          lu(k,263) = lu(k,263) - lu(k,250) * lu(k,260)
     398   254840160 :          lu(k,327) = - lu(k,249) * lu(k,325)
     399   254840160 :          lu(k,328) = lu(k,328) - lu(k,250) * lu(k,325)
     400   254840160 :          lu(k,3791) = lu(k,3791) - lu(k,249) * lu(k,3782)
     401   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,250) * lu(k,3782)
     402   254840160 :          lu(k,4003) = - lu(k,249) * lu(k,3886)
     403   263009123 :          lu(k,4099) = lu(k,4099) - lu(k,250) * lu(k,3886)
     404             :       end do
     405     8168963 :       end subroutine lu_fac04
     406     8168963 :       subroutine lu_fac05( avec_len, lu )
     407             :       use chem_mods, only : nzcnt
     408             :       use shr_kind_mod, only : r8 => shr_kind_r8
     409             :       implicit none
     410             : !-----------------------------------------------------------------------
     411             : ! ... dummy args
     412             : !-----------------------------------------------------------------------
     413             :       integer, intent(in) :: avec_len
     414             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     415             : !-----------------------------------------------------------------------
     416             : ! ... local variables
     417             : !-----------------------------------------------------------------------
     418             :       integer :: k
     419   263009123 :       do k = 1,avec_len
     420   254840160 :          lu(k,251) = 1._r8 / lu(k,251)
     421   254840160 :          lu(k,252) = lu(k,252) * lu(k,251)
     422   254840160 :          lu(k,253) = lu(k,253) * lu(k,251)
     423   254840160 :          lu(k,254) = lu(k,254) * lu(k,251)
     424   254840160 :          lu(k,255) = lu(k,255) * lu(k,251)
     425   254840160 :          lu(k,3784) = lu(k,3784) - lu(k,252) * lu(k,3783)
     426   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,253) * lu(k,3783)
     427   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,254) * lu(k,3783)
     428   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,255) * lu(k,3783)
     429   254840160 :          lu(k,3888) = lu(k,3888) - lu(k,252) * lu(k,3887)
     430   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,253) * lu(k,3887)
     431   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,254) * lu(k,3887)
     432   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,255) * lu(k,3887)
     433   254840160 :          lu(k,256) = 1._r8 / lu(k,256)
     434   254840160 :          lu(k,257) = lu(k,257) * lu(k,256)
     435   254840160 :          lu(k,258) = lu(k,258) * lu(k,256)
     436   254840160 :          lu(k,259) = lu(k,259) * lu(k,256)
     437   254840160 :          lu(k,3791) = lu(k,3791) - lu(k,257) * lu(k,3784)
     438   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,258) * lu(k,3784)
     439   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,259) * lu(k,3784)
     440   254840160 :          lu(k,4003) = lu(k,4003) - lu(k,257) * lu(k,3888)
     441   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,258) * lu(k,3888)
     442   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,259) * lu(k,3888)
     443   254840160 :          lu(k,261) = 1._r8 / lu(k,261)
     444   254840160 :          lu(k,262) = lu(k,262) * lu(k,261)
     445   254840160 :          lu(k,263) = lu(k,263) * lu(k,261)
     446   254840160 :          lu(k,264) = lu(k,264) * lu(k,261)
     447   254840160 :          lu(k,265) = lu(k,265) * lu(k,261)
     448   254840160 :          lu(k,3791) = lu(k,3791) - lu(k,262) * lu(k,3785)
     449   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,263) * lu(k,3785)
     450   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,264) * lu(k,3785)
     451   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,265) * lu(k,3785)
     452   254840160 :          lu(k,4003) = lu(k,4003) - lu(k,262) * lu(k,3889)
     453   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,263) * lu(k,3889)
     454   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,264) * lu(k,3889)
     455   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,265) * lu(k,3889)
     456   254840160 :          lu(k,266) = 1._r8 / lu(k,266)
     457   254840160 :          lu(k,267) = lu(k,267) * lu(k,266)
     458   254840160 :          lu(k,268) = lu(k,268) * lu(k,266)
     459   254840160 :          lu(k,1416) = - lu(k,267) * lu(k,1404)
     460   254840160 :          lu(k,1417) = - lu(k,268) * lu(k,1404)
     461   254840160 :          lu(k,1848) = lu(k,1848) - lu(k,267) * lu(k,1834)
     462   254840160 :          lu(k,1853) = - lu(k,268) * lu(k,1834)
     463   254840160 :          lu(k,1948) = - lu(k,267) * lu(k,1934)
     464   254840160 :          lu(k,1953) = lu(k,1953) - lu(k,268) * lu(k,1934)
     465   254840160 :          lu(k,4048) = - lu(k,267) * lu(k,3890)
     466   254840160 :          lu(k,4053) = lu(k,4053) - lu(k,268) * lu(k,3890)
     467   254840160 :          lu(k,269) = 1._r8 / lu(k,269)
     468   254840160 :          lu(k,270) = lu(k,270) * lu(k,269)
     469   254840160 :          lu(k,271) = lu(k,271) * lu(k,269)
     470   254840160 :          lu(k,1413) = - lu(k,270) * lu(k,1405)
     471   254840160 :          lu(k,1417) = lu(k,1417) - lu(k,271) * lu(k,1405)
     472   254840160 :          lu(k,1732) = lu(k,1732) - lu(k,270) * lu(k,1726)
     473   254840160 :          lu(k,1737) = - lu(k,271) * lu(k,1726)
     474   254840160 :          lu(k,1944) = - lu(k,270) * lu(k,1935)
     475   254840160 :          lu(k,1953) = lu(k,1953) - lu(k,271) * lu(k,1935)
     476   254840160 :          lu(k,4042) = - lu(k,270) * lu(k,3891)
     477   254840160 :          lu(k,4053) = lu(k,4053) - lu(k,271) * lu(k,3891)
     478   254840160 :          lu(k,272) = 1._r8 / lu(k,272)
     479   254840160 :          lu(k,273) = lu(k,273) * lu(k,272)
     480   254840160 :          lu(k,274) = lu(k,274) * lu(k,272)
     481   254840160 :          lu(k,1415) = - lu(k,273) * lu(k,1406)
     482   254840160 :          lu(k,1418) = - lu(k,274) * lu(k,1406)
     483   254840160 :          lu(k,1817) = lu(k,1817) - lu(k,273) * lu(k,1803)
     484   254840160 :          lu(k,1821) = - lu(k,274) * lu(k,1803)
     485   254840160 :          lu(k,1985) = - lu(k,273) * lu(k,1970)
     486   254840160 :          lu(k,1991) = lu(k,1991) - lu(k,274) * lu(k,1970)
     487   254840160 :          lu(k,4047) = - lu(k,273) * lu(k,3892)
     488   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,274) * lu(k,3892)
     489   254840160 :          lu(k,275) = 1._r8 / lu(k,275)
     490   254840160 :          lu(k,276) = lu(k,276) * lu(k,275)
     491   254840160 :          lu(k,277) = lu(k,277) * lu(k,275)
     492   254840160 :          lu(k,1414) = - lu(k,276) * lu(k,1407)
     493   254840160 :          lu(k,1418) = lu(k,1418) - lu(k,277) * lu(k,1407)
     494   254840160 :          lu(k,1754) = lu(k,1754) - lu(k,276) * lu(k,1748)
     495   254840160 :          lu(k,1759) = - lu(k,277) * lu(k,1748)
     496   254840160 :          lu(k,1981) = - lu(k,276) * lu(k,1971)
     497   254840160 :          lu(k,1991) = lu(k,1991) - lu(k,277) * lu(k,1971)
     498   254840160 :          lu(k,4043) = - lu(k,276) * lu(k,3893)
     499   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,277) * lu(k,3893)
     500   254840160 :          lu(k,279) = 1._r8 / lu(k,279)
     501   254840160 :          lu(k,280) = lu(k,280) * lu(k,279)
     502   254840160 :          lu(k,281) = lu(k,281) * lu(k,279)
     503   254840160 :          lu(k,282) = lu(k,282) * lu(k,279)
     504   254840160 :          lu(k,1235) = lu(k,1235) - lu(k,280) * lu(k,1234)
     505   254840160 :          lu(k,1237) = lu(k,1237) - lu(k,281) * lu(k,1234)
     506   254840160 :          lu(k,1240) = - lu(k,282) * lu(k,1234)
     507   254840160 :          lu(k,4002) = lu(k,4002) - lu(k,280) * lu(k,3894)
     508   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,281) * lu(k,3894)
     509   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,282) * lu(k,3894)
     510   254840160 :          lu(k,4106) = - lu(k,280) * lu(k,4104)
     511   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,281) * lu(k,4104)
     512   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,282) * lu(k,4104)
     513   254840160 :          lu(k,283) = 1._r8 / lu(k,283)
     514   254840160 :          lu(k,284) = lu(k,284) * lu(k,283)
     515   254840160 :          lu(k,285) = lu(k,285) * lu(k,283)
     516   254840160 :          lu(k,286) = lu(k,286) * lu(k,283)
     517   254840160 :          lu(k,1351) = lu(k,1351) - lu(k,284) * lu(k,1348)
     518   254840160 :          lu(k,1355) = lu(k,1355) - lu(k,285) * lu(k,1348)
     519   254840160 :          lu(k,1358) = - lu(k,286) * lu(k,1348)
     520   254840160 :          lu(k,3392) = lu(k,3392) - lu(k,284) * lu(k,3381)
     521   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,285) * lu(k,3381)
     522   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,286) * lu(k,3381)
     523   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,284) * lu(k,3895)
     524   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,285) * lu(k,3895)
     525   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,286) * lu(k,3895)
     526             :       end do
     527     8168963 :       end subroutine lu_fac05
     528     8168963 :       subroutine lu_fac06( avec_len, lu )
     529             :       use chem_mods, only : nzcnt
     530             :       use shr_kind_mod, only : r8 => shr_kind_r8
     531             :       implicit none
     532             : !-----------------------------------------------------------------------
     533             : ! ... dummy args
     534             : !-----------------------------------------------------------------------
     535             :       integer, intent(in) :: avec_len
     536             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     537             : !-----------------------------------------------------------------------
     538             : ! ... local variables
     539             : !-----------------------------------------------------------------------
     540             :       integer :: k
     541   263009123 :       do k = 1,avec_len
     542   254840160 :          lu(k,287) = 1._r8 / lu(k,287)
     543   254840160 :          lu(k,288) = lu(k,288) * lu(k,287)
     544   254840160 :          lu(k,289) = lu(k,289) * lu(k,287)
     545   254840160 :          lu(k,290) = lu(k,290) * lu(k,287)
     546   254840160 :          lu(k,710) = lu(k,710) - lu(k,288) * lu(k,709)
     547   254840160 :          lu(k,711) = lu(k,711) - lu(k,289) * lu(k,709)
     548   254840160 :          lu(k,716) = - lu(k,290) * lu(k,709)
     549   254840160 :          lu(k,3236) = - lu(k,288) * lu(k,3217)
     550   254840160 :          lu(k,3246) = lu(k,3246) - lu(k,289) * lu(k,3217)
     551   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,290) * lu(k,3217)
     552   254840160 :          lu(k,3924) = lu(k,3924) - lu(k,288) * lu(k,3896)
     553   254840160 :          lu(k,3951) = lu(k,3951) - lu(k,289) * lu(k,3896)
     554   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,290) * lu(k,3896)
     555   254840160 :          lu(k,291) = 1._r8 / lu(k,291)
     556   254840160 :          lu(k,292) = lu(k,292) * lu(k,291)
     557   254840160 :          lu(k,293) = lu(k,293) * lu(k,291)
     558   254840160 :          lu(k,294) = lu(k,294) * lu(k,291)
     559   254840160 :          lu(k,856) = - lu(k,292) * lu(k,854)
     560   254840160 :          lu(k,858) = lu(k,858) - lu(k,293) * lu(k,854)
     561   254840160 :          lu(k,859) = lu(k,859) - lu(k,294) * lu(k,854)
     562   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,292) * lu(k,2979)
     563   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,293) * lu(k,2979)
     564   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,294) * lu(k,2979)
     565   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,292) * lu(k,3218)
     566   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,293) * lu(k,3218)
     567   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,294) * lu(k,3218)
     568   254840160 :          lu(k,295) = 1._r8 / lu(k,295)
     569   254840160 :          lu(k,296) = lu(k,296) * lu(k,295)
     570   254840160 :          lu(k,297) = lu(k,297) * lu(k,295)
     571   254840160 :          lu(k,298) = lu(k,298) * lu(k,295)
     572   254840160 :          lu(k,299) = lu(k,299) * lu(k,295)
     573   254840160 :          lu(k,300) = lu(k,300) * lu(k,295)
     574   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,296) * lu(k,3525)
     575   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,297) * lu(k,3525)
     576   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,298) * lu(k,3525)
     577   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,299) * lu(k,3525)
     578   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,300) * lu(k,3525)
     579   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,296) * lu(k,3619)
     580   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,297) * lu(k,3619)
     581   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,298) * lu(k,3619)
     582   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,299) * lu(k,3619)
     583   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,300) * lu(k,3619)
     584   254840160 :          lu(k,301) = 1._r8 / lu(k,301)
     585   254840160 :          lu(k,302) = lu(k,302) * lu(k,301)
     586   254840160 :          lu(k,303) = lu(k,303) * lu(k,301)
     587   254840160 :          lu(k,744) = - lu(k,302) * lu(k,738)
     588   254840160 :          lu(k,749) = lu(k,749) - lu(k,303) * lu(k,738)
     589   254840160 :          lu(k,845) = - lu(k,302) * lu(k,838)
     590   254840160 :          lu(k,851) = lu(k,851) - lu(k,303) * lu(k,838)
     591   254840160 :          lu(k,874) = - lu(k,302) * lu(k,868)
     592   254840160 :          lu(k,880) = lu(k,880) - lu(k,303) * lu(k,868)
     593   254840160 :          lu(k,896) = - lu(k,302) * lu(k,889)
     594   254840160 :          lu(k,903) = lu(k,903) - lu(k,303) * lu(k,889)
     595   254840160 :          lu(k,3008) = lu(k,3008) - lu(k,302) * lu(k,2980)
     596   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,303) * lu(k,2980)
     597   254840160 :          lu(k,304) = 1._r8 / lu(k,304)
     598   254840160 :          lu(k,305) = lu(k,305) * lu(k,304)
     599   254840160 :          lu(k,306) = lu(k,306) * lu(k,304)
     600   254840160 :          lu(k,307) = lu(k,307) * lu(k,304)
     601   254840160 :          lu(k,308) = lu(k,308) * lu(k,304)
     602   254840160 :          lu(k,309) = lu(k,309) * lu(k,304)
     603   254840160 :          lu(k,3537) = lu(k,3537) - lu(k,305) * lu(k,3526)
     604   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,306) * lu(k,3526)
     605   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,307) * lu(k,3526)
     606   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,308) * lu(k,3526)
     607   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,309) * lu(k,3526)
     608   254840160 :          lu(k,4002) = lu(k,4002) - lu(k,305) * lu(k,3897)
     609   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,306) * lu(k,3897)
     610   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,307) * lu(k,3897)
     611   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,308) * lu(k,3897)
     612   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,309) * lu(k,3897)
     613   254840160 :          lu(k,310) = 1._r8 / lu(k,310)
     614   254840160 :          lu(k,311) = lu(k,311) * lu(k,310)
     615   254840160 :          lu(k,312) = lu(k,312) * lu(k,310)
     616   254840160 :          lu(k,313) = lu(k,313) * lu(k,310)
     617   254840160 :          lu(k,314) = lu(k,314) * lu(k,310)
     618   254840160 :          lu(k,315) = lu(k,315) * lu(k,310)
     619   254840160 :          lu(k,3824) = - lu(k,311) * lu(k,3813)
     620   254840160 :          lu(k,3826) = - lu(k,312) * lu(k,3813)
     621   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,313) * lu(k,3813)
     622   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,314) * lu(k,3813)
     623   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,315) * lu(k,3813)
     624   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,311) * lu(k,3898)
     625   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,312) * lu(k,3898)
     626   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,313) * lu(k,3898)
     627   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,314) * lu(k,3898)
     628   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,315) * lu(k,3898)
     629   254840160 :          lu(k,316) = 1._r8 / lu(k,316)
     630   254840160 :          lu(k,317) = lu(k,317) * lu(k,316)
     631   254840160 :          lu(k,318) = lu(k,318) * lu(k,316)
     632   254840160 :          lu(k,319) = lu(k,319) * lu(k,316)
     633   254840160 :          lu(k,320) = lu(k,320) * lu(k,316)
     634   254840160 :          lu(k,321) = lu(k,321) * lu(k,316)
     635   254840160 :          lu(k,3823) = lu(k,3823) - lu(k,317) * lu(k,3814)
     636   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,318) * lu(k,3814)
     637   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,319) * lu(k,3814)
     638   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,320) * lu(k,3814)
     639   254840160 :          lu(k,3852) = - lu(k,321) * lu(k,3814)
     640   254840160 :          lu(k,4011) = lu(k,4011) - lu(k,317) * lu(k,3899)
     641   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,318) * lu(k,3899)
     642   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,319) * lu(k,3899)
     643   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,320) * lu(k,3899)
     644   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,321) * lu(k,3899)
     645   254840160 :          lu(k,322) = 1._r8 / lu(k,322)
     646   254840160 :          lu(k,323) = lu(k,323) * lu(k,322)
     647   254840160 :          lu(k,324) = lu(k,324) * lu(k,322)
     648   254840160 :          lu(k,1242) = lu(k,1242) - lu(k,323) * lu(k,1241)
     649   254840160 :          lu(k,1245) = lu(k,1245) - lu(k,324) * lu(k,1241)
     650   254840160 :          lu(k,1672) = lu(k,1672) - lu(k,323) * lu(k,1671)
     651   254840160 :          lu(k,1675) = lu(k,1675) - lu(k,324) * lu(k,1671)
     652   254840160 :          lu(k,2255) = lu(k,2255) - lu(k,323) * lu(k,2254)
     653   254840160 :          lu(k,2260) = lu(k,2260) - lu(k,324) * lu(k,2254)
     654   254840160 :          lu(k,2945) = lu(k,2945) - lu(k,323) * lu(k,2944)
     655   254840160 :          lu(k,2948) = - lu(k,324) * lu(k,2944)
     656   254840160 :          lu(k,4107) = lu(k,4107) - lu(k,323) * lu(k,4105)
     657   254840160 :          lu(k,4112) = lu(k,4112) - lu(k,324) * lu(k,4105)
     658   254840160 :          lu(k,326) = 1._r8 / lu(k,326)
     659   254840160 :          lu(k,327) = lu(k,327) * lu(k,326)
     660   254840160 :          lu(k,328) = lu(k,328) * lu(k,326)
     661   254840160 :          lu(k,329) = lu(k,329) * lu(k,326)
     662   254840160 :          lu(k,330) = lu(k,330) * lu(k,326)
     663   254840160 :          lu(k,331) = lu(k,331) * lu(k,326)
     664   254840160 :          lu(k,3791) = lu(k,3791) - lu(k,327) * lu(k,3786)
     665   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,328) * lu(k,3786)
     666   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,329) * lu(k,3786)
     667   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,330) * lu(k,3786)
     668   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,331) * lu(k,3786)
     669   254840160 :          lu(k,4003) = lu(k,4003) - lu(k,327) * lu(k,3900)
     670   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,328) * lu(k,3900)
     671   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,329) * lu(k,3900)
     672   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,330) * lu(k,3900)
     673   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,331) * lu(k,3900)
     674             :       end do
     675     8168963 :       end subroutine lu_fac06
     676     8168963 :       subroutine lu_fac07( avec_len, lu )
     677             :       use chem_mods, only : nzcnt
     678             :       use shr_kind_mod, only : r8 => shr_kind_r8
     679             :       implicit none
     680             : !-----------------------------------------------------------------------
     681             : ! ... dummy args
     682             : !-----------------------------------------------------------------------
     683             :       integer, intent(in) :: avec_len
     684             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     685             : !-----------------------------------------------------------------------
     686             : ! ... local variables
     687             : !-----------------------------------------------------------------------
     688             :       integer :: k
     689   263009123 :       do k = 1,avec_len
     690   254840160 :          lu(k,332) = 1._r8 / lu(k,332)
     691   254840160 :          lu(k,333) = lu(k,333) * lu(k,332)
     692   254840160 :          lu(k,334) = lu(k,334) * lu(k,332)
     693   254840160 :          lu(k,335) = lu(k,335) * lu(k,332)
     694   254840160 :          lu(k,336) = lu(k,336) * lu(k,332)
     695   254840160 :          lu(k,763) = lu(k,763) - lu(k,333) * lu(k,762)
     696   254840160 :          lu(k,764) = lu(k,764) - lu(k,334) * lu(k,762)
     697   254840160 :          lu(k,765) = lu(k,765) - lu(k,335) * lu(k,762)
     698   254840160 :          lu(k,769) = lu(k,769) - lu(k,336) * lu(k,762)
     699   254840160 :          lu(k,3249) = lu(k,3249) - lu(k,333) * lu(k,3219)
     700   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,334) * lu(k,3219)
     701   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,335) * lu(k,3219)
     702   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,336) * lu(k,3219)
     703   254840160 :          lu(k,3956) = lu(k,3956) - lu(k,333) * lu(k,3901)
     704   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,334) * lu(k,3901)
     705   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,335) * lu(k,3901)
     706   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,336) * lu(k,3901)
     707   254840160 :          lu(k,337) = 1._r8 / lu(k,337)
     708   254840160 :          lu(k,338) = lu(k,338) * lu(k,337)
     709   254840160 :          lu(k,339) = lu(k,339) * lu(k,337)
     710   254840160 :          lu(k,340) = lu(k,340) * lu(k,337)
     711   254840160 :          lu(k,341) = lu(k,341) * lu(k,337)
     712   254840160 :          lu(k,848) = lu(k,848) - lu(k,338) * lu(k,839)
     713   254840160 :          lu(k,849) = - lu(k,339) * lu(k,839)
     714   254840160 :          lu(k,850) = - lu(k,340) * lu(k,839)
     715   254840160 :          lu(k,851) = lu(k,851) - lu(k,341) * lu(k,839)
     716   254840160 :          lu(k,899) = lu(k,899) - lu(k,338) * lu(k,890)
     717   254840160 :          lu(k,900) = - lu(k,339) * lu(k,890)
     718   254840160 :          lu(k,901) = - lu(k,340) * lu(k,890)
     719   254840160 :          lu(k,903) = lu(k,903) - lu(k,341) * lu(k,890)
     720   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,338) * lu(k,2981)
     721   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,339) * lu(k,2981)
     722   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,340) * lu(k,2981)
     723   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,341) * lu(k,2981)
     724   254840160 :          lu(k,342) = 1._r8 / lu(k,342)
     725   254840160 :          lu(k,343) = lu(k,343) * lu(k,342)
     726   254840160 :          lu(k,344) = lu(k,344) * lu(k,342)
     727   254840160 :          lu(k,345) = lu(k,345) * lu(k,342)
     728   254840160 :          lu(k,346) = lu(k,346) * lu(k,342)
     729   254840160 :          lu(k,1599) = lu(k,1599) - lu(k,343) * lu(k,1597)
     730   254840160 :          lu(k,1600) = lu(k,1600) - lu(k,344) * lu(k,1597)
     731   254840160 :          lu(k,1604) = lu(k,1604) - lu(k,345) * lu(k,1597)
     732   254840160 :          lu(k,1607) = lu(k,1607) - lu(k,346) * lu(k,1597)
     733   254840160 :          lu(k,3477) = lu(k,3477) - lu(k,343) * lu(k,3474)
     734   254840160 :          lu(k,3478) = lu(k,3478) - lu(k,344) * lu(k,3474)
     735   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,345) * lu(k,3474)
     736   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,346) * lu(k,3474)
     737   254840160 :          lu(k,3502) = lu(k,3502) - lu(k,343) * lu(k,3500)
     738   254840160 :          lu(k,3504) = lu(k,3504) - lu(k,344) * lu(k,3500)
     739   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,345) * lu(k,3500)
     740   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,346) * lu(k,3500)
     741   254840160 :          lu(k,347) = 1._r8 / lu(k,347)
     742   254840160 :          lu(k,348) = lu(k,348) * lu(k,347)
     743   254840160 :          lu(k,349) = lu(k,349) * lu(k,347)
     744   254840160 :          lu(k,350) = lu(k,350) * lu(k,347)
     745   254840160 :          lu(k,351) = lu(k,351) * lu(k,347)
     746   254840160 :          lu(k,456) = lu(k,456) - lu(k,348) * lu(k,455)
     747   254840160 :          lu(k,457) = lu(k,457) - lu(k,349) * lu(k,455)
     748   254840160 :          lu(k,459) = lu(k,459) - lu(k,350) * lu(k,455)
     749   254840160 :          lu(k,461) = - lu(k,351) * lu(k,455)
     750   254840160 :          lu(k,3233) = lu(k,3233) - lu(k,348) * lu(k,3220)
     751   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,349) * lu(k,3220)
     752   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,350) * lu(k,3220)
     753   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,351) * lu(k,3220)
     754   254840160 :          lu(k,3919) = lu(k,3919) - lu(k,348) * lu(k,3902)
     755   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,349) * lu(k,3902)
     756   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,350) * lu(k,3902)
     757   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,351) * lu(k,3902)
     758   254840160 :          lu(k,353) = 1._r8 / lu(k,353)
     759   254840160 :          lu(k,354) = lu(k,354) * lu(k,353)
     760   254840160 :          lu(k,355) = lu(k,355) * lu(k,353)
     761   254840160 :          lu(k,356) = lu(k,356) * lu(k,353)
     762   254840160 :          lu(k,357) = lu(k,357) * lu(k,353)
     763   254840160 :          lu(k,437) = lu(k,437) - lu(k,354) * lu(k,436)
     764   254840160 :          lu(k,438) = lu(k,438) - lu(k,355) * lu(k,436)
     765   254840160 :          lu(k,440) = lu(k,440) - lu(k,356) * lu(k,436)
     766   254840160 :          lu(k,442) = lu(k,442) - lu(k,357) * lu(k,436)
     767   254840160 :          lu(k,3230) = lu(k,3230) - lu(k,354) * lu(k,3221)
     768   254840160 :          lu(k,3239) = lu(k,3239) - lu(k,355) * lu(k,3221)
     769   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,356) * lu(k,3221)
     770   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,357) * lu(k,3221)
     771   254840160 :          lu(k,3916) = lu(k,3916) - lu(k,354) * lu(k,3903)
     772   254840160 :          lu(k,3933) = lu(k,3933) - lu(k,355) * lu(k,3903)
     773   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,356) * lu(k,3903)
     774   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,357) * lu(k,3903)
     775   254840160 :          lu(k,358) = 1._r8 / lu(k,358)
     776   254840160 :          lu(k,359) = lu(k,359) * lu(k,358)
     777   254840160 :          lu(k,360) = lu(k,360) * lu(k,358)
     778   254840160 :          lu(k,361) = lu(k,361) * lu(k,358)
     779   254840160 :          lu(k,362) = lu(k,362) * lu(k,358)
     780   254840160 :          lu(k,1350) = lu(k,1350) - lu(k,359) * lu(k,1349)
     781   254840160 :          lu(k,1351) = lu(k,1351) - lu(k,360) * lu(k,1349)
     782   254840160 :          lu(k,1355) = lu(k,1355) - lu(k,361) * lu(k,1349)
     783   254840160 :          lu(k,1358) = lu(k,1358) - lu(k,362) * lu(k,1349)
     784   254840160 :          lu(k,3291) = lu(k,3291) - lu(k,359) * lu(k,3222)
     785   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,360) * lu(k,3222)
     786   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,361) * lu(k,3222)
     787   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,362) * lu(k,3222)
     788   254840160 :          lu(k,4011) = lu(k,4011) - lu(k,359) * lu(k,3904)
     789   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,360) * lu(k,3904)
     790   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,361) * lu(k,3904)
     791   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,362) * lu(k,3904)
     792   254840160 :          lu(k,363) = 1._r8 / lu(k,363)
     793   254840160 :          lu(k,364) = lu(k,364) * lu(k,363)
     794   254840160 :          lu(k,365) = lu(k,365) * lu(k,363)
     795   254840160 :          lu(k,366) = lu(k,366) * lu(k,363)
     796   254840160 :          lu(k,367) = lu(k,367) * lu(k,363)
     797   254840160 :          lu(k,2721) = lu(k,2721) - lu(k,364) * lu(k,2716)
     798   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,365) * lu(k,2716)
     799   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,366) * lu(k,2716)
     800   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,367) * lu(k,2716)
     801   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,364) * lu(k,3223)
     802   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,365) * lu(k,3223)
     803   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,366) * lu(k,3223)
     804   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,367) * lu(k,3223)
     805   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,364) * lu(k,3905)
     806   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,365) * lu(k,3905)
     807   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,366) * lu(k,3905)
     808   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,367) * lu(k,3905)
     809   254840160 :          lu(k,368) = 1._r8 / lu(k,368)
     810   254840160 :          lu(k,369) = lu(k,369) * lu(k,368)
     811   254840160 :          lu(k,370) = lu(k,370) * lu(k,368)
     812   254840160 :          lu(k,371) = lu(k,371) * lu(k,368)
     813   254840160 :          lu(k,372) = lu(k,372) * lu(k,368)
     814   254840160 :          lu(k,2767) = lu(k,2767) - lu(k,369) * lu(k,2762)
     815   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,370) * lu(k,2762)
     816   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,371) * lu(k,2762)
     817   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,372) * lu(k,2762)
     818   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,369) * lu(k,3224)
     819   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,370) * lu(k,3224)
     820   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,371) * lu(k,3224)
     821   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,372) * lu(k,3224)
     822   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,369) * lu(k,3906)
     823   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,370) * lu(k,3906)
     824   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,371) * lu(k,3906)
     825   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,372) * lu(k,3906)
     826   254840160 :          lu(k,373) = 1._r8 / lu(k,373)
     827   254840160 :          lu(k,374) = lu(k,374) * lu(k,373)
     828   254840160 :          lu(k,375) = lu(k,375) * lu(k,373)
     829   254840160 :          lu(k,376) = lu(k,376) * lu(k,373)
     830   254840160 :          lu(k,950) = - lu(k,374) * lu(k,948)
     831   254840160 :          lu(k,957) = lu(k,957) - lu(k,375) * lu(k,948)
     832   254840160 :          lu(k,959) = lu(k,959) - lu(k,376) * lu(k,948)
     833   254840160 :          lu(k,1004) = - lu(k,374) * lu(k,1003)
     834   254840160 :          lu(k,1011) = lu(k,1011) - lu(k,375) * lu(k,1003)
     835   254840160 :          lu(k,1013) = lu(k,1013) - lu(k,376) * lu(k,1003)
     836   254840160 :          lu(k,3243) = lu(k,3243) - lu(k,374) * lu(k,3225)
     837   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,375) * lu(k,3225)
     838   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,376) * lu(k,3225)
     839   254840160 :          lu(k,3949) = lu(k,3949) - lu(k,374) * lu(k,3907)
     840   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,375) * lu(k,3907)
     841   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,376) * lu(k,3907)
     842             :       end do
     843     8168963 :       end subroutine lu_fac07
     844     8168963 :       subroutine lu_fac08( avec_len, lu )
     845             :       use chem_mods, only : nzcnt
     846             :       use shr_kind_mod, only : r8 => shr_kind_r8
     847             :       implicit none
     848             : !-----------------------------------------------------------------------
     849             : ! ... dummy args
     850             : !-----------------------------------------------------------------------
     851             :       integer, intent(in) :: avec_len
     852             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     853             : !-----------------------------------------------------------------------
     854             : ! ... local variables
     855             : !-----------------------------------------------------------------------
     856             :       integer :: k
     857   263009123 :       do k = 1,avec_len
     858   254840160 :          lu(k,377) = 1._r8 / lu(k,377)
     859   254840160 :          lu(k,378) = lu(k,378) * lu(k,377)
     860   254840160 :          lu(k,379) = lu(k,379) * lu(k,377)
     861   254840160 :          lu(k,380) = lu(k,380) * lu(k,377)
     862   254840160 :          lu(k,381) = lu(k,381) * lu(k,377)
     863   254840160 :          lu(k,382) = lu(k,382) * lu(k,377)
     864   254840160 :          lu(k,383) = lu(k,383) * lu(k,377)
     865   254840160 :          lu(k,384) = lu(k,384) * lu(k,377)
     866   254840160 :          lu(k,3528) = - lu(k,378) * lu(k,3527)
     867   254840160 :          lu(k,3544) = lu(k,3544) - lu(k,379) * lu(k,3527)
     868   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,380) * lu(k,3527)
     869   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,381) * lu(k,3527)
     870   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,382) * lu(k,3527)
     871   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,383) * lu(k,3527)
     872   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,384) * lu(k,3527)
     873   254840160 :          lu(k,3940) = lu(k,3940) - lu(k,378) * lu(k,3908)
     874   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,379) * lu(k,3908)
     875   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,380) * lu(k,3908)
     876   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,381) * lu(k,3908)
     877   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,382) * lu(k,3908)
     878   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,383) * lu(k,3908)
     879   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,384) * lu(k,3908)
     880   254840160 :          lu(k,385) = 1._r8 / lu(k,385)
     881   254840160 :          lu(k,386) = lu(k,386) * lu(k,385)
     882   254840160 :          lu(k,387) = lu(k,387) * lu(k,385)
     883   254840160 :          lu(k,388) = lu(k,388) * lu(k,385)
     884   254840160 :          lu(k,389) = lu(k,389) * lu(k,385)
     885   254840160 :          lu(k,390) = lu(k,390) * lu(k,385)
     886   254840160 :          lu(k,391) = lu(k,391) * lu(k,385)
     887   254840160 :          lu(k,392) = lu(k,392) * lu(k,385)
     888   254840160 :          lu(k,3144) = - lu(k,386) * lu(k,3143)
     889   254840160 :          lu(k,3149) = - lu(k,387) * lu(k,3143)
     890   254840160 :          lu(k,3152) = lu(k,3152) - lu(k,388) * lu(k,3143)
     891   254840160 :          lu(k,3154) = lu(k,3154) - lu(k,389) * lu(k,3143)
     892   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,390) * lu(k,3143)
     893   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,391) * lu(k,3143)
     894   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,392) * lu(k,3143)
     895   254840160 :          lu(k,3932) = lu(k,3932) - lu(k,386) * lu(k,3909)
     896   254840160 :          lu(k,4002) = lu(k,4002) - lu(k,387) * lu(k,3909)
     897   254840160 :          lu(k,4032) = lu(k,4032) - lu(k,388) * lu(k,3909)
     898   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,389) * lu(k,3909)
     899   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,390) * lu(k,3909)
     900   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,391) * lu(k,3909)
     901   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,392) * lu(k,3909)
     902   254840160 :          lu(k,393) = 1._r8 / lu(k,393)
     903   254840160 :          lu(k,394) = lu(k,394) * lu(k,393)
     904   254840160 :          lu(k,395) = lu(k,395) * lu(k,393)
     905   254840160 :          lu(k,396) = lu(k,396) * lu(k,393)
     906   254840160 :          lu(k,397) = lu(k,397) * lu(k,393)
     907   254840160 :          lu(k,398) = lu(k,398) * lu(k,393)
     908   254840160 :          lu(k,399) = lu(k,399) * lu(k,393)
     909   254840160 :          lu(k,400) = lu(k,400) * lu(k,393)
     910   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,394) * lu(k,3815)
     911   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,395) * lu(k,3815)
     912   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,396) * lu(k,3815)
     913   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,397) * lu(k,3815)
     914   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,398) * lu(k,3815)
     915   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,399) * lu(k,3815)
     916   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,400) * lu(k,3815)
     917   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,394) * lu(k,3910)
     918   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,395) * lu(k,3910)
     919   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,396) * lu(k,3910)
     920   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,397) * lu(k,3910)
     921   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,398) * lu(k,3910)
     922   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,399) * lu(k,3910)
     923   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,400) * lu(k,3910)
     924   254840160 :          lu(k,401) = 1._r8 / lu(k,401)
     925   254840160 :          lu(k,402) = lu(k,402) * lu(k,401)
     926   254840160 :          lu(k,403) = lu(k,403) * lu(k,401)
     927   254840160 :          lu(k,404) = lu(k,404) * lu(k,401)
     928   254840160 :          lu(k,745) = - lu(k,402) * lu(k,739)
     929   254840160 :          lu(k,748) = - lu(k,403) * lu(k,739)
     930   254840160 :          lu(k,749) = lu(k,749) - lu(k,404) * lu(k,739)
     931   254840160 :          lu(k,846) = - lu(k,402) * lu(k,840)
     932   254840160 :          lu(k,849) = lu(k,849) - lu(k,403) * lu(k,840)
     933   254840160 :          lu(k,851) = lu(k,851) - lu(k,404) * lu(k,840)
     934   254840160 :          lu(k,875) = - lu(k,402) * lu(k,869)
     935   254840160 :          lu(k,878) = - lu(k,403) * lu(k,869)
     936   254840160 :          lu(k,880) = lu(k,880) - lu(k,404) * lu(k,869)
     937   254840160 :          lu(k,897) = - lu(k,402) * lu(k,891)
     938   254840160 :          lu(k,900) = lu(k,900) - lu(k,403) * lu(k,891)
     939   254840160 :          lu(k,903) = lu(k,903) - lu(k,404) * lu(k,891)
     940   254840160 :          lu(k,3010) = lu(k,3010) - lu(k,402) * lu(k,2982)
     941   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,403) * lu(k,2982)
     942   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,404) * lu(k,2982)
     943   254840160 :          lu(k,405) = 1._r8 / lu(k,405)
     944   254840160 :          lu(k,406) = lu(k,406) * lu(k,405)
     945   254840160 :          lu(k,407) = lu(k,407) * lu(k,405)
     946   254840160 :          lu(k,408) = lu(k,408) * lu(k,405)
     947   254840160 :          lu(k,409) = lu(k,409) * lu(k,405)
     948   254840160 :          lu(k,410) = lu(k,410) * lu(k,405)
     949   254840160 :          lu(k,1336) = lu(k,1336) - lu(k,406) * lu(k,1335)
     950   254840160 :          lu(k,1340) = lu(k,1340) - lu(k,407) * lu(k,1335)
     951   254840160 :          lu(k,1342) = lu(k,1342) - lu(k,408) * lu(k,1335)
     952   254840160 :          lu(k,1346) = lu(k,1346) - lu(k,409) * lu(k,1335)
     953   254840160 :          lu(k,1347) = - lu(k,410) * lu(k,1335)
     954   254840160 :          lu(k,3290) = lu(k,3290) - lu(k,406) * lu(k,3226)
     955   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,407) * lu(k,3226)
     956   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,408) * lu(k,3226)
     957   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,409) * lu(k,3226)
     958   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,410) * lu(k,3226)
     959   254840160 :          lu(k,4010) = lu(k,4010) - lu(k,406) * lu(k,3911)
     960   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,407) * lu(k,3911)
     961   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,408) * lu(k,3911)
     962   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,409) * lu(k,3911)
     963   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,410) * lu(k,3911)
     964   254840160 :          lu(k,411) = 1._r8 / lu(k,411)
     965   254840160 :          lu(k,412) = lu(k,412) * lu(k,411)
     966   254840160 :          lu(k,413) = lu(k,413) * lu(k,411)
     967   254840160 :          lu(k,414) = lu(k,414) * lu(k,411)
     968   254840160 :          lu(k,415) = lu(k,415) * lu(k,411)
     969   254840160 :          lu(k,416) = lu(k,416) * lu(k,411)
     970   254840160 :          lu(k,1024) = lu(k,1024) - lu(k,412) * lu(k,1023)
     971   254840160 :          lu(k,1026) = lu(k,1026) - lu(k,413) * lu(k,1023)
     972   254840160 :          lu(k,1029) = lu(k,1029) - lu(k,414) * lu(k,1023)
     973   254840160 :          lu(k,1032) = - lu(k,415) * lu(k,1023)
     974   254840160 :          lu(k,1033) = - lu(k,416) * lu(k,1023)
     975   254840160 :          lu(k,3274) = lu(k,3274) - lu(k,412) * lu(k,3227)
     976   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,413) * lu(k,3227)
     977   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,414) * lu(k,3227)
     978   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,415) * lu(k,3227)
     979   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,416) * lu(k,3227)
     980   254840160 :          lu(k,3984) = lu(k,3984) - lu(k,412) * lu(k,3912)
     981   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,413) * lu(k,3912)
     982   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,414) * lu(k,3912)
     983   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,415) * lu(k,3912)
     984   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,416) * lu(k,3912)
     985             :       end do
     986     8168963 :       end subroutine lu_fac08
     987     8168963 :       subroutine lu_fac09( avec_len, lu )
     988             :       use chem_mods, only : nzcnt
     989             :       use shr_kind_mod, only : r8 => shr_kind_r8
     990             :       implicit none
     991             : !-----------------------------------------------------------------------
     992             : ! ... dummy args
     993             : !-----------------------------------------------------------------------
     994             :       integer, intent(in) :: avec_len
     995             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     996             : !-----------------------------------------------------------------------
     997             : ! ... local variables
     998             : !-----------------------------------------------------------------------
     999             :       integer :: k
    1000   263009123 :       do k = 1,avec_len
    1001   254840160 :          lu(k,417) = 1._r8 / lu(k,417)
    1002   254840160 :          lu(k,418) = lu(k,418) * lu(k,417)
    1003   254840160 :          lu(k,419) = lu(k,419) * lu(k,417)
    1004   254840160 :          lu(k,420) = lu(k,420) * lu(k,417)
    1005   254840160 :          lu(k,421) = lu(k,421) * lu(k,417)
    1006   254840160 :          lu(k,422) = lu(k,422) * lu(k,417)
    1007   254840160 :          lu(k,513) = lu(k,513) - lu(k,418) * lu(k,512)
    1008   254840160 :          lu(k,514) = lu(k,514) - lu(k,419) * lu(k,512)
    1009   254840160 :          lu(k,516) = lu(k,516) - lu(k,420) * lu(k,512)
    1010   254840160 :          lu(k,518) = lu(k,518) - lu(k,421) * lu(k,512)
    1011   254840160 :          lu(k,520) = - lu(k,422) * lu(k,512)
    1012   254840160 :          lu(k,3234) = - lu(k,418) * lu(k,3228)
    1013   254840160 :          lu(k,3237) = lu(k,3237) - lu(k,419) * lu(k,3228)
    1014   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,420) * lu(k,3228)
    1015   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,421) * lu(k,3228)
    1016   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,422) * lu(k,3228)
    1017   254840160 :          lu(k,3921) = lu(k,3921) - lu(k,418) * lu(k,3913)
    1018   254840160 :          lu(k,3928) = lu(k,3928) - lu(k,419) * lu(k,3913)
    1019   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,420) * lu(k,3913)
    1020   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,421) * lu(k,3913)
    1021   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,422) * lu(k,3913)
    1022   254840160 :          lu(k,423) = 1._r8 / lu(k,423)
    1023   254840160 :          lu(k,424) = lu(k,424) * lu(k,423)
    1024   254840160 :          lu(k,425) = lu(k,425) * lu(k,423)
    1025   254840160 :          lu(k,426) = lu(k,426) * lu(k,423)
    1026   254840160 :          lu(k,427) = lu(k,427) * lu(k,423)
    1027   254840160 :          lu(k,428) = lu(k,428) * lu(k,423)
    1028   254840160 :          lu(k,2811) = - lu(k,424) * lu(k,2808)
    1029   254840160 :          lu(k,2818) = lu(k,2818) - lu(k,425) * lu(k,2808)
    1030   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,426) * lu(k,2808)
    1031   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,427) * lu(k,2808)
    1032   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,428) * lu(k,2808)
    1033   254840160 :          lu(k,3636) = - lu(k,424) * lu(k,3620)
    1034   254840160 :          lu(k,3644) = - lu(k,425) * lu(k,3620)
    1035   254840160 :          lu(k,3650) = lu(k,3650) - lu(k,426) * lu(k,3620)
    1036   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,427) * lu(k,3620)
    1037   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,428) * lu(k,3620)
    1038   254840160 :          lu(k,4006) = lu(k,4006) - lu(k,424) * lu(k,3914)
    1039   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,425) * lu(k,3914)
    1040   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,426) * lu(k,3914)
    1041   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,427) * lu(k,3914)
    1042   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,428) * lu(k,3914)
    1043   254840160 :          lu(k,429) = 1._r8 / lu(k,429)
    1044   254840160 :          lu(k,430) = lu(k,430) * lu(k,429)
    1045   254840160 :          lu(k,431) = lu(k,431) * lu(k,429)
    1046   254840160 :          lu(k,432) = lu(k,432) * lu(k,429)
    1047   254840160 :          lu(k,433) = lu(k,433) * lu(k,429)
    1048   254840160 :          lu(k,434) = lu(k,434) * lu(k,429)
    1049   254840160 :          lu(k,536) = lu(k,536) - lu(k,430) * lu(k,535)
    1050   254840160 :          lu(k,537) = lu(k,537) - lu(k,431) * lu(k,535)
    1051   254840160 :          lu(k,538) = lu(k,538) - lu(k,432) * lu(k,535)
    1052   254840160 :          lu(k,540) = lu(k,540) - lu(k,433) * lu(k,535)
    1053   254840160 :          lu(k,542) = - lu(k,434) * lu(k,535)
    1054   254840160 :          lu(k,3238) = lu(k,3238) - lu(k,430) * lu(k,3229)
    1055   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,431) * lu(k,3229)
    1056   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,432) * lu(k,3229)
    1057   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,433) * lu(k,3229)
    1058   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,434) * lu(k,3229)
    1059   254840160 :          lu(k,3931) = lu(k,3931) - lu(k,430) * lu(k,3915)
    1060   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,431) * lu(k,3915)
    1061   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,432) * lu(k,3915)
    1062   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,433) * lu(k,3915)
    1063   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,434) * lu(k,3915)
    1064   254840160 :          lu(k,437) = 1._r8 / lu(k,437)
    1065   254840160 :          lu(k,438) = lu(k,438) * lu(k,437)
    1066   254840160 :          lu(k,439) = lu(k,439) * lu(k,437)
    1067   254840160 :          lu(k,440) = lu(k,440) * lu(k,437)
    1068   254840160 :          lu(k,441) = lu(k,441) * lu(k,437)
    1069   254840160 :          lu(k,442) = lu(k,442) * lu(k,437)
    1070   254840160 :          lu(k,2990) = lu(k,2990) - lu(k,438) * lu(k,2983)
    1071   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,439) * lu(k,2983)
    1072   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,440) * lu(k,2983)
    1073   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,441) * lu(k,2983)
    1074   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,442) * lu(k,2983)
    1075   254840160 :          lu(k,3239) = lu(k,3239) - lu(k,438) * lu(k,3230)
    1076   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,439) * lu(k,3230)
    1077   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,440) * lu(k,3230)
    1078   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,441) * lu(k,3230)
    1079   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,442) * lu(k,3230)
    1080   254840160 :          lu(k,3933) = lu(k,3933) - lu(k,438) * lu(k,3916)
    1081   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,439) * lu(k,3916)
    1082   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,440) * lu(k,3916)
    1083   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,441) * lu(k,3916)
    1084   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,442) * lu(k,3916)
    1085   254840160 :          lu(k,443) = 1._r8 / lu(k,443)
    1086   254840160 :          lu(k,444) = lu(k,444) * lu(k,443)
    1087   254840160 :          lu(k,445) = lu(k,445) * lu(k,443)
    1088   254840160 :          lu(k,446) = lu(k,446) * lu(k,443)
    1089   254840160 :          lu(k,447) = lu(k,447) * lu(k,443)
    1090   254840160 :          lu(k,448) = lu(k,448) * lu(k,443)
    1091   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,444) * lu(k,3231)
    1092   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,445) * lu(k,3231)
    1093   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,446) * lu(k,3231)
    1094   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,447) * lu(k,3231)
    1095   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,448) * lu(k,3231)
    1096   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,444) * lu(k,3621)
    1097   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,445) * lu(k,3621)
    1098   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,446) * lu(k,3621)
    1099   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,447) * lu(k,3621)
    1100   254840160 :          lu(k,3668) = - lu(k,448) * lu(k,3621)
    1101   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,444) * lu(k,3917)
    1102   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,445) * lu(k,3917)
    1103   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,446) * lu(k,3917)
    1104   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,447) * lu(k,3917)
    1105   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,448) * lu(k,3917)
    1106   254840160 :          lu(k,449) = 1._r8 / lu(k,449)
    1107   254840160 :          lu(k,450) = lu(k,450) * lu(k,449)
    1108   254840160 :          lu(k,451) = lu(k,451) * lu(k,449)
    1109   254840160 :          lu(k,452) = lu(k,452) * lu(k,449)
    1110   254840160 :          lu(k,453) = lu(k,453) * lu(k,449)
    1111   254840160 :          lu(k,454) = lu(k,454) * lu(k,449)
    1112   254840160 :          lu(k,3363) = lu(k,3363) - lu(k,450) * lu(k,3232)
    1113   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,451) * lu(k,3232)
    1114   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,452) * lu(k,3232)
    1115   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,453) * lu(k,3232)
    1116   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,454) * lu(k,3232)
    1117   254840160 :          lu(k,3456) = - lu(k,450) * lu(k,3382)
    1118   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,451) * lu(k,3382)
    1119   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,452) * lu(k,3382)
    1120   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,453) * lu(k,3382)
    1121   254840160 :          lu(k,3472) = - lu(k,454) * lu(k,3382)
    1122   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,450) * lu(k,3918)
    1123   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,451) * lu(k,3918)
    1124   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,452) * lu(k,3918)
    1125   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,453) * lu(k,3918)
    1126   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,454) * lu(k,3918)
    1127   254840160 :          lu(k,456) = 1._r8 / lu(k,456)
    1128   254840160 :          lu(k,457) = lu(k,457) * lu(k,456)
    1129   254840160 :          lu(k,458) = lu(k,458) * lu(k,456)
    1130   254840160 :          lu(k,459) = lu(k,459) * lu(k,456)
    1131   254840160 :          lu(k,460) = lu(k,460) * lu(k,456)
    1132   254840160 :          lu(k,461) = lu(k,461) * lu(k,456)
    1133   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,457) * lu(k,2984)
    1134   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,458) * lu(k,2984)
    1135   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,459) * lu(k,2984)
    1136   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,460) * lu(k,2984)
    1137   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,461) * lu(k,2984)
    1138   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,457) * lu(k,3233)
    1139   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,458) * lu(k,3233)
    1140   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,459) * lu(k,3233)
    1141   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,460) * lu(k,3233)
    1142   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,461) * lu(k,3233)
    1143   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,457) * lu(k,3919)
    1144   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,458) * lu(k,3919)
    1145   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,459) * lu(k,3919)
    1146   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,460) * lu(k,3919)
    1147   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,461) * lu(k,3919)
    1148             :       end do
    1149     8168963 :       end subroutine lu_fac09
    1150     8168963 :       subroutine lu_fac10( avec_len, lu )
    1151             :       use chem_mods, only : nzcnt
    1152             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1153             :       implicit none
    1154             : !-----------------------------------------------------------------------
    1155             : ! ... dummy args
    1156             : !-----------------------------------------------------------------------
    1157             :       integer, intent(in) :: avec_len
    1158             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1159             : !-----------------------------------------------------------------------
    1160             : ! ... local variables
    1161             : !-----------------------------------------------------------------------
    1162             :       integer :: k
    1163   263009123 :       do k = 1,avec_len
    1164   254840160 :          lu(k,462) = 1._r8 / lu(k,462)
    1165   254840160 :          lu(k,463) = lu(k,463) * lu(k,462)
    1166   254840160 :          lu(k,464) = lu(k,464) * lu(k,462)
    1167   254840160 :          lu(k,465) = lu(k,465) * lu(k,462)
    1168   254840160 :          lu(k,466) = lu(k,466) * lu(k,462)
    1169   254840160 :          lu(k,467) = lu(k,467) * lu(k,462)
    1170   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,463) * lu(k,3787)
    1171   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,464) * lu(k,3787)
    1172   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,465) * lu(k,3787)
    1173   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,466) * lu(k,3787)
    1174   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,467) * lu(k,3787)
    1175   254840160 :          lu(k,3833) = lu(k,3833) - lu(k,463) * lu(k,3816)
    1176   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,464) * lu(k,3816)
    1177   254840160 :          lu(k,3849) = - lu(k,465) * lu(k,3816)
    1178   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,466) * lu(k,3816)
    1179   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,467) * lu(k,3816)
    1180   254840160 :          lu(k,4062) = lu(k,4062) - lu(k,463) * lu(k,3920)
    1181   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,464) * lu(k,3920)
    1182   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,465) * lu(k,3920)
    1183   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,466) * lu(k,3920)
    1184   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,467) * lu(k,3920)
    1185   254840160 :          lu(k,468) = 1._r8 / lu(k,468)
    1186   254840160 :          lu(k,469) = lu(k,469) * lu(k,468)
    1187   254840160 :          lu(k,470) = lu(k,470) * lu(k,468)
    1188   254840160 :          lu(k,515) = - lu(k,469) * lu(k,513)
    1189   254840160 :          lu(k,518) = lu(k,518) - lu(k,470) * lu(k,513)
    1190   254840160 :          lu(k,742) = - lu(k,469) * lu(k,740)
    1191   254840160 :          lu(k,749) = lu(k,749) - lu(k,470) * lu(k,740)
    1192   254840160 :          lu(k,843) = - lu(k,469) * lu(k,841)
    1193   254840160 :          lu(k,851) = lu(k,851) - lu(k,470) * lu(k,841)
    1194   254840160 :          lu(k,872) = - lu(k,469) * lu(k,870)
    1195   254840160 :          lu(k,880) = lu(k,880) - lu(k,470) * lu(k,870)
    1196   254840160 :          lu(k,894) = - lu(k,469) * lu(k,892)
    1197   254840160 :          lu(k,903) = lu(k,903) - lu(k,470) * lu(k,892)
    1198   254840160 :          lu(k,3004) = lu(k,3004) - lu(k,469) * lu(k,2985)
    1199   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,470) * lu(k,2985)
    1200   254840160 :          lu(k,3259) = lu(k,3259) - lu(k,469) * lu(k,3234)
    1201   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,470) * lu(k,3234)
    1202   254840160 :          lu(k,3967) = - lu(k,469) * lu(k,3921)
    1203   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,470) * lu(k,3921)
    1204   254840160 :          lu(k,471) = 1._r8 / lu(k,471)
    1205   254840160 :          lu(k,472) = lu(k,472) * lu(k,471)
    1206   254840160 :          lu(k,473) = lu(k,473) * lu(k,471)
    1207   254840160 :          lu(k,474) = lu(k,474) * lu(k,471)
    1208   254840160 :          lu(k,475) = lu(k,475) * lu(k,471)
    1209   254840160 :          lu(k,2401) = - lu(k,472) * lu(k,2400)
    1210   254840160 :          lu(k,2409) = lu(k,2409) - lu(k,473) * lu(k,2400)
    1211   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,474) * lu(k,2400)
    1212   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,475) * lu(k,2400)
    1213   254840160 :          lu(k,2461) = - lu(k,472) * lu(k,2460)
    1214   254840160 :          lu(k,2472) = lu(k,2472) - lu(k,473) * lu(k,2460)
    1215   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,474) * lu(k,2460)
    1216   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,475) * lu(k,2460)
    1217   254840160 :          lu(k,3272) = lu(k,3272) - lu(k,472) * lu(k,3235)
    1218   254840160 :          lu(k,3354) = lu(k,3354) - lu(k,473) * lu(k,3235)
    1219   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,474) * lu(k,3235)
    1220   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,475) * lu(k,3235)
    1221   254840160 :          lu(k,3982) = lu(k,3982) - lu(k,472) * lu(k,3922)
    1222   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,473) * lu(k,3922)
    1223   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,474) * lu(k,3922)
    1224   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,475) * lu(k,3922)
    1225   254840160 :          lu(k,477) = 1._r8 / lu(k,477)
    1226   254840160 :          lu(k,478) = lu(k,478) * lu(k,477)
    1227   254840160 :          lu(k,479) = lu(k,479) * lu(k,477)
    1228   254840160 :          lu(k,480) = lu(k,480) * lu(k,477)
    1229   254840160 :          lu(k,481) = lu(k,481) * lu(k,477)
    1230   254840160 :          lu(k,482) = lu(k,482) * lu(k,477)
    1231   254840160 :          lu(k,483) = lu(k,483) * lu(k,477)
    1232   254840160 :          lu(k,3104) = - lu(k,478) * lu(k,2986)
    1233   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,479) * lu(k,2986)
    1234   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,480) * lu(k,2986)
    1235   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,481) * lu(k,2986)
    1236   254840160 :          lu(k,3117) = - lu(k,482) * lu(k,2986)
    1237   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,483) * lu(k,2986)
    1238   254840160 :          lu(k,3652) = - lu(k,478) * lu(k,3622)
    1239   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,479) * lu(k,3622)
    1240   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,480) * lu(k,3622)
    1241   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,481) * lu(k,3622)
    1242   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,482) * lu(k,3622)
    1243   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,483) * lu(k,3622)
    1244   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,478) * lu(k,3923)
    1245   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,479) * lu(k,3923)
    1246   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,480) * lu(k,3923)
    1247   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,481) * lu(k,3923)
    1248   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,482) * lu(k,3923)
    1249   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,483) * lu(k,3923)
    1250   254840160 :          lu(k,484) = 1._r8 / lu(k,484)
    1251   254840160 :          lu(k,485) = lu(k,485) * lu(k,484)
    1252   254840160 :          lu(k,486) = lu(k,486) * lu(k,484)
    1253   254840160 :          lu(k,487) = lu(k,487) * lu(k,484)
    1254   254840160 :          lu(k,711) = lu(k,711) - lu(k,485) * lu(k,710)
    1255   254840160 :          lu(k,714) = lu(k,714) - lu(k,486) * lu(k,710)
    1256   254840160 :          lu(k,715) = - lu(k,487) * lu(k,710)
    1257   254840160 :          lu(k,2997) = lu(k,2997) - lu(k,485) * lu(k,2987)
    1258   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,486) * lu(k,2987)
    1259   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,487) * lu(k,2987)
    1260   254840160 :          lu(k,3246) = lu(k,3246) - lu(k,485) * lu(k,3236)
    1261   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,486) * lu(k,3236)
    1262   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,487) * lu(k,3236)
    1263   254840160 :          lu(k,3630) = - lu(k,485) * lu(k,3623)
    1264   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,486) * lu(k,3623)
    1265   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,487) * lu(k,3623)
    1266   254840160 :          lu(k,3678) = lu(k,3678) - lu(k,485) * lu(k,3675)
    1267   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,486) * lu(k,3675)
    1268   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,487) * lu(k,3675)
    1269   254840160 :          lu(k,3951) = lu(k,3951) - lu(k,485) * lu(k,3924)
    1270   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,486) * lu(k,3924)
    1271   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,487) * lu(k,3924)
    1272   254840160 :          lu(k,488) = 1._r8 / lu(k,488)
    1273   254840160 :          lu(k,489) = lu(k,489) * lu(k,488)
    1274   254840160 :          lu(k,490) = lu(k,490) * lu(k,488)
    1275   254840160 :          lu(k,491) = lu(k,491) * lu(k,488)
    1276   254840160 :          lu(k,492) = lu(k,492) * lu(k,488)
    1277   254840160 :          lu(k,493) = lu(k,493) * lu(k,488)
    1278   254840160 :          lu(k,494) = lu(k,494) * lu(k,488)
    1279   254840160 :          lu(k,1838) = - lu(k,489) * lu(k,1835)
    1280   254840160 :          lu(k,1843) = lu(k,1843) - lu(k,490) * lu(k,1835)
    1281   254840160 :          lu(k,1854) = - lu(k,491) * lu(k,1835)
    1282   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,492) * lu(k,1835)
    1283   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,493) * lu(k,1835)
    1284   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,494) * lu(k,1835)
    1285   254840160 :          lu(k,1886) = - lu(k,489) * lu(k,1883)
    1286   254840160 :          lu(k,1889) = - lu(k,490) * lu(k,1883)
    1287   254840160 :          lu(k,1902) = lu(k,1902) - lu(k,491) * lu(k,1883)
    1288   254840160 :          lu(k,1903) = - lu(k,492) * lu(k,1883)
    1289   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,493) * lu(k,1883)
    1290   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,494) * lu(k,1883)
    1291   254840160 :          lu(k,3972) = lu(k,3972) - lu(k,489) * lu(k,3925)
    1292   254840160 :          lu(k,4025) = lu(k,4025) - lu(k,490) * lu(k,3925)
    1293   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,491) * lu(k,3925)
    1294   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,492) * lu(k,3925)
    1295   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,493) * lu(k,3925)
    1296   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,494) * lu(k,3925)
    1297             :       end do
    1298     8168963 :       end subroutine lu_fac10
    1299     8168963 :       subroutine lu_fac11( avec_len, lu )
    1300             :       use chem_mods, only : nzcnt
    1301             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1302             :       implicit none
    1303             : !-----------------------------------------------------------------------
    1304             : ! ... dummy args
    1305             : !-----------------------------------------------------------------------
    1306             :       integer, intent(in) :: avec_len
    1307             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1308             : !-----------------------------------------------------------------------
    1309             : ! ... local variables
    1310             : !-----------------------------------------------------------------------
    1311             :       integer :: k
    1312   263009123 :       do k = 1,avec_len
    1313   254840160 :          lu(k,495) = 1._r8 / lu(k,495)
    1314   254840160 :          lu(k,496) = lu(k,496) * lu(k,495)
    1315   254840160 :          lu(k,497) = lu(k,497) * lu(k,495)
    1316   254840160 :          lu(k,498) = lu(k,498) * lu(k,495)
    1317   254840160 :          lu(k,499) = lu(k,499) * lu(k,495)
    1318   254840160 :          lu(k,500) = lu(k,500) * lu(k,495)
    1319   254840160 :          lu(k,501) = lu(k,501) * lu(k,495)
    1320   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,496) * lu(k,3788)
    1321   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,497) * lu(k,3788)
    1322   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,498) * lu(k,3788)
    1323   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,499) * lu(k,3788)
    1324   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,500) * lu(k,3788)
    1325   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,501) * lu(k,3788)
    1326   254840160 :          lu(k,3833) = lu(k,3833) - lu(k,496) * lu(k,3817)
    1327   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,497) * lu(k,3817)
    1328   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,498) * lu(k,3817)
    1329   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,499) * lu(k,3817)
    1330   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,500) * lu(k,3817)
    1331   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,501) * lu(k,3817)
    1332   254840160 :          lu(k,4062) = lu(k,4062) - lu(k,496) * lu(k,3926)
    1333   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,497) * lu(k,3926)
    1334   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,498) * lu(k,3926)
    1335   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,499) * lu(k,3926)
    1336   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,500) * lu(k,3926)
    1337   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,501) * lu(k,3926)
    1338   254840160 :          lu(k,502) = 1._r8 / lu(k,502)
    1339   254840160 :          lu(k,503) = lu(k,503) * lu(k,502)
    1340   254840160 :          lu(k,504) = lu(k,504) * lu(k,502)
    1341   254840160 :          lu(k,505) = lu(k,505) * lu(k,502)
    1342   254840160 :          lu(k,506) = lu(k,506) * lu(k,502)
    1343   254840160 :          lu(k,507) = lu(k,507) * lu(k,502)
    1344   254840160 :          lu(k,508) = lu(k,508) * lu(k,502)
    1345   254840160 :          lu(k,509) = lu(k,509) * lu(k,502)
    1346   254840160 :          lu(k,510) = lu(k,510) * lu(k,502)
    1347   254840160 :          lu(k,511) = lu(k,511) * lu(k,502)
    1348   254840160 :          lu(k,1193) = - lu(k,503) * lu(k,1192)
    1349   254840160 :          lu(k,1196) = - lu(k,504) * lu(k,1192)
    1350   254840160 :          lu(k,1197) = - lu(k,505) * lu(k,1192)
    1351   254840160 :          lu(k,1199) = - lu(k,506) * lu(k,1192)
    1352   254840160 :          lu(k,1205) = - lu(k,507) * lu(k,1192)
    1353   254840160 :          lu(k,1206) = lu(k,1206) - lu(k,508) * lu(k,1192)
    1354   254840160 :          lu(k,1207) = - lu(k,509) * lu(k,1192)
    1355   254840160 :          lu(k,1208) = lu(k,1208) - lu(k,510) * lu(k,1192)
    1356   254840160 :          lu(k,1209) = lu(k,1209) - lu(k,511) * lu(k,1192)
    1357   254840160 :          lu(k,3972) = lu(k,3972) - lu(k,503) * lu(k,3927)
    1358   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,504) * lu(k,3927)
    1359   254840160 :          lu(k,4035) = lu(k,4035) - lu(k,505) * lu(k,3927)
    1360   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,506) * lu(k,3927)
    1361   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,507) * lu(k,3927)
    1362   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,508) * lu(k,3927)
    1363   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,509) * lu(k,3927)
    1364   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,510) * lu(k,3927)
    1365   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,511) * lu(k,3927)
    1366   254840160 :          lu(k,514) = 1._r8 / lu(k,514)
    1367   254840160 :          lu(k,515) = lu(k,515) * lu(k,514)
    1368   254840160 :          lu(k,516) = lu(k,516) * lu(k,514)
    1369   254840160 :          lu(k,517) = lu(k,517) * lu(k,514)
    1370   254840160 :          lu(k,518) = lu(k,518) * lu(k,514)
    1371   254840160 :          lu(k,519) = lu(k,519) * lu(k,514)
    1372   254840160 :          lu(k,520) = lu(k,520) * lu(k,514)
    1373   254840160 :          lu(k,3004) = lu(k,3004) - lu(k,515) * lu(k,2988)
    1374   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,516) * lu(k,2988)
    1375   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,517) * lu(k,2988)
    1376   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,518) * lu(k,2988)
    1377   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,519) * lu(k,2988)
    1378   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,520) * lu(k,2988)
    1379   254840160 :          lu(k,3259) = lu(k,3259) - lu(k,515) * lu(k,3237)
    1380   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,516) * lu(k,3237)
    1381   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,517) * lu(k,3237)
    1382   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,518) * lu(k,3237)
    1383   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,519) * lu(k,3237)
    1384   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,520) * lu(k,3237)
    1385   254840160 :          lu(k,3967) = lu(k,3967) - lu(k,515) * lu(k,3928)
    1386   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,516) * lu(k,3928)
    1387   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,517) * lu(k,3928)
    1388   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,518) * lu(k,3928)
    1389   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,519) * lu(k,3928)
    1390   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,520) * lu(k,3928)
    1391   254840160 :          lu(k,521) = 1._r8 / lu(k,521)
    1392   254840160 :          lu(k,522) = lu(k,522) * lu(k,521)
    1393   254840160 :          lu(k,523) = lu(k,523) * lu(k,521)
    1394   254840160 :          lu(k,524) = lu(k,524) * lu(k,521)
    1395   254840160 :          lu(k,525) = lu(k,525) * lu(k,521)
    1396   254840160 :          lu(k,526) = lu(k,526) * lu(k,521)
    1397   254840160 :          lu(k,527) = lu(k,527) * lu(k,521)
    1398   254840160 :          lu(k,1807) = - lu(k,522) * lu(k,1804)
    1399   254840160 :          lu(k,1810) = lu(k,1810) - lu(k,523) * lu(k,1804)
    1400   254840160 :          lu(k,1822) = - lu(k,524) * lu(k,1804)
    1401   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,525) * lu(k,1804)
    1402   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,526) * lu(k,1804)
    1403   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,527) * lu(k,1804)
    1404   254840160 :          lu(k,1886) = lu(k,1886) - lu(k,522) * lu(k,1884)
    1405   254840160 :          lu(k,1887) = - lu(k,523) * lu(k,1884)
    1406   254840160 :          lu(k,1901) = lu(k,1901) - lu(k,524) * lu(k,1884)
    1407   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,525) * lu(k,1884)
    1408   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,526) * lu(k,1884)
    1409   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,527) * lu(k,1884)
    1410   254840160 :          lu(k,3972) = lu(k,3972) - lu(k,522) * lu(k,3929)
    1411   254840160 :          lu(k,4019) = lu(k,4019) - lu(k,523) * lu(k,3929)
    1412   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,524) * lu(k,3929)
    1413   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,525) * lu(k,3929)
    1414   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,526) * lu(k,3929)
    1415   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,527) * lu(k,3929)
    1416   254840160 :          lu(k,528) = 1._r8 / lu(k,528)
    1417   254840160 :          lu(k,529) = lu(k,529) * lu(k,528)
    1418   254840160 :          lu(k,530) = lu(k,530) * lu(k,528)
    1419   254840160 :          lu(k,531) = lu(k,531) * lu(k,528)
    1420   254840160 :          lu(k,532) = lu(k,532) * lu(k,528)
    1421   254840160 :          lu(k,533) = lu(k,533) * lu(k,528)
    1422   254840160 :          lu(k,534) = lu(k,534) * lu(k,528)
    1423   254840160 :          lu(k,1620) = lu(k,1620) - lu(k,529) * lu(k,1616)
    1424   254840160 :          lu(k,1621) = - lu(k,530) * lu(k,1616)
    1425   254840160 :          lu(k,1622) = lu(k,1622) - lu(k,531) * lu(k,1616)
    1426   254840160 :          lu(k,1629) = lu(k,1629) - lu(k,532) * lu(k,1616)
    1427   254840160 :          lu(k,1630) = lu(k,1630) - lu(k,533) * lu(k,1616)
    1428   254840160 :          lu(k,1632) = lu(k,1632) - lu(k,534) * lu(k,1616)
    1429   254840160 :          lu(k,3641) = lu(k,3641) - lu(k,529) * lu(k,3624)
    1430   254840160 :          lu(k,3642) = - lu(k,530) * lu(k,3624)
    1431   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,531) * lu(k,3624)
    1432   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,532) * lu(k,3624)
    1433   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,533) * lu(k,3624)
    1434   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,534) * lu(k,3624)
    1435   254840160 :          lu(k,4034) = lu(k,4034) - lu(k,529) * lu(k,3930)
    1436   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,530) * lu(k,3930)
    1437   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,531) * lu(k,3930)
    1438   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,532) * lu(k,3930)
    1439   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,533) * lu(k,3930)
    1440   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,534) * lu(k,3930)
    1441   254840160 :          lu(k,536) = 1._r8 / lu(k,536)
    1442   254840160 :          lu(k,537) = lu(k,537) * lu(k,536)
    1443   254840160 :          lu(k,538) = lu(k,538) * lu(k,536)
    1444   254840160 :          lu(k,539) = lu(k,539) * lu(k,536)
    1445   254840160 :          lu(k,540) = lu(k,540) * lu(k,536)
    1446   254840160 :          lu(k,541) = lu(k,541) * lu(k,536)
    1447   254840160 :          lu(k,542) = lu(k,542) * lu(k,536)
    1448   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,537) * lu(k,2989)
    1449   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,538) * lu(k,2989)
    1450   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,539) * lu(k,2989)
    1451   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,540) * lu(k,2989)
    1452   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,541) * lu(k,2989)
    1453   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,542) * lu(k,2989)
    1454   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,537) * lu(k,3238)
    1455   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,538) * lu(k,3238)
    1456   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,539) * lu(k,3238)
    1457   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,540) * lu(k,3238)
    1458   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,541) * lu(k,3238)
    1459   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,542) * lu(k,3238)
    1460   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,537) * lu(k,3931)
    1461   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,538) * lu(k,3931)
    1462   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,539) * lu(k,3931)
    1463   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,540) * lu(k,3931)
    1464   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,541) * lu(k,3931)
    1465   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,542) * lu(k,3931)
    1466             :       end do
    1467     8168963 :       end subroutine lu_fac11
    1468     8168963 :       subroutine lu_fac12( avec_len, lu )
    1469             :       use chem_mods, only : nzcnt
    1470             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1471             :       implicit none
    1472             : !-----------------------------------------------------------------------
    1473             : ! ... dummy args
    1474             : !-----------------------------------------------------------------------
    1475             :       integer, intent(in) :: avec_len
    1476             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1477             : !-----------------------------------------------------------------------
    1478             : ! ... local variables
    1479             : !-----------------------------------------------------------------------
    1480             :       integer :: k
    1481   263009123 :       do k = 1,avec_len
    1482   254840160 :          lu(k,543) = 1._r8 / lu(k,543)
    1483   254840160 :          lu(k,544) = lu(k,544) * lu(k,543)
    1484   254840160 :          lu(k,545) = lu(k,545) * lu(k,543)
    1485   254840160 :          lu(k,546) = lu(k,546) * lu(k,543)
    1486   254840160 :          lu(k,547) = lu(k,547) * lu(k,543)
    1487   254840160 :          lu(k,548) = lu(k,548) * lu(k,543)
    1488   254840160 :          lu(k,1600) = lu(k,1600) - lu(k,544) * lu(k,1598)
    1489   254840160 :          lu(k,1602) = lu(k,1602) - lu(k,545) * lu(k,1598)
    1490   254840160 :          lu(k,1604) = lu(k,1604) - lu(k,546) * lu(k,1598)
    1491   254840160 :          lu(k,1609) = lu(k,1609) - lu(k,547) * lu(k,1598)
    1492   254840160 :          lu(k,1611) = lu(k,1611) - lu(k,548) * lu(k,1598)
    1493   254840160 :          lu(k,3152) = lu(k,3152) - lu(k,544) * lu(k,3144)
    1494   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,545) * lu(k,3144)
    1495   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,546) * lu(k,3144)
    1496   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,547) * lu(k,3144)
    1497   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,548) * lu(k,3144)
    1498   254840160 :          lu(k,3705) = lu(k,3705) - lu(k,544) * lu(k,3676)
    1499   254840160 :          lu(k,3754) = lu(k,3754) - lu(k,545) * lu(k,3676)
    1500   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,546) * lu(k,3676)
    1501   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,547) * lu(k,3676)
    1502   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,548) * lu(k,3676)
    1503   254840160 :          lu(k,4032) = lu(k,4032) - lu(k,544) * lu(k,3932)
    1504   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,545) * lu(k,3932)
    1505   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,546) * lu(k,3932)
    1506   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,547) * lu(k,3932)
    1507   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,548) * lu(k,3932)
    1508   254840160 :          lu(k,550) = 1._r8 / lu(k,550)
    1509   254840160 :          lu(k,551) = lu(k,551) * lu(k,550)
    1510   254840160 :          lu(k,552) = lu(k,552) * lu(k,550)
    1511   254840160 :          lu(k,553) = lu(k,553) * lu(k,550)
    1512   254840160 :          lu(k,554) = lu(k,554) * lu(k,550)
    1513   254840160 :          lu(k,555) = lu(k,555) * lu(k,550)
    1514   254840160 :          lu(k,2997) = lu(k,2997) - lu(k,551) * lu(k,2990)
    1515   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,552) * lu(k,2990)
    1516   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,553) * lu(k,2990)
    1517   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,554) * lu(k,2990)
    1518   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,555) * lu(k,2990)
    1519   254840160 :          lu(k,3246) = lu(k,3246) - lu(k,551) * lu(k,3239)
    1520   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,552) * lu(k,3239)
    1521   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,553) * lu(k,3239)
    1522   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,554) * lu(k,3239)
    1523   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,555) * lu(k,3239)
    1524   254840160 :          lu(k,3630) = lu(k,3630) - lu(k,551) * lu(k,3625)
    1525   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,552) * lu(k,3625)
    1526   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,553) * lu(k,3625)
    1527   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,554) * lu(k,3625)
    1528   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,555) * lu(k,3625)
    1529   254840160 :          lu(k,3951) = lu(k,3951) - lu(k,551) * lu(k,3933)
    1530   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,552) * lu(k,3933)
    1531   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,553) * lu(k,3933)
    1532   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,554) * lu(k,3933)
    1533   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,555) * lu(k,3933)
    1534   254840160 :          lu(k,556) = 1._r8 / lu(k,556)
    1535   254840160 :          lu(k,557) = lu(k,557) * lu(k,556)
    1536   254840160 :          lu(k,558) = lu(k,558) * lu(k,556)
    1537   254840160 :          lu(k,559) = lu(k,559) * lu(k,556)
    1538   254840160 :          lu(k,560) = lu(k,560) * lu(k,556)
    1539   254840160 :          lu(k,719) = - lu(k,557) * lu(k,717)
    1540   254840160 :          lu(k,721) = - lu(k,558) * lu(k,717)
    1541   254840160 :          lu(k,724) = - lu(k,559) * lu(k,717)
    1542   254840160 :          lu(k,727) = lu(k,727) - lu(k,560) * lu(k,717)
    1543   254840160 :          lu(k,753) = - lu(k,557) * lu(k,751)
    1544   254840160 :          lu(k,754) = - lu(k,558) * lu(k,751)
    1545   254840160 :          lu(k,757) = - lu(k,559) * lu(k,751)
    1546   254840160 :          lu(k,761) = lu(k,761) - lu(k,560) * lu(k,751)
    1547   254840160 :          lu(k,1181) = - lu(k,557) * lu(k,1178)
    1548   254840160 :          lu(k,1183) = - lu(k,558) * lu(k,1178)
    1549   254840160 :          lu(k,1186) = - lu(k,559) * lu(k,1178)
    1550   254840160 :          lu(k,1191) = - lu(k,560) * lu(k,1178)
    1551   254840160 :          lu(k,2999) = lu(k,2999) - lu(k,557) * lu(k,2991)
    1552   254840160 :          lu(k,3034) = lu(k,3034) - lu(k,558) * lu(k,2991)
    1553   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,559) * lu(k,2991)
    1554   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,560) * lu(k,2991)
    1555   254840160 :          lu(k,3956) = lu(k,3956) - lu(k,557) * lu(k,3934)
    1556   254840160 :          lu(k,4011) = lu(k,4011) - lu(k,558) * lu(k,3934)
    1557   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,559) * lu(k,3934)
    1558   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,560) * lu(k,3934)
    1559   254840160 :          lu(k,561) = 1._r8 / lu(k,561)
    1560   254840160 :          lu(k,562) = lu(k,562) * lu(k,561)
    1561   254840160 :          lu(k,563) = lu(k,563) * lu(k,561)
    1562   254840160 :          lu(k,564) = lu(k,564) * lu(k,561)
    1563   254840160 :          lu(k,565) = lu(k,565) * lu(k,561)
    1564   254840160 :          lu(k,566) = lu(k,566) * lu(k,561)
    1565   254840160 :          lu(k,567) = lu(k,567) * lu(k,561)
    1566   254840160 :          lu(k,568) = lu(k,568) * lu(k,561)
    1567   254840160 :          lu(k,3146) = lu(k,3146) - lu(k,562) * lu(k,3145)
    1568   254840160 :          lu(k,3155) = lu(k,3155) - lu(k,563) * lu(k,3145)
    1569   254840160 :          lu(k,3158) = - lu(k,564) * lu(k,3145)
    1570   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,565) * lu(k,3145)
    1571   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,566) * lu(k,3145)
    1572   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,567) * lu(k,3145)
    1573   254840160 :          lu(k,3168) = lu(k,3168) - lu(k,568) * lu(k,3145)
    1574   254840160 :          lu(k,3476) = lu(k,3476) - lu(k,562) * lu(k,3475)
    1575   254840160 :          lu(k,3479) = lu(k,3479) - lu(k,563) * lu(k,3475)
    1576   254840160 :          lu(k,3481) = - lu(k,564) * lu(k,3475)
    1577   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,565) * lu(k,3475)
    1578   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,566) * lu(k,3475)
    1579   254840160 :          lu(k,3490) = - lu(k,567) * lu(k,3475)
    1580   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,568) * lu(k,3475)
    1581   254840160 :          lu(k,3634) = - lu(k,562) * lu(k,3626)
    1582   254840160 :          lu(k,3645) = - lu(k,563) * lu(k,3626)
    1583   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,564) * lu(k,3626)
    1584   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,565) * lu(k,3626)
    1585   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,566) * lu(k,3626)
    1586   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,567) * lu(k,3626)
    1587   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,568) * lu(k,3626)
    1588   254840160 :          lu(k,569) = 1._r8 / lu(k,569)
    1589   254840160 :          lu(k,570) = lu(k,570) * lu(k,569)
    1590   254840160 :          lu(k,571) = lu(k,571) * lu(k,569)
    1591   254840160 :          lu(k,572) = lu(k,572) * lu(k,569)
    1592   254840160 :          lu(k,573) = lu(k,573) * lu(k,569)
    1593   254840160 :          lu(k,574) = lu(k,574) * lu(k,569)
    1594   254840160 :          lu(k,575) = lu(k,575) * lu(k,569)
    1595   254840160 :          lu(k,576) = lu(k,576) * lu(k,569)
    1596   254840160 :          lu(k,2865) = lu(k,2865) - lu(k,570) * lu(k,2855)
    1597   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,571) * lu(k,2855)
    1598   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,572) * lu(k,2855)
    1599   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,573) * lu(k,2855)
    1600   254840160 :          lu(k,2922) = - lu(k,574) * lu(k,2855)
    1601   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,575) * lu(k,2855)
    1602   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,576) * lu(k,2855)
    1603   254840160 :          lu(k,3640) = - lu(k,570) * lu(k,3627)
    1604   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,571) * lu(k,3627)
    1605   254840160 :          lu(k,3657) = - lu(k,572) * lu(k,3627)
    1606   254840160 :          lu(k,3659) = - lu(k,573) * lu(k,3627)
    1607   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,574) * lu(k,3627)
    1608   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,575) * lu(k,3627)
    1609   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,576) * lu(k,3627)
    1610   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,570) * lu(k,3935)
    1611   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,571) * lu(k,3935)
    1612   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,572) * lu(k,3935)
    1613   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,573) * lu(k,3935)
    1614   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,574) * lu(k,3935)
    1615   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,575) * lu(k,3935)
    1616   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,576) * lu(k,3935)
    1617             :       end do
    1618     8168963 :       end subroutine lu_fac12
    1619     8168963 :       subroutine lu_fac13( avec_len, lu )
    1620             :       use chem_mods, only : nzcnt
    1621             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1622             :       implicit none
    1623             : !-----------------------------------------------------------------------
    1624             : ! ... dummy args
    1625             : !-----------------------------------------------------------------------
    1626             :       integer, intent(in) :: avec_len
    1627             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1628             : !-----------------------------------------------------------------------
    1629             : ! ... local variables
    1630             : !-----------------------------------------------------------------------
    1631             :       integer :: k
    1632   263009123 :       do k = 1,avec_len
    1633   254840160 :          lu(k,577) = 1._r8 / lu(k,577)
    1634   254840160 :          lu(k,578) = lu(k,578) * lu(k,577)
    1635   254840160 :          lu(k,579) = lu(k,579) * lu(k,577)
    1636   254840160 :          lu(k,580) = lu(k,580) * lu(k,577)
    1637   254840160 :          lu(k,581) = lu(k,581) * lu(k,577)
    1638   254840160 :          lu(k,582) = lu(k,582) * lu(k,577)
    1639   254840160 :          lu(k,583) = lu(k,583) * lu(k,577)
    1640   254840160 :          lu(k,584) = lu(k,584) * lu(k,577)
    1641   254840160 :          lu(k,939) = lu(k,939) - lu(k,578) * lu(k,938)
    1642   254840160 :          lu(k,940) = lu(k,940) - lu(k,579) * lu(k,938)
    1643   254840160 :          lu(k,941) = - lu(k,580) * lu(k,938)
    1644   254840160 :          lu(k,943) = lu(k,943) - lu(k,581) * lu(k,938)
    1645   254840160 :          lu(k,944) = lu(k,944) - lu(k,582) * lu(k,938)
    1646   254840160 :          lu(k,946) = - lu(k,583) * lu(k,938)
    1647   254840160 :          lu(k,947) = - lu(k,584) * lu(k,938)
    1648   254840160 :          lu(k,3266) = lu(k,3266) - lu(k,578) * lu(k,3240)
    1649   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,579) * lu(k,3240)
    1650   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,580) * lu(k,3240)
    1651   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,581) * lu(k,3240)
    1652   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,582) * lu(k,3240)
    1653   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,583) * lu(k,3240)
    1654   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,584) * lu(k,3240)
    1655   254840160 :          lu(k,3976) = lu(k,3976) - lu(k,578) * lu(k,3936)
    1656   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,579) * lu(k,3936)
    1657   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,580) * lu(k,3936)
    1658   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,581) * lu(k,3936)
    1659   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,582) * lu(k,3936)
    1660   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,583) * lu(k,3936)
    1661   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,584) * lu(k,3936)
    1662   254840160 :          lu(k,585) = 1._r8 / lu(k,585)
    1663   254840160 :          lu(k,586) = lu(k,586) * lu(k,585)
    1664   254840160 :          lu(k,587) = lu(k,587) * lu(k,585)
    1665   254840160 :          lu(k,588) = lu(k,588) * lu(k,585)
    1666   254840160 :          lu(k,589) = lu(k,589) * lu(k,585)
    1667   254840160 :          lu(k,590) = lu(k,590) * lu(k,585)
    1668   254840160 :          lu(k,591) = lu(k,591) * lu(k,585)
    1669   254840160 :          lu(k,592) = lu(k,592) * lu(k,585)
    1670   254840160 :          lu(k,3682) = - lu(k,586) * lu(k,3677)
    1671   254840160 :          lu(k,3695) = lu(k,3695) - lu(k,587) * lu(k,3677)
    1672   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,588) * lu(k,3677)
    1673   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,589) * lu(k,3677)
    1674   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,590) * lu(k,3677)
    1675   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,591) * lu(k,3677)
    1676   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,592) * lu(k,3677)
    1677   254840160 :          lu(k,3820) = - lu(k,586) * lu(k,3818)
    1678   254840160 :          lu(k,3824) = lu(k,3824) - lu(k,587) * lu(k,3818)
    1679   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,588) * lu(k,3818)
    1680   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,589) * lu(k,3818)
    1681   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,590) * lu(k,3818)
    1682   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,591) * lu(k,3818)
    1683   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,592) * lu(k,3818)
    1684   254840160 :          lu(k,3966) = lu(k,3966) - lu(k,586) * lu(k,3937)
    1685   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,587) * lu(k,3937)
    1686   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,588) * lu(k,3937)
    1687   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,589) * lu(k,3937)
    1688   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,590) * lu(k,3937)
    1689   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,591) * lu(k,3937)
    1690   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,592) * lu(k,3937)
    1691   254840160 :          lu(k,593) = 1._r8 / lu(k,593)
    1692   254840160 :          lu(k,594) = lu(k,594) * lu(k,593)
    1693   254840160 :          lu(k,595) = lu(k,595) * lu(k,593)
    1694   254840160 :          lu(k,596) = lu(k,596) * lu(k,593)
    1695   254840160 :          lu(k,597) = lu(k,597) * lu(k,593)
    1696   254840160 :          lu(k,598) = lu(k,598) * lu(k,593)
    1697   254840160 :          lu(k,599) = lu(k,599) * lu(k,593)
    1698   254840160 :          lu(k,600) = lu(k,600) * lu(k,593)
    1699   254840160 :          lu(k,1974) = - lu(k,594) * lu(k,1972)
    1700   254840160 :          lu(k,1977) = - lu(k,595) * lu(k,1972)
    1701   254840160 :          lu(k,1992) = lu(k,1992) - lu(k,596) * lu(k,1972)
    1702   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,597) * lu(k,1972)
    1703   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,598) * lu(k,1972)
    1704   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,599) * lu(k,1972)
    1705   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,600) * lu(k,1972)
    1706   254840160 :          lu(k,3020) = lu(k,3020) - lu(k,594) * lu(k,2992)
    1707   254840160 :          lu(k,3047) = - lu(k,595) * lu(k,2992)
    1708   254840160 :          lu(k,3072) = lu(k,3072) - lu(k,596) * lu(k,2992)
    1709   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,597) * lu(k,2992)
    1710   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,598) * lu(k,2992)
    1711   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,599) * lu(k,2992)
    1712   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,600) * lu(k,2992)
    1713   254840160 :          lu(k,3986) = lu(k,3986) - lu(k,594) * lu(k,3938)
    1714   254840160 :          lu(k,4027) = lu(k,4027) - lu(k,595) * lu(k,3938)
    1715   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,596) * lu(k,3938)
    1716   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,597) * lu(k,3938)
    1717   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,598) * lu(k,3938)
    1718   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,599) * lu(k,3938)
    1719   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,600) * lu(k,3938)
    1720   254840160 :          lu(k,601) = 1._r8 / lu(k,601)
    1721   254840160 :          lu(k,602) = lu(k,602) * lu(k,601)
    1722   254840160 :          lu(k,603) = lu(k,603) * lu(k,601)
    1723   254840160 :          lu(k,604) = lu(k,604) * lu(k,601)
    1724   254840160 :          lu(k,799) = lu(k,799) - lu(k,602) * lu(k,796)
    1725   254840160 :          lu(k,802) = lu(k,802) - lu(k,603) * lu(k,796)
    1726   254840160 :          lu(k,804) = lu(k,804) - lu(k,604) * lu(k,796)
    1727   254840160 :          lu(k,953) = - lu(k,602) * lu(k,949)
    1728   254840160 :          lu(k,957) = lu(k,957) - lu(k,603) * lu(k,949)
    1729   254840160 :          lu(k,959) = lu(k,959) - lu(k,604) * lu(k,949)
    1730   254840160 :          lu(k,2233) = - lu(k,602) * lu(k,2230)
    1731   254840160 :          lu(k,2249) = lu(k,2249) - lu(k,603) * lu(k,2230)
    1732   254840160 :          lu(k,2253) = lu(k,2253) - lu(k,604) * lu(k,2230)
    1733   254840160 :          lu(k,2673) = - lu(k,602) * lu(k,2670)
    1734   254840160 :          lu(k,2687) = lu(k,2687) - lu(k,603) * lu(k,2670)
    1735   254840160 :          lu(k,2691) = lu(k,2691) - lu(k,604) * lu(k,2670)
    1736   254840160 :          lu(k,3058) = lu(k,3058) - lu(k,602) * lu(k,2993)
    1737   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,603) * lu(k,2993)
    1738   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,604) * lu(k,2993)
    1739   254840160 :          lu(k,3317) = lu(k,3317) - lu(k,602) * lu(k,3241)
    1740   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,603) * lu(k,3241)
    1741   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,604) * lu(k,3241)
    1742   254840160 :          lu(k,4041) = lu(k,4041) - lu(k,602) * lu(k,3939)
    1743   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,603) * lu(k,3939)
    1744   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,604) * lu(k,3939)
    1745   254840160 :          lu(k,605) = 1._r8 / lu(k,605)
    1746   254840160 :          lu(k,606) = lu(k,606) * lu(k,605)
    1747   254840160 :          lu(k,607) = lu(k,607) * lu(k,605)
    1748   254840160 :          lu(k,608) = lu(k,608) * lu(k,605)
    1749   254840160 :          lu(k,609) = lu(k,609) * lu(k,605)
    1750   254840160 :          lu(k,610) = lu(k,610) * lu(k,605)
    1751   254840160 :          lu(k,611) = lu(k,611) * lu(k,605)
    1752   254840160 :          lu(k,612) = lu(k,612) * lu(k,605)
    1753   254840160 :          lu(k,3015) = lu(k,3015) - lu(k,606) * lu(k,2994)
    1754   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,607) * lu(k,2994)
    1755   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,608) * lu(k,2994)
    1756   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,609) * lu(k,2994)
    1757   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,610) * lu(k,2994)
    1758   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,611) * lu(k,2994)
    1759   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,612) * lu(k,2994)
    1760   254840160 :          lu(k,3530) = - lu(k,606) * lu(k,3528)
    1761   254840160 :          lu(k,3544) = lu(k,3544) - lu(k,607) * lu(k,3528)
    1762   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,608) * lu(k,3528)
    1763   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,609) * lu(k,3528)
    1764   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,610) * lu(k,3528)
    1765   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,611) * lu(k,3528)
    1766   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,612) * lu(k,3528)
    1767   254840160 :          lu(k,3980) = lu(k,3980) - lu(k,606) * lu(k,3940)
    1768   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,607) * lu(k,3940)
    1769   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,608) * lu(k,3940)
    1770   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,609) * lu(k,3940)
    1771   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,610) * lu(k,3940)
    1772   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,611) * lu(k,3940)
    1773   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,612) * lu(k,3940)
    1774   254840160 :          lu(k,613) = 1._r8 / lu(k,613)
    1775   254840160 :          lu(k,614) = lu(k,614) * lu(k,613)
    1776   254840160 :          lu(k,615) = lu(k,615) * lu(k,613)
    1777   254840160 :          lu(k,616) = lu(k,616) * lu(k,613)
    1778   254840160 :          lu(k,617) = lu(k,617) * lu(k,613)
    1779   254840160 :          lu(k,618) = lu(k,618) * lu(k,613)
    1780   254840160 :          lu(k,619) = lu(k,619) * lu(k,613)
    1781   254840160 :          lu(k,620) = lu(k,620) * lu(k,613)
    1782   254840160 :          lu(k,621) = lu(k,621) * lu(k,613)
    1783   254840160 :          lu(k,622) = lu(k,622) * lu(k,613)
    1784   254840160 :          lu(k,623) = lu(k,623) * lu(k,613)
    1785   254840160 :          lu(k,624) = lu(k,624) * lu(k,613)
    1786   254840160 :          lu(k,625) = lu(k,625) * lu(k,613)
    1787   254840160 :          lu(k,1837) = lu(k,1837) - lu(k,614) * lu(k,1836)
    1788   254840160 :          lu(k,1838) = lu(k,1838) - lu(k,615) * lu(k,1836)
    1789   254840160 :          lu(k,1841) = - lu(k,616) * lu(k,1836)
    1790   254840160 :          lu(k,1844) = - lu(k,617) * lu(k,1836)
    1791   254840160 :          lu(k,1845) = lu(k,1845) - lu(k,618) * lu(k,1836)
    1792   254840160 :          lu(k,1852) = - lu(k,619) * lu(k,1836)
    1793   254840160 :          lu(k,1854) = lu(k,1854) - lu(k,620) * lu(k,1836)
    1794   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,621) * lu(k,1836)
    1795   254840160 :          lu(k,1857) = lu(k,1857) - lu(k,622) * lu(k,1836)
    1796   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,623) * lu(k,1836)
    1797   254840160 :          lu(k,1862) = lu(k,1862) - lu(k,624) * lu(k,1836)
    1798   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,625) * lu(k,1836)
    1799   254840160 :          lu(k,3943) = lu(k,3943) - lu(k,614) * lu(k,3941)
    1800   254840160 :          lu(k,3972) = lu(k,3972) - lu(k,615) * lu(k,3941)
    1801   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,616) * lu(k,3941)
    1802   254840160 :          lu(k,4026) = lu(k,4026) - lu(k,617) * lu(k,3941)
    1803   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,618) * lu(k,3941)
    1804   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,619) * lu(k,3941)
    1805   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,620) * lu(k,3941)
    1806   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,621) * lu(k,3941)
    1807   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,622) * lu(k,3941)
    1808   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,623) * lu(k,3941)
    1809   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,624) * lu(k,3941)
    1810   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,625) * lu(k,3941)
    1811             :       end do
    1812     8168963 :       end subroutine lu_fac13
    1813     8168963 :       subroutine lu_fac14( avec_len, lu )
    1814             :       use chem_mods, only : nzcnt
    1815             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1816             :       implicit none
    1817             : !-----------------------------------------------------------------------
    1818             : ! ... dummy args
    1819             : !-----------------------------------------------------------------------
    1820             :       integer, intent(in) :: avec_len
    1821             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1822             : !-----------------------------------------------------------------------
    1823             : ! ... local variables
    1824             : !-----------------------------------------------------------------------
    1825             :       integer :: k
    1826   263009123 :       do k = 1,avec_len
    1827   254840160 :          lu(k,626) = 1._r8 / lu(k,626)
    1828   254840160 :          lu(k,627) = lu(k,627) * lu(k,626)
    1829   254840160 :          lu(k,628) = lu(k,628) * lu(k,626)
    1830   254840160 :          lu(k,629) = lu(k,629) * lu(k,626)
    1831   254840160 :          lu(k,630) = lu(k,630) * lu(k,626)
    1832   254840160 :          lu(k,631) = lu(k,631) * lu(k,626)
    1833   254840160 :          lu(k,632) = lu(k,632) * lu(k,626)
    1834   254840160 :          lu(k,633) = lu(k,633) * lu(k,626)
    1835   254840160 :          lu(k,634) = lu(k,634) * lu(k,626)
    1836   254840160 :          lu(k,635) = lu(k,635) * lu(k,626)
    1837   254840160 :          lu(k,636) = lu(k,636) * lu(k,626)
    1838   254840160 :          lu(k,637) = lu(k,637) * lu(k,626)
    1839   254840160 :          lu(k,638) = lu(k,638) * lu(k,626)
    1840   254840160 :          lu(k,1806) = lu(k,1806) - lu(k,627) * lu(k,1805)
    1841   254840160 :          lu(k,1807) = lu(k,1807) - lu(k,628) * lu(k,1805)
    1842   254840160 :          lu(k,1809) = - lu(k,629) * lu(k,1805)
    1843   254840160 :          lu(k,1812) = - lu(k,630) * lu(k,1805)
    1844   254840160 :          lu(k,1813) = lu(k,1813) - lu(k,631) * lu(k,1805)
    1845   254840160 :          lu(k,1820) = - lu(k,632) * lu(k,1805)
    1846   254840160 :          lu(k,1822) = lu(k,1822) - lu(k,633) * lu(k,1805)
    1847   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,634) * lu(k,1805)
    1848   254840160 :          lu(k,1826) = lu(k,1826) - lu(k,635) * lu(k,1805)
    1849   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,636) * lu(k,1805)
    1850   254840160 :          lu(k,1831) = lu(k,1831) - lu(k,637) * lu(k,1805)
    1851   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,638) * lu(k,1805)
    1852   254840160 :          lu(k,3943) = lu(k,3943) - lu(k,627) * lu(k,3942)
    1853   254840160 :          lu(k,3972) = lu(k,3972) - lu(k,628) * lu(k,3942)
    1854   254840160 :          lu(k,3974) = lu(k,3974) - lu(k,629) * lu(k,3942)
    1855   254840160 :          lu(k,4029) = lu(k,4029) - lu(k,630) * lu(k,3942)
    1856   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,631) * lu(k,3942)
    1857   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,632) * lu(k,3942)
    1858   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,633) * lu(k,3942)
    1859   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,634) * lu(k,3942)
    1860   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,635) * lu(k,3942)
    1861   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,636) * lu(k,3942)
    1862   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,637) * lu(k,3942)
    1863   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,638) * lu(k,3942)
    1864   254840160 :          lu(k,639) = 1._r8 / lu(k,639)
    1865   254840160 :          lu(k,640) = lu(k,640) * lu(k,639)
    1866   254840160 :          lu(k,641) = lu(k,641) * lu(k,639)
    1867   254840160 :          lu(k,642) = lu(k,642) * lu(k,639)
    1868   254840160 :          lu(k,643) = lu(k,643) * lu(k,639)
    1869   254840160 :          lu(k,644) = lu(k,644) * lu(k,639)
    1870   254840160 :          lu(k,645) = lu(k,645) * lu(k,639)
    1871   254840160 :          lu(k,1809) = lu(k,1809) - lu(k,640) * lu(k,1806)
    1872   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,641) * lu(k,1806)
    1873   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,642) * lu(k,1806)
    1874   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,643) * lu(k,1806)
    1875   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,644) * lu(k,1806)
    1876   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,645) * lu(k,1806)
    1877   254840160 :          lu(k,1840) = - lu(k,640) * lu(k,1837)
    1878   254840160 :          lu(k,1852) = lu(k,1852) - lu(k,641) * lu(k,1837)
    1879   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,642) * lu(k,1837)
    1880   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,643) * lu(k,1837)
    1881   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,644) * lu(k,1837)
    1882   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,645) * lu(k,1837)
    1883   254840160 :          lu(k,3974) = lu(k,3974) - lu(k,640) * lu(k,3943)
    1884   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,641) * lu(k,3943)
    1885   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,642) * lu(k,3943)
    1886   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,643) * lu(k,3943)
    1887   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,644) * lu(k,3943)
    1888   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,645) * lu(k,3943)
    1889   254840160 :          lu(k,646) = 1._r8 / lu(k,646)
    1890   254840160 :          lu(k,647) = lu(k,647) * lu(k,646)
    1891   254840160 :          lu(k,648) = lu(k,648) * lu(k,646)
    1892   254840160 :          lu(k,649) = lu(k,649) * lu(k,646)
    1893   254840160 :          lu(k,650) = lu(k,650) * lu(k,646)
    1894   254840160 :          lu(k,651) = lu(k,651) * lu(k,646)
    1895   254840160 :          lu(k,652) = lu(k,652) * lu(k,646)
    1896   254840160 :          lu(k,653) = lu(k,653) * lu(k,646)
    1897   254840160 :          lu(k,654) = lu(k,654) * lu(k,646)
    1898   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,647) * lu(k,3789)
    1899   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,648) * lu(k,3789)
    1900   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,649) * lu(k,3789)
    1901   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,650) * lu(k,3789)
    1902   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,651) * lu(k,3789)
    1903   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,652) * lu(k,3789)
    1904   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,653) * lu(k,3789)
    1905   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,654) * lu(k,3789)
    1906   254840160 :          lu(k,3833) = lu(k,3833) - lu(k,647) * lu(k,3819)
    1907   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,648) * lu(k,3819)
    1908   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,649) * lu(k,3819)
    1909   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,650) * lu(k,3819)
    1910   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,651) * lu(k,3819)
    1911   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,652) * lu(k,3819)
    1912   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,653) * lu(k,3819)
    1913   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,654) * lu(k,3819)
    1914   254840160 :          lu(k,4062) = lu(k,4062) - lu(k,647) * lu(k,3944)
    1915   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,648) * lu(k,3944)
    1916   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,649) * lu(k,3944)
    1917   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,650) * lu(k,3944)
    1918   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,651) * lu(k,3944)
    1919   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,652) * lu(k,3944)
    1920   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,653) * lu(k,3944)
    1921   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,654) * lu(k,3944)
    1922   254840160 :          lu(k,655) = 1._r8 / lu(k,655)
    1923   254840160 :          lu(k,656) = lu(k,656) * lu(k,655)
    1924   254840160 :          lu(k,657) = lu(k,657) * lu(k,655)
    1925   254840160 :          lu(k,658) = lu(k,658) * lu(k,655)
    1926   254840160 :          lu(k,659) = lu(k,659) * lu(k,655)
    1927   254840160 :          lu(k,660) = lu(k,660) * lu(k,655)
    1928   254840160 :          lu(k,661) = lu(k,661) * lu(k,655)
    1929   254840160 :          lu(k,662) = lu(k,662) * lu(k,655)
    1930   254840160 :          lu(k,663) = lu(k,663) * lu(k,655)
    1931   254840160 :          lu(k,2721) = lu(k,2721) - lu(k,656) * lu(k,2717)
    1932   254840160 :          lu(k,2725) = lu(k,2725) - lu(k,657) * lu(k,2717)
    1933   254840160 :          lu(k,2728) = lu(k,2728) - lu(k,658) * lu(k,2717)
    1934   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,659) * lu(k,2717)
    1935   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,660) * lu(k,2717)
    1936   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,661) * lu(k,2717)
    1937   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,662) * lu(k,2717)
    1938   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,663) * lu(k,2717)
    1939   254840160 :          lu(k,3640) = lu(k,3640) - lu(k,656) * lu(k,3628)
    1940   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,657) * lu(k,3628)
    1941   254840160 :          lu(k,3646) = - lu(k,658) * lu(k,3628)
    1942   254840160 :          lu(k,3648) = lu(k,3648) - lu(k,659) * lu(k,3628)
    1943   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,660) * lu(k,3628)
    1944   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,661) * lu(k,3628)
    1945   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,662) * lu(k,3628)
    1946   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,663) * lu(k,3628)
    1947   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,656) * lu(k,3945)
    1948   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,657) * lu(k,3945)
    1949   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,658) * lu(k,3945)
    1950   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,659) * lu(k,3945)
    1951   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,660) * lu(k,3945)
    1952   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,661) * lu(k,3945)
    1953   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,662) * lu(k,3945)
    1954   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,663) * lu(k,3945)
    1955   254840160 :          lu(k,664) = 1._r8 / lu(k,664)
    1956   254840160 :          lu(k,665) = lu(k,665) * lu(k,664)
    1957   254840160 :          lu(k,666) = lu(k,666) * lu(k,664)
    1958   254840160 :          lu(k,667) = lu(k,667) * lu(k,664)
    1959   254840160 :          lu(k,668) = lu(k,668) * lu(k,664)
    1960   254840160 :          lu(k,669) = lu(k,669) * lu(k,664)
    1961   254840160 :          lu(k,670) = lu(k,670) * lu(k,664)
    1962   254840160 :          lu(k,671) = lu(k,671) * lu(k,664)
    1963   254840160 :          lu(k,672) = lu(k,672) * lu(k,664)
    1964   254840160 :          lu(k,2767) = lu(k,2767) - lu(k,665) * lu(k,2763)
    1965   254840160 :          lu(k,2771) = lu(k,2771) - lu(k,666) * lu(k,2763)
    1966   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,667) * lu(k,2763)
    1967   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,668) * lu(k,2763)
    1968   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,669) * lu(k,2763)
    1969   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,670) * lu(k,2763)
    1970   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,671) * lu(k,2763)
    1971   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,672) * lu(k,2763)
    1972   254840160 :          lu(k,3640) = lu(k,3640) - lu(k,665) * lu(k,3629)
    1973   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,666) * lu(k,3629)
    1974   254840160 :          lu(k,3649) = lu(k,3649) - lu(k,667) * lu(k,3629)
    1975   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,668) * lu(k,3629)
    1976   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,669) * lu(k,3629)
    1977   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,670) * lu(k,3629)
    1978   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,671) * lu(k,3629)
    1979   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,672) * lu(k,3629)
    1980   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,665) * lu(k,3946)
    1981   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,666) * lu(k,3946)
    1982   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,667) * lu(k,3946)
    1983   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,668) * lu(k,3946)
    1984   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,669) * lu(k,3946)
    1985   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,670) * lu(k,3946)
    1986   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,671) * lu(k,3946)
    1987   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,672) * lu(k,3946)
    1988             :       end do
    1989     8168963 :       end subroutine lu_fac14
    1990     8168963 :       subroutine lu_fac15( avec_len, lu )
    1991             :       use chem_mods, only : nzcnt
    1992             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1993             :       implicit none
    1994             : !-----------------------------------------------------------------------
    1995             : ! ... dummy args
    1996             : !-----------------------------------------------------------------------
    1997             :       integer, intent(in) :: avec_len
    1998             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1999             : !-----------------------------------------------------------------------
    2000             : ! ... local variables
    2001             : !-----------------------------------------------------------------------
    2002             :       integer :: k
    2003   263009123 :       do k = 1,avec_len
    2004   254840160 :          lu(k,673) = 1._r8 / lu(k,673)
    2005   254840160 :          lu(k,674) = lu(k,674) * lu(k,673)
    2006   254840160 :          lu(k,675) = lu(k,675) * lu(k,673)
    2007   254840160 :          lu(k,676) = lu(k,676) * lu(k,673)
    2008   254840160 :          lu(k,677) = lu(k,677) * lu(k,673)
    2009   254840160 :          lu(k,678) = lu(k,678) * lu(k,673)
    2010   254840160 :          lu(k,679) = lu(k,679) * lu(k,673)
    2011   254840160 :          lu(k,680) = lu(k,680) * lu(k,673)
    2012   254840160 :          lu(k,681) = lu(k,681) * lu(k,673)
    2013   254840160 :          lu(k,1938) = - lu(k,674) * lu(k,1936)
    2014   254840160 :          lu(k,1940) = - lu(k,675) * lu(k,1936)
    2015   254840160 :          lu(k,1956) = lu(k,1956) - lu(k,676) * lu(k,1936)
    2016   254840160 :          lu(k,1960) = - lu(k,677) * lu(k,1936)
    2017   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,678) * lu(k,1936)
    2018   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,679) * lu(k,1936)
    2019   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,680) * lu(k,1936)
    2020   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,681) * lu(k,1936)
    2021   254840160 :          lu(k,3026) = lu(k,3026) - lu(k,674) * lu(k,2995)
    2022   254840160 :          lu(k,3047) = lu(k,3047) - lu(k,675) * lu(k,2995)
    2023   254840160 :          lu(k,3073) = lu(k,3073) - lu(k,676) * lu(k,2995)
    2024   254840160 :          lu(k,3105) = - lu(k,677) * lu(k,2995)
    2025   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,678) * lu(k,2995)
    2026   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,679) * lu(k,2995)
    2027   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,680) * lu(k,2995)
    2028   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,681) * lu(k,2995)
    2029   254840160 :          lu(k,3996) = lu(k,3996) - lu(k,674) * lu(k,3947)
    2030   254840160 :          lu(k,4027) = lu(k,4027) - lu(k,675) * lu(k,3947)
    2031   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,676) * lu(k,3947)
    2032   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,677) * lu(k,3947)
    2033   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,678) * lu(k,3947)
    2034   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,679) * lu(k,3947)
    2035   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,680) * lu(k,3947)
    2036   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,681) * lu(k,3947)
    2037   254840160 :          lu(k,682) = 1._r8 / lu(k,682)
    2038   254840160 :          lu(k,683) = lu(k,683) * lu(k,682)
    2039   254840160 :          lu(k,684) = lu(k,684) * lu(k,682)
    2040   254840160 :          lu(k,685) = lu(k,685) * lu(k,682)
    2041   254840160 :          lu(k,686) = lu(k,686) * lu(k,682)
    2042   254840160 :          lu(k,687) = lu(k,687) * lu(k,682)
    2043   254840160 :          lu(k,688) = lu(k,688) * lu(k,682)
    2044   254840160 :          lu(k,2495) = - lu(k,683) * lu(k,2491)
    2045   254840160 :          lu(k,2501) = lu(k,2501) - lu(k,684) * lu(k,2491)
    2046   254840160 :          lu(k,2507) = lu(k,2507) - lu(k,685) * lu(k,2491)
    2047   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,686) * lu(k,2491)
    2048   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,687) * lu(k,2491)
    2049   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,688) * lu(k,2491)
    2050   254840160 :          lu(k,2558) = - lu(k,683) * lu(k,2554)
    2051   254840160 :          lu(k,2564) = lu(k,2564) - lu(k,684) * lu(k,2554)
    2052   254840160 :          lu(k,2572) = - lu(k,685) * lu(k,2554)
    2053   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,686) * lu(k,2554)
    2054   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,687) * lu(k,2554)
    2055   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,688) * lu(k,2554)
    2056   254840160 :          lu(k,3286) = lu(k,3286) - lu(k,683) * lu(k,3242)
    2057   254840160 :          lu(k,3314) = lu(k,3314) - lu(k,684) * lu(k,3242)
    2058   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,685) * lu(k,3242)
    2059   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,686) * lu(k,3242)
    2060   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,687) * lu(k,3242)
    2061   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,688) * lu(k,3242)
    2062   254840160 :          lu(k,4000) = lu(k,4000) - lu(k,683) * lu(k,3948)
    2063   254840160 :          lu(k,4038) = lu(k,4038) - lu(k,684) * lu(k,3948)
    2064   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,685) * lu(k,3948)
    2065   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,686) * lu(k,3948)
    2066   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,687) * lu(k,3948)
    2067   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,688) * lu(k,3948)
    2068   254840160 :          lu(k,689) = 1._r8 / lu(k,689)
    2069   254840160 :          lu(k,690) = lu(k,690) * lu(k,689)
    2070   254840160 :          lu(k,691) = lu(k,691) * lu(k,689)
    2071   254840160 :          lu(k,692) = lu(k,692) * lu(k,689)
    2072   254840160 :          lu(k,954) = - lu(k,690) * lu(k,950)
    2073   254840160 :          lu(k,957) = lu(k,957) - lu(k,691) * lu(k,950)
    2074   254840160 :          lu(k,959) = lu(k,959) - lu(k,692) * lu(k,950)
    2075   254840160 :          lu(k,1009) = - lu(k,690) * lu(k,1004)
    2076   254840160 :          lu(k,1011) = lu(k,1011) - lu(k,691) * lu(k,1004)
    2077   254840160 :          lu(k,1013) = lu(k,1013) - lu(k,692) * lu(k,1004)
    2078   254840160 :          lu(k,2379) = - lu(k,690) * lu(k,2368)
    2079   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,691) * lu(k,2368)
    2080   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,692) * lu(k,2368)
    2081   254840160 :          lu(k,2440) = lu(k,2440) - lu(k,690) * lu(k,2427)
    2082   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,691) * lu(k,2427)
    2083   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,692) * lu(k,2427)
    2084   254840160 :          lu(k,2653) = - lu(k,690) * lu(k,2647)
    2085   254840160 :          lu(k,2665) = lu(k,2665) - lu(k,691) * lu(k,2647)
    2086   254840160 :          lu(k,2669) = - lu(k,692) * lu(k,2647)
    2087   254840160 :          lu(k,2698) = - lu(k,690) * lu(k,2692)
    2088   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,691) * lu(k,2692)
    2089   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,692) * lu(k,2692)
    2090   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,690) * lu(k,3243)
    2091   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,691) * lu(k,3243)
    2092   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,692) * lu(k,3243)
    2093   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,690) * lu(k,3949)
    2094   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,691) * lu(k,3949)
    2095   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,692) * lu(k,3949)
    2096   254840160 :          lu(k,693) = 1._r8 / lu(k,693)
    2097   254840160 :          lu(k,694) = lu(k,694) * lu(k,693)
    2098   254840160 :          lu(k,695) = lu(k,695) * lu(k,693)
    2099   254840160 :          lu(k,696) = lu(k,696) * lu(k,693)
    2100   254840160 :          lu(k,697) = lu(k,697) * lu(k,693)
    2101   254840160 :          lu(k,698) = lu(k,698) * lu(k,693)
    2102   254840160 :          lu(k,699) = lu(k,699) * lu(k,693)
    2103   254840160 :          lu(k,700) = lu(k,700) * lu(k,693)
    2104   254840160 :          lu(k,701) = lu(k,701) * lu(k,693)
    2105   254840160 :          lu(k,3028) = - lu(k,694) * lu(k,2996)
    2106   254840160 :          lu(k,3036) = lu(k,3036) - lu(k,695) * lu(k,2996)
    2107   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,696) * lu(k,2996)
    2108   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,697) * lu(k,2996)
    2109   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,698) * lu(k,2996)
    2110   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,699) * lu(k,2996)
    2111   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,700) * lu(k,2996)
    2112   254840160 :          lu(k,3120) = - lu(k,701) * lu(k,2996)
    2113   254840160 :          lu(k,3176) = - lu(k,694) * lu(k,3174)
    2114   254840160 :          lu(k,3177) = - lu(k,695) * lu(k,3174)
    2115   254840160 :          lu(k,3185) = - lu(k,696) * lu(k,3174)
    2116   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,697) * lu(k,3174)
    2117   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,698) * lu(k,3174)
    2118   254840160 :          lu(k,3194) = - lu(k,699) * lu(k,3174)
    2119   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,700) * lu(k,3174)
    2120   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,701) * lu(k,3174)
    2121   254840160 :          lu(k,3285) = lu(k,3285) - lu(k,694) * lu(k,3244)
    2122   254840160 :          lu(k,3293) = lu(k,3293) - lu(k,695) * lu(k,3244)
    2123   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,696) * lu(k,3244)
    2124   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,697) * lu(k,3244)
    2125   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,698) * lu(k,3244)
    2126   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,699) * lu(k,3244)
    2127   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,700) * lu(k,3244)
    2128   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,701) * lu(k,3244)
    2129   254840160 :          lu(k,702) = 1._r8 / lu(k,702)
    2130   254840160 :          lu(k,703) = lu(k,703) * lu(k,702)
    2131   254840160 :          lu(k,704) = lu(k,704) * lu(k,702)
    2132   254840160 :          lu(k,705) = lu(k,705) * lu(k,702)
    2133   254840160 :          lu(k,706) = lu(k,706) * lu(k,702)
    2134   254840160 :          lu(k,707) = lu(k,707) * lu(k,702)
    2135   254840160 :          lu(k,708) = lu(k,708) * lu(k,702)
    2136   254840160 :          lu(k,1619) = lu(k,1619) - lu(k,703) * lu(k,1617)
    2137   254840160 :          lu(k,1623) = lu(k,1623) - lu(k,704) * lu(k,1617)
    2138   254840160 :          lu(k,1626) = lu(k,1626) - lu(k,705) * lu(k,1617)
    2139   254840160 :          lu(k,1628) = lu(k,1628) - lu(k,706) * lu(k,1617)
    2140   254840160 :          lu(k,1632) = lu(k,1632) - lu(k,707) * lu(k,1617)
    2141   254840160 :          lu(k,1633) = - lu(k,708) * lu(k,1617)
    2142   254840160 :          lu(k,2865) = lu(k,2865) - lu(k,703) * lu(k,2856)
    2143   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,704) * lu(k,2856)
    2144   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,705) * lu(k,2856)
    2145   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,706) * lu(k,2856)
    2146   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,707) * lu(k,2856)
    2147   254840160 :          lu(k,2928) = - lu(k,708) * lu(k,2856)
    2148   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,703) * lu(k,3245)
    2149   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,704) * lu(k,3245)
    2150   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,705) * lu(k,3245)
    2151   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,706) * lu(k,3245)
    2152   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,707) * lu(k,3245)
    2153   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,708) * lu(k,3245)
    2154   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,703) * lu(k,3950)
    2155   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,704) * lu(k,3950)
    2156   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,705) * lu(k,3950)
    2157   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,706) * lu(k,3950)
    2158   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,707) * lu(k,3950)
    2159   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,708) * lu(k,3950)
    2160             :       end do
    2161     8168963 :       end subroutine lu_fac15
    2162     8168963 :       subroutine lu_fac16( avec_len, lu )
    2163             :       use chem_mods, only : nzcnt
    2164             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2165             :       implicit none
    2166             : !-----------------------------------------------------------------------
    2167             : ! ... dummy args
    2168             : !-----------------------------------------------------------------------
    2169             :       integer, intent(in) :: avec_len
    2170             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2171             : !-----------------------------------------------------------------------
    2172             : ! ... local variables
    2173             : !-----------------------------------------------------------------------
    2174             :       integer :: k
    2175   263009123 :       do k = 1,avec_len
    2176   254840160 :          lu(k,711) = 1._r8 / lu(k,711)
    2177   254840160 :          lu(k,712) = lu(k,712) * lu(k,711)
    2178   254840160 :          lu(k,713) = lu(k,713) * lu(k,711)
    2179   254840160 :          lu(k,714) = lu(k,714) * lu(k,711)
    2180   254840160 :          lu(k,715) = lu(k,715) * lu(k,711)
    2181   254840160 :          lu(k,716) = lu(k,716) * lu(k,711)
    2182   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,712) * lu(k,2997)
    2183   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,713) * lu(k,2997)
    2184   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,714) * lu(k,2997)
    2185   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,715) * lu(k,2997)
    2186   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,716) * lu(k,2997)
    2187   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,712) * lu(k,3246)
    2188   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,713) * lu(k,3246)
    2189   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,714) * lu(k,3246)
    2190   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,715) * lu(k,3246)
    2191   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,716) * lu(k,3246)
    2192   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,712) * lu(k,3630)
    2193   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,713) * lu(k,3630)
    2194   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,714) * lu(k,3630)
    2195   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,715) * lu(k,3630)
    2196   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,716) * lu(k,3630)
    2197   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,712) * lu(k,3678)
    2198   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,713) * lu(k,3678)
    2199   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,714) * lu(k,3678)
    2200   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,715) * lu(k,3678)
    2201   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,716) * lu(k,3678)
    2202   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,712) * lu(k,3951)
    2203   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,713) * lu(k,3951)
    2204   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,714) * lu(k,3951)
    2205   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,715) * lu(k,3951)
    2206   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,716) * lu(k,3951)
    2207   254840160 :          lu(k,718) = 1._r8 / lu(k,718)
    2208   254840160 :          lu(k,719) = lu(k,719) * lu(k,718)
    2209   254840160 :          lu(k,720) = lu(k,720) * lu(k,718)
    2210   254840160 :          lu(k,721) = lu(k,721) * lu(k,718)
    2211   254840160 :          lu(k,722) = lu(k,722) * lu(k,718)
    2212   254840160 :          lu(k,723) = lu(k,723) * lu(k,718)
    2213   254840160 :          lu(k,724) = lu(k,724) * lu(k,718)
    2214   254840160 :          lu(k,725) = lu(k,725) * lu(k,718)
    2215   254840160 :          lu(k,726) = lu(k,726) * lu(k,718)
    2216   254840160 :          lu(k,727) = lu(k,727) * lu(k,718)
    2217   254840160 :          lu(k,1181) = lu(k,1181) - lu(k,719) * lu(k,1179)
    2218   254840160 :          lu(k,1182) = lu(k,1182) - lu(k,720) * lu(k,1179)
    2219   254840160 :          lu(k,1183) = lu(k,1183) - lu(k,721) * lu(k,1179)
    2220   254840160 :          lu(k,1184) = lu(k,1184) - lu(k,722) * lu(k,1179)
    2221   254840160 :          lu(k,1185) = lu(k,1185) - lu(k,723) * lu(k,1179)
    2222   254840160 :          lu(k,1186) = lu(k,1186) - lu(k,724) * lu(k,1179)
    2223   254840160 :          lu(k,1188) = lu(k,1188) - lu(k,725) * lu(k,1179)
    2224   254840160 :          lu(k,1189) = lu(k,1189) - lu(k,726) * lu(k,1179)
    2225   254840160 :          lu(k,1191) = lu(k,1191) - lu(k,727) * lu(k,1179)
    2226   254840160 :          lu(k,3249) = lu(k,3249) - lu(k,719) * lu(k,3247)
    2227   254840160 :          lu(k,3283) = lu(k,3283) - lu(k,720) * lu(k,3247)
    2228   254840160 :          lu(k,3291) = lu(k,3291) - lu(k,721) * lu(k,3247)
    2229   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,722) * lu(k,3247)
    2230   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,723) * lu(k,3247)
    2231   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,724) * lu(k,3247)
    2232   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,725) * lu(k,3247)
    2233   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,726) * lu(k,3247)
    2234   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,727) * lu(k,3247)
    2235   254840160 :          lu(k,3956) = lu(k,3956) - lu(k,719) * lu(k,3952)
    2236   254840160 :          lu(k,3997) = lu(k,3997) - lu(k,720) * lu(k,3952)
    2237   254840160 :          lu(k,4011) = lu(k,4011) - lu(k,721) * lu(k,3952)
    2238   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,722) * lu(k,3952)
    2239   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,723) * lu(k,3952)
    2240   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,724) * lu(k,3952)
    2241   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,725) * lu(k,3952)
    2242   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,726) * lu(k,3952)
    2243   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,727) * lu(k,3952)
    2244   254840160 :          lu(k,728) = 1._r8 / lu(k,728)
    2245   254840160 :          lu(k,729) = lu(k,729) * lu(k,728)
    2246   254840160 :          lu(k,730) = lu(k,730) * lu(k,728)
    2247   254840160 :          lu(k,731) = lu(k,731) * lu(k,728)
    2248   254840160 :          lu(k,732) = lu(k,732) * lu(k,728)
    2249   254840160 :          lu(k,733) = lu(k,733) * lu(k,728)
    2250   254840160 :          lu(k,734) = lu(k,734) * lu(k,728)
    2251   254840160 :          lu(k,735) = lu(k,735) * lu(k,728)
    2252   254840160 :          lu(k,736) = lu(k,736) * lu(k,728)
    2253   254840160 :          lu(k,737) = lu(k,737) * lu(k,728)
    2254   254840160 :          lu(k,2156) = - lu(k,729) * lu(k,2154)
    2255   254840160 :          lu(k,2159) = - lu(k,730) * lu(k,2154)
    2256   254840160 :          lu(k,2174) = lu(k,2174) - lu(k,731) * lu(k,2154)
    2257   254840160 :          lu(k,2175) = lu(k,2175) - lu(k,732) * lu(k,2154)
    2258   254840160 :          lu(k,2179) = lu(k,2179) - lu(k,733) * lu(k,2154)
    2259   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,734) * lu(k,2154)
    2260   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,735) * lu(k,2154)
    2261   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,736) * lu(k,2154)
    2262   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,737) * lu(k,2154)
    2263   254840160 :          lu(k,3388) = - lu(k,729) * lu(k,3383)
    2264   254840160 :          lu(k,3393) = - lu(k,730) * lu(k,3383)
    2265   254840160 :          lu(k,3425) = lu(k,3425) - lu(k,731) * lu(k,3383)
    2266   254840160 :          lu(k,3426) = lu(k,3426) - lu(k,732) * lu(k,3383)
    2267   254840160 :          lu(k,3430) = lu(k,3430) - lu(k,733) * lu(k,3383)
    2268   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,734) * lu(k,3383)
    2269   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,735) * lu(k,3383)
    2270   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,736) * lu(k,3383)
    2271   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,737) * lu(k,3383)
    2272   254840160 :          lu(k,4004) = lu(k,4004) - lu(k,729) * lu(k,3953)
    2273   254840160 :          lu(k,4017) = lu(k,4017) - lu(k,730) * lu(k,3953)
    2274   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,731) * lu(k,3953)
    2275   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,732) * lu(k,3953)
    2276   254840160 :          lu(k,4060) = lu(k,4060) - lu(k,733) * lu(k,3953)
    2277   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,734) * lu(k,3953)
    2278   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,735) * lu(k,3953)
    2279   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,736) * lu(k,3953)
    2280   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,737) * lu(k,3953)
    2281   254840160 :          lu(k,741) = 1._r8 / lu(k,741)
    2282   254840160 :          lu(k,742) = lu(k,742) * lu(k,741)
    2283   254840160 :          lu(k,743) = lu(k,743) * lu(k,741)
    2284   254840160 :          lu(k,744) = lu(k,744) * lu(k,741)
    2285   254840160 :          lu(k,745) = lu(k,745) * lu(k,741)
    2286   254840160 :          lu(k,746) = lu(k,746) * lu(k,741)
    2287   254840160 :          lu(k,747) = lu(k,747) * lu(k,741)
    2288   254840160 :          lu(k,748) = lu(k,748) * lu(k,741)
    2289   254840160 :          lu(k,749) = lu(k,749) * lu(k,741)
    2290   254840160 :          lu(k,750) = lu(k,750) * lu(k,741)
    2291   254840160 :          lu(k,872) = lu(k,872) - lu(k,742) * lu(k,871)
    2292   254840160 :          lu(k,873) = lu(k,873) - lu(k,743) * lu(k,871)
    2293   254840160 :          lu(k,874) = lu(k,874) - lu(k,744) * lu(k,871)
    2294   254840160 :          lu(k,875) = lu(k,875) - lu(k,745) * lu(k,871)
    2295   254840160 :          lu(k,876) = lu(k,876) - lu(k,746) * lu(k,871)
    2296   254840160 :          lu(k,877) = lu(k,877) - lu(k,747) * lu(k,871)
    2297   254840160 :          lu(k,878) = lu(k,878) - lu(k,748) * lu(k,871)
    2298   254840160 :          lu(k,880) = lu(k,880) - lu(k,749) * lu(k,871)
    2299   254840160 :          lu(k,882) = - lu(k,750) * lu(k,871)
    2300   254840160 :          lu(k,3259) = lu(k,3259) - lu(k,742) * lu(k,3248)
    2301   254840160 :          lu(k,3260) = lu(k,3260) - lu(k,743) * lu(k,3248)
    2302   254840160 :          lu(k,3263) = lu(k,3263) - lu(k,744) * lu(k,3248)
    2303   254840160 :          lu(k,3265) = lu(k,3265) - lu(k,745) * lu(k,3248)
    2304   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,746) * lu(k,3248)
    2305   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,747) * lu(k,3248)
    2306   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,748) * lu(k,3248)
    2307   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,749) * lu(k,3248)
    2308   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,750) * lu(k,3248)
    2309   254840160 :          lu(k,3967) = lu(k,3967) - lu(k,742) * lu(k,3954)
    2310   254840160 :          lu(k,3968) = lu(k,3968) - lu(k,743) * lu(k,3954)
    2311   254840160 :          lu(k,3971) = - lu(k,744) * lu(k,3954)
    2312   254840160 :          lu(k,3975) = - lu(k,745) * lu(k,3954)
    2313   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,746) * lu(k,3954)
    2314   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,747) * lu(k,3954)
    2315   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,748) * lu(k,3954)
    2316   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,749) * lu(k,3954)
    2317   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,750) * lu(k,3954)
    2318   254840160 :          lu(k,752) = 1._r8 / lu(k,752)
    2319   254840160 :          lu(k,753) = lu(k,753) * lu(k,752)
    2320   254840160 :          lu(k,754) = lu(k,754) * lu(k,752)
    2321   254840160 :          lu(k,755) = lu(k,755) * lu(k,752)
    2322   254840160 :          lu(k,756) = lu(k,756) * lu(k,752)
    2323   254840160 :          lu(k,757) = lu(k,757) * lu(k,752)
    2324   254840160 :          lu(k,758) = lu(k,758) * lu(k,752)
    2325   254840160 :          lu(k,759) = lu(k,759) * lu(k,752)
    2326   254840160 :          lu(k,760) = lu(k,760) * lu(k,752)
    2327   254840160 :          lu(k,761) = lu(k,761) * lu(k,752)
    2328   254840160 :          lu(k,1181) = lu(k,1181) - lu(k,753) * lu(k,1180)
    2329   254840160 :          lu(k,1183) = lu(k,1183) - lu(k,754) * lu(k,1180)
    2330   254840160 :          lu(k,1184) = lu(k,1184) - lu(k,755) * lu(k,1180)
    2331   254840160 :          lu(k,1185) = lu(k,1185) - lu(k,756) * lu(k,1180)
    2332   254840160 :          lu(k,1186) = lu(k,1186) - lu(k,757) * lu(k,1180)
    2333   254840160 :          lu(k,1188) = lu(k,1188) - lu(k,758) * lu(k,1180)
    2334   254840160 :          lu(k,1189) = lu(k,1189) - lu(k,759) * lu(k,1180)
    2335   254840160 :          lu(k,1190) = lu(k,1190) - lu(k,760) * lu(k,1180)
    2336   254840160 :          lu(k,1191) = lu(k,1191) - lu(k,761) * lu(k,1180)
    2337   254840160 :          lu(k,2999) = lu(k,2999) - lu(k,753) * lu(k,2998)
    2338   254840160 :          lu(k,3034) = lu(k,3034) - lu(k,754) * lu(k,2998)
    2339   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,755) * lu(k,2998)
    2340   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,756) * lu(k,2998)
    2341   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,757) * lu(k,2998)
    2342   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,758) * lu(k,2998)
    2343   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,759) * lu(k,2998)
    2344   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,760) * lu(k,2998)
    2345   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,761) * lu(k,2998)
    2346   254840160 :          lu(k,3956) = lu(k,3956) - lu(k,753) * lu(k,3955)
    2347   254840160 :          lu(k,4011) = lu(k,4011) - lu(k,754) * lu(k,3955)
    2348   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,755) * lu(k,3955)
    2349   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,756) * lu(k,3955)
    2350   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,757) * lu(k,3955)
    2351   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,758) * lu(k,3955)
    2352   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,759) * lu(k,3955)
    2353   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,760) * lu(k,3955)
    2354   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,761) * lu(k,3955)
    2355             :       end do
    2356     8168963 :       end subroutine lu_fac16
    2357     8168963 :       subroutine lu_fac17( avec_len, lu )
    2358             :       use chem_mods, only : nzcnt
    2359             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2360             :       implicit none
    2361             : !-----------------------------------------------------------------------
    2362             : ! ... dummy args
    2363             : !-----------------------------------------------------------------------
    2364             :       integer, intent(in) :: avec_len
    2365             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2366             : !-----------------------------------------------------------------------
    2367             : ! ... local variables
    2368             : !-----------------------------------------------------------------------
    2369             :       integer :: k
    2370   263009123 :       do k = 1,avec_len
    2371   254840160 :          lu(k,763) = 1._r8 / lu(k,763)
    2372   254840160 :          lu(k,764) = lu(k,764) * lu(k,763)
    2373   254840160 :          lu(k,765) = lu(k,765) * lu(k,763)
    2374   254840160 :          lu(k,766) = lu(k,766) * lu(k,763)
    2375   254840160 :          lu(k,767) = lu(k,767) * lu(k,763)
    2376   254840160 :          lu(k,768) = lu(k,768) * lu(k,763)
    2377   254840160 :          lu(k,769) = lu(k,769) * lu(k,763)
    2378   254840160 :          lu(k,1184) = lu(k,1184) - lu(k,764) * lu(k,1181)
    2379   254840160 :          lu(k,1186) = lu(k,1186) - lu(k,765) * lu(k,1181)
    2380   254840160 :          lu(k,1187) = lu(k,1187) - lu(k,766) * lu(k,1181)
    2381   254840160 :          lu(k,1189) = lu(k,1189) - lu(k,767) * lu(k,1181)
    2382   254840160 :          lu(k,1190) = lu(k,1190) - lu(k,768) * lu(k,1181)
    2383   254840160 :          lu(k,1191) = lu(k,1191) - lu(k,769) * lu(k,1181)
    2384   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,764) * lu(k,2999)
    2385   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,765) * lu(k,2999)
    2386   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,766) * lu(k,2999)
    2387   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,767) * lu(k,2999)
    2388   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,768) * lu(k,2999)
    2389   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,769) * lu(k,2999)
    2390   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,764) * lu(k,3249)
    2391   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,765) * lu(k,3249)
    2392   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,766) * lu(k,3249)
    2393   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,767) * lu(k,3249)
    2394   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,768) * lu(k,3249)
    2395   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,769) * lu(k,3249)
    2396   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,764) * lu(k,3956)
    2397   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,765) * lu(k,3956)
    2398   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,766) * lu(k,3956)
    2399   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,767) * lu(k,3956)
    2400   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,768) * lu(k,3956)
    2401   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,769) * lu(k,3956)
    2402   254840160 :          lu(k,770) = 1._r8 / lu(k,770)
    2403   254840160 :          lu(k,771) = lu(k,771) * lu(k,770)
    2404   254840160 :          lu(k,772) = lu(k,772) * lu(k,770)
    2405   254840160 :          lu(k,773) = lu(k,773) * lu(k,770)
    2406   254840160 :          lu(k,774) = lu(k,774) * lu(k,770)
    2407   254840160 :          lu(k,775) = lu(k,775) * lu(k,770)
    2408   254840160 :          lu(k,776) = lu(k,776) * lu(k,770)
    2409   254840160 :          lu(k,777) = lu(k,777) * lu(k,770)
    2410   254840160 :          lu(k,1299) = lu(k,1299) - lu(k,771) * lu(k,1297)
    2411   254840160 :          lu(k,1300) = lu(k,1300) - lu(k,772) * lu(k,1297)
    2412   254840160 :          lu(k,1301) = lu(k,1301) - lu(k,773) * lu(k,1297)
    2413   254840160 :          lu(k,1303) = lu(k,1303) - lu(k,774) * lu(k,1297)
    2414   254840160 :          lu(k,1304) = lu(k,1304) - lu(k,775) * lu(k,1297)
    2415   254840160 :          lu(k,1306) = lu(k,1306) - lu(k,776) * lu(k,1297)
    2416   254840160 :          lu(k,1308) = lu(k,1308) - lu(k,777) * lu(k,1297)
    2417   254840160 :          lu(k,1888) = - lu(k,771) * lu(k,1885)
    2418   254840160 :          lu(k,1892) = lu(k,1892) - lu(k,772) * lu(k,1885)
    2419   254840160 :          lu(k,1893) = lu(k,1893) - lu(k,773) * lu(k,1885)
    2420   254840160 :          lu(k,1898) = - lu(k,774) * lu(k,1885)
    2421   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,775) * lu(k,1885)
    2422   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,776) * lu(k,1885)
    2423   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,777) * lu(k,1885)
    2424   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,771) * lu(k,3250)
    2425   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,772) * lu(k,3250)
    2426   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,773) * lu(k,3250)
    2427   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,774) * lu(k,3250)
    2428   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,775) * lu(k,3250)
    2429   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,776) * lu(k,3250)
    2430   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,777) * lu(k,3250)
    2431   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,771) * lu(k,3957)
    2432   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,772) * lu(k,3957)
    2433   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,773) * lu(k,3957)
    2434   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,774) * lu(k,3957)
    2435   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,775) * lu(k,3957)
    2436   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,776) * lu(k,3957)
    2437   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,777) * lu(k,3957)
    2438   254840160 :          lu(k,778) = 1._r8 / lu(k,778)
    2439   254840160 :          lu(k,779) = lu(k,779) * lu(k,778)
    2440   254840160 :          lu(k,780) = lu(k,780) * lu(k,778)
    2441   254840160 :          lu(k,781) = lu(k,781) * lu(k,778)
    2442   254840160 :          lu(k,782) = lu(k,782) * lu(k,778)
    2443   254840160 :          lu(k,1043) = - lu(k,779) * lu(k,1040)
    2444   254840160 :          lu(k,1047) = - lu(k,780) * lu(k,1040)
    2445   254840160 :          lu(k,1048) = - lu(k,781) * lu(k,1040)
    2446   254840160 :          lu(k,1053) = lu(k,1053) - lu(k,782) * lu(k,1040)
    2447   254840160 :          lu(k,1073) = - lu(k,779) * lu(k,1070)
    2448   254840160 :          lu(k,1077) = - lu(k,780) * lu(k,1070)
    2449   254840160 :          lu(k,1079) = - lu(k,781) * lu(k,1070)
    2450   254840160 :          lu(k,1084) = lu(k,1084) - lu(k,782) * lu(k,1070)
    2451   254840160 :          lu(k,1275) = - lu(k,779) * lu(k,1271)
    2452   254840160 :          lu(k,1280) = - lu(k,780) * lu(k,1271)
    2453   254840160 :          lu(k,1283) = - lu(k,781) * lu(k,1271)
    2454   254840160 :          lu(k,1288) = lu(k,1288) - lu(k,782) * lu(k,1271)
    2455   254840160 :          lu(k,2814) = lu(k,2814) - lu(k,779) * lu(k,2809)
    2456   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,780) * lu(k,2809)
    2457   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,781) * lu(k,2809)
    2458   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,782) * lu(k,2809)
    2459   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,779) * lu(k,3251)
    2460   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,780) * lu(k,3251)
    2461   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,781) * lu(k,3251)
    2462   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,782) * lu(k,3251)
    2463   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,779) * lu(k,3679)
    2464   254840160 :          lu(k,3747) = - lu(k,780) * lu(k,3679)
    2465   254840160 :          lu(k,3752) = - lu(k,781) * lu(k,3679)
    2466   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,782) * lu(k,3679)
    2467   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,779) * lu(k,3958)
    2468   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,780) * lu(k,3958)
    2469   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,781) * lu(k,3958)
    2470   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,782) * lu(k,3958)
    2471   254840160 :          lu(k,783) = 1._r8 / lu(k,783)
    2472   254840160 :          lu(k,784) = lu(k,784) * lu(k,783)
    2473   254840160 :          lu(k,785) = lu(k,785) * lu(k,783)
    2474   254840160 :          lu(k,786) = lu(k,786) * lu(k,783)
    2475   254840160 :          lu(k,787) = lu(k,787) * lu(k,783)
    2476   254840160 :          lu(k,788) = lu(k,788) * lu(k,783)
    2477   254840160 :          lu(k,789) = lu(k,789) * lu(k,783)
    2478   254840160 :          lu(k,790) = lu(k,790) * lu(k,783)
    2479   254840160 :          lu(k,2493) = - lu(k,784) * lu(k,2492)
    2480   254840160 :          lu(k,2502) = lu(k,2502) - lu(k,785) * lu(k,2492)
    2481   254840160 :          lu(k,2507) = lu(k,2507) - lu(k,786) * lu(k,2492)
    2482   254840160 :          lu(k,2515) = - lu(k,787) * lu(k,2492)
    2483   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,788) * lu(k,2492)
    2484   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,789) * lu(k,2492)
    2485   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,790) * lu(k,2492)
    2486   254840160 :          lu(k,2556) = - lu(k,784) * lu(k,2555)
    2487   254840160 :          lu(k,2565) = lu(k,2565) - lu(k,785) * lu(k,2555)
    2488   254840160 :          lu(k,2572) = lu(k,2572) - lu(k,786) * lu(k,2555)
    2489   254840160 :          lu(k,2580) = - lu(k,787) * lu(k,2555)
    2490   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,788) * lu(k,2555)
    2491   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,789) * lu(k,2555)
    2492   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,790) * lu(k,2555)
    2493   254840160 :          lu(k,3273) = lu(k,3273) - lu(k,784) * lu(k,3252)
    2494   254840160 :          lu(k,3315) = lu(k,3315) - lu(k,785) * lu(k,3252)
    2495   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,786) * lu(k,3252)
    2496   254840160 :          lu(k,3364) = - lu(k,787) * lu(k,3252)
    2497   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,788) * lu(k,3252)
    2498   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,789) * lu(k,3252)
    2499   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,790) * lu(k,3252)
    2500   254840160 :          lu(k,3983) = lu(k,3983) - lu(k,784) * lu(k,3959)
    2501   254840160 :          lu(k,4039) = lu(k,4039) - lu(k,785) * lu(k,3959)
    2502   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,786) * lu(k,3959)
    2503   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,787) * lu(k,3959)
    2504   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,788) * lu(k,3959)
    2505   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,789) * lu(k,3959)
    2506   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,790) * lu(k,3959)
    2507   254840160 :          lu(k,791) = 1._r8 / lu(k,791)
    2508   254840160 :          lu(k,792) = lu(k,792) * lu(k,791)
    2509   254840160 :          lu(k,793) = lu(k,793) * lu(k,791)
    2510   254840160 :          lu(k,794) = lu(k,794) * lu(k,791)
    2511   254840160 :          lu(k,795) = lu(k,795) * lu(k,791)
    2512   254840160 :          lu(k,1388) = lu(k,1388) - lu(k,792) * lu(k,1382)
    2513   254840160 :          lu(k,1395) = lu(k,1395) - lu(k,793) * lu(k,1382)
    2514   254840160 :          lu(k,1399) = lu(k,1399) - lu(k,794) * lu(k,1382)
    2515   254840160 :          lu(k,1400) = - lu(k,795) * lu(k,1382)
    2516   254840160 :          lu(k,1619) = lu(k,1619) - lu(k,792) * lu(k,1618)
    2517   254840160 :          lu(k,1628) = lu(k,1628) - lu(k,793) * lu(k,1618)
    2518   254840160 :          lu(k,1632) = lu(k,1632) - lu(k,794) * lu(k,1618)
    2519   254840160 :          lu(k,1633) = lu(k,1633) - lu(k,795) * lu(k,1618)
    2520   254840160 :          lu(k,2865) = lu(k,2865) - lu(k,792) * lu(k,2857)
    2521   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,793) * lu(k,2857)
    2522   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,794) * lu(k,2857)
    2523   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,795) * lu(k,2857)
    2524   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,792) * lu(k,3253)
    2525   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,793) * lu(k,3253)
    2526   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,794) * lu(k,3253)
    2527   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,795) * lu(k,3253)
    2528   254840160 :          lu(k,3404) = lu(k,3404) - lu(k,792) * lu(k,3384)
    2529   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,793) * lu(k,3384)
    2530   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,794) * lu(k,3384)
    2531   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,795) * lu(k,3384)
    2532   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,792) * lu(k,3680)
    2533   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,793) * lu(k,3680)
    2534   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,794) * lu(k,3680)
    2535   254840160 :          lu(k,3770) = - lu(k,795) * lu(k,3680)
    2536   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,792) * lu(k,3960)
    2537   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,793) * lu(k,3960)
    2538   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,794) * lu(k,3960)
    2539   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,795) * lu(k,3960)
    2540             :       end do
    2541     8168963 :       end subroutine lu_fac17
    2542     8168963 :       subroutine lu_fac18( avec_len, lu )
    2543             :       use chem_mods, only : nzcnt
    2544             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2545             :       implicit none
    2546             : !-----------------------------------------------------------------------
    2547             : ! ... dummy args
    2548             : !-----------------------------------------------------------------------
    2549             :       integer, intent(in) :: avec_len
    2550             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2551             : !-----------------------------------------------------------------------
    2552             : ! ... local variables
    2553             : !-----------------------------------------------------------------------
    2554             :       integer :: k
    2555   263009123 :       do k = 1,avec_len
    2556   254840160 :          lu(k,797) = 1._r8 / lu(k,797)
    2557   254840160 :          lu(k,798) = lu(k,798) * lu(k,797)
    2558   254840160 :          lu(k,799) = lu(k,799) * lu(k,797)
    2559   254840160 :          lu(k,800) = lu(k,800) * lu(k,797)
    2560   254840160 :          lu(k,801) = lu(k,801) * lu(k,797)
    2561   254840160 :          lu(k,802) = lu(k,802) * lu(k,797)
    2562   254840160 :          lu(k,803) = lu(k,803) * lu(k,797)
    2563   254840160 :          lu(k,804) = lu(k,804) * lu(k,797)
    2564   254840160 :          lu(k,2620) = - lu(k,798) * lu(k,2619)
    2565   254840160 :          lu(k,2626) = lu(k,2626) - lu(k,799) * lu(k,2619)
    2566   254840160 :          lu(k,2636) = - lu(k,800) * lu(k,2619)
    2567   254840160 :          lu(k,2639) = lu(k,2639) - lu(k,801) * lu(k,2619)
    2568   254840160 :          lu(k,2640) = - lu(k,802) * lu(k,2619)
    2569   254840160 :          lu(k,2642) = lu(k,2642) - lu(k,803) * lu(k,2619)
    2570   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,804) * lu(k,2619)
    2571   254840160 :          lu(k,3014) = lu(k,3014) - lu(k,798) * lu(k,3000)
    2572   254840160 :          lu(k,3058) = lu(k,3058) - lu(k,799) * lu(k,3000)
    2573   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,800) * lu(k,3000)
    2574   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,801) * lu(k,3000)
    2575   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,802) * lu(k,3000)
    2576   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,803) * lu(k,3000)
    2577   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,804) * lu(k,3000)
    2578   254840160 :          lu(k,3269) = lu(k,3269) - lu(k,798) * lu(k,3254)
    2579   254840160 :          lu(k,3317) = lu(k,3317) - lu(k,799) * lu(k,3254)
    2580   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,800) * lu(k,3254)
    2581   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,801) * lu(k,3254)
    2582   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,802) * lu(k,3254)
    2583   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,803) * lu(k,3254)
    2584   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,804) * lu(k,3254)
    2585   254840160 :          lu(k,3979) = lu(k,3979) - lu(k,798) * lu(k,3961)
    2586   254840160 :          lu(k,4041) = lu(k,4041) - lu(k,799) * lu(k,3961)
    2587   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,800) * lu(k,3961)
    2588   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,801) * lu(k,3961)
    2589   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,802) * lu(k,3961)
    2590   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,803) * lu(k,3961)
    2591   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,804) * lu(k,3961)
    2592   254840160 :          lu(k,805) = 1._r8 / lu(k,805)
    2593   254840160 :          lu(k,806) = lu(k,806) * lu(k,805)
    2594   254840160 :          lu(k,807) = lu(k,807) * lu(k,805)
    2595   254840160 :          lu(k,808) = lu(k,808) * lu(k,805)
    2596   254840160 :          lu(k,809) = lu(k,809) * lu(k,805)
    2597   254840160 :          lu(k,810) = lu(k,810) * lu(k,805)
    2598   254840160 :          lu(k,811) = lu(k,811) * lu(k,805)
    2599   254840160 :          lu(k,812) = lu(k,812) * lu(k,805)
    2600   254840160 :          lu(k,1686) = - lu(k,806) * lu(k,1685)
    2601   254840160 :          lu(k,1687) = - lu(k,807) * lu(k,1685)
    2602   254840160 :          lu(k,1688) = - lu(k,808) * lu(k,1685)
    2603   254840160 :          lu(k,1693) = - lu(k,809) * lu(k,1685)
    2604   254840160 :          lu(k,1694) = lu(k,1694) - lu(k,810) * lu(k,1685)
    2605   254840160 :          lu(k,1695) = lu(k,1695) - lu(k,811) * lu(k,1685)
    2606   254840160 :          lu(k,1696) = lu(k,1696) - lu(k,812) * lu(k,1685)
    2607   254840160 :          lu(k,3014) = lu(k,3014) - lu(k,806) * lu(k,3001)
    2608   254840160 :          lu(k,3030) = lu(k,3030) - lu(k,807) * lu(k,3001)
    2609   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,808) * lu(k,3001)
    2610   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,809) * lu(k,3001)
    2611   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,810) * lu(k,3001)
    2612   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,811) * lu(k,3001)
    2613   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,812) * lu(k,3001)
    2614   254840160 :          lu(k,3269) = lu(k,3269) - lu(k,806) * lu(k,3255)
    2615   254840160 :          lu(k,3287) = - lu(k,807) * lu(k,3255)
    2616   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,808) * lu(k,3255)
    2617   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,809) * lu(k,3255)
    2618   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,810) * lu(k,3255)
    2619   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,811) * lu(k,3255)
    2620   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,812) * lu(k,3255)
    2621   254840160 :          lu(k,3979) = lu(k,3979) - lu(k,806) * lu(k,3962)
    2622   254840160 :          lu(k,4001) = lu(k,4001) - lu(k,807) * lu(k,3962)
    2623   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,808) * lu(k,3962)
    2624   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,809) * lu(k,3962)
    2625   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,810) * lu(k,3962)
    2626   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,811) * lu(k,3962)
    2627   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,812) * lu(k,3962)
    2628   254840160 :          lu(k,813) = 1._r8 / lu(k,813)
    2629   254840160 :          lu(k,814) = lu(k,814) * lu(k,813)
    2630   254840160 :          lu(k,815) = lu(k,815) * lu(k,813)
    2631   254840160 :          lu(k,816) = lu(k,816) * lu(k,813)
    2632   254840160 :          lu(k,817) = lu(k,817) * lu(k,813)
    2633   254840160 :          lu(k,818) = lu(k,818) * lu(k,813)
    2634   254840160 :          lu(k,819) = lu(k,819) * lu(k,813)
    2635   254840160 :          lu(k,820) = lu(k,820) * lu(k,813)
    2636   254840160 :          lu(k,1698) = - lu(k,814) * lu(k,1697)
    2637   254840160 :          lu(k,1699) = - lu(k,815) * lu(k,1697)
    2638   254840160 :          lu(k,1700) = - lu(k,816) * lu(k,1697)
    2639   254840160 :          lu(k,1706) = - lu(k,817) * lu(k,1697)
    2640   254840160 :          lu(k,1707) = lu(k,1707) - lu(k,818) * lu(k,1697)
    2641   254840160 :          lu(k,1708) = lu(k,1708) - lu(k,819) * lu(k,1697)
    2642   254840160 :          lu(k,1709) = lu(k,1709) - lu(k,820) * lu(k,1697)
    2643   254840160 :          lu(k,3014) = lu(k,3014) - lu(k,814) * lu(k,3002)
    2644   254840160 :          lu(k,3030) = lu(k,3030) - lu(k,815) * lu(k,3002)
    2645   254840160 :          lu(k,3048) = lu(k,3048) - lu(k,816) * lu(k,3002)
    2646   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,817) * lu(k,3002)
    2647   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,818) * lu(k,3002)
    2648   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,819) * lu(k,3002)
    2649   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,820) * lu(k,3002)
    2650   254840160 :          lu(k,3269) = lu(k,3269) - lu(k,814) * lu(k,3256)
    2651   254840160 :          lu(k,3287) = lu(k,3287) - lu(k,815) * lu(k,3256)
    2652   254840160 :          lu(k,3305) = lu(k,3305) - lu(k,816) * lu(k,3256)
    2653   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,817) * lu(k,3256)
    2654   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,818) * lu(k,3256)
    2655   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,819) * lu(k,3256)
    2656   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,820) * lu(k,3256)
    2657   254840160 :          lu(k,3979) = lu(k,3979) - lu(k,814) * lu(k,3963)
    2658   254840160 :          lu(k,4001) = lu(k,4001) - lu(k,815) * lu(k,3963)
    2659   254840160 :          lu(k,4028) = lu(k,4028) - lu(k,816) * lu(k,3963)
    2660   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,817) * lu(k,3963)
    2661   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,818) * lu(k,3963)
    2662   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,819) * lu(k,3963)
    2663   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,820) * lu(k,3963)
    2664   254840160 :          lu(k,827) = 1._r8 / lu(k,827)
    2665   254840160 :          lu(k,828) = lu(k,828) * lu(k,827)
    2666   254840160 :          lu(k,829) = lu(k,829) * lu(k,827)
    2667   254840160 :          lu(k,830) = lu(k,830) * lu(k,827)
    2668   254840160 :          lu(k,831) = lu(k,831) * lu(k,827)
    2669   254840160 :          lu(k,832) = lu(k,832) * lu(k,827)
    2670   254840160 :          lu(k,833) = lu(k,833) * lu(k,827)
    2671   254840160 :          lu(k,834) = lu(k,834) * lu(k,827)
    2672   254840160 :          lu(k,835) = lu(k,835) * lu(k,827)
    2673   254840160 :          lu(k,836) = lu(k,836) * lu(k,827)
    2674   254840160 :          lu(k,837) = lu(k,837) * lu(k,827)
    2675   254840160 :          lu(k,3559) = - lu(k,828) * lu(k,3529)
    2676   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,829) * lu(k,3529)
    2677   254840160 :          lu(k,3587) = lu(k,3587) - lu(k,830) * lu(k,3529)
    2678   254840160 :          lu(k,3590) = lu(k,3590) - lu(k,831) * lu(k,3529)
    2679   254840160 :          lu(k,3591) = lu(k,3591) - lu(k,832) * lu(k,3529)
    2680   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,833) * lu(k,3529)
    2681   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,834) * lu(k,3529)
    2682   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,835) * lu(k,3529)
    2683   254840160 :          lu(k,3612) = - lu(k,836) * lu(k,3529)
    2684   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,837) * lu(k,3529)
    2685   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,828) * lu(k,3681)
    2686   254840160 :          lu(k,3734) = lu(k,3734) - lu(k,829) * lu(k,3681)
    2687   254840160 :          lu(k,3741) = - lu(k,830) * lu(k,3681)
    2688   254840160 :          lu(k,3744) = - lu(k,831) * lu(k,3681)
    2689   254840160 :          lu(k,3745) = lu(k,3745) - lu(k,832) * lu(k,3681)
    2690   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,833) * lu(k,3681)
    2691   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,834) * lu(k,3681)
    2692   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,835) * lu(k,3681)
    2693   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,836) * lu(k,3681)
    2694   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,837) * lu(k,3681)
    2695   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,828) * lu(k,3964)
    2696   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,829) * lu(k,3964)
    2697   254840160 :          lu(k,4073) = lu(k,4073) - lu(k,830) * lu(k,3964)
    2698   254840160 :          lu(k,4076) = - lu(k,831) * lu(k,3964)
    2699   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,832) * lu(k,3964)
    2700   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,833) * lu(k,3964)
    2701   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,834) * lu(k,3964)
    2702   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,835) * lu(k,3964)
    2703   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,836) * lu(k,3964)
    2704   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,837) * lu(k,3964)
    2705             :       end do
    2706     8168963 :       end subroutine lu_fac18
    2707     8168963 :       subroutine lu_fac19( avec_len, lu )
    2708             :       use chem_mods, only : nzcnt
    2709             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2710             :       implicit none
    2711             : !-----------------------------------------------------------------------
    2712             : ! ... dummy args
    2713             : !-----------------------------------------------------------------------
    2714             :       integer, intent(in) :: avec_len
    2715             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2716             : !-----------------------------------------------------------------------
    2717             : ! ... local variables
    2718             : !-----------------------------------------------------------------------
    2719             :       integer :: k
    2720   263009123 :       do k = 1,avec_len
    2721   254840160 :          lu(k,842) = 1._r8 / lu(k,842)
    2722   254840160 :          lu(k,843) = lu(k,843) * lu(k,842)
    2723   254840160 :          lu(k,844) = lu(k,844) * lu(k,842)
    2724   254840160 :          lu(k,845) = lu(k,845) * lu(k,842)
    2725   254840160 :          lu(k,846) = lu(k,846) * lu(k,842)
    2726   254840160 :          lu(k,847) = lu(k,847) * lu(k,842)
    2727   254840160 :          lu(k,848) = lu(k,848) * lu(k,842)
    2728   254840160 :          lu(k,849) = lu(k,849) * lu(k,842)
    2729   254840160 :          lu(k,850) = lu(k,850) * lu(k,842)
    2730   254840160 :          lu(k,851) = lu(k,851) * lu(k,842)
    2731   254840160 :          lu(k,852) = lu(k,852) * lu(k,842)
    2732   254840160 :          lu(k,894) = lu(k,894) - lu(k,843) * lu(k,893)
    2733   254840160 :          lu(k,895) = lu(k,895) - lu(k,844) * lu(k,893)
    2734   254840160 :          lu(k,896) = lu(k,896) - lu(k,845) * lu(k,893)
    2735   254840160 :          lu(k,897) = lu(k,897) - lu(k,846) * lu(k,893)
    2736   254840160 :          lu(k,898) = lu(k,898) - lu(k,847) * lu(k,893)
    2737   254840160 :          lu(k,899) = lu(k,899) - lu(k,848) * lu(k,893)
    2738   254840160 :          lu(k,900) = lu(k,900) - lu(k,849) * lu(k,893)
    2739   254840160 :          lu(k,901) = lu(k,901) - lu(k,850) * lu(k,893)
    2740   254840160 :          lu(k,903) = lu(k,903) - lu(k,851) * lu(k,893)
    2741   254840160 :          lu(k,905) = - lu(k,852) * lu(k,893)
    2742   254840160 :          lu(k,3259) = lu(k,3259) - lu(k,843) * lu(k,3257)
    2743   254840160 :          lu(k,3262) = lu(k,3262) - lu(k,844) * lu(k,3257)
    2744   254840160 :          lu(k,3263) = lu(k,3263) - lu(k,845) * lu(k,3257)
    2745   254840160 :          lu(k,3265) = lu(k,3265) - lu(k,846) * lu(k,3257)
    2746   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,847) * lu(k,3257)
    2747   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,848) * lu(k,3257)
    2748   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,849) * lu(k,3257)
    2749   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,850) * lu(k,3257)
    2750   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,851) * lu(k,3257)
    2751   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,852) * lu(k,3257)
    2752   254840160 :          lu(k,3967) = lu(k,3967) - lu(k,843) * lu(k,3965)
    2753   254840160 :          lu(k,3970) = lu(k,3970) - lu(k,844) * lu(k,3965)
    2754   254840160 :          lu(k,3971) = lu(k,3971) - lu(k,845) * lu(k,3965)
    2755   254840160 :          lu(k,3975) = lu(k,3975) - lu(k,846) * lu(k,3965)
    2756   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,847) * lu(k,3965)
    2757   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,848) * lu(k,3965)
    2758   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,849) * lu(k,3965)
    2759   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,850) * lu(k,3965)
    2760   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,851) * lu(k,3965)
    2761   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,852) * lu(k,3965)
    2762   254840160 :          lu(k,855) = 1._r8 / lu(k,855)
    2763   254840160 :          lu(k,856) = lu(k,856) * lu(k,855)
    2764   254840160 :          lu(k,857) = lu(k,857) * lu(k,855)
    2765   254840160 :          lu(k,858) = lu(k,858) * lu(k,855)
    2766   254840160 :          lu(k,859) = lu(k,859) * lu(k,855)
    2767   254840160 :          lu(k,860) = lu(k,860) * lu(k,855)
    2768   254840160 :          lu(k,861) = lu(k,861) * lu(k,855)
    2769   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,856) * lu(k,3003)
    2770   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,857) * lu(k,3003)
    2771   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,858) * lu(k,3003)
    2772   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,859) * lu(k,3003)
    2773   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,860) * lu(k,3003)
    2774   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,861) * lu(k,3003)
    2775   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,856) * lu(k,3258)
    2776   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,857) * lu(k,3258)
    2777   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,858) * lu(k,3258)
    2778   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,859) * lu(k,3258)
    2779   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,860) * lu(k,3258)
    2780   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,861) * lu(k,3258)
    2781   254840160 :          lu(k,3709) = lu(k,3709) - lu(k,856) * lu(k,3682)
    2782   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,857) * lu(k,3682)
    2783   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,858) * lu(k,3682)
    2784   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,859) * lu(k,3682)
    2785   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,860) * lu(k,3682)
    2786   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,861) * lu(k,3682)
    2787   254840160 :          lu(k,3831) = - lu(k,856) * lu(k,3820)
    2788   254840160 :          lu(k,3838) = - lu(k,857) * lu(k,3820)
    2789   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,858) * lu(k,3820)
    2790   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,859) * lu(k,3820)
    2791   254840160 :          lu(k,3847) = - lu(k,860) * lu(k,3820)
    2792   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,861) * lu(k,3820)
    2793   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,856) * lu(k,3966)
    2794   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,857) * lu(k,3966)
    2795   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,858) * lu(k,3966)
    2796   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,859) * lu(k,3966)
    2797   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,860) * lu(k,3966)
    2798   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,861) * lu(k,3966)
    2799   254840160 :          lu(k,862) = 1._r8 / lu(k,862)
    2800   254840160 :          lu(k,863) = lu(k,863) * lu(k,862)
    2801   254840160 :          lu(k,864) = lu(k,864) * lu(k,862)
    2802   254840160 :          lu(k,865) = lu(k,865) * lu(k,862)
    2803   254840160 :          lu(k,866) = lu(k,866) * lu(k,862)
    2804   254840160 :          lu(k,867) = lu(k,867) * lu(k,862)
    2805   254840160 :          lu(k,876) = lu(k,876) - lu(k,863) * lu(k,872)
    2806   254840160 :          lu(k,878) = lu(k,878) - lu(k,864) * lu(k,872)
    2807   254840160 :          lu(k,879) = lu(k,879) - lu(k,865) * lu(k,872)
    2808   254840160 :          lu(k,880) = lu(k,880) - lu(k,866) * lu(k,872)
    2809   254840160 :          lu(k,881) = lu(k,881) - lu(k,867) * lu(k,872)
    2810   254840160 :          lu(k,898) = lu(k,898) - lu(k,863) * lu(k,894)
    2811   254840160 :          lu(k,900) = lu(k,900) - lu(k,864) * lu(k,894)
    2812   254840160 :          lu(k,902) = lu(k,902) - lu(k,865) * lu(k,894)
    2813   254840160 :          lu(k,903) = lu(k,903) - lu(k,866) * lu(k,894)
    2814   254840160 :          lu(k,904) = lu(k,904) - lu(k,867) * lu(k,894)
    2815   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,863) * lu(k,3004)
    2816   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,864) * lu(k,3004)
    2817   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,865) * lu(k,3004)
    2818   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,866) * lu(k,3004)
    2819   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,867) * lu(k,3004)
    2820   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,863) * lu(k,3259)
    2821   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,864) * lu(k,3259)
    2822   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,865) * lu(k,3259)
    2823   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,866) * lu(k,3259)
    2824   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,867) * lu(k,3259)
    2825   254840160 :          lu(k,3638) = - lu(k,863) * lu(k,3631)
    2826   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,864) * lu(k,3631)
    2827   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,865) * lu(k,3631)
    2828   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,866) * lu(k,3631)
    2829   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,867) * lu(k,3631)
    2830   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,863) * lu(k,3967)
    2831   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,864) * lu(k,3967)
    2832   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,865) * lu(k,3967)
    2833   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,866) * lu(k,3967)
    2834   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,867) * lu(k,3967)
    2835   254840160 :          lu(k,873) = 1._r8 / lu(k,873)
    2836   254840160 :          lu(k,874) = lu(k,874) * lu(k,873)
    2837   254840160 :          lu(k,875) = lu(k,875) * lu(k,873)
    2838   254840160 :          lu(k,876) = lu(k,876) * lu(k,873)
    2839   254840160 :          lu(k,877) = lu(k,877) * lu(k,873)
    2840   254840160 :          lu(k,878) = lu(k,878) * lu(k,873)
    2841   254840160 :          lu(k,879) = lu(k,879) * lu(k,873)
    2842   254840160 :          lu(k,880) = lu(k,880) * lu(k,873)
    2843   254840160 :          lu(k,881) = lu(k,881) * lu(k,873)
    2844   254840160 :          lu(k,882) = lu(k,882) * lu(k,873)
    2845   254840160 :          lu(k,3008) = lu(k,3008) - lu(k,874) * lu(k,3005)
    2846   254840160 :          lu(k,3010) = lu(k,3010) - lu(k,875) * lu(k,3005)
    2847   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,876) * lu(k,3005)
    2848   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,877) * lu(k,3005)
    2849   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,878) * lu(k,3005)
    2850   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,879) * lu(k,3005)
    2851   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,880) * lu(k,3005)
    2852   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,881) * lu(k,3005)
    2853   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,882) * lu(k,3005)
    2854   254840160 :          lu(k,3263) = lu(k,3263) - lu(k,874) * lu(k,3260)
    2855   254840160 :          lu(k,3265) = lu(k,3265) - lu(k,875) * lu(k,3260)
    2856   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,876) * lu(k,3260)
    2857   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,877) * lu(k,3260)
    2858   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,878) * lu(k,3260)
    2859   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,879) * lu(k,3260)
    2860   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,880) * lu(k,3260)
    2861   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,881) * lu(k,3260)
    2862   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,882) * lu(k,3260)
    2863   254840160 :          lu(k,3971) = lu(k,3971) - lu(k,874) * lu(k,3968)
    2864   254840160 :          lu(k,3975) = lu(k,3975) - lu(k,875) * lu(k,3968)
    2865   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,876) * lu(k,3968)
    2866   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,877) * lu(k,3968)
    2867   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,878) * lu(k,3968)
    2868   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,879) * lu(k,3968)
    2869   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,880) * lu(k,3968)
    2870   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,881) * lu(k,3968)
    2871   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,882) * lu(k,3968)
    2872   254840160 :          lu(k,883) = 1._r8 / lu(k,883)
    2873   254840160 :          lu(k,884) = lu(k,884) * lu(k,883)
    2874   254840160 :          lu(k,885) = lu(k,885) * lu(k,883)
    2875   254840160 :          lu(k,886) = lu(k,886) * lu(k,883)
    2876   254840160 :          lu(k,887) = lu(k,887) * lu(k,883)
    2877   254840160 :          lu(k,888) = lu(k,888) * lu(k,883)
    2878   254840160 :          lu(k,1364) = - lu(k,884) * lu(k,1359)
    2879   254840160 :          lu(k,1370) = - lu(k,885) * lu(k,1359)
    2880   254840160 :          lu(k,1373) = lu(k,1373) - lu(k,886) * lu(k,1359)
    2881   254840160 :          lu(k,1374) = lu(k,1374) - lu(k,887) * lu(k,1359)
    2882   254840160 :          lu(k,1376) = lu(k,1376) - lu(k,888) * lu(k,1359)
    2883   254840160 :          lu(k,1568) = lu(k,1568) - lu(k,884) * lu(k,1562)
    2884   254840160 :          lu(k,1582) = - lu(k,885) * lu(k,1562)
    2885   254840160 :          lu(k,1590) = - lu(k,886) * lu(k,1562)
    2886   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,887) * lu(k,1562)
    2887   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,888) * lu(k,1562)
    2888   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,884) * lu(k,3006)
    2889   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,885) * lu(k,3006)
    2890   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,886) * lu(k,3006)
    2891   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,887) * lu(k,3006)
    2892   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,888) * lu(k,3006)
    2893   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,884) * lu(k,3261)
    2894   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,885) * lu(k,3261)
    2895   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,886) * lu(k,3261)
    2896   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,887) * lu(k,3261)
    2897   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,888) * lu(k,3261)
    2898   254840160 :          lu(k,3700) = lu(k,3700) - lu(k,884) * lu(k,3683)
    2899   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,885) * lu(k,3683)
    2900   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,886) * lu(k,3683)
    2901   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,887) * lu(k,3683)
    2902   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,888) * lu(k,3683)
    2903   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,884) * lu(k,3969)
    2904   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,885) * lu(k,3969)
    2905   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,886) * lu(k,3969)
    2906   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,887) * lu(k,3969)
    2907   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,888) * lu(k,3969)
    2908   254840160 :          lu(k,895) = 1._r8 / lu(k,895)
    2909   254840160 :          lu(k,896) = lu(k,896) * lu(k,895)
    2910   254840160 :          lu(k,897) = lu(k,897) * lu(k,895)
    2911   254840160 :          lu(k,898) = lu(k,898) * lu(k,895)
    2912   254840160 :          lu(k,899) = lu(k,899) * lu(k,895)
    2913   254840160 :          lu(k,900) = lu(k,900) * lu(k,895)
    2914   254840160 :          lu(k,901) = lu(k,901) * lu(k,895)
    2915   254840160 :          lu(k,902) = lu(k,902) * lu(k,895)
    2916   254840160 :          lu(k,903) = lu(k,903) * lu(k,895)
    2917   254840160 :          lu(k,904) = lu(k,904) * lu(k,895)
    2918   254840160 :          lu(k,905) = lu(k,905) * lu(k,895)
    2919   254840160 :          lu(k,3008) = lu(k,3008) - lu(k,896) * lu(k,3007)
    2920   254840160 :          lu(k,3010) = lu(k,3010) - lu(k,897) * lu(k,3007)
    2921   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,898) * lu(k,3007)
    2922   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,899) * lu(k,3007)
    2923   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,900) * lu(k,3007)
    2924   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,901) * lu(k,3007)
    2925   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,902) * lu(k,3007)
    2926   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,903) * lu(k,3007)
    2927   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,904) * lu(k,3007)
    2928   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,905) * lu(k,3007)
    2929   254840160 :          lu(k,3263) = lu(k,3263) - lu(k,896) * lu(k,3262)
    2930   254840160 :          lu(k,3265) = lu(k,3265) - lu(k,897) * lu(k,3262)
    2931   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,898) * lu(k,3262)
    2932   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,899) * lu(k,3262)
    2933   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,900) * lu(k,3262)
    2934   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,901) * lu(k,3262)
    2935   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,902) * lu(k,3262)
    2936   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,903) * lu(k,3262)
    2937   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,904) * lu(k,3262)
    2938   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,905) * lu(k,3262)
    2939   254840160 :          lu(k,3971) = lu(k,3971) - lu(k,896) * lu(k,3970)
    2940   254840160 :          lu(k,3975) = lu(k,3975) - lu(k,897) * lu(k,3970)
    2941   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,898) * lu(k,3970)
    2942   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,899) * lu(k,3970)
    2943   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,900) * lu(k,3970)
    2944   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,901) * lu(k,3970)
    2945   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,902) * lu(k,3970)
    2946   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,903) * lu(k,3970)
    2947   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,904) * lu(k,3970)
    2948   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,905) * lu(k,3970)
    2949             :       end do
    2950     8168963 :       end subroutine lu_fac19
    2951     8168963 :       subroutine lu_fac20( avec_len, lu )
    2952             :       use chem_mods, only : nzcnt
    2953             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2954             :       implicit none
    2955             : !-----------------------------------------------------------------------
    2956             : ! ... dummy args
    2957             : !-----------------------------------------------------------------------
    2958             :       integer, intent(in) :: avec_len
    2959             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2960             : !-----------------------------------------------------------------------
    2961             : ! ... local variables
    2962             : !-----------------------------------------------------------------------
    2963             :       integer :: k
    2964   263009123 :       do k = 1,avec_len
    2965   254840160 :          lu(k,906) = 1._r8 / lu(k,906)
    2966   254840160 :          lu(k,907) = lu(k,907) * lu(k,906)
    2967   254840160 :          lu(k,908) = lu(k,908) * lu(k,906)
    2968   254840160 :          lu(k,909) = lu(k,909) * lu(k,906)
    2969   254840160 :          lu(k,910) = lu(k,910) * lu(k,906)
    2970   254840160 :          lu(k,911) = lu(k,911) * lu(k,906)
    2971   254840160 :          lu(k,912) = lu(k,912) * lu(k,906)
    2972   254840160 :          lu(k,913) = lu(k,913) * lu(k,906)
    2973   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,907) * lu(k,3008)
    2974   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,908) * lu(k,3008)
    2975   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,909) * lu(k,3008)
    2976   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,910) * lu(k,3008)
    2977   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,911) * lu(k,3008)
    2978   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,912) * lu(k,3008)
    2979   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,913) * lu(k,3008)
    2980   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,907) * lu(k,3263)
    2981   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,908) * lu(k,3263)
    2982   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,909) * lu(k,3263)
    2983   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,910) * lu(k,3263)
    2984   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,911) * lu(k,3263)
    2985   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,912) * lu(k,3263)
    2986   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,913) * lu(k,3263)
    2987   254840160 :          lu(k,3643) = - lu(k,907) * lu(k,3632)
    2988   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,908) * lu(k,3632)
    2989   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,909) * lu(k,3632)
    2990   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,910) * lu(k,3632)
    2991   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,911) * lu(k,3632)
    2992   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,912) * lu(k,3632)
    2993   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,913) * lu(k,3632)
    2994   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,907) * lu(k,3971)
    2995   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,908) * lu(k,3971)
    2996   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,909) * lu(k,3971)
    2997   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,910) * lu(k,3971)
    2998   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,911) * lu(k,3971)
    2999   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,912) * lu(k,3971)
    3000   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,913) * lu(k,3971)
    3001   254840160 :          lu(k,914) = 1._r8 / lu(k,914)
    3002   254840160 :          lu(k,915) = lu(k,915) * lu(k,914)
    3003   254840160 :          lu(k,916) = lu(k,916) * lu(k,914)
    3004   254840160 :          lu(k,917) = lu(k,917) * lu(k,914)
    3005   254840160 :          lu(k,918) = lu(k,918) * lu(k,914)
    3006   254840160 :          lu(k,1198) = - lu(k,915) * lu(k,1193)
    3007   254840160 :          lu(k,1199) = lu(k,1199) - lu(k,916) * lu(k,1193)
    3008   254840160 :          lu(k,1202) = - lu(k,917) * lu(k,1193)
    3009   254840160 :          lu(k,1206) = lu(k,1206) - lu(k,918) * lu(k,1193)
    3010   254840160 :          lu(k,1256) = lu(k,1256) - lu(k,915) * lu(k,1251)
    3011   254840160 :          lu(k,1258) = - lu(k,916) * lu(k,1251)
    3012   254840160 :          lu(k,1259) = lu(k,1259) - lu(k,917) * lu(k,1251)
    3013   254840160 :          lu(k,1261) = lu(k,1261) - lu(k,918) * lu(k,1251)
    3014   254840160 :          lu(k,1527) = - lu(k,915) * lu(k,1521)
    3015   254840160 :          lu(k,1529) = - lu(k,916) * lu(k,1521)
    3016   254840160 :          lu(k,1530) = - lu(k,917) * lu(k,1521)
    3017   254840160 :          lu(k,1532) = - lu(k,918) * lu(k,1521)
    3018   254840160 :          lu(k,1815) = - lu(k,915) * lu(k,1807)
    3019   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,916) * lu(k,1807)
    3020   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,917) * lu(k,1807)
    3021   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,918) * lu(k,1807)
    3022   254840160 :          lu(k,1847) = - lu(k,915) * lu(k,1838)
    3023   254840160 :          lu(k,1852) = lu(k,1852) - lu(k,916) * lu(k,1838)
    3024   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,917) * lu(k,1838)
    3025   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,918) * lu(k,1838)
    3026   254840160 :          lu(k,1893) = lu(k,1893) - lu(k,915) * lu(k,1886)
    3027   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,916) * lu(k,1886)
    3028   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,917) * lu(k,1886)
    3029   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,918) * lu(k,1886)
    3030   254840160 :          lu(k,2133) = - lu(k,915) * lu(k,2125)
    3031   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,916) * lu(k,2125)
    3032   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,917) * lu(k,2125)
    3033   254840160 :          lu(k,2146) = - lu(k,918) * lu(k,2125)
    3034   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,915) * lu(k,3972)
    3035   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,916) * lu(k,3972)
    3036   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,917) * lu(k,3972)
    3037   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,918) * lu(k,3972)
    3038   254840160 :          lu(k,919) = 1._r8 / lu(k,919)
    3039   254840160 :          lu(k,920) = lu(k,920) * lu(k,919)
    3040   254840160 :          lu(k,921) = lu(k,921) * lu(k,919)
    3041   254840160 :          lu(k,922) = lu(k,922) * lu(k,919)
    3042   254840160 :          lu(k,923) = lu(k,923) * lu(k,919)
    3043   254840160 :          lu(k,1731) = - lu(k,920) * lu(k,1727)
    3044   254840160 :          lu(k,1733) = - lu(k,921) * lu(k,1727)
    3045   254840160 :          lu(k,1744) = lu(k,1744) - lu(k,922) * lu(k,1727)
    3046   254840160 :          lu(k,1747) = lu(k,1747) - lu(k,923) * lu(k,1727)
    3047   254840160 :          lu(k,1753) = - lu(k,920) * lu(k,1749)
    3048   254840160 :          lu(k,1755) = - lu(k,921) * lu(k,1749)
    3049   254840160 :          lu(k,1766) = lu(k,1766) - lu(k,922) * lu(k,1749)
    3050   254840160 :          lu(k,1769) = lu(k,1769) - lu(k,923) * lu(k,1749)
    3051   254840160 :          lu(k,1814) = - lu(k,920) * lu(k,1808)
    3052   254840160 :          lu(k,1815) = lu(k,1815) - lu(k,921) * lu(k,1808)
    3053   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,922) * lu(k,1808)
    3054   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,923) * lu(k,1808)
    3055   254840160 :          lu(k,1846) = - lu(k,920) * lu(k,1839)
    3056   254840160 :          lu(k,1847) = lu(k,1847) - lu(k,921) * lu(k,1839)
    3057   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,922) * lu(k,1839)
    3058   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,923) * lu(k,1839)
    3059   254840160 :          lu(k,1943) = - lu(k,920) * lu(k,1937)
    3060   254840160 :          lu(k,1945) = - lu(k,921) * lu(k,1937)
    3061   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,922) * lu(k,1937)
    3062   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,923) * lu(k,1937)
    3063   254840160 :          lu(k,1980) = - lu(k,920) * lu(k,1973)
    3064   254840160 :          lu(k,1982) = - lu(k,921) * lu(k,1973)
    3065   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,922) * lu(k,1973)
    3066   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,923) * lu(k,1973)
    3067   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,920) * lu(k,3385)
    3068   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,921) * lu(k,3385)
    3069   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,922) * lu(k,3385)
    3070   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,923) * lu(k,3385)
    3071   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,920) * lu(k,3973)
    3072   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,921) * lu(k,3973)
    3073   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,922) * lu(k,3973)
    3074   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,923) * lu(k,3973)
    3075   254840160 :          lu(k,924) = 1._r8 / lu(k,924)
    3076   254840160 :          lu(k,925) = lu(k,925) * lu(k,924)
    3077   254840160 :          lu(k,926) = lu(k,926) * lu(k,924)
    3078   254840160 :          lu(k,927) = lu(k,927) * lu(k,924)
    3079   254840160 :          lu(k,928) = lu(k,928) * lu(k,924)
    3080   254840160 :          lu(k,1369) = - lu(k,925) * lu(k,1360)
    3081   254840160 :          lu(k,1371) = - lu(k,926) * lu(k,1360)
    3082   254840160 :          lu(k,1373) = lu(k,1373) - lu(k,927) * lu(k,1360)
    3083   254840160 :          lu(k,1376) = lu(k,1376) - lu(k,928) * lu(k,1360)
    3084   254840160 :          lu(k,1581) = lu(k,1581) - lu(k,925) * lu(k,1563)
    3085   254840160 :          lu(k,1585) = - lu(k,926) * lu(k,1563)
    3086   254840160 :          lu(k,1590) = lu(k,1590) - lu(k,927) * lu(k,1563)
    3087   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,928) * lu(k,1563)
    3088   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,925) * lu(k,1809)
    3089   254840160 :          lu(k,1826) = lu(k,1826) - lu(k,926) * lu(k,1809)
    3090   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,927) * lu(k,1809)
    3091   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,928) * lu(k,1809)
    3092   254840160 :          lu(k,1852) = lu(k,1852) - lu(k,925) * lu(k,1840)
    3093   254840160 :          lu(k,1857) = lu(k,1857) - lu(k,926) * lu(k,1840)
    3094   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,927) * lu(k,1840)
    3095   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,928) * lu(k,1840)
    3096   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,925) * lu(k,3009)
    3097   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,926) * lu(k,3009)
    3098   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,927) * lu(k,3009)
    3099   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,928) * lu(k,3009)
    3100   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,925) * lu(k,3264)
    3101   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,926) * lu(k,3264)
    3102   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,927) * lu(k,3264)
    3103   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,928) * lu(k,3264)
    3104   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,925) * lu(k,3684)
    3105   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,926) * lu(k,3684)
    3106   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,927) * lu(k,3684)
    3107   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,928) * lu(k,3684)
    3108   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,925) * lu(k,3974)
    3109   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,926) * lu(k,3974)
    3110   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,927) * lu(k,3974)
    3111   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,928) * lu(k,3974)
    3112   254840160 :          lu(k,929) = 1._r8 / lu(k,929)
    3113   254840160 :          lu(k,930) = lu(k,930) * lu(k,929)
    3114   254840160 :          lu(k,931) = lu(k,931) * lu(k,929)
    3115   254840160 :          lu(k,932) = lu(k,932) * lu(k,929)
    3116   254840160 :          lu(k,933) = lu(k,933) * lu(k,929)
    3117   254840160 :          lu(k,934) = lu(k,934) * lu(k,929)
    3118   254840160 :          lu(k,935) = lu(k,935) * lu(k,929)
    3119   254840160 :          lu(k,936) = lu(k,936) * lu(k,929)
    3120   254840160 :          lu(k,937) = lu(k,937) * lu(k,929)
    3121   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,930) * lu(k,3010)
    3122   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,931) * lu(k,3010)
    3123   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,932) * lu(k,3010)
    3124   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,933) * lu(k,3010)
    3125   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,934) * lu(k,3010)
    3126   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,935) * lu(k,3010)
    3127   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,936) * lu(k,3010)
    3128   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,937) * lu(k,3010)
    3129   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,930) * lu(k,3265)
    3130   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,931) * lu(k,3265)
    3131   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,932) * lu(k,3265)
    3132   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,933) * lu(k,3265)
    3133   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,934) * lu(k,3265)
    3134   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,935) * lu(k,3265)
    3135   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,936) * lu(k,3265)
    3136   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,937) * lu(k,3265)
    3137   254840160 :          lu(k,3638) = lu(k,3638) - lu(k,930) * lu(k,3633)
    3138   254840160 :          lu(k,3643) = lu(k,3643) - lu(k,931) * lu(k,3633)
    3139   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,932) * lu(k,3633)
    3140   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,933) * lu(k,3633)
    3141   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,934) * lu(k,3633)
    3142   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,935) * lu(k,3633)
    3143   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,936) * lu(k,3633)
    3144   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,937) * lu(k,3633)
    3145   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,930) * lu(k,3975)
    3146   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,931) * lu(k,3975)
    3147   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,932) * lu(k,3975)
    3148   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,933) * lu(k,3975)
    3149   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,934) * lu(k,3975)
    3150   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,935) * lu(k,3975)
    3151   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,936) * lu(k,3975)
    3152   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,937) * lu(k,3975)
    3153             :       end do
    3154     8168963 :       end subroutine lu_fac20
    3155     8168963 :       subroutine lu_fac21( avec_len, lu )
    3156             :       use chem_mods, only : nzcnt
    3157             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3158             :       implicit none
    3159             : !-----------------------------------------------------------------------
    3160             : ! ... dummy args
    3161             : !-----------------------------------------------------------------------
    3162             :       integer, intent(in) :: avec_len
    3163             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3164             : !-----------------------------------------------------------------------
    3165             : ! ... local variables
    3166             : !-----------------------------------------------------------------------
    3167             :       integer :: k
    3168   263009123 :       do k = 1,avec_len
    3169   254840160 :          lu(k,939) = 1._r8 / lu(k,939)
    3170   254840160 :          lu(k,940) = lu(k,940) * lu(k,939)
    3171   254840160 :          lu(k,941) = lu(k,941) * lu(k,939)
    3172   254840160 :          lu(k,942) = lu(k,942) * lu(k,939)
    3173   254840160 :          lu(k,943) = lu(k,943) * lu(k,939)
    3174   254840160 :          lu(k,944) = lu(k,944) * lu(k,939)
    3175   254840160 :          lu(k,945) = lu(k,945) * lu(k,939)
    3176   254840160 :          lu(k,946) = lu(k,946) * lu(k,939)
    3177   254840160 :          lu(k,947) = lu(k,947) * lu(k,939)
    3178   254840160 :          lu(k,1386) = lu(k,1386) - lu(k,940) * lu(k,1383)
    3179   254840160 :          lu(k,1389) = - lu(k,941) * lu(k,1383)
    3180   254840160 :          lu(k,1392) = - lu(k,942) * lu(k,1383)
    3181   254840160 :          lu(k,1393) = lu(k,1393) - lu(k,943) * lu(k,1383)
    3182   254840160 :          lu(k,1394) = lu(k,1394) - lu(k,944) * lu(k,1383)
    3183   254840160 :          lu(k,1397) = - lu(k,945) * lu(k,1383)
    3184   254840160 :          lu(k,1399) = lu(k,1399) - lu(k,946) * lu(k,1383)
    3185   254840160 :          lu(k,1400) = lu(k,1400) - lu(k,947) * lu(k,1383)
    3186   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,940) * lu(k,3011)
    3187   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,941) * lu(k,3011)
    3188   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,942) * lu(k,3011)
    3189   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,943) * lu(k,3011)
    3190   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,944) * lu(k,3011)
    3191   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,945) * lu(k,3011)
    3192   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,946) * lu(k,3011)
    3193   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,947) * lu(k,3011)
    3194   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,940) * lu(k,3266)
    3195   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,941) * lu(k,3266)
    3196   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,942) * lu(k,3266)
    3197   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,943) * lu(k,3266)
    3198   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,944) * lu(k,3266)
    3199   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,945) * lu(k,3266)
    3200   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,946) * lu(k,3266)
    3201   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,947) * lu(k,3266)
    3202   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,940) * lu(k,3976)
    3203   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,941) * lu(k,3976)
    3204   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,942) * lu(k,3976)
    3205   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,943) * lu(k,3976)
    3206   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,944) * lu(k,3976)
    3207   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,945) * lu(k,3976)
    3208   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,946) * lu(k,3976)
    3209   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,947) * lu(k,3976)
    3210   254840160 :          lu(k,951) = 1._r8 / lu(k,951)
    3211   254840160 :          lu(k,952) = lu(k,952) * lu(k,951)
    3212   254840160 :          lu(k,953) = lu(k,953) * lu(k,951)
    3213   254840160 :          lu(k,954) = lu(k,954) * lu(k,951)
    3214   254840160 :          lu(k,955) = lu(k,955) * lu(k,951)
    3215   254840160 :          lu(k,956) = lu(k,956) * lu(k,951)
    3216   254840160 :          lu(k,957) = lu(k,957) * lu(k,951)
    3217   254840160 :          lu(k,958) = lu(k,958) * lu(k,951)
    3218   254840160 :          lu(k,959) = lu(k,959) * lu(k,951)
    3219   254840160 :          lu(k,2316) = - lu(k,952) * lu(k,2315)
    3220   254840160 :          lu(k,2318) = - lu(k,953) * lu(k,2315)
    3221   254840160 :          lu(k,2321) = - lu(k,954) * lu(k,2315)
    3222   254840160 :          lu(k,2326) = - lu(k,955) * lu(k,2315)
    3223   254840160 :          lu(k,2328) = - lu(k,956) * lu(k,2315)
    3224   254840160 :          lu(k,2329) = lu(k,2329) - lu(k,957) * lu(k,2315)
    3225   254840160 :          lu(k,2331) = - lu(k,958) * lu(k,2315)
    3226   254840160 :          lu(k,2332) = lu(k,2332) - lu(k,959) * lu(k,2315)
    3227   254840160 :          lu(k,3014) = lu(k,3014) - lu(k,952) * lu(k,3012)
    3228   254840160 :          lu(k,3058) = lu(k,3058) - lu(k,953) * lu(k,3012)
    3229   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,954) * lu(k,3012)
    3230   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,955) * lu(k,3012)
    3231   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,956) * lu(k,3012)
    3232   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,957) * lu(k,3012)
    3233   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,958) * lu(k,3012)
    3234   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,959) * lu(k,3012)
    3235   254840160 :          lu(k,3269) = lu(k,3269) - lu(k,952) * lu(k,3267)
    3236   254840160 :          lu(k,3317) = lu(k,3317) - lu(k,953) * lu(k,3267)
    3237   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,954) * lu(k,3267)
    3238   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,955) * lu(k,3267)
    3239   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,956) * lu(k,3267)
    3240   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,957) * lu(k,3267)
    3241   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,958) * lu(k,3267)
    3242   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,959) * lu(k,3267)
    3243   254840160 :          lu(k,3979) = lu(k,3979) - lu(k,952) * lu(k,3977)
    3244   254840160 :          lu(k,4041) = lu(k,4041) - lu(k,953) * lu(k,3977)
    3245   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,954) * lu(k,3977)
    3246   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,955) * lu(k,3977)
    3247   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,956) * lu(k,3977)
    3248   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,957) * lu(k,3977)
    3249   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,958) * lu(k,3977)
    3250   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,959) * lu(k,3977)
    3251   254840160 :          lu(k,960) = 1._r8 / lu(k,960)
    3252   254840160 :          lu(k,961) = lu(k,961) * lu(k,960)
    3253   254840160 :          lu(k,962) = lu(k,962) * lu(k,960)
    3254   254840160 :          lu(k,963) = lu(k,963) * lu(k,960)
    3255   254840160 :          lu(k,964) = lu(k,964) * lu(k,960)
    3256   254840160 :          lu(k,965) = lu(k,965) * lu(k,960)
    3257   254840160 :          lu(k,966) = lu(k,966) * lu(k,960)
    3258   254840160 :          lu(k,967) = lu(k,967) * lu(k,960)
    3259   254840160 :          lu(k,968) = lu(k,968) * lu(k,960)
    3260   254840160 :          lu(k,2595) = lu(k,2595) - lu(k,961) * lu(k,2590)
    3261   254840160 :          lu(k,2596) = - lu(k,962) * lu(k,2590)
    3262   254840160 :          lu(k,2598) = - lu(k,963) * lu(k,2590)
    3263   254840160 :          lu(k,2601) = lu(k,2601) - lu(k,964) * lu(k,2590)
    3264   254840160 :          lu(k,2608) = - lu(k,965) * lu(k,2590)
    3265   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,966) * lu(k,2590)
    3266   254840160 :          lu(k,2614) = lu(k,2614) - lu(k,967) * lu(k,2590)
    3267   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,968) * lu(k,2590)
    3268   254840160 :          lu(k,3055) = lu(k,3055) - lu(k,961) * lu(k,3013)
    3269   254840160 :          lu(k,3056) = lu(k,3056) - lu(k,962) * lu(k,3013)
    3270   254840160 :          lu(k,3085) = lu(k,3085) - lu(k,963) * lu(k,3013)
    3271   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,964) * lu(k,3013)
    3272   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,965) * lu(k,3013)
    3273   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,966) * lu(k,3013)
    3274   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,967) * lu(k,3013)
    3275   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,968) * lu(k,3013)
    3276   254840160 :          lu(k,3314) = lu(k,3314) - lu(k,961) * lu(k,3268)
    3277   254840160 :          lu(k,3315) = lu(k,3315) - lu(k,962) * lu(k,3268)
    3278   254840160 :          lu(k,3344) = lu(k,3344) - lu(k,963) * lu(k,3268)
    3279   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,964) * lu(k,3268)
    3280   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,965) * lu(k,3268)
    3281   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,966) * lu(k,3268)
    3282   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,967) * lu(k,3268)
    3283   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,968) * lu(k,3268)
    3284   254840160 :          lu(k,4038) = lu(k,4038) - lu(k,961) * lu(k,3978)
    3285   254840160 :          lu(k,4039) = lu(k,4039) - lu(k,962) * lu(k,3978)
    3286   254840160 :          lu(k,4067) = lu(k,4067) - lu(k,963) * lu(k,3978)
    3287   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,964) * lu(k,3978)
    3288   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,965) * lu(k,3978)
    3289   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,966) * lu(k,3978)
    3290   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,967) * lu(k,3978)
    3291   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,968) * lu(k,3978)
    3292   254840160 :          lu(k,969) = 1._r8 / lu(k,969)
    3293   254840160 :          lu(k,970) = lu(k,970) * lu(k,969)
    3294   254840160 :          lu(k,971) = lu(k,971) * lu(k,969)
    3295   254840160 :          lu(k,972) = lu(k,972) * lu(k,969)
    3296   254840160 :          lu(k,1007) = - lu(k,970) * lu(k,1005)
    3297   254840160 :          lu(k,1011) = lu(k,1011) - lu(k,971) * lu(k,1005)
    3298   254840160 :          lu(k,1013) = lu(k,1013) - lu(k,972) * lu(k,1005)
    3299   254840160 :          lu(k,1018) = - lu(k,970) * lu(k,1014)
    3300   254840160 :          lu(k,1020) = lu(k,1020) - lu(k,971) * lu(k,1014)
    3301   254840160 :          lu(k,1022) = lu(k,1022) - lu(k,972) * lu(k,1014)
    3302   254840160 :          lu(k,1220) = - lu(k,970) * lu(k,1216)
    3303   254840160 :          lu(k,1224) = lu(k,1224) - lu(k,971) * lu(k,1216)
    3304   254840160 :          lu(k,1226) = lu(k,1226) - lu(k,972) * lu(k,1216)
    3305   254840160 :          lu(k,1688) = lu(k,1688) - lu(k,970) * lu(k,1686)
    3306   254840160 :          lu(k,1694) = lu(k,1694) - lu(k,971) * lu(k,1686)
    3307   254840160 :          lu(k,1696) = lu(k,1696) - lu(k,972) * lu(k,1686)
    3308   254840160 :          lu(k,1701) = - lu(k,970) * lu(k,1698)
    3309   254840160 :          lu(k,1707) = lu(k,1707) - lu(k,971) * lu(k,1698)
    3310   254840160 :          lu(k,1709) = lu(k,1709) - lu(k,972) * lu(k,1698)
    3311   254840160 :          lu(k,2317) = - lu(k,970) * lu(k,2316)
    3312   254840160 :          lu(k,2329) = lu(k,2329) - lu(k,971) * lu(k,2316)
    3313   254840160 :          lu(k,2332) = lu(k,2332) - lu(k,972) * lu(k,2316)
    3314   254840160 :          lu(k,2432) = lu(k,2432) - lu(k,970) * lu(k,2428)
    3315   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,971) * lu(k,2428)
    3316   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,972) * lu(k,2428)
    3317   254840160 :          lu(k,2624) = - lu(k,970) * lu(k,2620)
    3318   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,971) * lu(k,2620)
    3319   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,972) * lu(k,2620)
    3320   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,970) * lu(k,3014)
    3321   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,971) * lu(k,3014)
    3322   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,972) * lu(k,3014)
    3323   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,970) * lu(k,3269)
    3324   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,971) * lu(k,3269)
    3325   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,972) * lu(k,3269)
    3326   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,970) * lu(k,3979)
    3327   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,971) * lu(k,3979)
    3328   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,972) * lu(k,3979)
    3329   254840160 :          lu(k,974) = 1._r8 / lu(k,974)
    3330   254840160 :          lu(k,975) = lu(k,975) * lu(k,974)
    3331   254840160 :          lu(k,976) = lu(k,976) * lu(k,974)
    3332   254840160 :          lu(k,977) = lu(k,977) * lu(k,974)
    3333   254840160 :          lu(k,978) = lu(k,978) * lu(k,974)
    3334   254840160 :          lu(k,979) = lu(k,979) * lu(k,974)
    3335   254840160 :          lu(k,980) = lu(k,980) * lu(k,974)
    3336   254840160 :          lu(k,981) = lu(k,981) * lu(k,974)
    3337   254840160 :          lu(k,982) = lu(k,982) * lu(k,974)
    3338   254840160 :          lu(k,983) = lu(k,983) * lu(k,974)
    3339   254840160 :          lu(k,984) = lu(k,984) * lu(k,974)
    3340   254840160 :          lu(k,985) = lu(k,985) * lu(k,974)
    3341   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,975) * lu(k,3015)
    3342   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,976) * lu(k,3015)
    3343   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,977) * lu(k,3015)
    3344   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,978) * lu(k,3015)
    3345   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,979) * lu(k,3015)
    3346   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,980) * lu(k,3015)
    3347   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,981) * lu(k,3015)
    3348   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,982) * lu(k,3015)
    3349   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,983) * lu(k,3015)
    3350   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,984) * lu(k,3015)
    3351   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,985) * lu(k,3015)
    3352   254840160 :          lu(k,3544) = lu(k,3544) - lu(k,975) * lu(k,3530)
    3353   254840160 :          lu(k,3555) = - lu(k,976) * lu(k,3530)
    3354   254840160 :          lu(k,3559) = lu(k,3559) - lu(k,977) * lu(k,3530)
    3355   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,978) * lu(k,3530)
    3356   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,979) * lu(k,3530)
    3357   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,980) * lu(k,3530)
    3358   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,981) * lu(k,3530)
    3359   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,982) * lu(k,3530)
    3360   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,983) * lu(k,3530)
    3361   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,984) * lu(k,3530)
    3362   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,985) * lu(k,3530)
    3363   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,975) * lu(k,3980)
    3364   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,976) * lu(k,3980)
    3365   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,977) * lu(k,3980)
    3366   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,978) * lu(k,3980)
    3367   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,979) * lu(k,3980)
    3368   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,980) * lu(k,3980)
    3369   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,981) * lu(k,3980)
    3370   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,982) * lu(k,3980)
    3371   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,983) * lu(k,3980)
    3372   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,984) * lu(k,3980)
    3373   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,985) * lu(k,3980)
    3374             :       end do
    3375     8168963 :       end subroutine lu_fac21
    3376     8168963 :       subroutine lu_fac22( avec_len, lu )
    3377             :       use chem_mods, only : nzcnt
    3378             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3379             :       implicit none
    3380             : !-----------------------------------------------------------------------
    3381             : ! ... dummy args
    3382             : !-----------------------------------------------------------------------
    3383             :       integer, intent(in) :: avec_len
    3384             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3385             : !-----------------------------------------------------------------------
    3386             : ! ... local variables
    3387             : !-----------------------------------------------------------------------
    3388             :       integer :: k
    3389   263009123 :       do k = 1,avec_len
    3390   254840160 :          lu(k,986) = 1._r8 / lu(k,986)
    3391   254840160 :          lu(k,987) = lu(k,987) * lu(k,986)
    3392   254840160 :          lu(k,988) = lu(k,988) * lu(k,986)
    3393   254840160 :          lu(k,989) = lu(k,989) * lu(k,986)
    3394   254840160 :          lu(k,990) = lu(k,990) * lu(k,986)
    3395   254840160 :          lu(k,991) = lu(k,991) * lu(k,986)
    3396   254840160 :          lu(k,992) = lu(k,992) * lu(k,986)
    3397   254840160 :          lu(k,993) = lu(k,993) * lu(k,986)
    3398   254840160 :          lu(k,1220) = lu(k,1220) - lu(k,987) * lu(k,1217)
    3399   254840160 :          lu(k,1221) = - lu(k,988) * lu(k,1217)
    3400   254840160 :          lu(k,1222) = - lu(k,989) * lu(k,1217)
    3401   254840160 :          lu(k,1224) = lu(k,1224) - lu(k,990) * lu(k,1217)
    3402   254840160 :          lu(k,1225) = lu(k,1225) - lu(k,991) * lu(k,1217)
    3403   254840160 :          lu(k,1226) = lu(k,1226) - lu(k,992) * lu(k,1217)
    3404   254840160 :          lu(k,1227) = - lu(k,993) * lu(k,1217)
    3405   254840160 :          lu(k,2531) = lu(k,2531) - lu(k,987) * lu(k,2525)
    3406   254840160 :          lu(k,2535) = - lu(k,988) * lu(k,2525)
    3407   254840160 :          lu(k,2536) = lu(k,2536) - lu(k,989) * lu(k,2525)
    3408   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,990) * lu(k,2525)
    3409   254840160 :          lu(k,2551) = lu(k,2551) - lu(k,991) * lu(k,2525)
    3410   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,992) * lu(k,2525)
    3411   254840160 :          lu(k,2553) = - lu(k,993) * lu(k,2525)
    3412   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,987) * lu(k,3016)
    3413   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,988) * lu(k,3016)
    3414   254840160 :          lu(k,3093) = lu(k,3093) - lu(k,989) * lu(k,3016)
    3415   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,990) * lu(k,3016)
    3416   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,991) * lu(k,3016)
    3417   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,992) * lu(k,3016)
    3418   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,993) * lu(k,3016)
    3419   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,987) * lu(k,3270)
    3420   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,988) * lu(k,3270)
    3421   254840160 :          lu(k,3352) = lu(k,3352) - lu(k,989) * lu(k,3270)
    3422   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,990) * lu(k,3270)
    3423   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,991) * lu(k,3270)
    3424   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,992) * lu(k,3270)
    3425   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,993) * lu(k,3270)
    3426   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,987) * lu(k,3981)
    3427   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,988) * lu(k,3981)
    3428   254840160 :          lu(k,4075) = lu(k,4075) - lu(k,989) * lu(k,3981)
    3429   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,990) * lu(k,3981)
    3430   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,991) * lu(k,3981)
    3431   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,992) * lu(k,3981)
    3432   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,993) * lu(k,3981)
    3433   254840160 :          lu(k,995) = 1._r8 / lu(k,995)
    3434   254840160 :          lu(k,996) = lu(k,996) * lu(k,995)
    3435   254840160 :          lu(k,997) = lu(k,997) * lu(k,995)
    3436   254840160 :          lu(k,998) = lu(k,998) * lu(k,995)
    3437   254840160 :          lu(k,999) = lu(k,999) * lu(k,995)
    3438   254840160 :          lu(k,1000) = lu(k,1000) * lu(k,995)
    3439   254840160 :          lu(k,1001) = lu(k,1001) * lu(k,995)
    3440   254840160 :          lu(k,1002) = lu(k,1002) * lu(k,995)
    3441   254840160 :          lu(k,3126) = lu(k,3126) - lu(k,996) * lu(k,3123)
    3442   254840160 :          lu(k,3129) = lu(k,3129) - lu(k,997) * lu(k,3123)
    3443   254840160 :          lu(k,3130) = lu(k,3130) - lu(k,998) * lu(k,3123)
    3444   254840160 :          lu(k,3134) = - lu(k,999) * lu(k,3123)
    3445   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,1000) * lu(k,3123)
    3446   254840160 :          lu(k,3141) = lu(k,3141) - lu(k,1001) * lu(k,3123)
    3447   254840160 :          lu(k,3142) = lu(k,3142) - lu(k,1002) * lu(k,3123)
    3448   254840160 :          lu(k,3155) = lu(k,3155) - lu(k,996) * lu(k,3146)
    3449   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,997) * lu(k,3146)
    3450   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,998) * lu(k,3146)
    3451   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,999) * lu(k,3146)
    3452   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,1000) * lu(k,3146)
    3453   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1001) * lu(k,3146)
    3454   254840160 :          lu(k,3173) = - lu(k,1002) * lu(k,3146)
    3455   254840160 :          lu(k,3338) = lu(k,3338) - lu(k,996) * lu(k,3271)
    3456   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,997) * lu(k,3271)
    3457   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,998) * lu(k,3271)
    3458   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,999) * lu(k,3271)
    3459   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,1000) * lu(k,3271)
    3460   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1001) * lu(k,3271)
    3461   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1002) * lu(k,3271)
    3462   254840160 :          lu(k,3479) = lu(k,3479) - lu(k,996) * lu(k,3476)
    3463   254840160 :          lu(k,3483) = - lu(k,997) * lu(k,3476)
    3464   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,998) * lu(k,3476)
    3465   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,999) * lu(k,3476)
    3466   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,1000) * lu(k,3476)
    3467   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,1001) * lu(k,3476)
    3468   254840160 :          lu(k,3496) = - lu(k,1002) * lu(k,3476)
    3469   254840160 :          lu(k,3645) = lu(k,3645) - lu(k,996) * lu(k,3634)
    3470   254840160 :          lu(k,3655) = - lu(k,997) * lu(k,3634)
    3471   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,998) * lu(k,3634)
    3472   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,999) * lu(k,3634)
    3473   254840160 :          lu(k,3666) = - lu(k,1000) * lu(k,3634)
    3474   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1001) * lu(k,3634)
    3475   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,1002) * lu(k,3634)
    3476   254840160 :          lu(k,1006) = 1._r8 / lu(k,1006)
    3477   254840160 :          lu(k,1007) = lu(k,1007) * lu(k,1006)
    3478   254840160 :          lu(k,1008) = lu(k,1008) * lu(k,1006)
    3479   254840160 :          lu(k,1009) = lu(k,1009) * lu(k,1006)
    3480   254840160 :          lu(k,1010) = lu(k,1010) * lu(k,1006)
    3481   254840160 :          lu(k,1011) = lu(k,1011) * lu(k,1006)
    3482   254840160 :          lu(k,1012) = lu(k,1012) * lu(k,1006)
    3483   254840160 :          lu(k,1013) = lu(k,1013) * lu(k,1006)
    3484   254840160 :          lu(k,2403) = - lu(k,1007) * lu(k,2401)
    3485   254840160 :          lu(k,2406) = - lu(k,1008) * lu(k,2401)
    3486   254840160 :          lu(k,2407) = - lu(k,1009) * lu(k,2401)
    3487   254840160 :          lu(k,2419) = lu(k,2419) - lu(k,1010) * lu(k,2401)
    3488   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,1011) * lu(k,2401)
    3489   254840160 :          lu(k,2425) = lu(k,2425) - lu(k,1012) * lu(k,2401)
    3490   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,1013) * lu(k,2401)
    3491   254840160 :          lu(k,2463) = - lu(k,1007) * lu(k,2461)
    3492   254840160 :          lu(k,2469) = - lu(k,1008) * lu(k,2461)
    3493   254840160 :          lu(k,2470) = - lu(k,1009) * lu(k,2461)
    3494   254840160 :          lu(k,2482) = lu(k,2482) - lu(k,1010) * lu(k,2461)
    3495   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,1011) * lu(k,2461)
    3496   254840160 :          lu(k,2488) = lu(k,2488) - lu(k,1012) * lu(k,2461)
    3497   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,1013) * lu(k,2461)
    3498   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,1007) * lu(k,3017)
    3499   254840160 :          lu(k,3085) = lu(k,3085) - lu(k,1008) * lu(k,3017)
    3500   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1009) * lu(k,3017)
    3501   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1010) * lu(k,3017)
    3502   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1011) * lu(k,3017)
    3503   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1012) * lu(k,3017)
    3504   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1013) * lu(k,3017)
    3505   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,1007) * lu(k,3272)
    3506   254840160 :          lu(k,3344) = lu(k,3344) - lu(k,1008) * lu(k,3272)
    3507   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1009) * lu(k,3272)
    3508   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1010) * lu(k,3272)
    3509   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1011) * lu(k,3272)
    3510   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1012) * lu(k,3272)
    3511   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1013) * lu(k,3272)
    3512   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,1007) * lu(k,3982)
    3513   254840160 :          lu(k,4067) = lu(k,4067) - lu(k,1008) * lu(k,3982)
    3514   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1009) * lu(k,3982)
    3515   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1010) * lu(k,3982)
    3516   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1011) * lu(k,3982)
    3517   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1012) * lu(k,3982)
    3518   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1013) * lu(k,3982)
    3519   254840160 :          lu(k,1015) = 1._r8 / lu(k,1015)
    3520   254840160 :          lu(k,1016) = lu(k,1016) * lu(k,1015)
    3521   254840160 :          lu(k,1017) = lu(k,1017) * lu(k,1015)
    3522   254840160 :          lu(k,1018) = lu(k,1018) * lu(k,1015)
    3523   254840160 :          lu(k,1019) = lu(k,1019) * lu(k,1015)
    3524   254840160 :          lu(k,1020) = lu(k,1020) * lu(k,1015)
    3525   254840160 :          lu(k,1021) = lu(k,1021) * lu(k,1015)
    3526   254840160 :          lu(k,1022) = lu(k,1022) * lu(k,1015)
    3527   254840160 :          lu(k,2494) = - lu(k,1016) * lu(k,2493)
    3528   254840160 :          lu(k,2496) = lu(k,2496) - lu(k,1017) * lu(k,2493)
    3529   254840160 :          lu(k,2499) = - lu(k,1018) * lu(k,2493)
    3530   254840160 :          lu(k,2516) = lu(k,2516) - lu(k,1019) * lu(k,2493)
    3531   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1020) * lu(k,2493)
    3532   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1021) * lu(k,2493)
    3533   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1022) * lu(k,2493)
    3534   254840160 :          lu(k,2557) = - lu(k,1016) * lu(k,2556)
    3535   254840160 :          lu(k,2559) = lu(k,2559) - lu(k,1017) * lu(k,2556)
    3536   254840160 :          lu(k,2562) = - lu(k,1018) * lu(k,2556)
    3537   254840160 :          lu(k,2581) = lu(k,2581) - lu(k,1019) * lu(k,2556)
    3538   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1020) * lu(k,2556)
    3539   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1021) * lu(k,2556)
    3540   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1022) * lu(k,2556)
    3541   254840160 :          lu(k,3025) = lu(k,3025) - lu(k,1016) * lu(k,3018)
    3542   254840160 :          lu(k,3030) = lu(k,3030) - lu(k,1017) * lu(k,3018)
    3543   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,1018) * lu(k,3018)
    3544   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1019) * lu(k,3018)
    3545   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1020) * lu(k,3018)
    3546   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1021) * lu(k,3018)
    3547   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1022) * lu(k,3018)
    3548   254840160 :          lu(k,3279) = lu(k,3279) - lu(k,1016) * lu(k,3273)
    3549   254840160 :          lu(k,3287) = lu(k,3287) - lu(k,1017) * lu(k,3273)
    3550   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,1018) * lu(k,3273)
    3551   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1019) * lu(k,3273)
    3552   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1020) * lu(k,3273)
    3553   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1021) * lu(k,3273)
    3554   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1022) * lu(k,3273)
    3555   254840160 :          lu(k,3993) = lu(k,3993) - lu(k,1016) * lu(k,3983)
    3556   254840160 :          lu(k,4001) = lu(k,4001) - lu(k,1017) * lu(k,3983)
    3557   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,1018) * lu(k,3983)
    3558   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1019) * lu(k,3983)
    3559   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1020) * lu(k,3983)
    3560   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1021) * lu(k,3983)
    3561   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1022) * lu(k,3983)
    3562             :       end do
    3563     8168963 :       end subroutine lu_fac22
    3564     8168963 :       subroutine lu_fac23( avec_len, lu )
    3565             :       use chem_mods, only : nzcnt
    3566             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3567             :       implicit none
    3568             : !-----------------------------------------------------------------------
    3569             : ! ... dummy args
    3570             : !-----------------------------------------------------------------------
    3571             :       integer, intent(in) :: avec_len
    3572             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3573             : !-----------------------------------------------------------------------
    3574             : ! ... local variables
    3575             : !-----------------------------------------------------------------------
    3576             :       integer :: k
    3577   263009123 :       do k = 1,avec_len
    3578   254840160 :          lu(k,1024) = 1._r8 / lu(k,1024)
    3579   254840160 :          lu(k,1025) = lu(k,1025) * lu(k,1024)
    3580   254840160 :          lu(k,1026) = lu(k,1026) * lu(k,1024)
    3581   254840160 :          lu(k,1027) = lu(k,1027) * lu(k,1024)
    3582   254840160 :          lu(k,1028) = lu(k,1028) * lu(k,1024)
    3583   254840160 :          lu(k,1029) = lu(k,1029) * lu(k,1024)
    3584   254840160 :          lu(k,1030) = lu(k,1030) * lu(k,1024)
    3585   254840160 :          lu(k,1031) = lu(k,1031) * lu(k,1024)
    3586   254840160 :          lu(k,1032) = lu(k,1032) * lu(k,1024)
    3587   254840160 :          lu(k,1033) = lu(k,1033) * lu(k,1024)
    3588   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,1025) * lu(k,3019)
    3589   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,1026) * lu(k,3019)
    3590   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1027) * lu(k,3019)
    3591   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1028) * lu(k,3019)
    3592   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1029) * lu(k,3019)
    3593   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1030) * lu(k,3019)
    3594   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1031) * lu(k,3019)
    3595   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1032) * lu(k,3019)
    3596   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1033) * lu(k,3019)
    3597   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,1025) * lu(k,3274)
    3598   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,1026) * lu(k,3274)
    3599   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1027) * lu(k,3274)
    3600   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1028) * lu(k,3274)
    3601   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1029) * lu(k,3274)
    3602   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1030) * lu(k,3274)
    3603   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1031) * lu(k,3274)
    3604   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1032) * lu(k,3274)
    3605   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1033) * lu(k,3274)
    3606   254840160 :          lu(k,3392) = lu(k,3392) - lu(k,1025) * lu(k,3386)
    3607   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,1026) * lu(k,3386)
    3608   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1027) * lu(k,3386)
    3609   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1028) * lu(k,3386)
    3610   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1029) * lu(k,3386)
    3611   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1030) * lu(k,3386)
    3612   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1031) * lu(k,3386)
    3613   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1032) * lu(k,3386)
    3614   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1033) * lu(k,3386)
    3615   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,1025) * lu(k,3984)
    3616   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,1026) * lu(k,3984)
    3617   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1027) * lu(k,3984)
    3618   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1028) * lu(k,3984)
    3619   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1029) * lu(k,3984)
    3620   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1030) * lu(k,3984)
    3621   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1031) * lu(k,3984)
    3622   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1032) * lu(k,3984)
    3623   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1033) * lu(k,3984)
    3624   254840160 :          lu(k,1041) = 1._r8 / lu(k,1041)
    3625   254840160 :          lu(k,1042) = lu(k,1042) * lu(k,1041)
    3626   254840160 :          lu(k,1043) = lu(k,1043) * lu(k,1041)
    3627   254840160 :          lu(k,1044) = lu(k,1044) * lu(k,1041)
    3628   254840160 :          lu(k,1045) = lu(k,1045) * lu(k,1041)
    3629   254840160 :          lu(k,1046) = lu(k,1046) * lu(k,1041)
    3630   254840160 :          lu(k,1047) = lu(k,1047) * lu(k,1041)
    3631   254840160 :          lu(k,1048) = lu(k,1048) * lu(k,1041)
    3632   254840160 :          lu(k,1049) = lu(k,1049) * lu(k,1041)
    3633   254840160 :          lu(k,1050) = lu(k,1050) * lu(k,1041)
    3634   254840160 :          lu(k,1051) = lu(k,1051) * lu(k,1041)
    3635   254840160 :          lu(k,1052) = lu(k,1052) * lu(k,1041)
    3636   254840160 :          lu(k,1053) = lu(k,1053) * lu(k,1041)
    3637   254840160 :          lu(k,3546) = - lu(k,1042) * lu(k,3531)
    3638   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1043) * lu(k,3531)
    3639   254840160 :          lu(k,3576) = lu(k,3576) - lu(k,1044) * lu(k,3531)
    3640   254840160 :          lu(k,3585) = lu(k,3585) - lu(k,1045) * lu(k,3531)
    3641   254840160 :          lu(k,3591) = lu(k,3591) - lu(k,1046) * lu(k,3531)
    3642   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,1047) * lu(k,3531)
    3643   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,1048) * lu(k,3531)
    3644   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1049) * lu(k,3531)
    3645   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1050) * lu(k,3531)
    3646   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1051) * lu(k,3531)
    3647   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1052) * lu(k,3531)
    3648   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1053) * lu(k,3531)
    3649   254840160 :          lu(k,3702) = lu(k,3702) - lu(k,1042) * lu(k,3685)
    3650   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1043) * lu(k,3685)
    3651   254840160 :          lu(k,3732) = - lu(k,1044) * lu(k,3685)
    3652   254840160 :          lu(k,3739) = - lu(k,1045) * lu(k,3685)
    3653   254840160 :          lu(k,3745) = lu(k,3745) - lu(k,1046) * lu(k,3685)
    3654   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,1047) * lu(k,3685)
    3655   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,1048) * lu(k,3685)
    3656   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1049) * lu(k,3685)
    3657   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1050) * lu(k,3685)
    3658   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1051) * lu(k,3685)
    3659   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1052) * lu(k,3685)
    3660   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1053) * lu(k,3685)
    3661   254840160 :          lu(k,4023) = lu(k,4023) - lu(k,1042) * lu(k,3985)
    3662   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1043) * lu(k,3985)
    3663   254840160 :          lu(k,4063) = - lu(k,1044) * lu(k,3985)
    3664   254840160 :          lu(k,4071) = lu(k,4071) - lu(k,1045) * lu(k,3985)
    3665   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,1046) * lu(k,3985)
    3666   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,1047) * lu(k,3985)
    3667   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,1048) * lu(k,3985)
    3668   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1049) * lu(k,3985)
    3669   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1050) * lu(k,3985)
    3670   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1051) * lu(k,3985)
    3671   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1052) * lu(k,3985)
    3672   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1053) * lu(k,3985)
    3673   254840160 :          lu(k,1054) = 1._r8 / lu(k,1054)
    3674   254840160 :          lu(k,1055) = lu(k,1055) * lu(k,1054)
    3675   254840160 :          lu(k,1056) = lu(k,1056) * lu(k,1054)
    3676   254840160 :          lu(k,1057) = lu(k,1057) * lu(k,1054)
    3677   254840160 :          lu(k,1058) = lu(k,1058) * lu(k,1054)
    3678   254840160 :          lu(k,1059) = lu(k,1059) * lu(k,1054)
    3679   254840160 :          lu(k,1060) = lu(k,1060) * lu(k,1054)
    3680   254840160 :          lu(k,1061) = lu(k,1061) * lu(k,1054)
    3681   254840160 :          lu(k,1062) = lu(k,1062) * lu(k,1054)
    3682   254840160 :          lu(k,1063) = lu(k,1063) * lu(k,1054)
    3683   254840160 :          lu(k,1975) = - lu(k,1055) * lu(k,1974)
    3684   254840160 :          lu(k,1979) = - lu(k,1056) * lu(k,1974)
    3685   254840160 :          lu(k,1984) = - lu(k,1057) * lu(k,1974)
    3686   254840160 :          lu(k,1988) = - lu(k,1058) * lu(k,1974)
    3687   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1059) * lu(k,1974)
    3688   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1060) * lu(k,1974)
    3689   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1061) * lu(k,1974)
    3690   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1062) * lu(k,1974)
    3691   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1063) * lu(k,1974)
    3692   254840160 :          lu(k,3041) = - lu(k,1055) * lu(k,3020)
    3693   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1056) * lu(k,3020)
    3694   254840160 :          lu(k,3063) = lu(k,3063) - lu(k,1057) * lu(k,3020)
    3695   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1058) * lu(k,3020)
    3696   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1059) * lu(k,3020)
    3697   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1060) * lu(k,3020)
    3698   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1061) * lu(k,3020)
    3699   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1062) * lu(k,3020)
    3700   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1063) * lu(k,3020)
    3701   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1055) * lu(k,3275)
    3702   254840160 :          lu(k,3312) = - lu(k,1056) * lu(k,3275)
    3703   254840160 :          lu(k,3322) = - lu(k,1057) * lu(k,3275)
    3704   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1058) * lu(k,3275)
    3705   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1059) * lu(k,3275)
    3706   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1060) * lu(k,3275)
    3707   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1061) * lu(k,3275)
    3708   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1062) * lu(k,3275)
    3709   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1063) * lu(k,3275)
    3710   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1055) * lu(k,3986)
    3711   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1056) * lu(k,3986)
    3712   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1057) * lu(k,3986)
    3713   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1058) * lu(k,3986)
    3714   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1059) * lu(k,3986)
    3715   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1060) * lu(k,3986)
    3716   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1061) * lu(k,3986)
    3717   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1062) * lu(k,3986)
    3718   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1063) * lu(k,3986)
    3719   254840160 :          lu(k,1071) = 1._r8 / lu(k,1071)
    3720   254840160 :          lu(k,1072) = lu(k,1072) * lu(k,1071)
    3721   254840160 :          lu(k,1073) = lu(k,1073) * lu(k,1071)
    3722   254840160 :          lu(k,1074) = lu(k,1074) * lu(k,1071)
    3723   254840160 :          lu(k,1075) = lu(k,1075) * lu(k,1071)
    3724   254840160 :          lu(k,1076) = lu(k,1076) * lu(k,1071)
    3725   254840160 :          lu(k,1077) = lu(k,1077) * lu(k,1071)
    3726   254840160 :          lu(k,1078) = lu(k,1078) * lu(k,1071)
    3727   254840160 :          lu(k,1079) = lu(k,1079) * lu(k,1071)
    3728   254840160 :          lu(k,1080) = lu(k,1080) * lu(k,1071)
    3729   254840160 :          lu(k,1081) = lu(k,1081) * lu(k,1071)
    3730   254840160 :          lu(k,1082) = lu(k,1082) * lu(k,1071)
    3731   254840160 :          lu(k,1083) = lu(k,1083) * lu(k,1071)
    3732   254840160 :          lu(k,1084) = lu(k,1084) * lu(k,1071)
    3733   254840160 :          lu(k,3546) = lu(k,3546) - lu(k,1072) * lu(k,3532)
    3734   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1073) * lu(k,3532)
    3735   254840160 :          lu(k,3582) = lu(k,3582) - lu(k,1074) * lu(k,3532)
    3736   254840160 :          lu(k,3588) = lu(k,3588) - lu(k,1075) * lu(k,3532)
    3737   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,1076) * lu(k,3532)
    3738   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,1077) * lu(k,3532)
    3739   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,1078) * lu(k,3532)
    3740   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,1079) * lu(k,3532)
    3741   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1080) * lu(k,3532)
    3742   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1081) * lu(k,3532)
    3743   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1082) * lu(k,3532)
    3744   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1083) * lu(k,3532)
    3745   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1084) * lu(k,3532)
    3746   254840160 :          lu(k,3702) = lu(k,3702) - lu(k,1072) * lu(k,3686)
    3747   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1073) * lu(k,3686)
    3748   254840160 :          lu(k,3736) = - lu(k,1074) * lu(k,3686)
    3749   254840160 :          lu(k,3742) = - lu(k,1075) * lu(k,3686)
    3750   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,1076) * lu(k,3686)
    3751   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,1077) * lu(k,3686)
    3752   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,1078) * lu(k,3686)
    3753   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,1079) * lu(k,3686)
    3754   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1080) * lu(k,3686)
    3755   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1081) * lu(k,3686)
    3756   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1082) * lu(k,3686)
    3757   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1083) * lu(k,3686)
    3758   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1084) * lu(k,3686)
    3759   254840160 :          lu(k,4023) = lu(k,4023) - lu(k,1072) * lu(k,3987)
    3760   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1073) * lu(k,3987)
    3761   254840160 :          lu(k,4068) = lu(k,4068) - lu(k,1074) * lu(k,3987)
    3762   254840160 :          lu(k,4074) = - lu(k,1075) * lu(k,3987)
    3763   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,1076) * lu(k,3987)
    3764   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,1077) * lu(k,3987)
    3765   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,1078) * lu(k,3987)
    3766   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,1079) * lu(k,3987)
    3767   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1080) * lu(k,3987)
    3768   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1081) * lu(k,3987)
    3769   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1082) * lu(k,3987)
    3770   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1083) * lu(k,3987)
    3771   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1084) * lu(k,3987)
    3772             :       end do
    3773     8168963 :       end subroutine lu_fac23
    3774     8168963 :       subroutine lu_fac24( avec_len, lu )
    3775             :       use chem_mods, only : nzcnt
    3776             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3777             :       implicit none
    3778             : !-----------------------------------------------------------------------
    3779             : ! ... dummy args
    3780             : !-----------------------------------------------------------------------
    3781             :       integer, intent(in) :: avec_len
    3782             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3783             : !-----------------------------------------------------------------------
    3784             : ! ... local variables
    3785             : !-----------------------------------------------------------------------
    3786             :       integer :: k
    3787   263009123 :       do k = 1,avec_len
    3788   254840160 :          lu(k,1092) = 1._r8 / lu(k,1092)
    3789   254840160 :          lu(k,1093) = lu(k,1093) * lu(k,1092)
    3790   254840160 :          lu(k,1094) = lu(k,1094) * lu(k,1092)
    3791   254840160 :          lu(k,1095) = lu(k,1095) * lu(k,1092)
    3792   254840160 :          lu(k,1096) = lu(k,1096) * lu(k,1092)
    3793   254840160 :          lu(k,1097) = lu(k,1097) * lu(k,1092)
    3794   254840160 :          lu(k,1098) = lu(k,1098) * lu(k,1092)
    3795   254840160 :          lu(k,1099) = lu(k,1099) * lu(k,1092)
    3796   254840160 :          lu(k,1100) = lu(k,1100) * lu(k,1092)
    3797   254840160 :          lu(k,1101) = lu(k,1101) * lu(k,1092)
    3798   254840160 :          lu(k,1102) = lu(k,1102) * lu(k,1092)
    3799   254840160 :          lu(k,1103) = lu(k,1103) * lu(k,1092)
    3800   254840160 :          lu(k,1104) = lu(k,1104) * lu(k,1092)
    3801   254840160 :          lu(k,1105) = lu(k,1105) * lu(k,1092)
    3802   254840160 :          lu(k,3534) = lu(k,3534) - lu(k,1093) * lu(k,3533)
    3803   254840160 :          lu(k,3535) = - lu(k,1094) * lu(k,3533)
    3804   254840160 :          lu(k,3536) = - lu(k,1095) * lu(k,3533)
    3805   254840160 :          lu(k,3541) = - lu(k,1096) * lu(k,3533)
    3806   254840160 :          lu(k,3546) = lu(k,3546) - lu(k,1097) * lu(k,3533)
    3807   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1098) * lu(k,3533)
    3808   254840160 :          lu(k,3584) = lu(k,3584) - lu(k,1099) * lu(k,3533)
    3809   254840160 :          lu(k,3589) = lu(k,3589) - lu(k,1100) * lu(k,3533)
    3810   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,1101) * lu(k,3533)
    3811   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1102) * lu(k,3533)
    3812   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1103) * lu(k,3533)
    3813   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1104) * lu(k,3533)
    3814   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1105) * lu(k,3533)
    3815   254840160 :          lu(k,3688) = lu(k,3688) - lu(k,1093) * lu(k,3687)
    3816   254840160 :          lu(k,3689) = lu(k,3689) - lu(k,1094) * lu(k,3687)
    3817   254840160 :          lu(k,3690) = lu(k,3690) - lu(k,1095) * lu(k,3687)
    3818   254840160 :          lu(k,3695) = lu(k,3695) - lu(k,1096) * lu(k,3687)
    3819   254840160 :          lu(k,3702) = lu(k,3702) - lu(k,1097) * lu(k,3687)
    3820   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1098) * lu(k,3687)
    3821   254840160 :          lu(k,3738) = - lu(k,1099) * lu(k,3687)
    3822   254840160 :          lu(k,3743) = - lu(k,1100) * lu(k,3687)
    3823   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,1101) * lu(k,3687)
    3824   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1102) * lu(k,3687)
    3825   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1103) * lu(k,3687)
    3826   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1104) * lu(k,3687)
    3827   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1105) * lu(k,3687)
    3828   254840160 :          lu(k,3989) = lu(k,3989) - lu(k,1093) * lu(k,3988)
    3829   254840160 :          lu(k,3997) = lu(k,3997) - lu(k,1094) * lu(k,3988)
    3830   254840160 :          lu(k,3999) = lu(k,3999) - lu(k,1095) * lu(k,3988)
    3831   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,1096) * lu(k,3988)
    3832   254840160 :          lu(k,4023) = lu(k,4023) - lu(k,1097) * lu(k,3988)
    3833   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1098) * lu(k,3988)
    3834   254840160 :          lu(k,4070) = lu(k,4070) - lu(k,1099) * lu(k,3988)
    3835   254840160 :          lu(k,4075) = lu(k,4075) - lu(k,1100) * lu(k,3988)
    3836   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,1101) * lu(k,3988)
    3837   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1102) * lu(k,3988)
    3838   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1103) * lu(k,3988)
    3839   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1104) * lu(k,3988)
    3840   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1105) * lu(k,3988)
    3841   254840160 :          lu(k,1106) = 1._r8 / lu(k,1106)
    3842   254840160 :          lu(k,1107) = lu(k,1107) * lu(k,1106)
    3843   254840160 :          lu(k,1108) = lu(k,1108) * lu(k,1106)
    3844   254840160 :          lu(k,1109) = lu(k,1109) * lu(k,1106)
    3845   254840160 :          lu(k,2382) = lu(k,2382) - lu(k,1107) * lu(k,2369)
    3846   254840160 :          lu(k,2385) = lu(k,2385) - lu(k,1108) * lu(k,2369)
    3847   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,1109) * lu(k,2369)
    3848   254840160 :          lu(k,2443) = lu(k,2443) - lu(k,1107) * lu(k,2429)
    3849   254840160 :          lu(k,2446) = lu(k,2446) - lu(k,1108) * lu(k,2429)
    3850   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1109) * lu(k,2429)
    3851   254840160 :          lu(k,2537) = lu(k,2537) - lu(k,1107) * lu(k,2526)
    3852   254840160 :          lu(k,2540) = lu(k,2540) - lu(k,1108) * lu(k,2526)
    3853   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1109) * lu(k,2526)
    3854   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,1107) * lu(k,2718)
    3855   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,1108) * lu(k,2718)
    3856   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,1109) * lu(k,2718)
    3857   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,1107) * lu(k,2764)
    3858   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,1108) * lu(k,2764)
    3859   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,1109) * lu(k,2764)
    3860   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,1107) * lu(k,2810)
    3861   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,1108) * lu(k,2810)
    3862   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1109) * lu(k,2810)
    3863   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,1107) * lu(k,2858)
    3864   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,1108) * lu(k,2858)
    3865   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1109) * lu(k,2858)
    3866   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,1107) * lu(k,3021)
    3867   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,1108) * lu(k,3021)
    3868   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1109) * lu(k,3021)
    3869   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,1107) * lu(k,3276)
    3870   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,1108) * lu(k,3276)
    3871   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1109) * lu(k,3276)
    3872   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,1107) * lu(k,3387)
    3873   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,1108) * lu(k,3387)
    3874   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1109) * lu(k,3387)
    3875   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,1107) * lu(k,3534)
    3876   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,1108) * lu(k,3534)
    3877   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1109) * lu(k,3534)
    3878   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,1107) * lu(k,3688)
    3879   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,1108) * lu(k,3688)
    3880   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1109) * lu(k,3688)
    3881   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,1107) * lu(k,3989)
    3882   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,1108) * lu(k,3989)
    3883   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1109) * lu(k,3989)
    3884   254840160 :          lu(k,1110) = 1._r8 / lu(k,1110)
    3885   254840160 :          lu(k,1111) = lu(k,1111) * lu(k,1110)
    3886   254840160 :          lu(k,1112) = lu(k,1112) * lu(k,1110)
    3887   254840160 :          lu(k,1113) = lu(k,1113) * lu(k,1110)
    3888   254840160 :          lu(k,1114) = lu(k,1114) * lu(k,1110)
    3889   254840160 :          lu(k,1115) = lu(k,1115) * lu(k,1110)
    3890   254840160 :          lu(k,1116) = lu(k,1116) * lu(k,1110)
    3891   254840160 :          lu(k,1117) = lu(k,1117) * lu(k,1110)
    3892   254840160 :          lu(k,1118) = lu(k,1118) * lu(k,1110)
    3893   254840160 :          lu(k,1119) = lu(k,1119) * lu(k,1110)
    3894   254840160 :          lu(k,1120) = lu(k,1120) * lu(k,1110)
    3895   254840160 :          lu(k,1637) = lu(k,1637) - lu(k,1111) * lu(k,1634)
    3896   254840160 :          lu(k,1641) = - lu(k,1112) * lu(k,1634)
    3897   254840160 :          lu(k,1642) = - lu(k,1113) * lu(k,1634)
    3898   254840160 :          lu(k,1643) = lu(k,1643) - lu(k,1114) * lu(k,1634)
    3899   254840160 :          lu(k,1645) = lu(k,1645) - lu(k,1115) * lu(k,1634)
    3900   254840160 :          lu(k,1646) = lu(k,1646) - lu(k,1116) * lu(k,1634)
    3901   254840160 :          lu(k,1647) = lu(k,1647) - lu(k,1117) * lu(k,1634)
    3902   254840160 :          lu(k,1649) = - lu(k,1118) * lu(k,1634)
    3903   254840160 :          lu(k,1654) = lu(k,1654) - lu(k,1119) * lu(k,1634)
    3904   254840160 :          lu(k,1655) = lu(k,1655) - lu(k,1120) * lu(k,1634)
    3905   254840160 :          lu(k,1657) = - lu(k,1111) * lu(k,1656)
    3906   254840160 :          lu(k,1660) = lu(k,1660) - lu(k,1112) * lu(k,1656)
    3907   254840160 :          lu(k,1661) = lu(k,1661) - lu(k,1113) * lu(k,1656)
    3908   254840160 :          lu(k,1662) = - lu(k,1114) * lu(k,1656)
    3909   254840160 :          lu(k,1663) = - lu(k,1115) * lu(k,1656)
    3910   254840160 :          lu(k,1664) = - lu(k,1116) * lu(k,1656)
    3911   254840160 :          lu(k,1665) = - lu(k,1117) * lu(k,1656)
    3912   254840160 :          lu(k,1666) = lu(k,1666) - lu(k,1118) * lu(k,1656)
    3913   254840160 :          lu(k,1669) = lu(k,1669) - lu(k,1119) * lu(k,1656)
    3914   254840160 :          lu(k,1670) = lu(k,1670) - lu(k,1120) * lu(k,1656)
    3915   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,1111) * lu(k,3022)
    3916   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1112) * lu(k,3022)
    3917   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1113) * lu(k,3022)
    3918   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1114) * lu(k,3022)
    3919   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1115) * lu(k,3022)
    3920   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1116) * lu(k,3022)
    3921   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1117) * lu(k,3022)
    3922   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1118) * lu(k,3022)
    3923   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1119) * lu(k,3022)
    3924   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1120) * lu(k,3022)
    3925   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,1111) * lu(k,3990)
    3926   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1112) * lu(k,3990)
    3927   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1113) * lu(k,3990)
    3928   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1114) * lu(k,3990)
    3929   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1115) * lu(k,3990)
    3930   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1116) * lu(k,3990)
    3931   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1117) * lu(k,3990)
    3932   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1118) * lu(k,3990)
    3933   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1119) * lu(k,3990)
    3934   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1120) * lu(k,3990)
    3935   254840160 :          lu(k,1121) = 1._r8 / lu(k,1121)
    3936   254840160 :          lu(k,1122) = lu(k,1122) * lu(k,1121)
    3937   254840160 :          lu(k,1123) = lu(k,1123) * lu(k,1121)
    3938   254840160 :          lu(k,1124) = lu(k,1124) * lu(k,1121)
    3939   254840160 :          lu(k,1125) = lu(k,1125) * lu(k,1121)
    3940   254840160 :          lu(k,1126) = lu(k,1126) * lu(k,1121)
    3941   254840160 :          lu(k,1127) = lu(k,1127) * lu(k,1121)
    3942   254840160 :          lu(k,1128) = lu(k,1128) * lu(k,1121)
    3943   254840160 :          lu(k,1129) = lu(k,1129) * lu(k,1121)
    3944   254840160 :          lu(k,1130) = lu(k,1130) * lu(k,1121)
    3945   254840160 :          lu(k,1131) = lu(k,1131) * lu(k,1121)
    3946   254840160 :          lu(k,2063) = - lu(k,1122) * lu(k,2061)
    3947   254840160 :          lu(k,2065) = lu(k,2065) - lu(k,1123) * lu(k,2061)
    3948   254840160 :          lu(k,2069) = - lu(k,1124) * lu(k,2061)
    3949   254840160 :          lu(k,2070) = lu(k,2070) - lu(k,1125) * lu(k,2061)
    3950   254840160 :          lu(k,2072) = lu(k,2072) - lu(k,1126) * lu(k,2061)
    3951   254840160 :          lu(k,2082) = - lu(k,1127) * lu(k,2061)
    3952   254840160 :          lu(k,2085) = - lu(k,1128) * lu(k,2061)
    3953   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1129) * lu(k,2061)
    3954   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1130) * lu(k,2061)
    3955   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1131) * lu(k,2061)
    3956   254840160 :          lu(k,3041) = lu(k,3041) - lu(k,1122) * lu(k,3023)
    3957   254840160 :          lu(k,3043) = lu(k,3043) - lu(k,1123) * lu(k,3023)
    3958   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1124) * lu(k,3023)
    3959   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1125) * lu(k,3023)
    3960   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1126) * lu(k,3023)
    3961   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1127) * lu(k,3023)
    3962   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1128) * lu(k,3023)
    3963   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1129) * lu(k,3023)
    3964   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1130) * lu(k,3023)
    3965   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1131) * lu(k,3023)
    3966   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1122) * lu(k,3277)
    3967   254840160 :          lu(k,3300) = lu(k,3300) - lu(k,1123) * lu(k,3277)
    3968   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1124) * lu(k,3277)
    3969   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1125) * lu(k,3277)
    3970   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1126) * lu(k,3277)
    3971   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1127) * lu(k,3277)
    3972   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1128) * lu(k,3277)
    3973   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1129) * lu(k,3277)
    3974   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1130) * lu(k,3277)
    3975   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1131) * lu(k,3277)
    3976   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1122) * lu(k,3991)
    3977   254840160 :          lu(k,4022) = lu(k,4022) - lu(k,1123) * lu(k,3991)
    3978   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1124) * lu(k,3991)
    3979   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1125) * lu(k,3991)
    3980   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1126) * lu(k,3991)
    3981   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1127) * lu(k,3991)
    3982   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1128) * lu(k,3991)
    3983   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1129) * lu(k,3991)
    3984   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1130) * lu(k,3991)
    3985   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1131) * lu(k,3991)
    3986             :       end do
    3987     8168963 :       end subroutine lu_fac24
    3988     8168963 :       subroutine lu_fac25( avec_len, lu )
    3989             :       use chem_mods, only : nzcnt
    3990             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3991             :       implicit none
    3992             : !-----------------------------------------------------------------------
    3993             : ! ... dummy args
    3994             : !-----------------------------------------------------------------------
    3995             :       integer, intent(in) :: avec_len
    3996             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3997             : !-----------------------------------------------------------------------
    3998             : ! ... local variables
    3999             : !-----------------------------------------------------------------------
    4000             :       integer :: k
    4001   263009123 :       do k = 1,avec_len
    4002   254840160 :          lu(k,1132) = 1._r8 / lu(k,1132)
    4003   254840160 :          lu(k,1133) = lu(k,1133) * lu(k,1132)
    4004   254840160 :          lu(k,1134) = lu(k,1134) * lu(k,1132)
    4005   254840160 :          lu(k,1135) = lu(k,1135) * lu(k,1132)
    4006   254840160 :          lu(k,1136) = lu(k,1136) * lu(k,1132)
    4007   254840160 :          lu(k,1137) = lu(k,1137) * lu(k,1132)
    4008   254840160 :          lu(k,1138) = lu(k,1138) * lu(k,1132)
    4009   254840160 :          lu(k,1139) = lu(k,1139) * lu(k,1132)
    4010   254840160 :          lu(k,1140) = lu(k,1140) * lu(k,1132)
    4011   254840160 :          lu(k,1141) = lu(k,1141) * lu(k,1132)
    4012   254840160 :          lu(k,1142) = lu(k,1142) * lu(k,1132)
    4013   254840160 :          lu(k,2094) = lu(k,2094) - lu(k,1133) * lu(k,2093)
    4014   254840160 :          lu(k,2095) = - lu(k,1134) * lu(k,2093)
    4015   254840160 :          lu(k,2101) = - lu(k,1135) * lu(k,2093)
    4016   254840160 :          lu(k,2103) = lu(k,2103) - lu(k,1136) * lu(k,2093)
    4017   254840160 :          lu(k,2107) = lu(k,2107) - lu(k,1137) * lu(k,2093)
    4018   254840160 :          lu(k,2114) = - lu(k,1138) * lu(k,2093)
    4019   254840160 :          lu(k,2117) = - lu(k,1139) * lu(k,2093)
    4020   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1140) * lu(k,2093)
    4021   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1141) * lu(k,2093)
    4022   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1142) * lu(k,2093)
    4023   254840160 :          lu(k,3039) = lu(k,3039) - lu(k,1133) * lu(k,3024)
    4024   254840160 :          lu(k,3041) = lu(k,3041) - lu(k,1134) * lu(k,3024)
    4025   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1135) * lu(k,3024)
    4026   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1136) * lu(k,3024)
    4027   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1137) * lu(k,3024)
    4028   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1138) * lu(k,3024)
    4029   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1139) * lu(k,3024)
    4030   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1140) * lu(k,3024)
    4031   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1141) * lu(k,3024)
    4032   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1142) * lu(k,3024)
    4033   254840160 :          lu(k,3296) = lu(k,3296) - lu(k,1133) * lu(k,3278)
    4034   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1134) * lu(k,3278)
    4035   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1135) * lu(k,3278)
    4036   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1136) * lu(k,3278)
    4037   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1137) * lu(k,3278)
    4038   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1138) * lu(k,3278)
    4039   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1139) * lu(k,3278)
    4040   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1140) * lu(k,3278)
    4041   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1141) * lu(k,3278)
    4042   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1142) * lu(k,3278)
    4043   254840160 :          lu(k,4018) = lu(k,4018) - lu(k,1133) * lu(k,3992)
    4044   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1134) * lu(k,3992)
    4045   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1135) * lu(k,3992)
    4046   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1136) * lu(k,3992)
    4047   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1137) * lu(k,3992)
    4048   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1138) * lu(k,3992)
    4049   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1139) * lu(k,3992)
    4050   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1140) * lu(k,3992)
    4051   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1141) * lu(k,3992)
    4052   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1142) * lu(k,3992)
    4053   254840160 :          lu(k,1143) = 1._r8 / lu(k,1143)
    4054   254840160 :          lu(k,1144) = lu(k,1144) * lu(k,1143)
    4055   254840160 :          lu(k,1145) = lu(k,1145) * lu(k,1143)
    4056   254840160 :          lu(k,1146) = lu(k,1146) * lu(k,1143)
    4057   254840160 :          lu(k,1147) = lu(k,1147) * lu(k,1143)
    4058   254840160 :          lu(k,1148) = lu(k,1148) * lu(k,1143)
    4059   254840160 :          lu(k,1149) = lu(k,1149) * lu(k,1143)
    4060   254840160 :          lu(k,2292) = lu(k,2292) - lu(k,1144) * lu(k,2289)
    4061   254840160 :          lu(k,2297) = lu(k,2297) - lu(k,1145) * lu(k,2289)
    4062   254840160 :          lu(k,2305) = - lu(k,1146) * lu(k,2289)
    4063   254840160 :          lu(k,2312) = lu(k,2312) - lu(k,1147) * lu(k,2289)
    4064   254840160 :          lu(k,2313) = lu(k,2313) - lu(k,1148) * lu(k,2289)
    4065   254840160 :          lu(k,2314) = - lu(k,1149) * lu(k,2289)
    4066   254840160 :          lu(k,2498) = - lu(k,1144) * lu(k,2494)
    4067   254840160 :          lu(k,2504) = - lu(k,1145) * lu(k,2494)
    4068   254840160 :          lu(k,2515) = lu(k,2515) - lu(k,1146) * lu(k,2494)
    4069   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1147) * lu(k,2494)
    4070   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1148) * lu(k,2494)
    4071   254840160 :          lu(k,2524) = - lu(k,1149) * lu(k,2494)
    4072   254840160 :          lu(k,2530) = lu(k,2530) - lu(k,1144) * lu(k,2527)
    4073   254840160 :          lu(k,2535) = lu(k,2535) - lu(k,1145) * lu(k,2527)
    4074   254840160 :          lu(k,2544) = - lu(k,1146) * lu(k,2527)
    4075   254840160 :          lu(k,2551) = lu(k,2551) - lu(k,1147) * lu(k,2527)
    4076   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1148) * lu(k,2527)
    4077   254840160 :          lu(k,2553) = lu(k,2553) - lu(k,1149) * lu(k,2527)
    4078   254840160 :          lu(k,2561) = - lu(k,1144) * lu(k,2557)
    4079   254840160 :          lu(k,2568) = - lu(k,1145) * lu(k,2557)
    4080   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,1146) * lu(k,2557)
    4081   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1147) * lu(k,2557)
    4082   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1148) * lu(k,2557)
    4083   254840160 :          lu(k,2589) = - lu(k,1149) * lu(k,2557)
    4084   254840160 :          lu(k,3048) = lu(k,3048) - lu(k,1144) * lu(k,3025)
    4085   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1145) * lu(k,3025)
    4086   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1146) * lu(k,3025)
    4087   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1147) * lu(k,3025)
    4088   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1148) * lu(k,3025)
    4089   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1149) * lu(k,3025)
    4090   254840160 :          lu(k,3305) = lu(k,3305) - lu(k,1144) * lu(k,3279)
    4091   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1145) * lu(k,3279)
    4092   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1146) * lu(k,3279)
    4093   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1147) * lu(k,3279)
    4094   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1148) * lu(k,3279)
    4095   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1149) * lu(k,3279)
    4096   254840160 :          lu(k,4028) = lu(k,4028) - lu(k,1144) * lu(k,3993)
    4097   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1145) * lu(k,3993)
    4098   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1146) * lu(k,3993)
    4099   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1147) * lu(k,3993)
    4100   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1148) * lu(k,3993)
    4101   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1149) * lu(k,3993)
    4102   254840160 :          lu(k,1150) = 1._r8 / lu(k,1150)
    4103   254840160 :          lu(k,1151) = lu(k,1151) * lu(k,1150)
    4104   254840160 :          lu(k,1152) = lu(k,1152) * lu(k,1150)
    4105   254840160 :          lu(k,1153) = lu(k,1153) * lu(k,1150)
    4106   254840160 :          lu(k,1154) = lu(k,1154) * lu(k,1150)
    4107   254840160 :          lu(k,1155) = lu(k,1155) * lu(k,1150)
    4108   254840160 :          lu(k,1156) = lu(k,1156) * lu(k,1150)
    4109   254840160 :          lu(k,1157) = lu(k,1157) * lu(k,1150)
    4110   254840160 :          lu(k,2199) = lu(k,2199) - lu(k,1151) * lu(k,2197)
    4111   254840160 :          lu(k,2200) = - lu(k,1152) * lu(k,2197)
    4112   254840160 :          lu(k,2201) = - lu(k,1153) * lu(k,2197)
    4113   254840160 :          lu(k,2204) = lu(k,2204) - lu(k,1154) * lu(k,2197)
    4114   254840160 :          lu(k,2206) = - lu(k,1155) * lu(k,2197)
    4115   254840160 :          lu(k,2207) = - lu(k,1156) * lu(k,2197)
    4116   254840160 :          lu(k,2208) = - lu(k,1157) * lu(k,2197)
    4117   254840160 :          lu(k,3155) = lu(k,3155) - lu(k,1151) * lu(k,3147)
    4118   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,1152) * lu(k,3147)
    4119   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1153) * lu(k,3147)
    4120   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,1154) * lu(k,3147)
    4121   254840160 :          lu(k,3170) = - lu(k,1155) * lu(k,3147)
    4122   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1156) * lu(k,3147)
    4123   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1157) * lu(k,3147)
    4124   254840160 :          lu(k,3181) = lu(k,3181) - lu(k,1151) * lu(k,3175)
    4125   254840160 :          lu(k,3183) = lu(k,3183) - lu(k,1152) * lu(k,3175)
    4126   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,1153) * lu(k,3175)
    4127   254840160 :          lu(k,3191) = - lu(k,1154) * lu(k,3175)
    4128   254840160 :          lu(k,3196) = - lu(k,1155) * lu(k,3175)
    4129   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,1156) * lu(k,3175)
    4130   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,1157) * lu(k,3175)
    4131   254840160 :          lu(k,3338) = lu(k,3338) - lu(k,1151) * lu(k,3280)
    4132   254840160 :          lu(k,3363) = lu(k,3363) - lu(k,1152) * lu(k,3280)
    4133   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1153) * lu(k,3280)
    4134   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,1154) * lu(k,3280)
    4135   254840160 :          lu(k,3376) = - lu(k,1155) * lu(k,3280)
    4136   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1156) * lu(k,3280)
    4137   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1157) * lu(k,3280)
    4138   254840160 :          lu(k,3793) = lu(k,3793) - lu(k,1151) * lu(k,3790)
    4139   254840160 :          lu(k,3795) = lu(k,3795) - lu(k,1152) * lu(k,3790)
    4140   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,1153) * lu(k,3790)
    4141   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,1154) * lu(k,3790)
    4142   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,1155) * lu(k,3790)
    4143   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,1156) * lu(k,3790)
    4144   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,1157) * lu(k,3790)
    4145   254840160 :          lu(k,4062) = lu(k,4062) - lu(k,1151) * lu(k,3994)
    4146   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,1152) * lu(k,3994)
    4147   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1153) * lu(k,3994)
    4148   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,1154) * lu(k,3994)
    4149   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,1155) * lu(k,3994)
    4150   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1156) * lu(k,3994)
    4151   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1157) * lu(k,3994)
    4152   254840160 :          lu(k,1159) = 1._r8 / lu(k,1159)
    4153   254840160 :          lu(k,1160) = lu(k,1160) * lu(k,1159)
    4154   254840160 :          lu(k,1161) = lu(k,1161) * lu(k,1159)
    4155   254840160 :          lu(k,1162) = lu(k,1162) * lu(k,1159)
    4156   254840160 :          lu(k,1163) = lu(k,1163) * lu(k,1159)
    4157   254840160 :          lu(k,1164) = lu(k,1164) * lu(k,1159)
    4158   254840160 :          lu(k,1165) = lu(k,1165) * lu(k,1159)
    4159   254840160 :          lu(k,1327) = lu(k,1327) - lu(k,1160) * lu(k,1324)
    4160   254840160 :          lu(k,1328) = lu(k,1328) - lu(k,1161) * lu(k,1324)
    4161   254840160 :          lu(k,1329) = lu(k,1329) - lu(k,1162) * lu(k,1324)
    4162   254840160 :          lu(k,1332) = lu(k,1332) - lu(k,1163) * lu(k,1324)
    4163   254840160 :          lu(k,1333) = lu(k,1333) - lu(k,1164) * lu(k,1324)
    4164   254840160 :          lu(k,1334) = - lu(k,1165) * lu(k,1324)
    4165   254840160 :          lu(k,3129) = lu(k,3129) - lu(k,1160) * lu(k,3124)
    4166   254840160 :          lu(k,3130) = lu(k,3130) - lu(k,1161) * lu(k,3124)
    4167   254840160 :          lu(k,3135) = lu(k,3135) - lu(k,1162) * lu(k,3124)
    4168   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,1163) * lu(k,3124)
    4169   254840160 :          lu(k,3141) = lu(k,3141) - lu(k,1164) * lu(k,3124)
    4170   254840160 :          lu(k,3142) = lu(k,3142) - lu(k,1165) * lu(k,3124)
    4171   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,1160) * lu(k,3148)
    4172   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1161) * lu(k,3148)
    4173   254840160 :          lu(k,3166) = lu(k,3166) - lu(k,1162) * lu(k,3148)
    4174   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,1163) * lu(k,3148)
    4175   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1164) * lu(k,3148)
    4176   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1165) * lu(k,3148)
    4177   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,1160) * lu(k,3281)
    4178   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1161) * lu(k,3281)
    4179   254840160 :          lu(k,3372) = lu(k,3372) - lu(k,1162) * lu(k,3281)
    4180   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,1163) * lu(k,3281)
    4181   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1164) * lu(k,3281)
    4182   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1165) * lu(k,3281)
    4183   254840160 :          lu(k,3509) = lu(k,3509) - lu(k,1160) * lu(k,3501)
    4184   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,1161) * lu(k,3501)
    4185   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,1162) * lu(k,3501)
    4186   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,1163) * lu(k,3501)
    4187   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,1164) * lu(k,3501)
    4188   254840160 :          lu(k,3522) = - lu(k,1165) * lu(k,3501)
    4189   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,1160) * lu(k,3821)
    4190   254840160 :          lu(k,3840) = - lu(k,1161) * lu(k,3821)
    4191   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,1162) * lu(k,3821)
    4192   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,1163) * lu(k,3821)
    4193   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1164) * lu(k,3821)
    4194   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,1165) * lu(k,3821)
    4195   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,1160) * lu(k,3995)
    4196   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1161) * lu(k,3995)
    4197   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,1162) * lu(k,3995)
    4198   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,1163) * lu(k,3995)
    4199   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1164) * lu(k,3995)
    4200   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,1165) * lu(k,3995)
    4201             :       end do
    4202     8168963 :       end subroutine lu_fac25
    4203     8168963 :       subroutine lu_fac26( avec_len, lu )
    4204             :       use chem_mods, only : nzcnt
    4205             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4206             :       implicit none
    4207             : !-----------------------------------------------------------------------
    4208             : ! ... dummy args
    4209             : !-----------------------------------------------------------------------
    4210             :       integer, intent(in) :: avec_len
    4211             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4212             : !-----------------------------------------------------------------------
    4213             : ! ... local variables
    4214             : !-----------------------------------------------------------------------
    4215             :       integer :: k
    4216   263009123 :       do k = 1,avec_len
    4217   254840160 :          lu(k,1166) = 1._r8 / lu(k,1166)
    4218   254840160 :          lu(k,1167) = lu(k,1167) * lu(k,1166)
    4219   254840160 :          lu(k,1168) = lu(k,1168) * lu(k,1166)
    4220   254840160 :          lu(k,1169) = lu(k,1169) * lu(k,1166)
    4221   254840160 :          lu(k,1170) = lu(k,1170) * lu(k,1166)
    4222   254840160 :          lu(k,1171) = lu(k,1171) * lu(k,1166)
    4223   254840160 :          lu(k,1172) = lu(k,1172) * lu(k,1166)
    4224   254840160 :          lu(k,1173) = lu(k,1173) * lu(k,1166)
    4225   254840160 :          lu(k,1174) = lu(k,1174) * lu(k,1166)
    4226   254840160 :          lu(k,1175) = lu(k,1175) * lu(k,1166)
    4227   254840160 :          lu(k,1176) = lu(k,1176) * lu(k,1166)
    4228   254840160 :          lu(k,1177) = lu(k,1177) * lu(k,1166)
    4229   254840160 :          lu(k,1939) = - lu(k,1167) * lu(k,1938)
    4230   254840160 :          lu(k,1942) = - lu(k,1168) * lu(k,1938)
    4231   254840160 :          lu(k,1943) = lu(k,1943) - lu(k,1169) * lu(k,1938)
    4232   254840160 :          lu(k,1945) = lu(k,1945) - lu(k,1170) * lu(k,1938)
    4233   254840160 :          lu(k,1946) = - lu(k,1171) * lu(k,1938)
    4234   254840160 :          lu(k,1947) = - lu(k,1172) * lu(k,1938)
    4235   254840160 :          lu(k,1961) = lu(k,1961) - lu(k,1173) * lu(k,1938)
    4236   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1174) * lu(k,1938)
    4237   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1175) * lu(k,1938)
    4238   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1176) * lu(k,1938)
    4239   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1177) * lu(k,1938)
    4240   254840160 :          lu(k,3041) = lu(k,3041) - lu(k,1167) * lu(k,3026)
    4241   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1168) * lu(k,3026)
    4242   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1169) * lu(k,3026)
    4243   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1170) * lu(k,3026)
    4244   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1171) * lu(k,3026)
    4245   254840160 :          lu(k,3063) = lu(k,3063) - lu(k,1172) * lu(k,3026)
    4246   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1173) * lu(k,3026)
    4247   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1174) * lu(k,3026)
    4248   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1175) * lu(k,3026)
    4249   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1176) * lu(k,3026)
    4250   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1177) * lu(k,3026)
    4251   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1167) * lu(k,3282)
    4252   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1168) * lu(k,3282)
    4253   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1169) * lu(k,3282)
    4254   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1170) * lu(k,3282)
    4255   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1171) * lu(k,3282)
    4256   254840160 :          lu(k,3322) = lu(k,3322) - lu(k,1172) * lu(k,3282)
    4257   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1173) * lu(k,3282)
    4258   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1174) * lu(k,3282)
    4259   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1175) * lu(k,3282)
    4260   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1176) * lu(k,3282)
    4261   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1177) * lu(k,3282)
    4262   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1167) * lu(k,3996)
    4263   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1168) * lu(k,3996)
    4264   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1169) * lu(k,3996)
    4265   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1170) * lu(k,3996)
    4266   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1171) * lu(k,3996)
    4267   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1172) * lu(k,3996)
    4268   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1173) * lu(k,3996)
    4269   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1174) * lu(k,3996)
    4270   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1175) * lu(k,3996)
    4271   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1176) * lu(k,3996)
    4272   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1177) * lu(k,3996)
    4273   254840160 :          lu(k,1182) = 1._r8 / lu(k,1182)
    4274   254840160 :          lu(k,1183) = lu(k,1183) * lu(k,1182)
    4275   254840160 :          lu(k,1184) = lu(k,1184) * lu(k,1182)
    4276   254840160 :          lu(k,1185) = lu(k,1185) * lu(k,1182)
    4277   254840160 :          lu(k,1186) = lu(k,1186) * lu(k,1182)
    4278   254840160 :          lu(k,1187) = lu(k,1187) * lu(k,1182)
    4279   254840160 :          lu(k,1188) = lu(k,1188) * lu(k,1182)
    4280   254840160 :          lu(k,1189) = lu(k,1189) * lu(k,1182)
    4281   254840160 :          lu(k,1190) = lu(k,1190) * lu(k,1182)
    4282   254840160 :          lu(k,1191) = lu(k,1191) * lu(k,1182)
    4283   254840160 :          lu(k,3034) = lu(k,3034) - lu(k,1183) * lu(k,3027)
    4284   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,1184) * lu(k,3027)
    4285   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,1185) * lu(k,3027)
    4286   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1186) * lu(k,3027)
    4287   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1187) * lu(k,3027)
    4288   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1188) * lu(k,3027)
    4289   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1189) * lu(k,3027)
    4290   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1190) * lu(k,3027)
    4291   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1191) * lu(k,3027)
    4292   254840160 :          lu(k,3291) = lu(k,3291) - lu(k,1183) * lu(k,3283)
    4293   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,1184) * lu(k,3283)
    4294   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,1185) * lu(k,3283)
    4295   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1186) * lu(k,3283)
    4296   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1187) * lu(k,3283)
    4297   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1188) * lu(k,3283)
    4298   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1189) * lu(k,3283)
    4299   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1190) * lu(k,3283)
    4300   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1191) * lu(k,3283)
    4301   254840160 :          lu(k,3540) = - lu(k,1183) * lu(k,3535)
    4302   254840160 :          lu(k,3544) = lu(k,3544) - lu(k,1184) * lu(k,3535)
    4303   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,1185) * lu(k,3535)
    4304   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1186) * lu(k,3535)
    4305   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1187) * lu(k,3535)
    4306   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1188) * lu(k,3535)
    4307   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1189) * lu(k,3535)
    4308   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1190) * lu(k,3535)
    4309   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1191) * lu(k,3535)
    4310   254840160 :          lu(k,3694) = - lu(k,1183) * lu(k,3689)
    4311   254840160 :          lu(k,3698) = lu(k,3698) - lu(k,1184) * lu(k,3689)
    4312   254840160 :          lu(k,3734) = lu(k,3734) - lu(k,1185) * lu(k,3689)
    4313   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1186) * lu(k,3689)
    4314   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1187) * lu(k,3689)
    4315   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1188) * lu(k,3689)
    4316   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1189) * lu(k,3689)
    4317   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1190) * lu(k,3689)
    4318   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1191) * lu(k,3689)
    4319   254840160 :          lu(k,4011) = lu(k,4011) - lu(k,1183) * lu(k,3997)
    4320   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,1184) * lu(k,3997)
    4321   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,1185) * lu(k,3997)
    4322   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1186) * lu(k,3997)
    4323   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1187) * lu(k,3997)
    4324   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1188) * lu(k,3997)
    4325   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1189) * lu(k,3997)
    4326   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1190) * lu(k,3997)
    4327   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1191) * lu(k,3997)
    4328   254840160 :          lu(k,1194) = 1._r8 / lu(k,1194)
    4329   254840160 :          lu(k,1195) = lu(k,1195) * lu(k,1194)
    4330   254840160 :          lu(k,1196) = lu(k,1196) * lu(k,1194)
    4331   254840160 :          lu(k,1197) = lu(k,1197) * lu(k,1194)
    4332   254840160 :          lu(k,1198) = lu(k,1198) * lu(k,1194)
    4333   254840160 :          lu(k,1199) = lu(k,1199) * lu(k,1194)
    4334   254840160 :          lu(k,1200) = lu(k,1200) * lu(k,1194)
    4335   254840160 :          lu(k,1201) = lu(k,1201) * lu(k,1194)
    4336   254840160 :          lu(k,1202) = lu(k,1202) * lu(k,1194)
    4337   254840160 :          lu(k,1203) = lu(k,1203) * lu(k,1194)
    4338   254840160 :          lu(k,1204) = lu(k,1204) * lu(k,1194)
    4339   254840160 :          lu(k,1205) = lu(k,1205) * lu(k,1194)
    4340   254840160 :          lu(k,1206) = lu(k,1206) * lu(k,1194)
    4341   254840160 :          lu(k,1207) = lu(k,1207) * lu(k,1194)
    4342   254840160 :          lu(k,1208) = lu(k,1208) * lu(k,1194)
    4343   254840160 :          lu(k,1209) = lu(k,1209) * lu(k,1194)
    4344   254840160 :          lu(k,2157) = - lu(k,1195) * lu(k,2155)
    4345   254840160 :          lu(k,2158) = - lu(k,1196) * lu(k,2155)
    4346   254840160 :          lu(k,2166) = - lu(k,1197) * lu(k,2155)
    4347   254840160 :          lu(k,2169) = - lu(k,1198) * lu(k,2155)
    4348   254840160 :          lu(k,2173) = - lu(k,1199) * lu(k,2155)
    4349   254840160 :          lu(k,2174) = lu(k,2174) - lu(k,1200) * lu(k,2155)
    4350   254840160 :          lu(k,2175) = lu(k,2175) - lu(k,1201) * lu(k,2155)
    4351   254840160 :          lu(k,2176) = - lu(k,1202) * lu(k,2155)
    4352   254840160 :          lu(k,2179) = lu(k,2179) - lu(k,1203) * lu(k,2155)
    4353   254840160 :          lu(k,2180) = lu(k,2180) - lu(k,1204) * lu(k,2155)
    4354   254840160 :          lu(k,2184) = - lu(k,1205) * lu(k,2155)
    4355   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1206) * lu(k,2155)
    4356   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1207) * lu(k,2155)
    4357   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1208) * lu(k,2155)
    4358   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1209) * lu(k,2155)
    4359   254840160 :          lu(k,3289) = lu(k,3289) - lu(k,1195) * lu(k,3284)
    4360   254840160 :          lu(k,3293) = lu(k,3293) - lu(k,1196) * lu(k,3284)
    4361   254840160 :          lu(k,3311) = lu(k,3311) - lu(k,1197) * lu(k,3284)
    4362   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1198) * lu(k,3284)
    4363   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1199) * lu(k,3284)
    4364   254840160 :          lu(k,3331) = lu(k,3331) - lu(k,1200) * lu(k,3284)
    4365   254840160 :          lu(k,3332) = lu(k,3332) - lu(k,1201) * lu(k,3284)
    4366   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1202) * lu(k,3284)
    4367   254840160 :          lu(k,3336) = - lu(k,1203) * lu(k,3284)
    4368   254840160 :          lu(k,3337) = lu(k,3337) - lu(k,1204) * lu(k,3284)
    4369   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1205) * lu(k,3284)
    4370   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1206) * lu(k,3284)
    4371   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1207) * lu(k,3284)
    4372   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1208) * lu(k,3284)
    4373   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1209) * lu(k,3284)
    4374   254840160 :          lu(k,4008) = lu(k,4008) - lu(k,1195) * lu(k,3998)
    4375   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,1196) * lu(k,3998)
    4376   254840160 :          lu(k,4035) = lu(k,4035) - lu(k,1197) * lu(k,3998)
    4377   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1198) * lu(k,3998)
    4378   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1199) * lu(k,3998)
    4379   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,1200) * lu(k,3998)
    4380   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,1201) * lu(k,3998)
    4381   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1202) * lu(k,3998)
    4382   254840160 :          lu(k,4060) = lu(k,4060) - lu(k,1203) * lu(k,3998)
    4383   254840160 :          lu(k,4061) = lu(k,4061) - lu(k,1204) * lu(k,3998)
    4384   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1205) * lu(k,3998)
    4385   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1206) * lu(k,3998)
    4386   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1207) * lu(k,3998)
    4387   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1208) * lu(k,3998)
    4388   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1209) * lu(k,3998)
    4389             :       end do
    4390     8168963 :       end subroutine lu_fac26
    4391     8168963 :       subroutine lu_fac27( avec_len, lu )
    4392             :       use chem_mods, only : nzcnt
    4393             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4394             :       implicit none
    4395             : !-----------------------------------------------------------------------
    4396             : ! ... dummy args
    4397             : !-----------------------------------------------------------------------
    4398             :       integer, intent(in) :: avec_len
    4399             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4400             : !-----------------------------------------------------------------------
    4401             : ! ... local variables
    4402             : !-----------------------------------------------------------------------
    4403             :       integer :: k
    4404   263009123 :       do k = 1,avec_len
    4405   254840160 :          lu(k,1210) = 1._r8 / lu(k,1210)
    4406   254840160 :          lu(k,1211) = lu(k,1211) * lu(k,1210)
    4407   254840160 :          lu(k,1212) = lu(k,1212) * lu(k,1210)
    4408   254840160 :          lu(k,1213) = lu(k,1213) * lu(k,1210)
    4409   254840160 :          lu(k,1214) = lu(k,1214) * lu(k,1210)
    4410   254840160 :          lu(k,1215) = lu(k,1215) * lu(k,1210)
    4411   254840160 :          lu(k,1409) = lu(k,1409) - lu(k,1211) * lu(k,1408)
    4412   254840160 :          lu(k,1424) = lu(k,1424) - lu(k,1212) * lu(k,1408)
    4413   254840160 :          lu(k,1425) = lu(k,1425) - lu(k,1213) * lu(k,1408)
    4414   254840160 :          lu(k,1429) = lu(k,1429) - lu(k,1214) * lu(k,1408)
    4415   254840160 :          lu(k,1430) = - lu(k,1215) * lu(k,1408)
    4416   254840160 :          lu(k,2592) = lu(k,2592) - lu(k,1211) * lu(k,2591)
    4417   254840160 :          lu(k,2611) = lu(k,2611) - lu(k,1212) * lu(k,2591)
    4418   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,1213) * lu(k,2591)
    4419   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,1214) * lu(k,2591)
    4420   254840160 :          lu(k,2618) = - lu(k,1215) * lu(k,2591)
    4421   254840160 :          lu(k,2622) = lu(k,2622) - lu(k,1211) * lu(k,2621)
    4422   254840160 :          lu(k,2639) = lu(k,2639) - lu(k,1212) * lu(k,2621)
    4423   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,1213) * lu(k,2621)
    4424   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,1214) * lu(k,2621)
    4425   254840160 :          lu(k,2646) = - lu(k,1215) * lu(k,2621)
    4426   254840160 :          lu(k,3036) = lu(k,3036) - lu(k,1211) * lu(k,3028)
    4427   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1212) * lu(k,3028)
    4428   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1213) * lu(k,3028)
    4429   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1214) * lu(k,3028)
    4430   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1215) * lu(k,3028)
    4431   254840160 :          lu(k,3177) = lu(k,3177) - lu(k,1211) * lu(k,3176)
    4432   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,1212) * lu(k,3176)
    4433   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,1213) * lu(k,3176)
    4434   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,1214) * lu(k,3176)
    4435   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,1215) * lu(k,3176)
    4436   254840160 :          lu(k,3293) = lu(k,3293) - lu(k,1211) * lu(k,3285)
    4437   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1212) * lu(k,3285)
    4438   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1213) * lu(k,3285)
    4439   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1214) * lu(k,3285)
    4440   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1215) * lu(k,3285)
    4441   254840160 :          lu(k,3541) = lu(k,3541) - lu(k,1211) * lu(k,3536)
    4442   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1212) * lu(k,3536)
    4443   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1213) * lu(k,3536)
    4444   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1214) * lu(k,3536)
    4445   254840160 :          lu(k,3616) = - lu(k,1215) * lu(k,3536)
    4446   254840160 :          lu(k,3695) = lu(k,3695) - lu(k,1211) * lu(k,3690)
    4447   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1212) * lu(k,3690)
    4448   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1213) * lu(k,3690)
    4449   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1214) * lu(k,3690)
    4450   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1215) * lu(k,3690)
    4451   254840160 :          lu(k,4013) = lu(k,4013) - lu(k,1211) * lu(k,3999)
    4452   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1212) * lu(k,3999)
    4453   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1213) * lu(k,3999)
    4454   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1214) * lu(k,3999)
    4455   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1215) * lu(k,3999)
    4456   254840160 :          lu(k,1218) = 1._r8 / lu(k,1218)
    4457   254840160 :          lu(k,1219) = lu(k,1219) * lu(k,1218)
    4458   254840160 :          lu(k,1220) = lu(k,1220) * lu(k,1218)
    4459   254840160 :          lu(k,1221) = lu(k,1221) * lu(k,1218)
    4460   254840160 :          lu(k,1222) = lu(k,1222) * lu(k,1218)
    4461   254840160 :          lu(k,1223) = lu(k,1223) * lu(k,1218)
    4462   254840160 :          lu(k,1224) = lu(k,1224) * lu(k,1218)
    4463   254840160 :          lu(k,1225) = lu(k,1225) * lu(k,1218)
    4464   254840160 :          lu(k,1226) = lu(k,1226) * lu(k,1218)
    4465   254840160 :          lu(k,1227) = lu(k,1227) * lu(k,1218)
    4466   254840160 :          lu(k,2496) = lu(k,2496) - lu(k,1219) * lu(k,2495)
    4467   254840160 :          lu(k,2499) = lu(k,2499) - lu(k,1220) * lu(k,2495)
    4468   254840160 :          lu(k,2504) = lu(k,2504) - lu(k,1221) * lu(k,2495)
    4469   254840160 :          lu(k,2506) = - lu(k,1222) * lu(k,2495)
    4470   254840160 :          lu(k,2516) = lu(k,2516) - lu(k,1223) * lu(k,2495)
    4471   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1224) * lu(k,2495)
    4472   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1225) * lu(k,2495)
    4473   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1226) * lu(k,2495)
    4474   254840160 :          lu(k,2524) = lu(k,2524) - lu(k,1227) * lu(k,2495)
    4475   254840160 :          lu(k,2559) = lu(k,2559) - lu(k,1219) * lu(k,2558)
    4476   254840160 :          lu(k,2562) = lu(k,2562) - lu(k,1220) * lu(k,2558)
    4477   254840160 :          lu(k,2568) = lu(k,2568) - lu(k,1221) * lu(k,2558)
    4478   254840160 :          lu(k,2569) = - lu(k,1222) * lu(k,2558)
    4479   254840160 :          lu(k,2581) = lu(k,2581) - lu(k,1223) * lu(k,2558)
    4480   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1224) * lu(k,2558)
    4481   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1225) * lu(k,2558)
    4482   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1226) * lu(k,2558)
    4483   254840160 :          lu(k,2589) = lu(k,2589) - lu(k,1227) * lu(k,2558)
    4484   254840160 :          lu(k,3030) = lu(k,3030) - lu(k,1219) * lu(k,3029)
    4485   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,1220) * lu(k,3029)
    4486   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1221) * lu(k,3029)
    4487   254840160 :          lu(k,3093) = lu(k,3093) - lu(k,1222) * lu(k,3029)
    4488   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1223) * lu(k,3029)
    4489   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1224) * lu(k,3029)
    4490   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1225) * lu(k,3029)
    4491   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1226) * lu(k,3029)
    4492   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1227) * lu(k,3029)
    4493   254840160 :          lu(k,3287) = lu(k,3287) - lu(k,1219) * lu(k,3286)
    4494   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,1220) * lu(k,3286)
    4495   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1221) * lu(k,3286)
    4496   254840160 :          lu(k,3352) = lu(k,3352) - lu(k,1222) * lu(k,3286)
    4497   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1223) * lu(k,3286)
    4498   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1224) * lu(k,3286)
    4499   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1225) * lu(k,3286)
    4500   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1226) * lu(k,3286)
    4501   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1227) * lu(k,3286)
    4502   254840160 :          lu(k,4001) = lu(k,4001) - lu(k,1219) * lu(k,4000)
    4503   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,1220) * lu(k,4000)
    4504   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1221) * lu(k,4000)
    4505   254840160 :          lu(k,4075) = lu(k,4075) - lu(k,1222) * lu(k,4000)
    4506   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1223) * lu(k,4000)
    4507   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1224) * lu(k,4000)
    4508   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1225) * lu(k,4000)
    4509   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1226) * lu(k,4000)
    4510   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1227) * lu(k,4000)
    4511   254840160 :          lu(k,1228) = 1._r8 / lu(k,1228)
    4512   254840160 :          lu(k,1229) = lu(k,1229) * lu(k,1228)
    4513   254840160 :          lu(k,1230) = lu(k,1230) * lu(k,1228)
    4514   254840160 :          lu(k,1231) = lu(k,1231) * lu(k,1228)
    4515   254840160 :          lu(k,1232) = lu(k,1232) * lu(k,1228)
    4516   254840160 :          lu(k,1233) = lu(k,1233) * lu(k,1228)
    4517   254840160 :          lu(k,1688) = lu(k,1688) - lu(k,1229) * lu(k,1687)
    4518   254840160 :          lu(k,1692) = - lu(k,1230) * lu(k,1687)
    4519   254840160 :          lu(k,1694) = lu(k,1694) - lu(k,1231) * lu(k,1687)
    4520   254840160 :          lu(k,1695) = lu(k,1695) - lu(k,1232) * lu(k,1687)
    4521   254840160 :          lu(k,1696) = lu(k,1696) - lu(k,1233) * lu(k,1687)
    4522   254840160 :          lu(k,1701) = lu(k,1701) - lu(k,1229) * lu(k,1699)
    4523   254840160 :          lu(k,1705) = lu(k,1705) - lu(k,1230) * lu(k,1699)
    4524   254840160 :          lu(k,1707) = lu(k,1707) - lu(k,1231) * lu(k,1699)
    4525   254840160 :          lu(k,1708) = lu(k,1708) - lu(k,1232) * lu(k,1699)
    4526   254840160 :          lu(k,1709) = lu(k,1709) - lu(k,1233) * lu(k,1699)
    4527   254840160 :          lu(k,2293) = lu(k,2293) - lu(k,1229) * lu(k,2290)
    4528   254840160 :          lu(k,2305) = lu(k,2305) - lu(k,1230) * lu(k,2290)
    4529   254840160 :          lu(k,2309) = lu(k,2309) - lu(k,1231) * lu(k,2290)
    4530   254840160 :          lu(k,2312) = lu(k,2312) - lu(k,1232) * lu(k,2290)
    4531   254840160 :          lu(k,2313) = lu(k,2313) - lu(k,1233) * lu(k,2290)
    4532   254840160 :          lu(k,2499) = lu(k,2499) - lu(k,1229) * lu(k,2496)
    4533   254840160 :          lu(k,2515) = lu(k,2515) - lu(k,1230) * lu(k,2496)
    4534   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1231) * lu(k,2496)
    4535   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1232) * lu(k,2496)
    4536   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1233) * lu(k,2496)
    4537   254840160 :          lu(k,2531) = lu(k,2531) - lu(k,1229) * lu(k,2528)
    4538   254840160 :          lu(k,2544) = lu(k,2544) - lu(k,1230) * lu(k,2528)
    4539   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,1231) * lu(k,2528)
    4540   254840160 :          lu(k,2551) = lu(k,2551) - lu(k,1232) * lu(k,2528)
    4541   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1233) * lu(k,2528)
    4542   254840160 :          lu(k,2562) = lu(k,2562) - lu(k,1229) * lu(k,2559)
    4543   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,1230) * lu(k,2559)
    4544   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1231) * lu(k,2559)
    4545   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1232) * lu(k,2559)
    4546   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1233) * lu(k,2559)
    4547   254840160 :          lu(k,3050) = lu(k,3050) - lu(k,1229) * lu(k,3030)
    4548   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1230) * lu(k,3030)
    4549   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1231) * lu(k,3030)
    4550   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1232) * lu(k,3030)
    4551   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1233) * lu(k,3030)
    4552   254840160 :          lu(k,3307) = lu(k,3307) - lu(k,1229) * lu(k,3287)
    4553   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1230) * lu(k,3287)
    4554   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1231) * lu(k,3287)
    4555   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1232) * lu(k,3287)
    4556   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1233) * lu(k,3287)
    4557   254840160 :          lu(k,4030) = lu(k,4030) - lu(k,1229) * lu(k,4001)
    4558   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1230) * lu(k,4001)
    4559   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1231) * lu(k,4001)
    4560   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1232) * lu(k,4001)
    4561   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1233) * lu(k,4001)
    4562   254840160 :          lu(k,1235) = 1._r8 / lu(k,1235)
    4563   254840160 :          lu(k,1236) = lu(k,1236) * lu(k,1235)
    4564   254840160 :          lu(k,1237) = lu(k,1237) * lu(k,1235)
    4565   254840160 :          lu(k,1238) = lu(k,1238) * lu(k,1235)
    4566   254840160 :          lu(k,1239) = lu(k,1239) * lu(k,1235)
    4567   254840160 :          lu(k,1240) = lu(k,1240) * lu(k,1235)
    4568   254840160 :          lu(k,1600) = lu(k,1600) - lu(k,1236) * lu(k,1599)
    4569   254840160 :          lu(k,1604) = lu(k,1604) - lu(k,1237) * lu(k,1599)
    4570   254840160 :          lu(k,1605) = - lu(k,1238) * lu(k,1599)
    4571   254840160 :          lu(k,1611) = lu(k,1611) - lu(k,1239) * lu(k,1599)
    4572   254840160 :          lu(k,1612) = - lu(k,1240) * lu(k,1599)
    4573   254840160 :          lu(k,3152) = lu(k,3152) - lu(k,1236) * lu(k,3149)
    4574   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1237) * lu(k,3149)
    4575   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,1238) * lu(k,3149)
    4576   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1239) * lu(k,3149)
    4577   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1240) * lu(k,3149)
    4578   254840160 :          lu(k,3478) = lu(k,3478) - lu(k,1236) * lu(k,3477)
    4579   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,1237) * lu(k,3477)
    4580   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,1238) * lu(k,3477)
    4581   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,1239) * lu(k,3477)
    4582   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,1240) * lu(k,3477)
    4583   254840160 :          lu(k,3504) = lu(k,3504) - lu(k,1236) * lu(k,3502)
    4584   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,1237) * lu(k,3502)
    4585   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,1238) * lu(k,3502)
    4586   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,1239) * lu(k,3502)
    4587   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,1240) * lu(k,3502)
    4588   254840160 :          lu(k,3550) = - lu(k,1236) * lu(k,3537)
    4589   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1237) * lu(k,3537)
    4590   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1238) * lu(k,3537)
    4591   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1239) * lu(k,3537)
    4592   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1240) * lu(k,3537)
    4593   254840160 :          lu(k,3639) = lu(k,3639) - lu(k,1236) * lu(k,3635)
    4594   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,1237) * lu(k,3635)
    4595   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1238) * lu(k,3635)
    4596   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1239) * lu(k,3635)
    4597   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,1240) * lu(k,3635)
    4598   254840160 :          lu(k,3705) = lu(k,3705) - lu(k,1236) * lu(k,3691)
    4599   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1237) * lu(k,3691)
    4600   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1238) * lu(k,3691)
    4601   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1239) * lu(k,3691)
    4602   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1240) * lu(k,3691)
    4603   254840160 :          lu(k,4032) = lu(k,4032) - lu(k,1236) * lu(k,4002)
    4604   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1237) * lu(k,4002)
    4605   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1238) * lu(k,4002)
    4606   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1239) * lu(k,4002)
    4607   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1240) * lu(k,4002)
    4608   254840160 :          lu(k,4108) = - lu(k,1236) * lu(k,4106)
    4609   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,1237) * lu(k,4106)
    4610   254840160 :          lu(k,4118) = - lu(k,1238) * lu(k,4106)
    4611   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,1239) * lu(k,4106)
    4612   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,1240) * lu(k,4106)
    4613   254840160 :          lu(k,1242) = 1._r8 / lu(k,1242)
    4614   254840160 :          lu(k,1243) = lu(k,1243) * lu(k,1242)
    4615   254840160 :          lu(k,1244) = lu(k,1244) * lu(k,1242)
    4616   254840160 :          lu(k,1245) = lu(k,1245) * lu(k,1242)
    4617   254840160 :          lu(k,1246) = lu(k,1246) * lu(k,1242)
    4618   254840160 :          lu(k,1247) = lu(k,1247) * lu(k,1242)
    4619   254840160 :          lu(k,1248) = lu(k,1248) * lu(k,1242)
    4620   254840160 :          lu(k,1249) = lu(k,1249) * lu(k,1242)
    4621   254840160 :          lu(k,1250) = lu(k,1250) * lu(k,1242)
    4622   254840160 :          lu(k,1673) = lu(k,1673) - lu(k,1243) * lu(k,1672)
    4623   254840160 :          lu(k,1674) = - lu(k,1244) * lu(k,1672)
    4624   254840160 :          lu(k,1675) = lu(k,1675) - lu(k,1245) * lu(k,1672)
    4625   254840160 :          lu(k,1676) = - lu(k,1246) * lu(k,1672)
    4626   254840160 :          lu(k,1679) = - lu(k,1247) * lu(k,1672)
    4627   254840160 :          lu(k,1680) = - lu(k,1248) * lu(k,1672)
    4628   254840160 :          lu(k,1683) = lu(k,1683) - lu(k,1249) * lu(k,1672)
    4629   254840160 :          lu(k,1684) = lu(k,1684) - lu(k,1250) * lu(k,1672)
    4630   254840160 :          lu(k,2257) = lu(k,2257) - lu(k,1243) * lu(k,2255)
    4631   254840160 :          lu(k,2259) = lu(k,2259) - lu(k,1244) * lu(k,2255)
    4632   254840160 :          lu(k,2260) = lu(k,2260) - lu(k,1245) * lu(k,2255)
    4633   254840160 :          lu(k,2261) = - lu(k,1246) * lu(k,2255)
    4634   254840160 :          lu(k,2266) = lu(k,2266) - lu(k,1247) * lu(k,2255)
    4635   254840160 :          lu(k,2267) = - lu(k,1248) * lu(k,2255)
    4636   254840160 :          lu(k,2270) = lu(k,2270) - lu(k,1249) * lu(k,2255)
    4637   254840160 :          lu(k,2271) = lu(k,2271) - lu(k,1250) * lu(k,2255)
    4638   254840160 :          lu(k,2946) = - lu(k,1243) * lu(k,2945)
    4639   254840160 :          lu(k,2947) = - lu(k,1244) * lu(k,2945)
    4640   254840160 :          lu(k,2948) = lu(k,2948) - lu(k,1245) * lu(k,2945)
    4641   254840160 :          lu(k,2949) = lu(k,2949) - lu(k,1246) * lu(k,2945)
    4642   254840160 :          lu(k,2954) = - lu(k,1247) * lu(k,2945)
    4643   254840160 :          lu(k,2955) = lu(k,2955) - lu(k,1248) * lu(k,2945)
    4644   254840160 :          lu(k,2960) = lu(k,2960) - lu(k,1249) * lu(k,2945)
    4645   254840160 :          lu(k,2961) = lu(k,2961) - lu(k,1250) * lu(k,2945)
    4646   254840160 :          lu(k,3792) = lu(k,3792) - lu(k,1243) * lu(k,3791)
    4647   254840160 :          lu(k,3794) = lu(k,3794) - lu(k,1244) * lu(k,3791)
    4648   254840160 :          lu(k,3795) = lu(k,3795) - lu(k,1245) * lu(k,3791)
    4649   254840160 :          lu(k,3796) = - lu(k,1246) * lu(k,3791)
    4650   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,1247) * lu(k,3791)
    4651   254840160 :          lu(k,3805) = - lu(k,1248) * lu(k,3791)
    4652   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,1249) * lu(k,3791)
    4653   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,1250) * lu(k,3791)
    4654   254840160 :          lu(k,4037) = lu(k,4037) - lu(k,1243) * lu(k,4003)
    4655   254840160 :          lu(k,4064) = lu(k,4064) - lu(k,1244) * lu(k,4003)
    4656   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,1245) * lu(k,4003)
    4657   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1246) * lu(k,4003)
    4658   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1247) * lu(k,4003)
    4659   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1248) * lu(k,4003)
    4660   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1249) * lu(k,4003)
    4661   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1250) * lu(k,4003)
    4662   254840160 :          lu(k,4109) = lu(k,4109) - lu(k,1243) * lu(k,4107)
    4663   254840160 :          lu(k,4111) = - lu(k,1244) * lu(k,4107)
    4664   254840160 :          lu(k,4112) = lu(k,4112) - lu(k,1245) * lu(k,4107)
    4665   254840160 :          lu(k,4113) = - lu(k,1246) * lu(k,4107)
    4666   254840160 :          lu(k,4119) = - lu(k,1247) * lu(k,4107)
    4667   254840160 :          lu(k,4122) = - lu(k,1248) * lu(k,4107)
    4668   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,1249) * lu(k,4107)
    4669   263009123 :          lu(k,4128) = lu(k,4128) - lu(k,1250) * lu(k,4107)
    4670             :       end do
    4671     8168963 :       end subroutine lu_fac27
    4672     8168963 :       subroutine lu_fac28( avec_len, lu )
    4673             :       use chem_mods, only : nzcnt
    4674             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4675             :       implicit none
    4676             : !-----------------------------------------------------------------------
    4677             : ! ... dummy args
    4678             : !-----------------------------------------------------------------------
    4679             :       integer, intent(in) :: avec_len
    4680             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4681             : !-----------------------------------------------------------------------
    4682             : ! ... local variables
    4683             : !-----------------------------------------------------------------------
    4684             :       integer :: k
    4685   263009123 :       do k = 1,avec_len
    4686   254840160 :          lu(k,1252) = 1._r8 / lu(k,1252)
    4687   254840160 :          lu(k,1253) = lu(k,1253) * lu(k,1252)
    4688   254840160 :          lu(k,1254) = lu(k,1254) * lu(k,1252)
    4689   254840160 :          lu(k,1255) = lu(k,1255) * lu(k,1252)
    4690   254840160 :          lu(k,1256) = lu(k,1256) * lu(k,1252)
    4691   254840160 :          lu(k,1257) = lu(k,1257) * lu(k,1252)
    4692   254840160 :          lu(k,1258) = lu(k,1258) * lu(k,1252)
    4693   254840160 :          lu(k,1259) = lu(k,1259) * lu(k,1252)
    4694   254840160 :          lu(k,1260) = lu(k,1260) * lu(k,1252)
    4695   254840160 :          lu(k,1261) = lu(k,1261) * lu(k,1252)
    4696   254840160 :          lu(k,1262) = lu(k,1262) * lu(k,1252)
    4697   254840160 :          lu(k,1263) = lu(k,1263) * lu(k,1252)
    4698   254840160 :          lu(k,1264) = lu(k,1264) * lu(k,1252)
    4699   254840160 :          lu(k,1569) = lu(k,1569) - lu(k,1253) * lu(k,1564)
    4700   254840160 :          lu(k,1573) = - lu(k,1254) * lu(k,1564)
    4701   254840160 :          lu(k,1574) = - lu(k,1255) * lu(k,1564)
    4702   254840160 :          lu(k,1577) = - lu(k,1256) * lu(k,1564)
    4703   254840160 :          lu(k,1580) = - lu(k,1257) * lu(k,1564)
    4704   254840160 :          lu(k,1581) = lu(k,1581) - lu(k,1258) * lu(k,1564)
    4705   254840160 :          lu(k,1582) = lu(k,1582) - lu(k,1259) * lu(k,1564)
    4706   254840160 :          lu(k,1586) = lu(k,1586) - lu(k,1260) * lu(k,1564)
    4707   254840160 :          lu(k,1590) = lu(k,1590) - lu(k,1261) * lu(k,1564)
    4708   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1262) * lu(k,1564)
    4709   254840160 :          lu(k,1592) = lu(k,1592) - lu(k,1263) * lu(k,1564)
    4710   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1264) * lu(k,1564)
    4711   254840160 :          lu(k,2162) = - lu(k,1253) * lu(k,2156)
    4712   254840160 :          lu(k,2165) = lu(k,2165) - lu(k,1254) * lu(k,2156)
    4713   254840160 :          lu(k,2166) = lu(k,2166) - lu(k,1255) * lu(k,2156)
    4714   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1256) * lu(k,2156)
    4715   254840160 :          lu(k,2172) = - lu(k,1257) * lu(k,2156)
    4716   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1258) * lu(k,2156)
    4717   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1259) * lu(k,2156)
    4718   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,1260) * lu(k,2156)
    4719   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1261) * lu(k,2156)
    4720   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1262) * lu(k,2156)
    4721   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1263) * lu(k,2156)
    4722   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1264) * lu(k,2156)
    4723   254840160 :          lu(k,3397) = - lu(k,1253) * lu(k,3388)
    4724   254840160 :          lu(k,3404) = lu(k,3404) - lu(k,1254) * lu(k,3388)
    4725   254840160 :          lu(k,3406) = - lu(k,1255) * lu(k,3388)
    4726   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1256) * lu(k,3388)
    4727   254840160 :          lu(k,3421) = - lu(k,1257) * lu(k,3388)
    4728   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1258) * lu(k,3388)
    4729   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1259) * lu(k,3388)
    4730   254840160 :          lu(k,3457) = - lu(k,1260) * lu(k,3388)
    4731   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1261) * lu(k,3388)
    4732   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1262) * lu(k,3388)
    4733   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1263) * lu(k,3388)
    4734   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1264) * lu(k,3388)
    4735   254840160 :          lu(k,4022) = lu(k,4022) - lu(k,1253) * lu(k,4004)
    4736   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1254) * lu(k,4004)
    4737   254840160 :          lu(k,4035) = lu(k,4035) - lu(k,1255) * lu(k,4004)
    4738   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1256) * lu(k,4004)
    4739   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1257) * lu(k,4004)
    4740   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1258) * lu(k,4004)
    4741   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1259) * lu(k,4004)
    4742   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1260) * lu(k,4004)
    4743   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1261) * lu(k,4004)
    4744   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1262) * lu(k,4004)
    4745   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1263) * lu(k,4004)
    4746   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1264) * lu(k,4004)
    4747   254840160 :          lu(k,1272) = 1._r8 / lu(k,1272)
    4748   254840160 :          lu(k,1273) = lu(k,1273) * lu(k,1272)
    4749   254840160 :          lu(k,1274) = lu(k,1274) * lu(k,1272)
    4750   254840160 :          lu(k,1275) = lu(k,1275) * lu(k,1272)
    4751   254840160 :          lu(k,1276) = lu(k,1276) * lu(k,1272)
    4752   254840160 :          lu(k,1277) = lu(k,1277) * lu(k,1272)
    4753   254840160 :          lu(k,1278) = lu(k,1278) * lu(k,1272)
    4754   254840160 :          lu(k,1279) = lu(k,1279) * lu(k,1272)
    4755   254840160 :          lu(k,1280) = lu(k,1280) * lu(k,1272)
    4756   254840160 :          lu(k,1281) = lu(k,1281) * lu(k,1272)
    4757   254840160 :          lu(k,1282) = lu(k,1282) * lu(k,1272)
    4758   254840160 :          lu(k,1283) = lu(k,1283) * lu(k,1272)
    4759   254840160 :          lu(k,1284) = lu(k,1284) * lu(k,1272)
    4760   254840160 :          lu(k,1285) = lu(k,1285) * lu(k,1272)
    4761   254840160 :          lu(k,1286) = lu(k,1286) * lu(k,1272)
    4762   254840160 :          lu(k,1287) = lu(k,1287) * lu(k,1272)
    4763   254840160 :          lu(k,1288) = lu(k,1288) * lu(k,1272)
    4764   254840160 :          lu(k,3539) = lu(k,3539) - lu(k,1273) * lu(k,3538)
    4765   254840160 :          lu(k,3546) = lu(k,3546) - lu(k,1274) * lu(k,3538)
    4766   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1275) * lu(k,3538)
    4767   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1276) * lu(k,3538)
    4768   254840160 :          lu(k,3580) = lu(k,3580) - lu(k,1277) * lu(k,3538)
    4769   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,1278) * lu(k,3538)
    4770   254840160 :          lu(k,3586) = lu(k,3586) - lu(k,1279) * lu(k,3538)
    4771   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,1280) * lu(k,3538)
    4772   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,1281) * lu(k,3538)
    4773   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,1282) * lu(k,3538)
    4774   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,1283) * lu(k,3538)
    4775   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1284) * lu(k,3538)
    4776   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1285) * lu(k,3538)
    4777   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1286) * lu(k,3538)
    4778   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1287) * lu(k,3538)
    4779   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1288) * lu(k,3538)
    4780   254840160 :          lu(k,3693) = lu(k,3693) - lu(k,1273) * lu(k,3692)
    4781   254840160 :          lu(k,3702) = lu(k,3702) - lu(k,1274) * lu(k,3692)
    4782   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1275) * lu(k,3692)
    4783   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1276) * lu(k,3692)
    4784   254840160 :          lu(k,3735) = - lu(k,1277) * lu(k,3692)
    4785   254840160 :          lu(k,3737) = lu(k,3737) - lu(k,1278) * lu(k,3692)
    4786   254840160 :          lu(k,3740) = - lu(k,1279) * lu(k,3692)
    4787   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,1280) * lu(k,3692)
    4788   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,1281) * lu(k,3692)
    4789   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,1282) * lu(k,3692)
    4790   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,1283) * lu(k,3692)
    4791   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1284) * lu(k,3692)
    4792   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1285) * lu(k,3692)
    4793   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1286) * lu(k,3692)
    4794   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1287) * lu(k,3692)
    4795   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1288) * lu(k,3692)
    4796   254840160 :          lu(k,4006) = lu(k,4006) - lu(k,1273) * lu(k,4005)
    4797   254840160 :          lu(k,4023) = lu(k,4023) - lu(k,1274) * lu(k,4005)
    4798   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1275) * lu(k,4005)
    4799   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1276) * lu(k,4005)
    4800   254840160 :          lu(k,4066) = - lu(k,1277) * lu(k,4005)
    4801   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1278) * lu(k,4005)
    4802   254840160 :          lu(k,4072) = lu(k,4072) - lu(k,1279) * lu(k,4005)
    4803   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,1280) * lu(k,4005)
    4804   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,1281) * lu(k,4005)
    4805   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,1282) * lu(k,4005)
    4806   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,1283) * lu(k,4005)
    4807   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1284) * lu(k,4005)
    4808   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1285) * lu(k,4005)
    4809   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1286) * lu(k,4005)
    4810   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1287) * lu(k,4005)
    4811   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1288) * lu(k,4005)
    4812   254840160 :          lu(k,1289) = 1._r8 / lu(k,1289)
    4813   254840160 :          lu(k,1290) = lu(k,1290) * lu(k,1289)
    4814   254840160 :          lu(k,1291) = lu(k,1291) * lu(k,1289)
    4815   254840160 :          lu(k,1292) = lu(k,1292) * lu(k,1289)
    4816   254840160 :          lu(k,1293) = lu(k,1293) * lu(k,1289)
    4817   254840160 :          lu(k,1294) = lu(k,1294) * lu(k,1289)
    4818   254840160 :          lu(k,1295) = lu(k,1295) * lu(k,1289)
    4819   254840160 :          lu(k,1296) = lu(k,1296) * lu(k,1289)
    4820   254840160 :          lu(k,2652) = - lu(k,1290) * lu(k,2648)
    4821   254840160 :          lu(k,2656) = lu(k,2656) - lu(k,1291) * lu(k,2648)
    4822   254840160 :          lu(k,2657) = lu(k,2657) - lu(k,1292) * lu(k,2648)
    4823   254840160 :          lu(k,2661) = - lu(k,1293) * lu(k,2648)
    4824   254840160 :          lu(k,2665) = lu(k,2665) - lu(k,1294) * lu(k,2648)
    4825   254840160 :          lu(k,2667) = lu(k,2667) - lu(k,1295) * lu(k,2648)
    4826   254840160 :          lu(k,2669) = lu(k,2669) - lu(k,1296) * lu(k,2648)
    4827   254840160 :          lu(k,2818) = lu(k,2818) - lu(k,1290) * lu(k,2811)
    4828   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,1291) * lu(k,2811)
    4829   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,1292) * lu(k,2811)
    4830   254840160 :          lu(k,2842) = - lu(k,1293) * lu(k,2811)
    4831   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,1294) * lu(k,2811)
    4832   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,1295) * lu(k,2811)
    4833   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1296) * lu(k,2811)
    4834   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1290) * lu(k,3389)
    4835   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,1291) * lu(k,3389)
    4836   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,1292) * lu(k,3389)
    4837   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1293) * lu(k,3389)
    4838   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1294) * lu(k,3389)
    4839   254840160 :          lu(k,3466) = - lu(k,1295) * lu(k,3389)
    4840   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1296) * lu(k,3389)
    4841   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1290) * lu(k,3539)
    4842   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,1291) * lu(k,3539)
    4843   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,1292) * lu(k,3539)
    4844   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1293) * lu(k,3539)
    4845   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1294) * lu(k,3539)
    4846   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1295) * lu(k,3539)
    4847   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1296) * lu(k,3539)
    4848   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,1290) * lu(k,3636)
    4849   254840160 :          lu(k,3647) = - lu(k,1291) * lu(k,3636)
    4850   254840160 :          lu(k,3648) = lu(k,3648) - lu(k,1292) * lu(k,3636)
    4851   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,1293) * lu(k,3636)
    4852   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1294) * lu(k,3636)
    4853   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,1295) * lu(k,3636)
    4854   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1296) * lu(k,3636)
    4855   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1290) * lu(k,3693)
    4856   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,1291) * lu(k,3693)
    4857   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,1292) * lu(k,3693)
    4858   254840160 :          lu(k,3755) = - lu(k,1293) * lu(k,3693)
    4859   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1294) * lu(k,3693)
    4860   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1295) * lu(k,3693)
    4861   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1296) * lu(k,3693)
    4862   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1290) * lu(k,4006)
    4863   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,1291) * lu(k,4006)
    4864   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,1292) * lu(k,4006)
    4865   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1293) * lu(k,4006)
    4866   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1294) * lu(k,4006)
    4867   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1295) * lu(k,4006)
    4868   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1296) * lu(k,4006)
    4869             :       end do
    4870     8168963 :       end subroutine lu_fac28
    4871     8168963 :       subroutine lu_fac29( avec_len, lu )
    4872             :       use chem_mods, only : nzcnt
    4873             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4874             :       implicit none
    4875             : !-----------------------------------------------------------------------
    4876             : ! ... dummy args
    4877             : !-----------------------------------------------------------------------
    4878             :       integer, intent(in) :: avec_len
    4879             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4880             : !-----------------------------------------------------------------------
    4881             : ! ... local variables
    4882             : !-----------------------------------------------------------------------
    4883             :       integer :: k
    4884   263009123 :       do k = 1,avec_len
    4885   254840160 :          lu(k,1298) = 1._r8 / lu(k,1298)
    4886   254840160 :          lu(k,1299) = lu(k,1299) * lu(k,1298)
    4887   254840160 :          lu(k,1300) = lu(k,1300) * lu(k,1298)
    4888   254840160 :          lu(k,1301) = lu(k,1301) * lu(k,1298)
    4889   254840160 :          lu(k,1302) = lu(k,1302) * lu(k,1298)
    4890   254840160 :          lu(k,1303) = lu(k,1303) * lu(k,1298)
    4891   254840160 :          lu(k,1304) = lu(k,1304) * lu(k,1298)
    4892   254840160 :          lu(k,1305) = lu(k,1305) * lu(k,1298)
    4893   254840160 :          lu(k,1306) = lu(k,1306) * lu(k,1298)
    4894   254840160 :          lu(k,1307) = lu(k,1307) * lu(k,1298)
    4895   254840160 :          lu(k,1308) = lu(k,1308) * lu(k,1298)
    4896   254840160 :          lu(k,1523) = - lu(k,1299) * lu(k,1522)
    4897   254840160 :          lu(k,1526) = - lu(k,1300) * lu(k,1522)
    4898   254840160 :          lu(k,1527) = lu(k,1527) - lu(k,1301) * lu(k,1522)
    4899   254840160 :          lu(k,1528) = - lu(k,1302) * lu(k,1522)
    4900   254840160 :          lu(k,1529) = lu(k,1529) - lu(k,1303) * lu(k,1522)
    4901   254840160 :          lu(k,1530) = lu(k,1530) - lu(k,1304) * lu(k,1522)
    4902   254840160 :          lu(k,1531) = - lu(k,1305) * lu(k,1522)
    4903   254840160 :          lu(k,1533) = lu(k,1533) - lu(k,1306) * lu(k,1522)
    4904   254840160 :          lu(k,1534) = - lu(k,1307) * lu(k,1522)
    4905   254840160 :          lu(k,1535) = lu(k,1535) - lu(k,1308) * lu(k,1522)
    4906   254840160 :          lu(k,1867) = - lu(k,1299) * lu(k,1866)
    4907   254840160 :          lu(k,1869) = lu(k,1869) - lu(k,1300) * lu(k,1866)
    4908   254840160 :          lu(k,1870) = lu(k,1870) - lu(k,1301) * lu(k,1866)
    4909   254840160 :          lu(k,1871) = - lu(k,1302) * lu(k,1866)
    4910   254840160 :          lu(k,1874) = lu(k,1874) - lu(k,1303) * lu(k,1866)
    4911   254840160 :          lu(k,1875) = lu(k,1875) - lu(k,1304) * lu(k,1866)
    4912   254840160 :          lu(k,1877) = - lu(k,1305) * lu(k,1866)
    4913   254840160 :          lu(k,1880) = lu(k,1880) - lu(k,1306) * lu(k,1866)
    4914   254840160 :          lu(k,1881) = - lu(k,1307) * lu(k,1866)
    4915   254840160 :          lu(k,1882) = lu(k,1882) - lu(k,1308) * lu(k,1866)
    4916   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,1299) * lu(k,3031)
    4917   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1300) * lu(k,3031)
    4918   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1301) * lu(k,3031)
    4919   254840160 :          lu(k,3063) = lu(k,3063) - lu(k,1302) * lu(k,3031)
    4920   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1303) * lu(k,3031)
    4921   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1304) * lu(k,3031)
    4922   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1305) * lu(k,3031)
    4923   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1306) * lu(k,3031)
    4924   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1307) * lu(k,3031)
    4925   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1308) * lu(k,3031)
    4926   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,1299) * lu(k,3288)
    4927   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1300) * lu(k,3288)
    4928   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1301) * lu(k,3288)
    4929   254840160 :          lu(k,3322) = lu(k,3322) - lu(k,1302) * lu(k,3288)
    4930   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1303) * lu(k,3288)
    4931   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1304) * lu(k,3288)
    4932   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1305) * lu(k,3288)
    4933   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1306) * lu(k,3288)
    4934   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1307) * lu(k,3288)
    4935   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1308) * lu(k,3288)
    4936   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,1299) * lu(k,4007)
    4937   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1300) * lu(k,4007)
    4938   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1301) * lu(k,4007)
    4939   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1302) * lu(k,4007)
    4940   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1303) * lu(k,4007)
    4941   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1304) * lu(k,4007)
    4942   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1305) * lu(k,4007)
    4943   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1306) * lu(k,4007)
    4944   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1307) * lu(k,4007)
    4945   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1308) * lu(k,4007)
    4946   254840160 :          lu(k,1309) = 1._r8 / lu(k,1309)
    4947   254840160 :          lu(k,1310) = lu(k,1310) * lu(k,1309)
    4948   254840160 :          lu(k,1311) = lu(k,1311) * lu(k,1309)
    4949   254840160 :          lu(k,1312) = lu(k,1312) * lu(k,1309)
    4950   254840160 :          lu(k,1313) = lu(k,1313) * lu(k,1309)
    4951   254840160 :          lu(k,1314) = lu(k,1314) * lu(k,1309)
    4952   254840160 :          lu(k,1315) = lu(k,1315) * lu(k,1309)
    4953   254840160 :          lu(k,1316) = lu(k,1316) * lu(k,1309)
    4954   254840160 :          lu(k,1317) = lu(k,1317) * lu(k,1309)
    4955   254840160 :          lu(k,1318) = lu(k,1318) * lu(k,1309)
    4956   254840160 :          lu(k,1319) = lu(k,1319) * lu(k,1309)
    4957   254840160 :          lu(k,1320) = lu(k,1320) * lu(k,1309)
    4958   254840160 :          lu(k,1321) = lu(k,1321) * lu(k,1309)
    4959   254840160 :          lu(k,1322) = lu(k,1322) * lu(k,1309)
    4960   254840160 :          lu(k,2160) = - lu(k,1310) * lu(k,2157)
    4961   254840160 :          lu(k,2161) = - lu(k,1311) * lu(k,2157)
    4962   254840160 :          lu(k,2162) = lu(k,2162) - lu(k,1312) * lu(k,2157)
    4963   254840160 :          lu(k,2167) = lu(k,2167) - lu(k,1313) * lu(k,2157)
    4964   254840160 :          lu(k,2168) = - lu(k,1314) * lu(k,2157)
    4965   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1315) * lu(k,2157)
    4966   254840160 :          lu(k,2170) = - lu(k,1316) * lu(k,2157)
    4967   254840160 :          lu(k,2172) = lu(k,2172) - lu(k,1317) * lu(k,2157)
    4968   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,1318) * lu(k,2157)
    4969   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1319) * lu(k,2157)
    4970   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1320) * lu(k,2157)
    4971   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1321) * lu(k,2157)
    4972   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1322) * lu(k,2157)
    4973   254840160 :          lu(k,3039) = lu(k,3039) - lu(k,1310) * lu(k,3032)
    4974   254840160 :          lu(k,3041) = lu(k,3041) - lu(k,1311) * lu(k,3032)
    4975   254840160 :          lu(k,3043) = lu(k,3043) - lu(k,1312) * lu(k,3032)
    4976   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1313) * lu(k,3032)
    4977   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1314) * lu(k,3032)
    4978   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1315) * lu(k,3032)
    4979   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1316) * lu(k,3032)
    4980   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1317) * lu(k,3032)
    4981   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1318) * lu(k,3032)
    4982   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1319) * lu(k,3032)
    4983   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1320) * lu(k,3032)
    4984   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1321) * lu(k,3032)
    4985   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1322) * lu(k,3032)
    4986   254840160 :          lu(k,3296) = lu(k,3296) - lu(k,1310) * lu(k,3289)
    4987   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1311) * lu(k,3289)
    4988   254840160 :          lu(k,3300) = lu(k,3300) - lu(k,1312) * lu(k,3289)
    4989   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1313) * lu(k,3289)
    4990   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1314) * lu(k,3289)
    4991   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1315) * lu(k,3289)
    4992   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1316) * lu(k,3289)
    4993   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1317) * lu(k,3289)
    4994   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1318) * lu(k,3289)
    4995   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1319) * lu(k,3289)
    4996   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1320) * lu(k,3289)
    4997   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1321) * lu(k,3289)
    4998   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1322) * lu(k,3289)
    4999   254840160 :          lu(k,4018) = lu(k,4018) - lu(k,1310) * lu(k,4008)
    5000   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1311) * lu(k,4008)
    5001   254840160 :          lu(k,4022) = lu(k,4022) - lu(k,1312) * lu(k,4008)
    5002   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1313) * lu(k,4008)
    5003   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1314) * lu(k,4008)
    5004   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1315) * lu(k,4008)
    5005   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1316) * lu(k,4008)
    5006   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1317) * lu(k,4008)
    5007   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1318) * lu(k,4008)
    5008   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1319) * lu(k,4008)
    5009   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1320) * lu(k,4008)
    5010   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1321) * lu(k,4008)
    5011   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1322) * lu(k,4008)
    5012   254840160 :          lu(k,1325) = 1._r8 / lu(k,1325)
    5013   254840160 :          lu(k,1326) = lu(k,1326) * lu(k,1325)
    5014   254840160 :          lu(k,1327) = lu(k,1327) * lu(k,1325)
    5015   254840160 :          lu(k,1328) = lu(k,1328) * lu(k,1325)
    5016   254840160 :          lu(k,1329) = lu(k,1329) * lu(k,1325)
    5017   254840160 :          lu(k,1330) = lu(k,1330) * lu(k,1325)
    5018   254840160 :          lu(k,1331) = lu(k,1331) * lu(k,1325)
    5019   254840160 :          lu(k,1332) = lu(k,1332) * lu(k,1325)
    5020   254840160 :          lu(k,1333) = lu(k,1333) * lu(k,1325)
    5021   254840160 :          lu(k,1334) = lu(k,1334) * lu(k,1325)
    5022   254840160 :          lu(k,3128) = lu(k,3128) - lu(k,1326) * lu(k,3125)
    5023   254840160 :          lu(k,3129) = lu(k,3129) - lu(k,1327) * lu(k,3125)
    5024   254840160 :          lu(k,3130) = lu(k,3130) - lu(k,1328) * lu(k,3125)
    5025   254840160 :          lu(k,3135) = lu(k,3135) - lu(k,1329) * lu(k,3125)
    5026   254840160 :          lu(k,3136) = - lu(k,1330) * lu(k,3125)
    5027   254840160 :          lu(k,3137) = - lu(k,1331) * lu(k,3125)
    5028   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,1332) * lu(k,3125)
    5029   254840160 :          lu(k,3141) = lu(k,3141) - lu(k,1333) * lu(k,3125)
    5030   254840160 :          lu(k,3142) = lu(k,3142) - lu(k,1334) * lu(k,3125)
    5031   254840160 :          lu(k,3158) = lu(k,3158) - lu(k,1326) * lu(k,3150)
    5032   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,1327) * lu(k,3150)
    5033   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1328) * lu(k,3150)
    5034   254840160 :          lu(k,3166) = lu(k,3166) - lu(k,1329) * lu(k,3150)
    5035   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,1330) * lu(k,3150)
    5036   254840160 :          lu(k,3168) = lu(k,3168) - lu(k,1331) * lu(k,3150)
    5037   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,1332) * lu(k,3150)
    5038   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1333) * lu(k,3150)
    5039   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1334) * lu(k,3150)
    5040   254840160 :          lu(k,3507) = - lu(k,1326) * lu(k,3503)
    5041   254840160 :          lu(k,3509) = lu(k,3509) - lu(k,1327) * lu(k,3503)
    5042   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,1328) * lu(k,3503)
    5043   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,1329) * lu(k,3503)
    5044   254840160 :          lu(k,3516) = - lu(k,1330) * lu(k,3503)
    5045   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,1331) * lu(k,3503)
    5046   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,1332) * lu(k,3503)
    5047   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,1333) * lu(k,3503)
    5048   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,1334) * lu(k,3503)
    5049   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,1326) * lu(k,3637)
    5050   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,1327) * lu(k,3637)
    5051   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,1328) * lu(k,3637)
    5052   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,1329) * lu(k,3637)
    5053   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,1330) * lu(k,3637)
    5054   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,1331) * lu(k,3637)
    5055   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,1332) * lu(k,3637)
    5056   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1333) * lu(k,3637)
    5057   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,1334) * lu(k,3637)
    5058   254840160 :          lu(k,3837) = - lu(k,1326) * lu(k,3822)
    5059   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,1327) * lu(k,3822)
    5060   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,1328) * lu(k,3822)
    5061   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,1329) * lu(k,3822)
    5062   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,1330) * lu(k,3822)
    5063   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,1331) * lu(k,3822)
    5064   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,1332) * lu(k,3822)
    5065   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1333) * lu(k,3822)
    5066   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,1334) * lu(k,3822)
    5067   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1326) * lu(k,4009)
    5068   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,1327) * lu(k,4009)
    5069   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1328) * lu(k,4009)
    5070   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,1329) * lu(k,4009)
    5071   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1330) * lu(k,4009)
    5072   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1331) * lu(k,4009)
    5073   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,1332) * lu(k,4009)
    5074   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1333) * lu(k,4009)
    5075   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,1334) * lu(k,4009)
    5076             :       end do
    5077     8168963 :       end subroutine lu_fac29
    5078     8168963 :       subroutine lu_fac30( avec_len, lu )
    5079             :       use chem_mods, only : nzcnt
    5080             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5081             :       implicit none
    5082             : !-----------------------------------------------------------------------
    5083             : ! ... dummy args
    5084             : !-----------------------------------------------------------------------
    5085             :       integer, intent(in) :: avec_len
    5086             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5087             : !-----------------------------------------------------------------------
    5088             : ! ... local variables
    5089             : !-----------------------------------------------------------------------
    5090             :       integer :: k
    5091   263009123 :       do k = 1,avec_len
    5092   254840160 :          lu(k,1336) = 1._r8 / lu(k,1336)
    5093   254840160 :          lu(k,1337) = lu(k,1337) * lu(k,1336)
    5094   254840160 :          lu(k,1338) = lu(k,1338) * lu(k,1336)
    5095   254840160 :          lu(k,1339) = lu(k,1339) * lu(k,1336)
    5096   254840160 :          lu(k,1340) = lu(k,1340) * lu(k,1336)
    5097   254840160 :          lu(k,1341) = lu(k,1341) * lu(k,1336)
    5098   254840160 :          lu(k,1342) = lu(k,1342) * lu(k,1336)
    5099   254840160 :          lu(k,1343) = lu(k,1343) * lu(k,1336)
    5100   254840160 :          lu(k,1344) = lu(k,1344) * lu(k,1336)
    5101   254840160 :          lu(k,1345) = lu(k,1345) * lu(k,1336)
    5102   254840160 :          lu(k,1346) = lu(k,1346) * lu(k,1336)
    5103   254840160 :          lu(k,1347) = lu(k,1347) * lu(k,1336)
    5104   254840160 :          lu(k,2273) = - lu(k,1337) * lu(k,2272)
    5105   254840160 :          lu(k,2274) = - lu(k,1338) * lu(k,2272)
    5106   254840160 :          lu(k,2275) = - lu(k,1339) * lu(k,2272)
    5107   254840160 :          lu(k,2278) = lu(k,2278) - lu(k,1340) * lu(k,2272)
    5108   254840160 :          lu(k,2280) = - lu(k,1341) * lu(k,2272)
    5109   254840160 :          lu(k,2282) = - lu(k,1342) * lu(k,2272)
    5110   254840160 :          lu(k,2283) = - lu(k,1343) * lu(k,2272)
    5111   254840160 :          lu(k,2284) = lu(k,2284) - lu(k,1344) * lu(k,2272)
    5112   254840160 :          lu(k,2286) = - lu(k,1345) * lu(k,2272)
    5113   254840160 :          lu(k,2287) = lu(k,2287) - lu(k,1346) * lu(k,2272)
    5114   254840160 :          lu(k,2288) = lu(k,2288) - lu(k,1347) * lu(k,2272)
    5115   254840160 :          lu(k,3044) = - lu(k,1337) * lu(k,3033)
    5116   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1338) * lu(k,3033)
    5117   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1339) * lu(k,3033)
    5118   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1340) * lu(k,3033)
    5119   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1341) * lu(k,3033)
    5120   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1342) * lu(k,3033)
    5121   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1343) * lu(k,3033)
    5122   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1344) * lu(k,3033)
    5123   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1345) * lu(k,3033)
    5124   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1346) * lu(k,3033)
    5125   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1347) * lu(k,3033)
    5126   254840160 :          lu(k,3302) = - lu(k,1337) * lu(k,3290)
    5127   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1338) * lu(k,3290)
    5128   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1339) * lu(k,3290)
    5129   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1340) * lu(k,3290)
    5130   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1341) * lu(k,3290)
    5131   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1342) * lu(k,3290)
    5132   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1343) * lu(k,3290)
    5133   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1344) * lu(k,3290)
    5134   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1345) * lu(k,3290)
    5135   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1346) * lu(k,3290)
    5136   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1347) * lu(k,3290)
    5137   254840160 :          lu(k,3398) = lu(k,3398) - lu(k,1337) * lu(k,3390)
    5138   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1338) * lu(k,3390)
    5139   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1339) * lu(k,3390)
    5140   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1340) * lu(k,3390)
    5141   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1341) * lu(k,3390)
    5142   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1342) * lu(k,3390)
    5143   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1343) * lu(k,3390)
    5144   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1344) * lu(k,3390)
    5145   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1345) * lu(k,3390)
    5146   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1346) * lu(k,3390)
    5147   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1347) * lu(k,3390)
    5148   254840160 :          lu(k,4024) = lu(k,4024) - lu(k,1337) * lu(k,4010)
    5149   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1338) * lu(k,4010)
    5150   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1339) * lu(k,4010)
    5151   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1340) * lu(k,4010)
    5152   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1341) * lu(k,4010)
    5153   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1342) * lu(k,4010)
    5154   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1343) * lu(k,4010)
    5155   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1344) * lu(k,4010)
    5156   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1345) * lu(k,4010)
    5157   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1346) * lu(k,4010)
    5158   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1347) * lu(k,4010)
    5159   254840160 :          lu(k,1350) = 1._r8 / lu(k,1350)
    5160   254840160 :          lu(k,1351) = lu(k,1351) * lu(k,1350)
    5161   254840160 :          lu(k,1352) = lu(k,1352) * lu(k,1350)
    5162   254840160 :          lu(k,1353) = lu(k,1353) * lu(k,1350)
    5163   254840160 :          lu(k,1354) = lu(k,1354) * lu(k,1350)
    5164   254840160 :          lu(k,1355) = lu(k,1355) * lu(k,1350)
    5165   254840160 :          lu(k,1356) = lu(k,1356) * lu(k,1350)
    5166   254840160 :          lu(k,1357) = lu(k,1357) * lu(k,1350)
    5167   254840160 :          lu(k,1358) = lu(k,1358) * lu(k,1350)
    5168   254840160 :          lu(k,3037) = lu(k,3037) - lu(k,1351) * lu(k,3034)
    5169   254840160 :          lu(k,3044) = lu(k,3044) - lu(k,1352) * lu(k,3034)
    5170   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1353) * lu(k,3034)
    5171   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1354) * lu(k,3034)
    5172   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1355) * lu(k,3034)
    5173   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1356) * lu(k,3034)
    5174   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1357) * lu(k,3034)
    5175   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1358) * lu(k,3034)
    5176   254840160 :          lu(k,3294) = lu(k,3294) - lu(k,1351) * lu(k,3291)
    5177   254840160 :          lu(k,3302) = lu(k,3302) - lu(k,1352) * lu(k,3291)
    5178   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1353) * lu(k,3291)
    5179   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1354) * lu(k,3291)
    5180   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1355) * lu(k,3291)
    5181   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1356) * lu(k,3291)
    5182   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1357) * lu(k,3291)
    5183   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1358) * lu(k,3291)
    5184   254840160 :          lu(k,3392) = lu(k,3392) - lu(k,1351) * lu(k,3391)
    5185   254840160 :          lu(k,3398) = lu(k,3398) - lu(k,1352) * lu(k,3391)
    5186   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1353) * lu(k,3391)
    5187   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1354) * lu(k,3391)
    5188   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1355) * lu(k,3391)
    5189   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1356) * lu(k,3391)
    5190   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1357) * lu(k,3391)
    5191   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1358) * lu(k,3391)
    5192   254840160 :          lu(k,3544) = lu(k,3544) - lu(k,1351) * lu(k,3540)
    5193   254840160 :          lu(k,3547) = - lu(k,1352) * lu(k,3540)
    5194   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1353) * lu(k,3540)
    5195   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1354) * lu(k,3540)
    5196   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1355) * lu(k,3540)
    5197   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1356) * lu(k,3540)
    5198   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1357) * lu(k,3540)
    5199   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1358) * lu(k,3540)
    5200   254840160 :          lu(k,3698) = lu(k,3698) - lu(k,1351) * lu(k,3694)
    5201   254840160 :          lu(k,3703) = - lu(k,1352) * lu(k,3694)
    5202   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1353) * lu(k,3694)
    5203   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1354) * lu(k,3694)
    5204   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1355) * lu(k,3694)
    5205   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1356) * lu(k,3694)
    5206   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1357) * lu(k,3694)
    5207   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1358) * lu(k,3694)
    5208   254840160 :          lu(k,3825) = - lu(k,1351) * lu(k,3823)
    5209   254840160 :          lu(k,3828) = - lu(k,1352) * lu(k,3823)
    5210   254840160 :          lu(k,3838) = lu(k,3838) - lu(k,1353) * lu(k,3823)
    5211   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,1354) * lu(k,3823)
    5212   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1355) * lu(k,3823)
    5213   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,1356) * lu(k,3823)
    5214   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,1357) * lu(k,3823)
    5215   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1358) * lu(k,3823)
    5216   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,1351) * lu(k,4011)
    5217   254840160 :          lu(k,4024) = lu(k,4024) - lu(k,1352) * lu(k,4011)
    5218   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1353) * lu(k,4011)
    5219   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1354) * lu(k,4011)
    5220   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1355) * lu(k,4011)
    5221   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1356) * lu(k,4011)
    5222   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1357) * lu(k,4011)
    5223   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1358) * lu(k,4011)
    5224   254840160 :          lu(k,1361) = 1._r8 / lu(k,1361)
    5225   254840160 :          lu(k,1362) = lu(k,1362) * lu(k,1361)
    5226   254840160 :          lu(k,1363) = lu(k,1363) * lu(k,1361)
    5227   254840160 :          lu(k,1364) = lu(k,1364) * lu(k,1361)
    5228   254840160 :          lu(k,1365) = lu(k,1365) * lu(k,1361)
    5229   254840160 :          lu(k,1366) = lu(k,1366) * lu(k,1361)
    5230   254840160 :          lu(k,1367) = lu(k,1367) * lu(k,1361)
    5231   254840160 :          lu(k,1368) = lu(k,1368) * lu(k,1361)
    5232   254840160 :          lu(k,1369) = lu(k,1369) * lu(k,1361)
    5233   254840160 :          lu(k,1370) = lu(k,1370) * lu(k,1361)
    5234   254840160 :          lu(k,1371) = lu(k,1371) * lu(k,1361)
    5235   254840160 :          lu(k,1372) = lu(k,1372) * lu(k,1361)
    5236   254840160 :          lu(k,1373) = lu(k,1373) * lu(k,1361)
    5237   254840160 :          lu(k,1374) = lu(k,1374) * lu(k,1361)
    5238   254840160 :          lu(k,1375) = lu(k,1375) * lu(k,1361)
    5239   254840160 :          lu(k,1376) = lu(k,1376) * lu(k,1361)
    5240   254840160 :          lu(k,1566) = lu(k,1566) - lu(k,1362) * lu(k,1565)
    5241   254840160 :          lu(k,1567) = - lu(k,1363) * lu(k,1565)
    5242   254840160 :          lu(k,1568) = lu(k,1568) - lu(k,1364) * lu(k,1565)
    5243   254840160 :          lu(k,1569) = lu(k,1569) - lu(k,1365) * lu(k,1565)
    5244   254840160 :          lu(k,1575) = - lu(k,1366) * lu(k,1565)
    5245   254840160 :          lu(k,1578) = - lu(k,1367) * lu(k,1565)
    5246   254840160 :          lu(k,1580) = lu(k,1580) - lu(k,1368) * lu(k,1565)
    5247   254840160 :          lu(k,1581) = lu(k,1581) - lu(k,1369) * lu(k,1565)
    5248   254840160 :          lu(k,1582) = lu(k,1582) - lu(k,1370) * lu(k,1565)
    5249   254840160 :          lu(k,1585) = lu(k,1585) - lu(k,1371) * lu(k,1565)
    5250   254840160 :          lu(k,1587) = - lu(k,1372) * lu(k,1565)
    5251   254840160 :          lu(k,1590) = lu(k,1590) - lu(k,1373) * lu(k,1565)
    5252   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1374) * lu(k,1565)
    5253   254840160 :          lu(k,1592) = lu(k,1592) - lu(k,1375) * lu(k,1565)
    5254   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1376) * lu(k,1565)
    5255   254840160 :          lu(k,3039) = lu(k,3039) - lu(k,1362) * lu(k,3035)
    5256   254840160 :          lu(k,3041) = lu(k,3041) - lu(k,1363) * lu(k,3035)
    5257   254840160 :          lu(k,3042) = lu(k,3042) - lu(k,1364) * lu(k,3035)
    5258   254840160 :          lu(k,3043) = lu(k,3043) - lu(k,1365) * lu(k,3035)
    5259   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1366) * lu(k,3035)
    5260   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1367) * lu(k,3035)
    5261   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1368) * lu(k,3035)
    5262   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1369) * lu(k,3035)
    5263   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1370) * lu(k,3035)
    5264   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1371) * lu(k,3035)
    5265   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1372) * lu(k,3035)
    5266   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1373) * lu(k,3035)
    5267   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1374) * lu(k,3035)
    5268   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1375) * lu(k,3035)
    5269   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1376) * lu(k,3035)
    5270   254840160 :          lu(k,3296) = lu(k,3296) - lu(k,1362) * lu(k,3292)
    5271   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1363) * lu(k,3292)
    5272   254840160 :          lu(k,3299) = lu(k,3299) - lu(k,1364) * lu(k,3292)
    5273   254840160 :          lu(k,3300) = lu(k,3300) - lu(k,1365) * lu(k,3292)
    5274   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1366) * lu(k,3292)
    5275   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1367) * lu(k,3292)
    5276   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1368) * lu(k,3292)
    5277   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1369) * lu(k,3292)
    5278   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1370) * lu(k,3292)
    5279   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1371) * lu(k,3292)
    5280   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1372) * lu(k,3292)
    5281   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1373) * lu(k,3292)
    5282   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1374) * lu(k,3292)
    5283   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1375) * lu(k,3292)
    5284   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1376) * lu(k,3292)
    5285   254840160 :          lu(k,4018) = lu(k,4018) - lu(k,1362) * lu(k,4012)
    5286   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1363) * lu(k,4012)
    5287   254840160 :          lu(k,4021) = lu(k,4021) - lu(k,1364) * lu(k,4012)
    5288   254840160 :          lu(k,4022) = lu(k,4022) - lu(k,1365) * lu(k,4012)
    5289   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1366) * lu(k,4012)
    5290   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1367) * lu(k,4012)
    5291   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1368) * lu(k,4012)
    5292   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1369) * lu(k,4012)
    5293   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1370) * lu(k,4012)
    5294   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1371) * lu(k,4012)
    5295   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1372) * lu(k,4012)
    5296   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1373) * lu(k,4012)
    5297   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1374) * lu(k,4012)
    5298   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1375) * lu(k,4012)
    5299   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1376) * lu(k,4012)
    5300             :       end do
    5301     8168963 :       end subroutine lu_fac30
    5302     8168963 :       subroutine lu_fac31( avec_len, lu )
    5303             :       use chem_mods, only : nzcnt
    5304             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5305             :       implicit none
    5306             : !-----------------------------------------------------------------------
    5307             : ! ... dummy args
    5308             : !-----------------------------------------------------------------------
    5309             :       integer, intent(in) :: avec_len
    5310             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5311             : !-----------------------------------------------------------------------
    5312             : ! ... local variables
    5313             : !-----------------------------------------------------------------------
    5314             :       integer :: k
    5315   263009123 :       do k = 1,avec_len
    5316   254840160 :          lu(k,1377) = 1._r8 / lu(k,1377)
    5317   254840160 :          lu(k,1378) = lu(k,1378) * lu(k,1377)
    5318   254840160 :          lu(k,1379) = lu(k,1379) * lu(k,1377)
    5319   254840160 :          lu(k,1380) = lu(k,1380) * lu(k,1377)
    5320   254840160 :          lu(k,1381) = lu(k,1381) * lu(k,1377)
    5321   254840160 :          lu(k,1388) = lu(k,1388) - lu(k,1378) * lu(k,1384)
    5322   254840160 :          lu(k,1394) = lu(k,1394) - lu(k,1379) * lu(k,1384)
    5323   254840160 :          lu(k,1399) = lu(k,1399) - lu(k,1380) * lu(k,1384)
    5324   254840160 :          lu(k,1400) = lu(k,1400) - lu(k,1381) * lu(k,1384)
    5325   254840160 :          lu(k,1412) = lu(k,1412) - lu(k,1378) * lu(k,1409)
    5326   254840160 :          lu(k,1425) = lu(k,1425) - lu(k,1379) * lu(k,1409)
    5327   254840160 :          lu(k,1429) = lu(k,1429) - lu(k,1380) * lu(k,1409)
    5328   254840160 :          lu(k,1430) = lu(k,1430) - lu(k,1381) * lu(k,1409)
    5329   254840160 :          lu(k,1845) = lu(k,1845) - lu(k,1378) * lu(k,1841)
    5330   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,1379) * lu(k,1841)
    5331   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,1380) * lu(k,1841)
    5332   254840160 :          lu(k,1865) = - lu(k,1381) * lu(k,1841)
    5333   254840160 :          lu(k,2011) = - lu(k,1378) * lu(k,2009)
    5334   254840160 :          lu(k,2024) = lu(k,2024) - lu(k,1379) * lu(k,2009)
    5335   254840160 :          lu(k,2029) = lu(k,2029) - lu(k,1380) * lu(k,2009)
    5336   254840160 :          lu(k,2030) = lu(k,2030) - lu(k,1381) * lu(k,2009)
    5337   254840160 :          lu(k,2036) = lu(k,2036) - lu(k,1378) * lu(k,2031)
    5338   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1379) * lu(k,2031)
    5339   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1380) * lu(k,2031)
    5340   254840160 :          lu(k,2055) = - lu(k,1381) * lu(k,2031)
    5341   254840160 :          lu(k,2165) = lu(k,2165) - lu(k,1378) * lu(k,2158)
    5342   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1379) * lu(k,2158)
    5343   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1380) * lu(k,2158)
    5344   254840160 :          lu(k,2196) = - lu(k,1381) * lu(k,2158)
    5345   254840160 :          lu(k,2594) = - lu(k,1378) * lu(k,2592)
    5346   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,1379) * lu(k,2592)
    5347   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,1380) * lu(k,2592)
    5348   254840160 :          lu(k,2618) = lu(k,2618) - lu(k,1381) * lu(k,2592)
    5349   254840160 :          lu(k,2625) = - lu(k,1378) * lu(k,2622)
    5350   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,1379) * lu(k,2622)
    5351   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,1380) * lu(k,2622)
    5352   254840160 :          lu(k,2646) = lu(k,2646) - lu(k,1381) * lu(k,2622)
    5353   254840160 :          lu(k,3051) = lu(k,3051) - lu(k,1378) * lu(k,3036)
    5354   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1379) * lu(k,3036)
    5355   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1380) * lu(k,3036)
    5356   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1381) * lu(k,3036)
    5357   254840160 :          lu(k,3178) = - lu(k,1378) * lu(k,3177)
    5358   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,1379) * lu(k,3177)
    5359   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,1380) * lu(k,3177)
    5360   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,1381) * lu(k,3177)
    5361   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,1378) * lu(k,3293)
    5362   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1379) * lu(k,3293)
    5363   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1380) * lu(k,3293)
    5364   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1381) * lu(k,3293)
    5365   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1378) * lu(k,3541)
    5366   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1379) * lu(k,3541)
    5367   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1380) * lu(k,3541)
    5368   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1381) * lu(k,3541)
    5369   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1378) * lu(k,3695)
    5370   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1379) * lu(k,3695)
    5371   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1380) * lu(k,3695)
    5372   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1381) * lu(k,3695)
    5373   254840160 :          lu(k,3829) = - lu(k,1378) * lu(k,3824)
    5374   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1379) * lu(k,3824)
    5375   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1380) * lu(k,3824)
    5376   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,1381) * lu(k,3824)
    5377   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1378) * lu(k,4013)
    5378   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1379) * lu(k,4013)
    5379   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1380) * lu(k,4013)
    5380   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1381) * lu(k,4013)
    5381   254840160 :          lu(k,1385) = 1._r8 / lu(k,1385)
    5382   254840160 :          lu(k,1386) = lu(k,1386) * lu(k,1385)
    5383   254840160 :          lu(k,1387) = lu(k,1387) * lu(k,1385)
    5384   254840160 :          lu(k,1388) = lu(k,1388) * lu(k,1385)
    5385   254840160 :          lu(k,1389) = lu(k,1389) * lu(k,1385)
    5386   254840160 :          lu(k,1390) = lu(k,1390) * lu(k,1385)
    5387   254840160 :          lu(k,1391) = lu(k,1391) * lu(k,1385)
    5388   254840160 :          lu(k,1392) = lu(k,1392) * lu(k,1385)
    5389   254840160 :          lu(k,1393) = lu(k,1393) * lu(k,1385)
    5390   254840160 :          lu(k,1394) = lu(k,1394) * lu(k,1385)
    5391   254840160 :          lu(k,1395) = lu(k,1395) * lu(k,1385)
    5392   254840160 :          lu(k,1396) = lu(k,1396) * lu(k,1385)
    5393   254840160 :          lu(k,1397) = lu(k,1397) * lu(k,1385)
    5394   254840160 :          lu(k,1398) = lu(k,1398) * lu(k,1385)
    5395   254840160 :          lu(k,1399) = lu(k,1399) * lu(k,1385)
    5396   254840160 :          lu(k,1400) = lu(k,1400) * lu(k,1385)
    5397   254840160 :          lu(k,2033) = lu(k,2033) - lu(k,1386) * lu(k,2032)
    5398   254840160 :          lu(k,2034) = - lu(k,1387) * lu(k,2032)
    5399   254840160 :          lu(k,2036) = lu(k,2036) - lu(k,1388) * lu(k,2032)
    5400   254840160 :          lu(k,2038) = - lu(k,1389) * lu(k,2032)
    5401   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1390) * lu(k,2032)
    5402   254840160 :          lu(k,2043) = - lu(k,1391) * lu(k,2032)
    5403   254840160 :          lu(k,2046) = - lu(k,1392) * lu(k,2032)
    5404   254840160 :          lu(k,2048) = lu(k,2048) - lu(k,1393) * lu(k,2032)
    5405   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1394) * lu(k,2032)
    5406   254840160 :          lu(k,2050) = lu(k,2050) - lu(k,1395) * lu(k,2032)
    5407   254840160 :          lu(k,2051) = - lu(k,1396) * lu(k,2032)
    5408   254840160 :          lu(k,2052) = - lu(k,1397) * lu(k,2032)
    5409   254840160 :          lu(k,2053) = lu(k,2053) - lu(k,1398) * lu(k,2032)
    5410   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1399) * lu(k,2032)
    5411   254840160 :          lu(k,2055) = lu(k,2055) - lu(k,1400) * lu(k,2032)
    5412   254840160 :          lu(k,3544) = lu(k,3544) - lu(k,1386) * lu(k,3542)
    5413   254840160 :          lu(k,3545) = lu(k,3545) - lu(k,1387) * lu(k,3542)
    5414   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1388) * lu(k,3542)
    5415   254840160 :          lu(k,3559) = lu(k,3559) - lu(k,1389) * lu(k,3542)
    5416   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1390) * lu(k,3542)
    5417   254840160 :          lu(k,3578) = - lu(k,1391) * lu(k,3542)
    5418   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1392) * lu(k,3542)
    5419   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1393) * lu(k,3542)
    5420   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1394) * lu(k,3542)
    5421   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1395) * lu(k,3542)
    5422   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1396) * lu(k,3542)
    5423   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1397) * lu(k,3542)
    5424   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1398) * lu(k,3542)
    5425   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1399) * lu(k,3542)
    5426   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1400) * lu(k,3542)
    5427   254840160 :          lu(k,3698) = lu(k,3698) - lu(k,1386) * lu(k,3696)
    5428   254840160 :          lu(k,3701) = lu(k,3701) - lu(k,1387) * lu(k,3696)
    5429   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1388) * lu(k,3696)
    5430   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,1389) * lu(k,3696)
    5431   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1390) * lu(k,3696)
    5432   254840160 :          lu(k,3733) = lu(k,3733) - lu(k,1391) * lu(k,3696)
    5433   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1392) * lu(k,3696)
    5434   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1393) * lu(k,3696)
    5435   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1394) * lu(k,3696)
    5436   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1395) * lu(k,3696)
    5437   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1396) * lu(k,3696)
    5438   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1397) * lu(k,3696)
    5439   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1398) * lu(k,3696)
    5440   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1399) * lu(k,3696)
    5441   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1400) * lu(k,3696)
    5442   254840160 :          lu(k,4016) = lu(k,4016) - lu(k,1386) * lu(k,4014)
    5443   254840160 :          lu(k,4022) = lu(k,4022) - lu(k,1387) * lu(k,4014)
    5444   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1388) * lu(k,4014)
    5445   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1389) * lu(k,4014)
    5446   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1390) * lu(k,4014)
    5447   254840160 :          lu(k,4064) = lu(k,4064) - lu(k,1391) * lu(k,4014)
    5448   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1392) * lu(k,4014)
    5449   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1393) * lu(k,4014)
    5450   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1394) * lu(k,4014)
    5451   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1395) * lu(k,4014)
    5452   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1396) * lu(k,4014)
    5453   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1397) * lu(k,4014)
    5454   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1398) * lu(k,4014)
    5455   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1399) * lu(k,4014)
    5456   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1400) * lu(k,4014)
    5457   254840160 :          lu(k,1410) = 1._r8 / lu(k,1410)
    5458   254840160 :          lu(k,1411) = lu(k,1411) * lu(k,1410)
    5459   254840160 :          lu(k,1412) = lu(k,1412) * lu(k,1410)
    5460   254840160 :          lu(k,1413) = lu(k,1413) * lu(k,1410)
    5461   254840160 :          lu(k,1414) = lu(k,1414) * lu(k,1410)
    5462   254840160 :          lu(k,1415) = lu(k,1415) * lu(k,1410)
    5463   254840160 :          lu(k,1416) = lu(k,1416) * lu(k,1410)
    5464   254840160 :          lu(k,1417) = lu(k,1417) * lu(k,1410)
    5465   254840160 :          lu(k,1418) = lu(k,1418) * lu(k,1410)
    5466   254840160 :          lu(k,1419) = lu(k,1419) * lu(k,1410)
    5467   254840160 :          lu(k,1420) = lu(k,1420) * lu(k,1410)
    5468   254840160 :          lu(k,1421) = lu(k,1421) * lu(k,1410)
    5469   254840160 :          lu(k,1422) = lu(k,1422) * lu(k,1410)
    5470   254840160 :          lu(k,1423) = lu(k,1423) * lu(k,1410)
    5471   254840160 :          lu(k,1424) = lu(k,1424) * lu(k,1410)
    5472   254840160 :          lu(k,1425) = lu(k,1425) * lu(k,1410)
    5473   254840160 :          lu(k,1426) = lu(k,1426) * lu(k,1410)
    5474   254840160 :          lu(k,1427) = lu(k,1427) * lu(k,1410)
    5475   254840160 :          lu(k,1428) = lu(k,1428) * lu(k,1410)
    5476   254840160 :          lu(k,1429) = lu(k,1429) * lu(k,1410)
    5477   254840160 :          lu(k,1430) = lu(k,1430) * lu(k,1410)
    5478   254840160 :          lu(k,3546) = lu(k,3546) - lu(k,1411) * lu(k,3543)
    5479   254840160 :          lu(k,3551) = lu(k,3551) - lu(k,1412) * lu(k,3543)
    5480   254840160 :          lu(k,3557) = - lu(k,1413) * lu(k,3543)
    5481   254840160 :          lu(k,3558) = - lu(k,1414) * lu(k,3543)
    5482   254840160 :          lu(k,3560) = - lu(k,1415) * lu(k,3543)
    5483   254840160 :          lu(k,3561) = - lu(k,1416) * lu(k,3543)
    5484   254840160 :          lu(k,3566) = - lu(k,1417) * lu(k,3543)
    5485   254840160 :          lu(k,3567) = - lu(k,1418) * lu(k,3543)
    5486   254840160 :          lu(k,3568) = lu(k,3568) - lu(k,1419) * lu(k,3543)
    5487   254840160 :          lu(k,3569) = lu(k,3569) - lu(k,1420) * lu(k,3543)
    5488   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1421) * lu(k,3543)
    5489   254840160 :          lu(k,3574) = lu(k,3574) - lu(k,1422) * lu(k,3543)
    5490   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1423) * lu(k,3543)
    5491   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1424) * lu(k,3543)
    5492   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1425) * lu(k,3543)
    5493   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1426) * lu(k,3543)
    5494   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1427) * lu(k,3543)
    5495   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1428) * lu(k,3543)
    5496   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1429) * lu(k,3543)
    5497   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1430) * lu(k,3543)
    5498   254840160 :          lu(k,3702) = lu(k,3702) - lu(k,1411) * lu(k,3697)
    5499   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1412) * lu(k,3697)
    5500   254840160 :          lu(k,3711) = - lu(k,1413) * lu(k,3697)
    5501   254840160 :          lu(k,3712) = - lu(k,1414) * lu(k,3697)
    5502   254840160 :          lu(k,3716) = - lu(k,1415) * lu(k,3697)
    5503   254840160 :          lu(k,3717) = - lu(k,1416) * lu(k,3697)
    5504   254840160 :          lu(k,3722) = - lu(k,1417) * lu(k,3697)
    5505   254840160 :          lu(k,3723) = - lu(k,1418) * lu(k,3697)
    5506   254840160 :          lu(k,3724) = lu(k,3724) - lu(k,1419) * lu(k,3697)
    5507   254840160 :          lu(k,3725) = lu(k,3725) - lu(k,1420) * lu(k,3697)
    5508   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1421) * lu(k,3697)
    5509   254840160 :          lu(k,3730) = - lu(k,1422) * lu(k,3697)
    5510   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1423) * lu(k,3697)
    5511   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1424) * lu(k,3697)
    5512   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1425) * lu(k,3697)
    5513   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1426) * lu(k,3697)
    5514   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1427) * lu(k,3697)
    5515   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1428) * lu(k,3697)
    5516   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1429) * lu(k,3697)
    5517   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1430) * lu(k,3697)
    5518   254840160 :          lu(k,4023) = lu(k,4023) - lu(k,1411) * lu(k,4015)
    5519   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1412) * lu(k,4015)
    5520   254840160 :          lu(k,4042) = lu(k,4042) - lu(k,1413) * lu(k,4015)
    5521   254840160 :          lu(k,4043) = lu(k,4043) - lu(k,1414) * lu(k,4015)
    5522   254840160 :          lu(k,4047) = lu(k,4047) - lu(k,1415) * lu(k,4015)
    5523   254840160 :          lu(k,4048) = lu(k,4048) - lu(k,1416) * lu(k,4015)
    5524   254840160 :          lu(k,4053) = lu(k,4053) - lu(k,1417) * lu(k,4015)
    5525   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,1418) * lu(k,4015)
    5526   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,1419) * lu(k,4015)
    5527   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,1420) * lu(k,4015)
    5528   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1421) * lu(k,4015)
    5529   254840160 :          lu(k,4061) = lu(k,4061) - lu(k,1422) * lu(k,4015)
    5530   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1423) * lu(k,4015)
    5531   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1424) * lu(k,4015)
    5532   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1425) * lu(k,4015)
    5533   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1426) * lu(k,4015)
    5534   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1427) * lu(k,4015)
    5535   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1428) * lu(k,4015)
    5536   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1429) * lu(k,4015)
    5537   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,1430) * lu(k,4015)
    5538             :       end do
    5539     8168963 :       end subroutine lu_fac31
    5540     8168963 :       subroutine lu_fac32( avec_len, lu )
    5541             :       use chem_mods, only : nzcnt
    5542             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5543             :       implicit none
    5544             : !-----------------------------------------------------------------------
    5545             : ! ... dummy args
    5546             : !-----------------------------------------------------------------------
    5547             :       integer, intent(in) :: avec_len
    5548             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5549             : !-----------------------------------------------------------------------
    5550             : ! ... local variables
    5551             : !-----------------------------------------------------------------------
    5552             :       integer :: k
    5553   263009123 :       do k = 1,avec_len
    5554   254840160 :          lu(k,1431) = 1._r8 / lu(k,1431)
    5555   254840160 :          lu(k,1432) = lu(k,1432) * lu(k,1431)
    5556   254840160 :          lu(k,1433) = lu(k,1433) * lu(k,1431)
    5557   254840160 :          lu(k,1434) = lu(k,1434) * lu(k,1431)
    5558   254840160 :          lu(k,1435) = lu(k,1435) * lu(k,1431)
    5559   254840160 :          lu(k,1436) = lu(k,1436) * lu(k,1431)
    5560   254840160 :          lu(k,1437) = lu(k,1437) * lu(k,1431)
    5561   254840160 :          lu(k,1438) = lu(k,1438) * lu(k,1431)
    5562   254840160 :          lu(k,1439) = lu(k,1439) * lu(k,1431)
    5563   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1432) * lu(k,2033)
    5564   254840160 :          lu(k,2044) = lu(k,2044) - lu(k,1433) * lu(k,2033)
    5565   254840160 :          lu(k,2045) = - lu(k,1434) * lu(k,2033)
    5566   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1435) * lu(k,2033)
    5567   254840160 :          lu(k,2050) = lu(k,2050) - lu(k,1436) * lu(k,2033)
    5568   254840160 :          lu(k,2051) = lu(k,2051) - lu(k,1437) * lu(k,2033)
    5569   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1438) * lu(k,2033)
    5570   254840160 :          lu(k,2055) = lu(k,2055) - lu(k,1439) * lu(k,2033)
    5571   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1432) * lu(k,3037)
    5572   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1433) * lu(k,3037)
    5573   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1434) * lu(k,3037)
    5574   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1435) * lu(k,3037)
    5575   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1436) * lu(k,3037)
    5576   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,1437) * lu(k,3037)
    5577   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1438) * lu(k,3037)
    5578   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1439) * lu(k,3037)
    5579   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1432) * lu(k,3294)
    5580   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1433) * lu(k,3294)
    5581   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1434) * lu(k,3294)
    5582   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1435) * lu(k,3294)
    5583   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1436) * lu(k,3294)
    5584   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,1437) * lu(k,3294)
    5585   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1438) * lu(k,3294)
    5586   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1439) * lu(k,3294)
    5587   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1432) * lu(k,3392)
    5588   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1433) * lu(k,3392)
    5589   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1434) * lu(k,3392)
    5590   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1435) * lu(k,3392)
    5591   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1436) * lu(k,3392)
    5592   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,1437) * lu(k,3392)
    5593   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1438) * lu(k,3392)
    5594   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1439) * lu(k,3392)
    5595   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1432) * lu(k,3544)
    5596   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1433) * lu(k,3544)
    5597   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1434) * lu(k,3544)
    5598   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1435) * lu(k,3544)
    5599   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1436) * lu(k,3544)
    5600   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1437) * lu(k,3544)
    5601   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1438) * lu(k,3544)
    5602   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1439) * lu(k,3544)
    5603   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1432) * lu(k,3698)
    5604   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1433) * lu(k,3698)
    5605   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1434) * lu(k,3698)
    5606   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1435) * lu(k,3698)
    5607   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1436) * lu(k,3698)
    5608   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1437) * lu(k,3698)
    5609   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1438) * lu(k,3698)
    5610   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1439) * lu(k,3698)
    5611   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,1432) * lu(k,3825)
    5612   254840160 :          lu(k,3835) = - lu(k,1433) * lu(k,3825)
    5613   254840160 :          lu(k,3837) = lu(k,3837) - lu(k,1434) * lu(k,3825)
    5614   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1435) * lu(k,3825)
    5615   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,1436) * lu(k,3825)
    5616   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,1437) * lu(k,3825)
    5617   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1438) * lu(k,3825)
    5618   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,1439) * lu(k,3825)
    5619   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1432) * lu(k,4016)
    5620   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1433) * lu(k,4016)
    5621   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1434) * lu(k,4016)
    5622   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1435) * lu(k,4016)
    5623   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1436) * lu(k,4016)
    5624   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1437) * lu(k,4016)
    5625   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1438) * lu(k,4016)
    5626   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1439) * lu(k,4016)
    5627   254840160 :          lu(k,1440) = 1._r8 / lu(k,1440)
    5628   254840160 :          lu(k,1441) = lu(k,1441) * lu(k,1440)
    5629   254840160 :          lu(k,1442) = lu(k,1442) * lu(k,1440)
    5630   254840160 :          lu(k,1443) = lu(k,1443) * lu(k,1440)
    5631   254840160 :          lu(k,1444) = lu(k,1444) * lu(k,1440)
    5632   254840160 :          lu(k,1445) = lu(k,1445) * lu(k,1440)
    5633   254840160 :          lu(k,1446) = lu(k,1446) * lu(k,1440)
    5634   254840160 :          lu(k,1447) = lu(k,1447) * lu(k,1440)
    5635   254840160 :          lu(k,1448) = lu(k,1448) * lu(k,1440)
    5636   254840160 :          lu(k,1449) = lu(k,1449) * lu(k,1440)
    5637   254840160 :          lu(k,1450) = lu(k,1450) * lu(k,1440)
    5638   254840160 :          lu(k,1451) = lu(k,1451) * lu(k,1440)
    5639   254840160 :          lu(k,1452) = lu(k,1452) * lu(k,1440)
    5640   254840160 :          lu(k,1453) = lu(k,1453) * lu(k,1440)
    5641   254840160 :          lu(k,2160) = lu(k,2160) - lu(k,1441) * lu(k,2159)
    5642   254840160 :          lu(k,2161) = lu(k,2161) - lu(k,1442) * lu(k,2159)
    5643   254840160 :          lu(k,2162) = lu(k,2162) - lu(k,1443) * lu(k,2159)
    5644   254840160 :          lu(k,2167) = lu(k,2167) - lu(k,1444) * lu(k,2159)
    5645   254840160 :          lu(k,2168) = lu(k,2168) - lu(k,1445) * lu(k,2159)
    5646   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1446) * lu(k,2159)
    5647   254840160 :          lu(k,2170) = lu(k,2170) - lu(k,1447) * lu(k,2159)
    5648   254840160 :          lu(k,2172) = lu(k,2172) - lu(k,1448) * lu(k,2159)
    5649   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,1449) * lu(k,2159)
    5650   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1450) * lu(k,2159)
    5651   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1451) * lu(k,2159)
    5652   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1452) * lu(k,2159)
    5653   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1453) * lu(k,2159)
    5654   254840160 :          lu(k,3039) = lu(k,3039) - lu(k,1441) * lu(k,3038)
    5655   254840160 :          lu(k,3041) = lu(k,3041) - lu(k,1442) * lu(k,3038)
    5656   254840160 :          lu(k,3043) = lu(k,3043) - lu(k,1443) * lu(k,3038)
    5657   254840160 :          lu(k,3054) = lu(k,3054) - lu(k,1444) * lu(k,3038)
    5658   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1445) * lu(k,3038)
    5659   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1446) * lu(k,3038)
    5660   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1447) * lu(k,3038)
    5661   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1448) * lu(k,3038)
    5662   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1449) * lu(k,3038)
    5663   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1450) * lu(k,3038)
    5664   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1451) * lu(k,3038)
    5665   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1452) * lu(k,3038)
    5666   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1453) * lu(k,3038)
    5667   254840160 :          lu(k,3296) = lu(k,3296) - lu(k,1441) * lu(k,3295)
    5668   254840160 :          lu(k,3298) = lu(k,3298) - lu(k,1442) * lu(k,3295)
    5669   254840160 :          lu(k,3300) = lu(k,3300) - lu(k,1443) * lu(k,3295)
    5670   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1444) * lu(k,3295)
    5671   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1445) * lu(k,3295)
    5672   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1446) * lu(k,3295)
    5673   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1447) * lu(k,3295)
    5674   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1448) * lu(k,3295)
    5675   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1449) * lu(k,3295)
    5676   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1450) * lu(k,3295)
    5677   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1451) * lu(k,3295)
    5678   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1452) * lu(k,3295)
    5679   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1453) * lu(k,3295)
    5680   254840160 :          lu(k,3394) = - lu(k,1441) * lu(k,3393)
    5681   254840160 :          lu(k,3396) = - lu(k,1442) * lu(k,3393)
    5682   254840160 :          lu(k,3397) = lu(k,3397) - lu(k,1443) * lu(k,3393)
    5683   254840160 :          lu(k,3407) = - lu(k,1444) * lu(k,3393)
    5684   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,1445) * lu(k,3393)
    5685   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1446) * lu(k,3393)
    5686   254840160 :          lu(k,3415) = - lu(k,1447) * lu(k,3393)
    5687   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1448) * lu(k,3393)
    5688   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1449) * lu(k,3393)
    5689   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1450) * lu(k,3393)
    5690   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1451) * lu(k,3393)
    5691   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1452) * lu(k,3393)
    5692   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1453) * lu(k,3393)
    5693   254840160 :          lu(k,4018) = lu(k,4018) - lu(k,1441) * lu(k,4017)
    5694   254840160 :          lu(k,4020) = lu(k,4020) - lu(k,1442) * lu(k,4017)
    5695   254840160 :          lu(k,4022) = lu(k,4022) - lu(k,1443) * lu(k,4017)
    5696   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1444) * lu(k,4017)
    5697   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1445) * lu(k,4017)
    5698   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1446) * lu(k,4017)
    5699   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1447) * lu(k,4017)
    5700   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1448) * lu(k,4017)
    5701   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1449) * lu(k,4017)
    5702   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1450) * lu(k,4017)
    5703   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1451) * lu(k,4017)
    5704   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1452) * lu(k,4017)
    5705   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1453) * lu(k,4017)
    5706   254840160 :          lu(k,1454) = 1._r8 / lu(k,1454)
    5707   254840160 :          lu(k,1455) = lu(k,1455) * lu(k,1454)
    5708   254840160 :          lu(k,1456) = lu(k,1456) * lu(k,1454)
    5709   254840160 :          lu(k,1457) = lu(k,1457) * lu(k,1454)
    5710   254840160 :          lu(k,1458) = lu(k,1458) * lu(k,1454)
    5711   254840160 :          lu(k,1459) = lu(k,1459) * lu(k,1454)
    5712   254840160 :          lu(k,1460) = lu(k,1460) * lu(k,1454)
    5713   254840160 :          lu(k,1573) = lu(k,1573) - lu(k,1455) * lu(k,1566)
    5714   254840160 :          lu(k,1582) = lu(k,1582) - lu(k,1456) * lu(k,1566)
    5715   254840160 :          lu(k,1590) = lu(k,1590) - lu(k,1457) * lu(k,1566)
    5716   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1458) * lu(k,1566)
    5717   254840160 :          lu(k,1592) = lu(k,1592) - lu(k,1459) * lu(k,1566)
    5718   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1460) * lu(k,1566)
    5719   254840160 :          lu(k,1639) = - lu(k,1455) * lu(k,1635)
    5720   254840160 :          lu(k,1647) = lu(k,1647) - lu(k,1456) * lu(k,1635)
    5721   254840160 :          lu(k,1652) = - lu(k,1457) * lu(k,1635)
    5722   254840160 :          lu(k,1653) = lu(k,1653) - lu(k,1458) * lu(k,1635)
    5723   254840160 :          lu(k,1654) = lu(k,1654) - lu(k,1459) * lu(k,1635)
    5724   254840160 :          lu(k,1655) = lu(k,1655) - lu(k,1460) * lu(k,1635)
    5725   254840160 :          lu(k,1914) = - lu(k,1455) * lu(k,1912)
    5726   254840160 :          lu(k,1918) = lu(k,1918) - lu(k,1456) * lu(k,1912)
    5727   254840160 :          lu(k,1922) = lu(k,1922) - lu(k,1457) * lu(k,1912)
    5728   254840160 :          lu(k,1923) = lu(k,1923) - lu(k,1458) * lu(k,1912)
    5729   254840160 :          lu(k,1924) = lu(k,1924) - lu(k,1459) * lu(k,1912)
    5730   254840160 :          lu(k,1925) = lu(k,1925) - lu(k,1460) * lu(k,1912)
    5731   254840160 :          lu(k,2100) = - lu(k,1455) * lu(k,2094)
    5732   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1456) * lu(k,2094)
    5733   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1457) * lu(k,2094)
    5734   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1458) * lu(k,2094)
    5735   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1459) * lu(k,2094)
    5736   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1460) * lu(k,2094)
    5737   254840160 :          lu(k,2130) = lu(k,2130) - lu(k,1455) * lu(k,2126)
    5738   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1456) * lu(k,2126)
    5739   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1457) * lu(k,2126)
    5740   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1458) * lu(k,2126)
    5741   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1459) * lu(k,2126)
    5742   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1460) * lu(k,2126)
    5743   254840160 :          lu(k,2165) = lu(k,2165) - lu(k,1455) * lu(k,2160)
    5744   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1456) * lu(k,2160)
    5745   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1457) * lu(k,2160)
    5746   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1458) * lu(k,2160)
    5747   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1459) * lu(k,2160)
    5748   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1460) * lu(k,2160)
    5749   254840160 :          lu(k,3051) = lu(k,3051) - lu(k,1455) * lu(k,3039)
    5750   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1456) * lu(k,3039)
    5751   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1457) * lu(k,3039)
    5752   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1458) * lu(k,3039)
    5753   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1459) * lu(k,3039)
    5754   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1460) * lu(k,3039)
    5755   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,1455) * lu(k,3296)
    5756   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1456) * lu(k,3296)
    5757   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1457) * lu(k,3296)
    5758   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1458) * lu(k,3296)
    5759   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1459) * lu(k,3296)
    5760   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1460) * lu(k,3296)
    5761   254840160 :          lu(k,3404) = lu(k,3404) - lu(k,1455) * lu(k,3394)
    5762   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1456) * lu(k,3394)
    5763   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1457) * lu(k,3394)
    5764   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1458) * lu(k,3394)
    5765   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1459) * lu(k,3394)
    5766   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1460) * lu(k,3394)
    5767   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1455) * lu(k,3699)
    5768   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1456) * lu(k,3699)
    5769   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1457) * lu(k,3699)
    5770   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1458) * lu(k,3699)
    5771   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1459) * lu(k,3699)
    5772   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1460) * lu(k,3699)
    5773   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1455) * lu(k,4018)
    5774   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1456) * lu(k,4018)
    5775   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1457) * lu(k,4018)
    5776   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1458) * lu(k,4018)
    5777   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1459) * lu(k,4018)
    5778   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1460) * lu(k,4018)
    5779   254840160 :          lu(k,1461) = 1._r8 / lu(k,1461)
    5780   254840160 :          lu(k,1462) = lu(k,1462) * lu(k,1461)
    5781   254840160 :          lu(k,1463) = lu(k,1463) * lu(k,1461)
    5782   254840160 :          lu(k,1464) = lu(k,1464) * lu(k,1461)
    5783   254840160 :          lu(k,1465) = lu(k,1465) * lu(k,1461)
    5784   254840160 :          lu(k,1466) = lu(k,1466) * lu(k,1461)
    5785   254840160 :          lu(k,1467) = lu(k,1467) * lu(k,1461)
    5786   254840160 :          lu(k,1545) = lu(k,1545) - lu(k,1462) * lu(k,1542)
    5787   254840160 :          lu(k,1547) = lu(k,1547) - lu(k,1463) * lu(k,1542)
    5788   254840160 :          lu(k,1548) = lu(k,1548) - lu(k,1464) * lu(k,1542)
    5789   254840160 :          lu(k,1552) = lu(k,1552) - lu(k,1465) * lu(k,1542)
    5790   254840160 :          lu(k,1553) = lu(k,1553) - lu(k,1466) * lu(k,1542)
    5791   254840160 :          lu(k,1556) = lu(k,1556) - lu(k,1467) * lu(k,1542)
    5792   254840160 :          lu(k,1755) = lu(k,1755) - lu(k,1462) * lu(k,1750)
    5793   254840160 :          lu(k,1758) = - lu(k,1463) * lu(k,1750)
    5794   254840160 :          lu(k,1760) = lu(k,1760) - lu(k,1464) * lu(k,1750)
    5795   254840160 :          lu(k,1765) = lu(k,1765) - lu(k,1465) * lu(k,1750)
    5796   254840160 :          lu(k,1766) = lu(k,1766) - lu(k,1466) * lu(k,1750)
    5797   254840160 :          lu(k,1769) = lu(k,1769) - lu(k,1467) * lu(k,1750)
    5798   254840160 :          lu(k,1791) = lu(k,1791) - lu(k,1462) * lu(k,1786)
    5799   254840160 :          lu(k,1795) = lu(k,1795) - lu(k,1463) * lu(k,1786)
    5800   254840160 :          lu(k,1796) = lu(k,1796) - lu(k,1464) * lu(k,1786)
    5801   254840160 :          lu(k,1799) = - lu(k,1465) * lu(k,1786)
    5802   254840160 :          lu(k,1800) = - lu(k,1466) * lu(k,1786)
    5803   254840160 :          lu(k,1802) = lu(k,1802) - lu(k,1467) * lu(k,1786)
    5804   254840160 :          lu(k,1815) = lu(k,1815) - lu(k,1462) * lu(k,1810)
    5805   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,1463) * lu(k,1810)
    5806   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,1464) * lu(k,1810)
    5807   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,1465) * lu(k,1810)
    5808   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,1466) * lu(k,1810)
    5809   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,1467) * lu(k,1810)
    5810   254840160 :          lu(k,1893) = lu(k,1893) - lu(k,1462) * lu(k,1887)
    5811   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,1463) * lu(k,1887)
    5812   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1464) * lu(k,1887)
    5813   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1465) * lu(k,1887)
    5814   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1466) * lu(k,1887)
    5815   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1467) * lu(k,1887)
    5816   254840160 :          lu(k,2071) = - lu(k,1462) * lu(k,2062)
    5817   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1463) * lu(k,2062)
    5818   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1464) * lu(k,2062)
    5819   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1465) * lu(k,2062)
    5820   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1466) * lu(k,2062)
    5821   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1467) * lu(k,2062)
    5822   254840160 :          lu(k,2873) = lu(k,2873) - lu(k,1462) * lu(k,2859)
    5823   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1463) * lu(k,2859)
    5824   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1464) * lu(k,2859)
    5825   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1465) * lu(k,2859)
    5826   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1466) * lu(k,2859)
    5827   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1467) * lu(k,2859)
    5828   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1462) * lu(k,3040)
    5829   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1463) * lu(k,3040)
    5830   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1464) * lu(k,3040)
    5831   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1465) * lu(k,3040)
    5832   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1466) * lu(k,3040)
    5833   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1467) * lu(k,3040)
    5834   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1462) * lu(k,3297)
    5835   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1463) * lu(k,3297)
    5836   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1464) * lu(k,3297)
    5837   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1465) * lu(k,3297)
    5838   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1466) * lu(k,3297)
    5839   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1467) * lu(k,3297)
    5840   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1462) * lu(k,3395)
    5841   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1463) * lu(k,3395)
    5842   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1464) * lu(k,3395)
    5843   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1465) * lu(k,3395)
    5844   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1466) * lu(k,3395)
    5845   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1467) * lu(k,3395)
    5846   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1462) * lu(k,4019)
    5847   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1463) * lu(k,4019)
    5848   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1464) * lu(k,4019)
    5849   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1465) * lu(k,4019)
    5850   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1466) * lu(k,4019)
    5851   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1467) * lu(k,4019)
    5852             :       end do
    5853     8168963 :       end subroutine lu_fac32
    5854     8168963 :       subroutine lu_fac33( avec_len, lu )
    5855             :       use chem_mods, only : nzcnt
    5856             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5857             :       implicit none
    5858             : !-----------------------------------------------------------------------
    5859             : ! ... dummy args
    5860             : !-----------------------------------------------------------------------
    5861             :       integer, intent(in) :: avec_len
    5862             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5863             : !-----------------------------------------------------------------------
    5864             : ! ... local variables
    5865             : !-----------------------------------------------------------------------
    5866             :       integer :: k
    5867   263009123 :       do k = 1,avec_len
    5868   254840160 :          lu(k,1468) = 1._r8 / lu(k,1468)
    5869   254840160 :          lu(k,1469) = lu(k,1469) * lu(k,1468)
    5870   254840160 :          lu(k,1470) = lu(k,1470) * lu(k,1468)
    5871   254840160 :          lu(k,1471) = lu(k,1471) * lu(k,1468)
    5872   254840160 :          lu(k,1472) = lu(k,1472) * lu(k,1468)
    5873   254840160 :          lu(k,1473) = lu(k,1473) * lu(k,1468)
    5874   254840160 :          lu(k,1474) = lu(k,1474) * lu(k,1468)
    5875   254840160 :          lu(k,1576) = - lu(k,1469) * lu(k,1567)
    5876   254840160 :          lu(k,1577) = lu(k,1577) - lu(k,1470) * lu(k,1567)
    5877   254840160 :          lu(k,1579) = - lu(k,1471) * lu(k,1567)
    5878   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1472) * lu(k,1567)
    5879   254840160 :          lu(k,1592) = lu(k,1592) - lu(k,1473) * lu(k,1567)
    5880   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1474) * lu(k,1567)
    5881   254840160 :          lu(k,1641) = lu(k,1641) - lu(k,1469) * lu(k,1636)
    5882   254840160 :          lu(k,1642) = lu(k,1642) - lu(k,1470) * lu(k,1636)
    5883   254840160 :          lu(k,1644) = - lu(k,1471) * lu(k,1636)
    5884   254840160 :          lu(k,1653) = lu(k,1653) - lu(k,1472) * lu(k,1636)
    5885   254840160 :          lu(k,1654) = lu(k,1654) - lu(k,1473) * lu(k,1636)
    5886   254840160 :          lu(k,1655) = lu(k,1655) - lu(k,1474) * lu(k,1636)
    5887   254840160 :          lu(k,1943) = lu(k,1943) - lu(k,1469) * lu(k,1939)
    5888   254840160 :          lu(k,1945) = lu(k,1945) - lu(k,1470) * lu(k,1939)
    5889   254840160 :          lu(k,1947) = lu(k,1947) - lu(k,1471) * lu(k,1939)
    5890   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1472) * lu(k,1939)
    5891   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1473) * lu(k,1939)
    5892   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1474) * lu(k,1939)
    5893   254840160 :          lu(k,1980) = lu(k,1980) - lu(k,1469) * lu(k,1975)
    5894   254840160 :          lu(k,1982) = lu(k,1982) - lu(k,1470) * lu(k,1975)
    5895   254840160 :          lu(k,1984) = lu(k,1984) - lu(k,1471) * lu(k,1975)
    5896   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1472) * lu(k,1975)
    5897   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1473) * lu(k,1975)
    5898   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1474) * lu(k,1975)
    5899   254840160 :          lu(k,2070) = lu(k,2070) - lu(k,1469) * lu(k,2063)
    5900   254840160 :          lu(k,2071) = lu(k,2071) - lu(k,1470) * lu(k,2063)
    5901   254840160 :          lu(k,2073) = - lu(k,1471) * lu(k,2063)
    5902   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1472) * lu(k,2063)
    5903   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1473) * lu(k,2063)
    5904   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1474) * lu(k,2063)
    5905   254840160 :          lu(k,2102) = - lu(k,1469) * lu(k,2095)
    5906   254840160 :          lu(k,2103) = lu(k,2103) - lu(k,1470) * lu(k,2095)
    5907   254840160 :          lu(k,2105) = - lu(k,1471) * lu(k,2095)
    5908   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1472) * lu(k,2095)
    5909   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1473) * lu(k,2095)
    5910   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1474) * lu(k,2095)
    5911   254840160 :          lu(k,2168) = lu(k,2168) - lu(k,1469) * lu(k,2161)
    5912   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1470) * lu(k,2161)
    5913   254840160 :          lu(k,2171) = - lu(k,1471) * lu(k,2161)
    5914   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1472) * lu(k,2161)
    5915   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1473) * lu(k,2161)
    5916   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1474) * lu(k,2161)
    5917   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1469) * lu(k,3041)
    5918   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1470) * lu(k,3041)
    5919   254840160 :          lu(k,3063) = lu(k,3063) - lu(k,1471) * lu(k,3041)
    5920   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1472) * lu(k,3041)
    5921   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1473) * lu(k,3041)
    5922   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1474) * lu(k,3041)
    5923   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1469) * lu(k,3298)
    5924   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1470) * lu(k,3298)
    5925   254840160 :          lu(k,3322) = lu(k,3322) - lu(k,1471) * lu(k,3298)
    5926   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1472) * lu(k,3298)
    5927   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1473) * lu(k,3298)
    5928   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1474) * lu(k,3298)
    5929   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,1469) * lu(k,3396)
    5930   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1470) * lu(k,3396)
    5931   254840160 :          lu(k,3416) = - lu(k,1471) * lu(k,3396)
    5932   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1472) * lu(k,3396)
    5933   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1473) * lu(k,3396)
    5934   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1474) * lu(k,3396)
    5935   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1469) * lu(k,4020)
    5936   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1470) * lu(k,4020)
    5937   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1471) * lu(k,4020)
    5938   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1472) * lu(k,4020)
    5939   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1473) * lu(k,4020)
    5940   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1474) * lu(k,4020)
    5941   254840160 :          lu(k,1476) = 1._r8 / lu(k,1476)
    5942   254840160 :          lu(k,1477) = lu(k,1477) * lu(k,1476)
    5943   254840160 :          lu(k,1478) = lu(k,1478) * lu(k,1476)
    5944   254840160 :          lu(k,1479) = lu(k,1479) * lu(k,1476)
    5945   254840160 :          lu(k,1480) = lu(k,1480) * lu(k,1476)
    5946   254840160 :          lu(k,1525) = - lu(k,1477) * lu(k,1523)
    5947   254840160 :          lu(k,1530) = lu(k,1530) - lu(k,1478) * lu(k,1523)
    5948   254840160 :          lu(k,1533) = lu(k,1533) - lu(k,1479) * lu(k,1523)
    5949   254840160 :          lu(k,1535) = lu(k,1535) - lu(k,1480) * lu(k,1523)
    5950   254840160 :          lu(k,1573) = lu(k,1573) - lu(k,1477) * lu(k,1568)
    5951   254840160 :          lu(k,1582) = lu(k,1582) - lu(k,1478) * lu(k,1568)
    5952   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1479) * lu(k,1568)
    5953   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1480) * lu(k,1568)
    5954   254840160 :          lu(k,1639) = lu(k,1639) - lu(k,1477) * lu(k,1637)
    5955   254840160 :          lu(k,1647) = lu(k,1647) - lu(k,1478) * lu(k,1637)
    5956   254840160 :          lu(k,1653) = lu(k,1653) - lu(k,1479) * lu(k,1637)
    5957   254840160 :          lu(k,1655) = lu(k,1655) - lu(k,1480) * lu(k,1637)
    5958   254840160 :          lu(k,1658) = - lu(k,1477) * lu(k,1657)
    5959   254840160 :          lu(k,1665) = lu(k,1665) - lu(k,1478) * lu(k,1657)
    5960   254840160 :          lu(k,1668) = lu(k,1668) - lu(k,1479) * lu(k,1657)
    5961   254840160 :          lu(k,1670) = lu(k,1670) - lu(k,1480) * lu(k,1657)
    5962   254840160 :          lu(k,1711) = lu(k,1711) - lu(k,1477) * lu(k,1710)
    5963   254840160 :          lu(k,1713) = lu(k,1713) - lu(k,1478) * lu(k,1710)
    5964   254840160 :          lu(k,1716) = lu(k,1716) - lu(k,1479) * lu(k,1710)
    5965   254840160 :          lu(k,1717) = lu(k,1717) - lu(k,1480) * lu(k,1710)
    5966   254840160 :          lu(k,1789) = - lu(k,1477) * lu(k,1787)
    5967   254840160 :          lu(k,1796) = lu(k,1796) - lu(k,1478) * lu(k,1787)
    5968   254840160 :          lu(k,1800) = lu(k,1800) - lu(k,1479) * lu(k,1787)
    5969   254840160 :          lu(k,1802) = lu(k,1802) - lu(k,1480) * lu(k,1787)
    5970   254840160 :          lu(k,1868) = lu(k,1868) - lu(k,1477) * lu(k,1867)
    5971   254840160 :          lu(k,1875) = lu(k,1875) - lu(k,1478) * lu(k,1867)
    5972   254840160 :          lu(k,1880) = lu(k,1880) - lu(k,1479) * lu(k,1867)
    5973   254840160 :          lu(k,1882) = lu(k,1882) - lu(k,1480) * lu(k,1867)
    5974   254840160 :          lu(k,1891) = - lu(k,1477) * lu(k,1888)
    5975   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1478) * lu(k,1888)
    5976   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1479) * lu(k,1888)
    5977   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1480) * lu(k,1888)
    5978   254840160 :          lu(k,2068) = - lu(k,1477) * lu(k,2064)
    5979   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1478) * lu(k,2064)
    5980   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1479) * lu(k,2064)
    5981   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1480) * lu(k,2064)
    5982   254840160 :          lu(k,2100) = lu(k,2100) - lu(k,1477) * lu(k,2096)
    5983   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1478) * lu(k,2096)
    5984   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1479) * lu(k,2096)
    5985   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1480) * lu(k,2096)
    5986   254840160 :          lu(k,2130) = lu(k,2130) - lu(k,1477) * lu(k,2127)
    5987   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1478) * lu(k,2127)
    5988   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1479) * lu(k,2127)
    5989   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1480) * lu(k,2127)
    5990   254840160 :          lu(k,3051) = lu(k,3051) - lu(k,1477) * lu(k,3042)
    5991   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1478) * lu(k,3042)
    5992   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1479) * lu(k,3042)
    5993   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1480) * lu(k,3042)
    5994   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,1477) * lu(k,3299)
    5995   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1478) * lu(k,3299)
    5996   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1479) * lu(k,3299)
    5997   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1480) * lu(k,3299)
    5998   254840160 :          lu(k,3640) = lu(k,3640) - lu(k,1477) * lu(k,3638)
    5999   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,1478) * lu(k,3638)
    6000   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1479) * lu(k,3638)
    6001   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1480) * lu(k,3638)
    6002   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1477) * lu(k,3700)
    6003   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1478) * lu(k,3700)
    6004   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1479) * lu(k,3700)
    6005   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1480) * lu(k,3700)
    6006   254840160 :          lu(k,3829) = lu(k,3829) - lu(k,1477) * lu(k,3826)
    6007   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,1478) * lu(k,3826)
    6008   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1479) * lu(k,3826)
    6009   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1480) * lu(k,3826)
    6010   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1477) * lu(k,4021)
    6011   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1478) * lu(k,4021)
    6012   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1479) * lu(k,4021)
    6013   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1480) * lu(k,4021)
    6014   254840160 :          lu(k,1481) = 1._r8 / lu(k,1481)
    6015   254840160 :          lu(k,1482) = lu(k,1482) * lu(k,1481)
    6016   254840160 :          lu(k,1483) = lu(k,1483) * lu(k,1481)
    6017   254840160 :          lu(k,1484) = lu(k,1484) * lu(k,1481)
    6018   254840160 :          lu(k,1485) = lu(k,1485) * lu(k,1481)
    6019   254840160 :          lu(k,1486) = lu(k,1486) * lu(k,1481)
    6020   254840160 :          lu(k,1581) = lu(k,1581) - lu(k,1482) * lu(k,1569)
    6021   254840160 :          lu(k,1585) = lu(k,1585) - lu(k,1483) * lu(k,1569)
    6022   254840160 :          lu(k,1590) = lu(k,1590) - lu(k,1484) * lu(k,1569)
    6023   254840160 :          lu(k,1592) = lu(k,1592) - lu(k,1485) * lu(k,1569)
    6024   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1486) * lu(k,1569)
    6025   254840160 :          lu(k,1646) = lu(k,1646) - lu(k,1482) * lu(k,1638)
    6026   254840160 :          lu(k,1648) = - lu(k,1483) * lu(k,1638)
    6027   254840160 :          lu(k,1652) = lu(k,1652) - lu(k,1484) * lu(k,1638)
    6028   254840160 :          lu(k,1654) = lu(k,1654) - lu(k,1485) * lu(k,1638)
    6029   254840160 :          lu(k,1655) = lu(k,1655) - lu(k,1486) * lu(k,1638)
    6030   254840160 :          lu(k,1779) = lu(k,1779) - lu(k,1482) * lu(k,1776)
    6031   254840160 :          lu(k,1781) = - lu(k,1483) * lu(k,1776)
    6032   254840160 :          lu(k,1782) = lu(k,1782) - lu(k,1484) * lu(k,1776)
    6033   254840160 :          lu(k,1784) = lu(k,1784) - lu(k,1485) * lu(k,1776)
    6034   254840160 :          lu(k,1785) = lu(k,1785) - lu(k,1486) * lu(k,1776)
    6035   254840160 :          lu(k,1917) = lu(k,1917) - lu(k,1482) * lu(k,1913)
    6036   254840160 :          lu(k,1919) = lu(k,1919) - lu(k,1483) * lu(k,1913)
    6037   254840160 :          lu(k,1922) = lu(k,1922) - lu(k,1484) * lu(k,1913)
    6038   254840160 :          lu(k,1924) = lu(k,1924) - lu(k,1485) * lu(k,1913)
    6039   254840160 :          lu(k,1925) = lu(k,1925) - lu(k,1486) * lu(k,1913)
    6040   254840160 :          lu(k,2040) = lu(k,2040) - lu(k,1482) * lu(k,2034)
    6041   254840160 :          lu(k,2044) = lu(k,2044) - lu(k,1483) * lu(k,2034)
    6042   254840160 :          lu(k,2048) = lu(k,2048) - lu(k,1484) * lu(k,2034)
    6043   254840160 :          lu(k,2052) = lu(k,2052) - lu(k,1485) * lu(k,2034)
    6044   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1486) * lu(k,2034)
    6045   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1482) * lu(k,2065)
    6046   254840160 :          lu(k,2080) = - lu(k,1483) * lu(k,2065)
    6047   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1484) * lu(k,2065)
    6048   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1485) * lu(k,2065)
    6049   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1486) * lu(k,2065)
    6050   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1482) * lu(k,2128)
    6051   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1483) * lu(k,2128)
    6052   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1484) * lu(k,2128)
    6053   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1485) * lu(k,2128)
    6054   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1486) * lu(k,2128)
    6055   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1482) * lu(k,2162)
    6056   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1483) * lu(k,2162)
    6057   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1484) * lu(k,2162)
    6058   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1485) * lu(k,2162)
    6059   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1486) * lu(k,2162)
    6060   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1482) * lu(k,3043)
    6061   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1483) * lu(k,3043)
    6062   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1484) * lu(k,3043)
    6063   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1485) * lu(k,3043)
    6064   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1486) * lu(k,3043)
    6065   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1482) * lu(k,3300)
    6066   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1483) * lu(k,3300)
    6067   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1484) * lu(k,3300)
    6068   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1485) * lu(k,3300)
    6069   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1486) * lu(k,3300)
    6070   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1482) * lu(k,3397)
    6071   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1483) * lu(k,3397)
    6072   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1484) * lu(k,3397)
    6073   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1485) * lu(k,3397)
    6074   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1486) * lu(k,3397)
    6075   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1482) * lu(k,3545)
    6076   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1483) * lu(k,3545)
    6077   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1484) * lu(k,3545)
    6078   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1485) * lu(k,3545)
    6079   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1486) * lu(k,3545)
    6080   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1482) * lu(k,3701)
    6081   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1483) * lu(k,3701)
    6082   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1484) * lu(k,3701)
    6083   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1485) * lu(k,3701)
    6084   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1486) * lu(k,3701)
    6085   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1482) * lu(k,4022)
    6086   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1483) * lu(k,4022)
    6087   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1484) * lu(k,4022)
    6088   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1485) * lu(k,4022)
    6089   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1486) * lu(k,4022)
    6090   254840160 :          lu(k,1487) = 1._r8 / lu(k,1487)
    6091   254840160 :          lu(k,1488) = lu(k,1488) * lu(k,1487)
    6092   254840160 :          lu(k,1489) = lu(k,1489) * lu(k,1487)
    6093   254840160 :          lu(k,1490) = lu(k,1490) * lu(k,1487)
    6094   254840160 :          lu(k,1491) = lu(k,1491) * lu(k,1487)
    6095   254840160 :          lu(k,1492) = lu(k,1492) * lu(k,1487)
    6096   254840160 :          lu(k,1493) = lu(k,1493) * lu(k,1487)
    6097   254840160 :          lu(k,1588) = - lu(k,1488) * lu(k,1570)
    6098   254840160 :          lu(k,1589) = - lu(k,1489) * lu(k,1570)
    6099   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1490) * lu(k,1570)
    6100   254840160 :          lu(k,1594) = - lu(k,1491) * lu(k,1570)
    6101   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1492) * lu(k,1570)
    6102   254840160 :          lu(k,1596) = - lu(k,1493) * lu(k,1570)
    6103   254840160 :          lu(k,2083) = - lu(k,1488) * lu(k,2066)
    6104   254840160 :          lu(k,2084) = - lu(k,1489) * lu(k,2066)
    6105   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1490) * lu(k,2066)
    6106   254840160 :          lu(k,2090) = - lu(k,1491) * lu(k,2066)
    6107   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1492) * lu(k,2066)
    6108   254840160 :          lu(k,2092) = - lu(k,1493) * lu(k,2066)
    6109   254840160 :          lu(k,2115) = - lu(k,1488) * lu(k,2097)
    6110   254840160 :          lu(k,2116) = - lu(k,1489) * lu(k,2097)
    6111   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1490) * lu(k,2097)
    6112   254840160 :          lu(k,2122) = - lu(k,1491) * lu(k,2097)
    6113   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1492) * lu(k,2097)
    6114   254840160 :          lu(k,2124) = - lu(k,1493) * lu(k,2097)
    6115   254840160 :          lu(k,2144) = - lu(k,1488) * lu(k,2129)
    6116   254840160 :          lu(k,2145) = - lu(k,1489) * lu(k,2129)
    6117   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1490) * lu(k,2129)
    6118   254840160 :          lu(k,2151) = - lu(k,1491) * lu(k,2129)
    6119   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1492) * lu(k,2129)
    6120   254840160 :          lu(k,2153) = - lu(k,1493) * lu(k,2129)
    6121   254840160 :          lu(k,2609) = - lu(k,1488) * lu(k,2593)
    6122   254840160 :          lu(k,2610) = - lu(k,1489) * lu(k,2593)
    6123   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,1490) * lu(k,2593)
    6124   254840160 :          lu(k,2616) = - lu(k,1491) * lu(k,2593)
    6125   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,1492) * lu(k,2593)
    6126   254840160 :          lu(k,2618) = lu(k,2618) - lu(k,1493) * lu(k,2593)
    6127   254840160 :          lu(k,2637) = - lu(k,1488) * lu(k,2623)
    6128   254840160 :          lu(k,2638) = - lu(k,1489) * lu(k,2623)
    6129   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,1490) * lu(k,2623)
    6130   254840160 :          lu(k,2644) = - lu(k,1491) * lu(k,2623)
    6131   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,1492) * lu(k,2623)
    6132   254840160 :          lu(k,2646) = lu(k,2646) - lu(k,1493) * lu(k,2623)
    6133   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,1488) * lu(k,3151)
    6134   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1489) * lu(k,3151)
    6135   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,1490) * lu(k,3151)
    6136   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,1491) * lu(k,3151)
    6137   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1492) * lu(k,3151)
    6138   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1493) * lu(k,3151)
    6139   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,1488) * lu(k,3301)
    6140   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1489) * lu(k,3301)
    6141   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1490) * lu(k,3301)
    6142   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,1491) * lu(k,3301)
    6143   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1492) * lu(k,3301)
    6144   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1493) * lu(k,3301)
    6145   254840160 :          lu(k,3603) = - lu(k,1488) * lu(k,3546)
    6146   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1489) * lu(k,3546)
    6147   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1490) * lu(k,3546)
    6148   254840160 :          lu(k,3614) = - lu(k,1491) * lu(k,3546)
    6149   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1492) * lu(k,3546)
    6150   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1493) * lu(k,3546)
    6151   254840160 :          lu(k,3757) = - lu(k,1488) * lu(k,3702)
    6152   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1489) * lu(k,3702)
    6153   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1490) * lu(k,3702)
    6154   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,1491) * lu(k,3702)
    6155   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1492) * lu(k,3702)
    6156   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1493) * lu(k,3702)
    6157   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,1488) * lu(k,3827)
    6158   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,1489) * lu(k,3827)
    6159   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1490) * lu(k,3827)
    6160   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,1491) * lu(k,3827)
    6161   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1492) * lu(k,3827)
    6162   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,1493) * lu(k,3827)
    6163   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,1488) * lu(k,4023)
    6164   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1489) * lu(k,4023)
    6165   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1490) * lu(k,4023)
    6166   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,1491) * lu(k,4023)
    6167   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1492) * lu(k,4023)
    6168   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,1493) * lu(k,4023)
    6169             :       end do
    6170     8168963 :       end subroutine lu_fac33
    6171     8168963 :       subroutine lu_fac34( avec_len, lu )
    6172             :       use chem_mods, only : nzcnt
    6173             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6174             :       implicit none
    6175             : !-----------------------------------------------------------------------
    6176             : ! ... dummy args
    6177             : !-----------------------------------------------------------------------
    6178             :       integer, intent(in) :: avec_len
    6179             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6180             : !-----------------------------------------------------------------------
    6181             : ! ... local variables
    6182             : !-----------------------------------------------------------------------
    6183             :       integer :: k
    6184   263009123 :       do k = 1,avec_len
    6185   254840160 :          lu(k,1494) = 1._r8 / lu(k,1494)
    6186   254840160 :          lu(k,1495) = lu(k,1495) * lu(k,1494)
    6187   254840160 :          lu(k,1496) = lu(k,1496) * lu(k,1494)
    6188   254840160 :          lu(k,1497) = lu(k,1497) * lu(k,1494)
    6189   254840160 :          lu(k,1516) = lu(k,1516) - lu(k,1495) * lu(k,1506)
    6190   254840160 :          lu(k,1517) = lu(k,1517) - lu(k,1496) * lu(k,1506)
    6191   254840160 :          lu(k,1520) = lu(k,1520) - lu(k,1497) * lu(k,1506)
    6192   254840160 :          lu(k,1743) = lu(k,1743) - lu(k,1495) * lu(k,1728)
    6193   254840160 :          lu(k,1744) = lu(k,1744) - lu(k,1496) * lu(k,1728)
    6194   254840160 :          lu(k,1747) = lu(k,1747) - lu(k,1497) * lu(k,1728)
    6195   254840160 :          lu(k,1765) = lu(k,1765) - lu(k,1495) * lu(k,1751)
    6196   254840160 :          lu(k,1766) = lu(k,1766) - lu(k,1496) * lu(k,1751)
    6197   254840160 :          lu(k,1769) = lu(k,1769) - lu(k,1497) * lu(k,1751)
    6198   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,1495) * lu(k,1811)
    6199   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,1496) * lu(k,1811)
    6200   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,1497) * lu(k,1811)
    6201   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,1495) * lu(k,1842)
    6202   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,1496) * lu(k,1842)
    6203   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,1497) * lu(k,1842)
    6204   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1495) * lu(k,1976)
    6205   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1496) * lu(k,1976)
    6206   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1497) * lu(k,1976)
    6207   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1495) * lu(k,2163)
    6208   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1496) * lu(k,2163)
    6209   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1497) * lu(k,2163)
    6210   254840160 :          lu(k,2224) = lu(k,2224) - lu(k,1495) * lu(k,2210)
    6211   254840160 :          lu(k,2225) = lu(k,2225) - lu(k,1496) * lu(k,2210)
    6212   254840160 :          lu(k,2229) = lu(k,2229) - lu(k,1497) * lu(k,2210)
    6213   254840160 :          lu(k,2282) = lu(k,2282) - lu(k,1495) * lu(k,2273)
    6214   254840160 :          lu(k,2283) = lu(k,2283) - lu(k,1496) * lu(k,2273)
    6215   254840160 :          lu(k,2287) = lu(k,2287) - lu(k,1497) * lu(k,2273)
    6216   254840160 :          lu(k,2308) = lu(k,2308) - lu(k,1495) * lu(k,2291)
    6217   254840160 :          lu(k,2309) = lu(k,2309) - lu(k,1496) * lu(k,2291)
    6218   254840160 :          lu(k,2313) = lu(k,2313) - lu(k,1497) * lu(k,2291)
    6219   254840160 :          lu(k,2352) = lu(k,2352) - lu(k,1495) * lu(k,2333)
    6220   254840160 :          lu(k,2353) = lu(k,2353) - lu(k,1496) * lu(k,2333)
    6221   254840160 :          lu(k,2357) = lu(k,2357) - lu(k,1497) * lu(k,2333)
    6222   254840160 :          lu(k,2421) = lu(k,2421) - lu(k,1495) * lu(k,2402)
    6223   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,1496) * lu(k,2402)
    6224   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,1497) * lu(k,2402)
    6225   254840160 :          lu(k,2453) = lu(k,2453) - lu(k,1495) * lu(k,2430)
    6226   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,1496) * lu(k,2430)
    6227   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1497) * lu(k,2430)
    6228   254840160 :          lu(k,2484) = lu(k,2484) - lu(k,1495) * lu(k,2462)
    6229   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,1496) * lu(k,2462)
    6230   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,1497) * lu(k,2462)
    6231   254840160 :          lu(k,2518) = lu(k,2518) - lu(k,1495) * lu(k,2497)
    6232   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1496) * lu(k,2497)
    6233   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1497) * lu(k,2497)
    6234   254840160 :          lu(k,2547) = lu(k,2547) - lu(k,1495) * lu(k,2529)
    6235   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,1496) * lu(k,2529)
    6236   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1497) * lu(k,2529)
    6237   254840160 :          lu(k,2583) = lu(k,2583) - lu(k,1495) * lu(k,2560)
    6238   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1496) * lu(k,2560)
    6239   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1497) * lu(k,2560)
    6240   254840160 :          lu(k,2664) = lu(k,2664) - lu(k,1495) * lu(k,2649)
    6241   254840160 :          lu(k,2665) = lu(k,2665) - lu(k,1496) * lu(k,2649)
    6242   254840160 :          lu(k,2669) = lu(k,2669) - lu(k,1497) * lu(k,2649)
    6243   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1495) * lu(k,3044)
    6244   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1496) * lu(k,3044)
    6245   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1497) * lu(k,3044)
    6246   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1495) * lu(k,3302)
    6247   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1496) * lu(k,3302)
    6248   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1497) * lu(k,3302)
    6249   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1495) * lu(k,3398)
    6250   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1496) * lu(k,3398)
    6251   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1497) * lu(k,3398)
    6252   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1495) * lu(k,3547)
    6253   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1496) * lu(k,3547)
    6254   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1497) * lu(k,3547)
    6255   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1495) * lu(k,3703)
    6256   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1496) * lu(k,3703)
    6257   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1497) * lu(k,3703)
    6258   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,1495) * lu(k,3828)
    6259   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1496) * lu(k,3828)
    6260   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1497) * lu(k,3828)
    6261   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1495) * lu(k,4024)
    6262   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1496) * lu(k,4024)
    6263   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1497) * lu(k,4024)
    6264   254840160 :          lu(k,1498) = 1._r8 / lu(k,1498)
    6265   254840160 :          lu(k,1499) = lu(k,1499) * lu(k,1498)
    6266   254840160 :          lu(k,1500) = lu(k,1500) * lu(k,1498)
    6267   254840160 :          lu(k,1501) = lu(k,1501) * lu(k,1498)
    6268   254840160 :          lu(k,1502) = lu(k,1502) * lu(k,1498)
    6269   254840160 :          lu(k,1503) = lu(k,1503) * lu(k,1498)
    6270   254840160 :          lu(k,1504) = lu(k,1504) * lu(k,1498)
    6271   254840160 :          lu(k,1505) = lu(k,1505) * lu(k,1498)
    6272   254840160 :          lu(k,1510) = lu(k,1510) - lu(k,1499) * lu(k,1507)
    6273   254840160 :          lu(k,1512) = lu(k,1512) - lu(k,1500) * lu(k,1507)
    6274   254840160 :          lu(k,1513) = lu(k,1513) - lu(k,1501) * lu(k,1507)
    6275   254840160 :          lu(k,1514) = lu(k,1514) - lu(k,1502) * lu(k,1507)
    6276   254840160 :          lu(k,1516) = lu(k,1516) - lu(k,1503) * lu(k,1507)
    6277   254840160 :          lu(k,1517) = lu(k,1517) - lu(k,1504) * lu(k,1507)
    6278   254840160 :          lu(k,1520) = lu(k,1520) - lu(k,1505) * lu(k,1507)
    6279   254840160 :          lu(k,1731) = lu(k,1731) - lu(k,1499) * lu(k,1729)
    6280   254840160 :          lu(k,1736) = - lu(k,1500) * lu(k,1729)
    6281   254840160 :          lu(k,1738) = lu(k,1738) - lu(k,1501) * lu(k,1729)
    6282   254840160 :          lu(k,1740) = lu(k,1740) - lu(k,1502) * lu(k,1729)
    6283   254840160 :          lu(k,1743) = lu(k,1743) - lu(k,1503) * lu(k,1729)
    6284   254840160 :          lu(k,1744) = lu(k,1744) - lu(k,1504) * lu(k,1729)
    6285   254840160 :          lu(k,1747) = lu(k,1747) - lu(k,1505) * lu(k,1729)
    6286   254840160 :          lu(k,1790) = lu(k,1790) - lu(k,1499) * lu(k,1788)
    6287   254840160 :          lu(k,1795) = lu(k,1795) - lu(k,1500) * lu(k,1788)
    6288   254840160 :          lu(k,1796) = lu(k,1796) - lu(k,1501) * lu(k,1788)
    6289   254840160 :          lu(k,1797) = - lu(k,1502) * lu(k,1788)
    6290   254840160 :          lu(k,1799) = lu(k,1799) - lu(k,1503) * lu(k,1788)
    6291   254840160 :          lu(k,1800) = lu(k,1800) - lu(k,1504) * lu(k,1788)
    6292   254840160 :          lu(k,1802) = lu(k,1802) - lu(k,1505) * lu(k,1788)
    6293   254840160 :          lu(k,1846) = lu(k,1846) - lu(k,1499) * lu(k,1843)
    6294   254840160 :          lu(k,1852) = lu(k,1852) - lu(k,1500) * lu(k,1843)
    6295   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,1501) * lu(k,1843)
    6296   254840160 :          lu(k,1857) = lu(k,1857) - lu(k,1502) * lu(k,1843)
    6297   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,1503) * lu(k,1843)
    6298   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,1504) * lu(k,1843)
    6299   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,1505) * lu(k,1843)
    6300   254840160 :          lu(k,1892) = lu(k,1892) - lu(k,1499) * lu(k,1889)
    6301   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,1500) * lu(k,1889)
    6302   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1501) * lu(k,1889)
    6303   254840160 :          lu(k,1904) = - lu(k,1502) * lu(k,1889)
    6304   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1503) * lu(k,1889)
    6305   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1504) * lu(k,1889)
    6306   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1505) * lu(k,1889)
    6307   254840160 :          lu(k,2102) = lu(k,2102) - lu(k,1499) * lu(k,2098)
    6308   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1500) * lu(k,2098)
    6309   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1501) * lu(k,2098)
    6310   254840160 :          lu(k,2112) = - lu(k,1502) * lu(k,2098)
    6311   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1503) * lu(k,2098)
    6312   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1504) * lu(k,2098)
    6313   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1505) * lu(k,2098)
    6314   254840160 :          lu(k,2869) = lu(k,2869) - lu(k,1499) * lu(k,2860)
    6315   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1500) * lu(k,2860)
    6316   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1501) * lu(k,2860)
    6317   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1502) * lu(k,2860)
    6318   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1503) * lu(k,2860)
    6319   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1504) * lu(k,2860)
    6320   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1505) * lu(k,2860)
    6321   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1499) * lu(k,3045)
    6322   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1500) * lu(k,3045)
    6323   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1501) * lu(k,3045)
    6324   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1502) * lu(k,3045)
    6325   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1503) * lu(k,3045)
    6326   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1504) * lu(k,3045)
    6327   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1505) * lu(k,3045)
    6328   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1499) * lu(k,3303)
    6329   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1500) * lu(k,3303)
    6330   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1501) * lu(k,3303)
    6331   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1502) * lu(k,3303)
    6332   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1503) * lu(k,3303)
    6333   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1504) * lu(k,3303)
    6334   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1505) * lu(k,3303)
    6335   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,1499) * lu(k,3399)
    6336   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1500) * lu(k,3399)
    6337   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1501) * lu(k,3399)
    6338   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1502) * lu(k,3399)
    6339   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1503) * lu(k,3399)
    6340   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1504) * lu(k,3399)
    6341   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1505) * lu(k,3399)
    6342   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1499) * lu(k,4025)
    6343   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1500) * lu(k,4025)
    6344   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1501) * lu(k,4025)
    6345   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1502) * lu(k,4025)
    6346   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1503) * lu(k,4025)
    6347   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1504) * lu(k,4025)
    6348   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1505) * lu(k,4025)
    6349   254840160 :          lu(k,1508) = 1._r8 / lu(k,1508)
    6350   254840160 :          lu(k,1509) = lu(k,1509) * lu(k,1508)
    6351   254840160 :          lu(k,1510) = lu(k,1510) * lu(k,1508)
    6352   254840160 :          lu(k,1511) = lu(k,1511) * lu(k,1508)
    6353   254840160 :          lu(k,1512) = lu(k,1512) * lu(k,1508)
    6354   254840160 :          lu(k,1513) = lu(k,1513) * lu(k,1508)
    6355   254840160 :          lu(k,1514) = lu(k,1514) * lu(k,1508)
    6356   254840160 :          lu(k,1515) = lu(k,1515) * lu(k,1508)
    6357   254840160 :          lu(k,1516) = lu(k,1516) * lu(k,1508)
    6358   254840160 :          lu(k,1517) = lu(k,1517) * lu(k,1508)
    6359   254840160 :          lu(k,1518) = lu(k,1518) * lu(k,1508)
    6360   254840160 :          lu(k,1519) = lu(k,1519) * lu(k,1508)
    6361   254840160 :          lu(k,1520) = lu(k,1520) * lu(k,1508)
    6362   254840160 :          lu(k,1845) = lu(k,1845) - lu(k,1509) * lu(k,1844)
    6363   254840160 :          lu(k,1846) = lu(k,1846) - lu(k,1510) * lu(k,1844)
    6364   254840160 :          lu(k,1851) = - lu(k,1511) * lu(k,1844)
    6365   254840160 :          lu(k,1852) = lu(k,1852) - lu(k,1512) * lu(k,1844)
    6366   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,1513) * lu(k,1844)
    6367   254840160 :          lu(k,1857) = lu(k,1857) - lu(k,1514) * lu(k,1844)
    6368   254840160 :          lu(k,1858) = lu(k,1858) - lu(k,1515) * lu(k,1844)
    6369   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,1516) * lu(k,1844)
    6370   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,1517) * lu(k,1844)
    6371   254840160 :          lu(k,1862) = lu(k,1862) - lu(k,1518) * lu(k,1844)
    6372   254840160 :          lu(k,1863) = lu(k,1863) - lu(k,1519) * lu(k,1844)
    6373   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,1520) * lu(k,1844)
    6374   254840160 :          lu(k,2036) = lu(k,2036) - lu(k,1509) * lu(k,2035)
    6375   254840160 :          lu(k,2037) = - lu(k,1510) * lu(k,2035)
    6376   254840160 :          lu(k,2039) = - lu(k,1511) * lu(k,2035)
    6377   254840160 :          lu(k,2040) = lu(k,2040) - lu(k,1512) * lu(k,2035)
    6378   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1513) * lu(k,2035)
    6379   254840160 :          lu(k,2044) = lu(k,2044) - lu(k,1514) * lu(k,2035)
    6380   254840160 :          lu(k,2046) = lu(k,2046) - lu(k,1515) * lu(k,2035)
    6381   254840160 :          lu(k,2048) = lu(k,2048) - lu(k,1516) * lu(k,2035)
    6382   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1517) * lu(k,2035)
    6383   254840160 :          lu(k,2050) = lu(k,2050) - lu(k,1518) * lu(k,2035)
    6384   254840160 :          lu(k,2052) = lu(k,2052) - lu(k,1519) * lu(k,2035)
    6385   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1520) * lu(k,2035)
    6386   254840160 :          lu(k,2865) = lu(k,2865) - lu(k,1509) * lu(k,2861)
    6387   254840160 :          lu(k,2869) = lu(k,2869) - lu(k,1510) * lu(k,2861)
    6388   254840160 :          lu(k,2879) = - lu(k,1511) * lu(k,2861)
    6389   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1512) * lu(k,2861)
    6390   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1513) * lu(k,2861)
    6391   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1514) * lu(k,2861)
    6392   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1515) * lu(k,2861)
    6393   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1516) * lu(k,2861)
    6394   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1517) * lu(k,2861)
    6395   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1518) * lu(k,2861)
    6396   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1519) * lu(k,2861)
    6397   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1520) * lu(k,2861)
    6398   254840160 :          lu(k,3051) = lu(k,3051) - lu(k,1509) * lu(k,3046)
    6399   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1510) * lu(k,3046)
    6400   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1511) * lu(k,3046)
    6401   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1512) * lu(k,3046)
    6402   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1513) * lu(k,3046)
    6403   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1514) * lu(k,3046)
    6404   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1515) * lu(k,3046)
    6405   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1516) * lu(k,3046)
    6406   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1517) * lu(k,3046)
    6407   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1518) * lu(k,3046)
    6408   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1519) * lu(k,3046)
    6409   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1520) * lu(k,3046)
    6410   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,1509) * lu(k,3304)
    6411   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1510) * lu(k,3304)
    6412   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1511) * lu(k,3304)
    6413   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1512) * lu(k,3304)
    6414   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1513) * lu(k,3304)
    6415   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1514) * lu(k,3304)
    6416   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1515) * lu(k,3304)
    6417   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1516) * lu(k,3304)
    6418   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1517) * lu(k,3304)
    6419   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1518) * lu(k,3304)
    6420   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1519) * lu(k,3304)
    6421   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1520) * lu(k,3304)
    6422   254840160 :          lu(k,3404) = lu(k,3404) - lu(k,1509) * lu(k,3400)
    6423   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,1510) * lu(k,3400)
    6424   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1511) * lu(k,3400)
    6425   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1512) * lu(k,3400)
    6426   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1513) * lu(k,3400)
    6427   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1514) * lu(k,3400)
    6428   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1515) * lu(k,3400)
    6429   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1516) * lu(k,3400)
    6430   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1517) * lu(k,3400)
    6431   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1518) * lu(k,3400)
    6432   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1519) * lu(k,3400)
    6433   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1520) * lu(k,3400)
    6434   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1509) * lu(k,4026)
    6435   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1510) * lu(k,4026)
    6436   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1511) * lu(k,4026)
    6437   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1512) * lu(k,4026)
    6438   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1513) * lu(k,4026)
    6439   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1514) * lu(k,4026)
    6440   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1515) * lu(k,4026)
    6441   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1516) * lu(k,4026)
    6442   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1517) * lu(k,4026)
    6443   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1518) * lu(k,4026)
    6444   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1519) * lu(k,4026)
    6445   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1520) * lu(k,4026)
    6446   254840160 :          lu(k,1524) = 1._r8 / lu(k,1524)
    6447   254840160 :          lu(k,1525) = lu(k,1525) * lu(k,1524)
    6448   254840160 :          lu(k,1526) = lu(k,1526) * lu(k,1524)
    6449   254840160 :          lu(k,1527) = lu(k,1527) * lu(k,1524)
    6450   254840160 :          lu(k,1528) = lu(k,1528) * lu(k,1524)
    6451   254840160 :          lu(k,1529) = lu(k,1529) * lu(k,1524)
    6452   254840160 :          lu(k,1530) = lu(k,1530) * lu(k,1524)
    6453   254840160 :          lu(k,1531) = lu(k,1531) * lu(k,1524)
    6454   254840160 :          lu(k,1532) = lu(k,1532) * lu(k,1524)
    6455   254840160 :          lu(k,1533) = lu(k,1533) * lu(k,1524)
    6456   254840160 :          lu(k,1534) = lu(k,1534) * lu(k,1524)
    6457   254840160 :          lu(k,1535) = lu(k,1535) * lu(k,1524)
    6458   254840160 :          lu(k,1573) = lu(k,1573) - lu(k,1525) * lu(k,1571)
    6459   254840160 :          lu(k,1576) = lu(k,1576) - lu(k,1526) * lu(k,1571)
    6460   254840160 :          lu(k,1577) = lu(k,1577) - lu(k,1527) * lu(k,1571)
    6461   254840160 :          lu(k,1579) = lu(k,1579) - lu(k,1528) * lu(k,1571)
    6462   254840160 :          lu(k,1581) = lu(k,1581) - lu(k,1529) * lu(k,1571)
    6463   254840160 :          lu(k,1582) = lu(k,1582) - lu(k,1530) * lu(k,1571)
    6464   254840160 :          lu(k,1587) = lu(k,1587) - lu(k,1531) * lu(k,1571)
    6465   254840160 :          lu(k,1590) = lu(k,1590) - lu(k,1532) * lu(k,1571)
    6466   254840160 :          lu(k,1591) = lu(k,1591) - lu(k,1533) * lu(k,1571)
    6467   254840160 :          lu(k,1592) = lu(k,1592) - lu(k,1534) * lu(k,1571)
    6468   254840160 :          lu(k,1595) = lu(k,1595) - lu(k,1535) * lu(k,1571)
    6469   254840160 :          lu(k,1891) = lu(k,1891) - lu(k,1525) * lu(k,1890)
    6470   254840160 :          lu(k,1892) = lu(k,1892) - lu(k,1526) * lu(k,1890)
    6471   254840160 :          lu(k,1893) = lu(k,1893) - lu(k,1527) * lu(k,1890)
    6472   254840160 :          lu(k,1894) = - lu(k,1528) * lu(k,1890)
    6473   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,1529) * lu(k,1890)
    6474   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1530) * lu(k,1890)
    6475   254840160 :          lu(k,1905) = - lu(k,1531) * lu(k,1890)
    6476   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1532) * lu(k,1890)
    6477   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1533) * lu(k,1890)
    6478   254840160 :          lu(k,1909) = - lu(k,1534) * lu(k,1890)
    6479   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1535) * lu(k,1890)
    6480   254840160 :          lu(k,1941) = lu(k,1941) - lu(k,1525) * lu(k,1940)
    6481   254840160 :          lu(k,1943) = lu(k,1943) - lu(k,1526) * lu(k,1940)
    6482   254840160 :          lu(k,1945) = lu(k,1945) - lu(k,1527) * lu(k,1940)
    6483   254840160 :          lu(k,1947) = lu(k,1947) - lu(k,1528) * lu(k,1940)
    6484   254840160 :          lu(k,1952) = - lu(k,1529) * lu(k,1940)
    6485   254840160 :          lu(k,1957) = - lu(k,1530) * lu(k,1940)
    6486   254840160 :          lu(k,1961) = lu(k,1961) - lu(k,1531) * lu(k,1940)
    6487   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1532) * lu(k,1940)
    6488   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1533) * lu(k,1940)
    6489   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1534) * lu(k,1940)
    6490   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1535) * lu(k,1940)
    6491   254840160 :          lu(k,1978) = lu(k,1978) - lu(k,1525) * lu(k,1977)
    6492   254840160 :          lu(k,1980) = lu(k,1980) - lu(k,1526) * lu(k,1977)
    6493   254840160 :          lu(k,1982) = lu(k,1982) - lu(k,1527) * lu(k,1977)
    6494   254840160 :          lu(k,1984) = lu(k,1984) - lu(k,1528) * lu(k,1977)
    6495   254840160 :          lu(k,1989) = - lu(k,1529) * lu(k,1977)
    6496   254840160 :          lu(k,1994) = - lu(k,1530) * lu(k,1977)
    6497   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1531) * lu(k,1977)
    6498   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1532) * lu(k,1977)
    6499   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1533) * lu(k,1977)
    6500   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1534) * lu(k,1977)
    6501   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1535) * lu(k,1977)
    6502   254840160 :          lu(k,2068) = lu(k,2068) - lu(k,1525) * lu(k,2067)
    6503   254840160 :          lu(k,2070) = lu(k,2070) - lu(k,1526) * lu(k,2067)
    6504   254840160 :          lu(k,2071) = lu(k,2071) - lu(k,1527) * lu(k,2067)
    6505   254840160 :          lu(k,2073) = lu(k,2073) - lu(k,1528) * lu(k,2067)
    6506   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1529) * lu(k,2067)
    6507   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1530) * lu(k,2067)
    6508   254840160 :          lu(k,2082) = lu(k,2082) - lu(k,1531) * lu(k,2067)
    6509   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1532) * lu(k,2067)
    6510   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1533) * lu(k,2067)
    6511   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1534) * lu(k,2067)
    6512   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1535) * lu(k,2067)
    6513   254840160 :          lu(k,2100) = lu(k,2100) - lu(k,1525) * lu(k,2099)
    6514   254840160 :          lu(k,2102) = lu(k,2102) - lu(k,1526) * lu(k,2099)
    6515   254840160 :          lu(k,2103) = lu(k,2103) - lu(k,1527) * lu(k,2099)
    6516   254840160 :          lu(k,2105) = lu(k,2105) - lu(k,1528) * lu(k,2099)
    6517   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1529) * lu(k,2099)
    6518   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1530) * lu(k,2099)
    6519   254840160 :          lu(k,2114) = lu(k,2114) - lu(k,1531) * lu(k,2099)
    6520   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1532) * lu(k,2099)
    6521   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1533) * lu(k,2099)
    6522   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1534) * lu(k,2099)
    6523   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1535) * lu(k,2099)
    6524   254840160 :          lu(k,3051) = lu(k,3051) - lu(k,1525) * lu(k,3047)
    6525   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1526) * lu(k,3047)
    6526   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1527) * lu(k,3047)
    6527   254840160 :          lu(k,3063) = lu(k,3063) - lu(k,1528) * lu(k,3047)
    6528   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1529) * lu(k,3047)
    6529   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1530) * lu(k,3047)
    6530   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1531) * lu(k,3047)
    6531   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1532) * lu(k,3047)
    6532   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1533) * lu(k,3047)
    6533   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1534) * lu(k,3047)
    6534   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1535) * lu(k,3047)
    6535   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1525) * lu(k,4027)
    6536   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1526) * lu(k,4027)
    6537   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1527) * lu(k,4027)
    6538   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1528) * lu(k,4027)
    6539   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1529) * lu(k,4027)
    6540   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1530) * lu(k,4027)
    6541   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1531) * lu(k,4027)
    6542   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1532) * lu(k,4027)
    6543   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1533) * lu(k,4027)
    6544   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1534) * lu(k,4027)
    6545   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1535) * lu(k,4027)
    6546             :       end do
    6547     8168963 :       end subroutine lu_fac34
    6548     8168963 :       subroutine lu_fac35( avec_len, lu )
    6549             :       use chem_mods, only : nzcnt
    6550             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6551             :       implicit none
    6552             : !-----------------------------------------------------------------------
    6553             : ! ... dummy args
    6554             : !-----------------------------------------------------------------------
    6555             :       integer, intent(in) :: avec_len
    6556             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6557             : !-----------------------------------------------------------------------
    6558             : ! ... local variables
    6559             : !-----------------------------------------------------------------------
    6560             :       integer :: k
    6561   263009123 :       do k = 1,avec_len
    6562   254840160 :          lu(k,1536) = 1._r8 / lu(k,1536)
    6563   254840160 :          lu(k,1537) = lu(k,1537) * lu(k,1536)
    6564   254840160 :          lu(k,1538) = lu(k,1538) * lu(k,1536)
    6565   254840160 :          lu(k,1539) = lu(k,1539) * lu(k,1536)
    6566   254840160 :          lu(k,1540) = lu(k,1540) * lu(k,1536)
    6567   254840160 :          lu(k,1541) = lu(k,1541) * lu(k,1536)
    6568   254840160 :          lu(k,1703) = - lu(k,1537) * lu(k,1700)
    6569   254840160 :          lu(k,1705) = lu(k,1705) - lu(k,1538) * lu(k,1700)
    6570   254840160 :          lu(k,1707) = lu(k,1707) - lu(k,1539) * lu(k,1700)
    6571   254840160 :          lu(k,1708) = lu(k,1708) - lu(k,1540) * lu(k,1700)
    6572   254840160 :          lu(k,1709) = lu(k,1709) - lu(k,1541) * lu(k,1700)
    6573   254840160 :          lu(k,2237) = - lu(k,1537) * lu(k,2231)
    6574   254840160 :          lu(k,2245) = - lu(k,1538) * lu(k,2231)
    6575   254840160 :          lu(k,2249) = lu(k,2249) - lu(k,1539) * lu(k,2231)
    6576   254840160 :          lu(k,2252) = lu(k,2252) - lu(k,1540) * lu(k,2231)
    6577   254840160 :          lu(k,2253) = lu(k,2253) - lu(k,1541) * lu(k,2231)
    6578   254840160 :          lu(k,2297) = lu(k,2297) - lu(k,1537) * lu(k,2292)
    6579   254840160 :          lu(k,2305) = lu(k,2305) - lu(k,1538) * lu(k,2292)
    6580   254840160 :          lu(k,2309) = lu(k,2309) - lu(k,1539) * lu(k,2292)
    6581   254840160 :          lu(k,2312) = lu(k,2312) - lu(k,1540) * lu(k,2292)
    6582   254840160 :          lu(k,2313) = lu(k,2313) - lu(k,1541) * lu(k,2292)
    6583   254840160 :          lu(k,2379) = lu(k,2379) - lu(k,1537) * lu(k,2370)
    6584   254840160 :          lu(k,2389) = - lu(k,1538) * lu(k,2370)
    6585   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,1539) * lu(k,2370)
    6586   254840160 :          lu(k,2396) = lu(k,2396) - lu(k,1540) * lu(k,2370)
    6587   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,1541) * lu(k,2370)
    6588   254840160 :          lu(k,2440) = lu(k,2440) - lu(k,1537) * lu(k,2431)
    6589   254840160 :          lu(k,2450) = - lu(k,1538) * lu(k,2431)
    6590   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,1539) * lu(k,2431)
    6591   254840160 :          lu(k,2457) = lu(k,2457) - lu(k,1540) * lu(k,2431)
    6592   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1541) * lu(k,2431)
    6593   254840160 :          lu(k,2504) = lu(k,2504) - lu(k,1537) * lu(k,2498)
    6594   254840160 :          lu(k,2515) = lu(k,2515) - lu(k,1538) * lu(k,2498)
    6595   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1539) * lu(k,2498)
    6596   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1540) * lu(k,2498)
    6597   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1541) * lu(k,2498)
    6598   254840160 :          lu(k,2535) = lu(k,2535) - lu(k,1537) * lu(k,2530)
    6599   254840160 :          lu(k,2544) = lu(k,2544) - lu(k,1538) * lu(k,2530)
    6600   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,1539) * lu(k,2530)
    6601   254840160 :          lu(k,2551) = lu(k,2551) - lu(k,1540) * lu(k,2530)
    6602   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1541) * lu(k,2530)
    6603   254840160 :          lu(k,2568) = lu(k,2568) - lu(k,1537) * lu(k,2561)
    6604   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,1538) * lu(k,2561)
    6605   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1539) * lu(k,2561)
    6606   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1540) * lu(k,2561)
    6607   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1541) * lu(k,2561)
    6608   254840160 :          lu(k,2698) = lu(k,2698) - lu(k,1537) * lu(k,2693)
    6609   254840160 :          lu(k,2706) = - lu(k,1538) * lu(k,2693)
    6610   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,1539) * lu(k,2693)
    6611   254840160 :          lu(k,2713) = lu(k,2713) - lu(k,1540) * lu(k,2693)
    6612   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,1541) * lu(k,2693)
    6613   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,1537) * lu(k,2719)
    6614   254840160 :          lu(k,2749) = - lu(k,1538) * lu(k,2719)
    6615   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,1539) * lu(k,2719)
    6616   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,1540) * lu(k,2719)
    6617   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,1541) * lu(k,2719)
    6618   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,1537) * lu(k,2765)
    6619   254840160 :          lu(k,2795) = - lu(k,1538) * lu(k,2765)
    6620   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,1539) * lu(k,2765)
    6621   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,1540) * lu(k,2765)
    6622   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,1541) * lu(k,2765)
    6623   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,1537) * lu(k,2812)
    6624   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,1538) * lu(k,2812)
    6625   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,1539) * lu(k,2812)
    6626   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,1540) * lu(k,2812)
    6627   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1541) * lu(k,2812)
    6628   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,1537) * lu(k,2862)
    6629   254840160 :          lu(k,2915) = - lu(k,1538) * lu(k,2862)
    6630   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1539) * lu(k,2862)
    6631   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1540) * lu(k,2862)
    6632   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1541) * lu(k,2862)
    6633   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1537) * lu(k,3048)
    6634   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1538) * lu(k,3048)
    6635   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1539) * lu(k,3048)
    6636   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1540) * lu(k,3048)
    6637   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1541) * lu(k,3048)
    6638   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1537) * lu(k,3305)
    6639   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1538) * lu(k,3305)
    6640   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1539) * lu(k,3305)
    6641   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1540) * lu(k,3305)
    6642   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1541) * lu(k,3305)
    6643   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,1537) * lu(k,3401)
    6644   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1538) * lu(k,3401)
    6645   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1539) * lu(k,3401)
    6646   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1540) * lu(k,3401)
    6647   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1541) * lu(k,3401)
    6648   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,1537) * lu(k,3548)
    6649   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1538) * lu(k,3548)
    6650   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1539) * lu(k,3548)
    6651   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1540) * lu(k,3548)
    6652   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1541) * lu(k,3548)
    6653   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1537) * lu(k,4028)
    6654   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1538) * lu(k,4028)
    6655   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1539) * lu(k,4028)
    6656   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1540) * lu(k,4028)
    6657   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1541) * lu(k,4028)
    6658   254840160 :          lu(k,1543) = 1._r8 / lu(k,1543)
    6659   254840160 :          lu(k,1544) = lu(k,1544) * lu(k,1543)
    6660   254840160 :          lu(k,1545) = lu(k,1545) * lu(k,1543)
    6661   254840160 :          lu(k,1546) = lu(k,1546) * lu(k,1543)
    6662   254840160 :          lu(k,1547) = lu(k,1547) * lu(k,1543)
    6663   254840160 :          lu(k,1548) = lu(k,1548) * lu(k,1543)
    6664   254840160 :          lu(k,1549) = lu(k,1549) * lu(k,1543)
    6665   254840160 :          lu(k,1550) = lu(k,1550) * lu(k,1543)
    6666   254840160 :          lu(k,1551) = lu(k,1551) * lu(k,1543)
    6667   254840160 :          lu(k,1552) = lu(k,1552) * lu(k,1543)
    6668   254840160 :          lu(k,1553) = lu(k,1553) * lu(k,1543)
    6669   254840160 :          lu(k,1554) = lu(k,1554) * lu(k,1543)
    6670   254840160 :          lu(k,1555) = lu(k,1555) * lu(k,1543)
    6671   254840160 :          lu(k,1556) = lu(k,1556) * lu(k,1543)
    6672   254840160 :          lu(k,1813) = lu(k,1813) - lu(k,1544) * lu(k,1812)
    6673   254840160 :          lu(k,1815) = lu(k,1815) - lu(k,1545) * lu(k,1812)
    6674   254840160 :          lu(k,1816) = - lu(k,1546) * lu(k,1812)
    6675   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,1547) * lu(k,1812)
    6676   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,1548) * lu(k,1812)
    6677   254840160 :          lu(k,1825) = - lu(k,1549) * lu(k,1812)
    6678   254840160 :          lu(k,1826) = lu(k,1826) - lu(k,1550) * lu(k,1812)
    6679   254840160 :          lu(k,1827) = lu(k,1827) - lu(k,1551) * lu(k,1812)
    6680   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,1552) * lu(k,1812)
    6681   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,1553) * lu(k,1812)
    6682   254840160 :          lu(k,1831) = lu(k,1831) - lu(k,1554) * lu(k,1812)
    6683   254840160 :          lu(k,1832) = lu(k,1832) - lu(k,1555) * lu(k,1812)
    6684   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,1556) * lu(k,1812)
    6685   254840160 :          lu(k,2011) = lu(k,2011) - lu(k,1544) * lu(k,2010)
    6686   254840160 :          lu(k,2013) = - lu(k,1545) * lu(k,2010)
    6687   254840160 :          lu(k,2014) = - lu(k,1546) * lu(k,2010)
    6688   254840160 :          lu(k,2015) = lu(k,2015) - lu(k,1547) * lu(k,2010)
    6689   254840160 :          lu(k,2017) = lu(k,2017) - lu(k,1548) * lu(k,2010)
    6690   254840160 :          lu(k,2018) = - lu(k,1549) * lu(k,2010)
    6691   254840160 :          lu(k,2019) = lu(k,2019) - lu(k,1550) * lu(k,2010)
    6692   254840160 :          lu(k,2021) = - lu(k,1551) * lu(k,2010)
    6693   254840160 :          lu(k,2023) = lu(k,2023) - lu(k,1552) * lu(k,2010)
    6694   254840160 :          lu(k,2024) = lu(k,2024) - lu(k,1553) * lu(k,2010)
    6695   254840160 :          lu(k,2025) = lu(k,2025) - lu(k,1554) * lu(k,2010)
    6696   254840160 :          lu(k,2027) = - lu(k,1555) * lu(k,2010)
    6697   254840160 :          lu(k,2029) = lu(k,2029) - lu(k,1556) * lu(k,2010)
    6698   254840160 :          lu(k,2865) = lu(k,2865) - lu(k,1544) * lu(k,2863)
    6699   254840160 :          lu(k,2873) = lu(k,2873) - lu(k,1545) * lu(k,2863)
    6700   254840160 :          lu(k,2874) = - lu(k,1546) * lu(k,2863)
    6701   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1547) * lu(k,2863)
    6702   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1548) * lu(k,2863)
    6703   254840160 :          lu(k,2893) = lu(k,2893) - lu(k,1549) * lu(k,2863)
    6704   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1550) * lu(k,2863)
    6705   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1551) * lu(k,2863)
    6706   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1552) * lu(k,2863)
    6707   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1553) * lu(k,2863)
    6708   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1554) * lu(k,2863)
    6709   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1555) * lu(k,2863)
    6710   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1556) * lu(k,2863)
    6711   254840160 :          lu(k,3051) = lu(k,3051) - lu(k,1544) * lu(k,3049)
    6712   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1545) * lu(k,3049)
    6713   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1546) * lu(k,3049)
    6714   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1547) * lu(k,3049)
    6715   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1548) * lu(k,3049)
    6716   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,1549) * lu(k,3049)
    6717   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1550) * lu(k,3049)
    6718   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1551) * lu(k,3049)
    6719   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1552) * lu(k,3049)
    6720   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1553) * lu(k,3049)
    6721   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1554) * lu(k,3049)
    6722   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1555) * lu(k,3049)
    6723   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1556) * lu(k,3049)
    6724   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,1544) * lu(k,3306)
    6725   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1545) * lu(k,3306)
    6726   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1546) * lu(k,3306)
    6727   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1547) * lu(k,3306)
    6728   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1548) * lu(k,3306)
    6729   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,1549) * lu(k,3306)
    6730   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1550) * lu(k,3306)
    6731   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1551) * lu(k,3306)
    6732   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1552) * lu(k,3306)
    6733   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1553) * lu(k,3306)
    6734   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1554) * lu(k,3306)
    6735   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1555) * lu(k,3306)
    6736   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1556) * lu(k,3306)
    6737   254840160 :          lu(k,3404) = lu(k,3404) - lu(k,1544) * lu(k,3402)
    6738   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1545) * lu(k,3402)
    6739   254840160 :          lu(k,3415) = lu(k,3415) - lu(k,1546) * lu(k,3402)
    6740   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1547) * lu(k,3402)
    6741   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1548) * lu(k,3402)
    6742   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,1549) * lu(k,3402)
    6743   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1550) * lu(k,3402)
    6744   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1551) * lu(k,3402)
    6745   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1552) * lu(k,3402)
    6746   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1553) * lu(k,3402)
    6747   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1554) * lu(k,3402)
    6748   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1555) * lu(k,3402)
    6749   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1556) * lu(k,3402)
    6750   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1544) * lu(k,4029)
    6751   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1545) * lu(k,4029)
    6752   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1546) * lu(k,4029)
    6753   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1547) * lu(k,4029)
    6754   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1548) * lu(k,4029)
    6755   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,1549) * lu(k,4029)
    6756   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1550) * lu(k,4029)
    6757   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1551) * lu(k,4029)
    6758   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1552) * lu(k,4029)
    6759   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1553) * lu(k,4029)
    6760   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1554) * lu(k,4029)
    6761   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1555) * lu(k,4029)
    6762   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1556) * lu(k,4029)
    6763   254840160 :          lu(k,1557) = 1._r8 / lu(k,1557)
    6764   254840160 :          lu(k,1558) = lu(k,1558) * lu(k,1557)
    6765   254840160 :          lu(k,1559) = lu(k,1559) * lu(k,1557)
    6766   254840160 :          lu(k,1560) = lu(k,1560) * lu(k,1557)
    6767   254840160 :          lu(k,1561) = lu(k,1561) * lu(k,1557)
    6768   254840160 :          lu(k,1690) = - lu(k,1558) * lu(k,1688)
    6769   254840160 :          lu(k,1694) = lu(k,1694) - lu(k,1559) * lu(k,1688)
    6770   254840160 :          lu(k,1695) = lu(k,1695) - lu(k,1560) * lu(k,1688)
    6771   254840160 :          lu(k,1696) = lu(k,1696) - lu(k,1561) * lu(k,1688)
    6772   254840160 :          lu(k,1703) = lu(k,1703) - lu(k,1558) * lu(k,1701)
    6773   254840160 :          lu(k,1707) = lu(k,1707) - lu(k,1559) * lu(k,1701)
    6774   254840160 :          lu(k,1708) = lu(k,1708) - lu(k,1560) * lu(k,1701)
    6775   254840160 :          lu(k,1709) = lu(k,1709) - lu(k,1561) * lu(k,1701)
    6776   254840160 :          lu(k,2297) = lu(k,2297) - lu(k,1558) * lu(k,2293)
    6777   254840160 :          lu(k,2309) = lu(k,2309) - lu(k,1559) * lu(k,2293)
    6778   254840160 :          lu(k,2312) = lu(k,2312) - lu(k,1560) * lu(k,2293)
    6779   254840160 :          lu(k,2313) = lu(k,2313) - lu(k,1561) * lu(k,2293)
    6780   254840160 :          lu(k,2321) = lu(k,2321) - lu(k,1558) * lu(k,2317)
    6781   254840160 :          lu(k,2329) = lu(k,2329) - lu(k,1559) * lu(k,2317)
    6782   254840160 :          lu(k,2331) = lu(k,2331) - lu(k,1560) * lu(k,2317)
    6783   254840160 :          lu(k,2332) = lu(k,2332) - lu(k,1561) * lu(k,2317)
    6784   254840160 :          lu(k,2379) = lu(k,2379) - lu(k,1558) * lu(k,2371)
    6785   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,1559) * lu(k,2371)
    6786   254840160 :          lu(k,2396) = lu(k,2396) - lu(k,1560) * lu(k,2371)
    6787   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,1561) * lu(k,2371)
    6788   254840160 :          lu(k,2407) = lu(k,2407) - lu(k,1558) * lu(k,2403)
    6789   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,1559) * lu(k,2403)
    6790   254840160 :          lu(k,2425) = lu(k,2425) - lu(k,1560) * lu(k,2403)
    6791   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,1561) * lu(k,2403)
    6792   254840160 :          lu(k,2440) = lu(k,2440) - lu(k,1558) * lu(k,2432)
    6793   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,1559) * lu(k,2432)
    6794   254840160 :          lu(k,2457) = lu(k,2457) - lu(k,1560) * lu(k,2432)
    6795   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1561) * lu(k,2432)
    6796   254840160 :          lu(k,2470) = lu(k,2470) - lu(k,1558) * lu(k,2463)
    6797   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,1559) * lu(k,2463)
    6798   254840160 :          lu(k,2488) = lu(k,2488) - lu(k,1560) * lu(k,2463)
    6799   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,1561) * lu(k,2463)
    6800   254840160 :          lu(k,2504) = lu(k,2504) - lu(k,1558) * lu(k,2499)
    6801   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1559) * lu(k,2499)
    6802   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1560) * lu(k,2499)
    6803   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1561) * lu(k,2499)
    6804   254840160 :          lu(k,2535) = lu(k,2535) - lu(k,1558) * lu(k,2531)
    6805   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,1559) * lu(k,2531)
    6806   254840160 :          lu(k,2551) = lu(k,2551) - lu(k,1560) * lu(k,2531)
    6807   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1561) * lu(k,2531)
    6808   254840160 :          lu(k,2568) = lu(k,2568) - lu(k,1558) * lu(k,2562)
    6809   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1559) * lu(k,2562)
    6810   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1560) * lu(k,2562)
    6811   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1561) * lu(k,2562)
    6812   254840160 :          lu(k,2628) = - lu(k,1558) * lu(k,2624)
    6813   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,1559) * lu(k,2624)
    6814   254840160 :          lu(k,2642) = lu(k,2642) - lu(k,1560) * lu(k,2624)
    6815   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,1561) * lu(k,2624)
    6816   254840160 :          lu(k,2653) = lu(k,2653) - lu(k,1558) * lu(k,2650)
    6817   254840160 :          lu(k,2665) = lu(k,2665) - lu(k,1559) * lu(k,2650)
    6818   254840160 :          lu(k,2668) = lu(k,2668) - lu(k,1560) * lu(k,2650)
    6819   254840160 :          lu(k,2669) = lu(k,2669) - lu(k,1561) * lu(k,2650)
    6820   254840160 :          lu(k,2675) = - lu(k,1558) * lu(k,2671)
    6821   254840160 :          lu(k,2687) = lu(k,2687) - lu(k,1559) * lu(k,2671)
    6822   254840160 :          lu(k,2690) = lu(k,2690) - lu(k,1560) * lu(k,2671)
    6823   254840160 :          lu(k,2691) = lu(k,2691) - lu(k,1561) * lu(k,2671)
    6824   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,1558) * lu(k,2720)
    6825   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,1559) * lu(k,2720)
    6826   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,1560) * lu(k,2720)
    6827   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,1561) * lu(k,2720)
    6828   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,1558) * lu(k,2766)
    6829   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,1559) * lu(k,2766)
    6830   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,1560) * lu(k,2766)
    6831   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,1561) * lu(k,2766)
    6832   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,1558) * lu(k,2813)
    6833   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,1559) * lu(k,2813)
    6834   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,1560) * lu(k,2813)
    6835   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1561) * lu(k,2813)
    6836   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,1558) * lu(k,2864)
    6837   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1559) * lu(k,2864)
    6838   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1560) * lu(k,2864)
    6839   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1561) * lu(k,2864)
    6840   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1558) * lu(k,3050)
    6841   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1559) * lu(k,3050)
    6842   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1560) * lu(k,3050)
    6843   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1561) * lu(k,3050)
    6844   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1558) * lu(k,3307)
    6845   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1559) * lu(k,3307)
    6846   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1560) * lu(k,3307)
    6847   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1561) * lu(k,3307)
    6848   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,1558) * lu(k,3403)
    6849   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1559) * lu(k,3403)
    6850   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1560) * lu(k,3403)
    6851   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1561) * lu(k,3403)
    6852   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,1558) * lu(k,3549)
    6853   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1559) * lu(k,3549)
    6854   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1560) * lu(k,3549)
    6855   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1561) * lu(k,3549)
    6856   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1558) * lu(k,4030)
    6857   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1559) * lu(k,4030)
    6858   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1560) * lu(k,4030)
    6859   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1561) * lu(k,4030)
    6860   254840160 :          lu(k,1572) = 1._r8 / lu(k,1572)
    6861   254840160 :          lu(k,1573) = lu(k,1573) * lu(k,1572)
    6862   254840160 :          lu(k,1574) = lu(k,1574) * lu(k,1572)
    6863   254840160 :          lu(k,1575) = lu(k,1575) * lu(k,1572)
    6864   254840160 :          lu(k,1576) = lu(k,1576) * lu(k,1572)
    6865   254840160 :          lu(k,1577) = lu(k,1577) * lu(k,1572)
    6866   254840160 :          lu(k,1578) = lu(k,1578) * lu(k,1572)
    6867   254840160 :          lu(k,1579) = lu(k,1579) * lu(k,1572)
    6868   254840160 :          lu(k,1580) = lu(k,1580) * lu(k,1572)
    6869   254840160 :          lu(k,1581) = lu(k,1581) * lu(k,1572)
    6870   254840160 :          lu(k,1582) = lu(k,1582) * lu(k,1572)
    6871   254840160 :          lu(k,1583) = lu(k,1583) * lu(k,1572)
    6872   254840160 :          lu(k,1584) = lu(k,1584) * lu(k,1572)
    6873   254840160 :          lu(k,1585) = lu(k,1585) * lu(k,1572)
    6874   254840160 :          lu(k,1586) = lu(k,1586) * lu(k,1572)
    6875   254840160 :          lu(k,1587) = lu(k,1587) * lu(k,1572)
    6876   254840160 :          lu(k,1588) = lu(k,1588) * lu(k,1572)
    6877   254840160 :          lu(k,1589) = lu(k,1589) * lu(k,1572)
    6878   254840160 :          lu(k,1590) = lu(k,1590) * lu(k,1572)
    6879   254840160 :          lu(k,1591) = lu(k,1591) * lu(k,1572)
    6880   254840160 :          lu(k,1592) = lu(k,1592) * lu(k,1572)
    6881   254840160 :          lu(k,1593) = lu(k,1593) * lu(k,1572)
    6882   254840160 :          lu(k,1594) = lu(k,1594) * lu(k,1572)
    6883   254840160 :          lu(k,1595) = lu(k,1595) * lu(k,1572)
    6884   254840160 :          lu(k,1596) = lu(k,1596) * lu(k,1572)
    6885   254840160 :          lu(k,2165) = lu(k,2165) - lu(k,1573) * lu(k,2164)
    6886   254840160 :          lu(k,2166) = lu(k,2166) - lu(k,1574) * lu(k,2164)
    6887   254840160 :          lu(k,2167) = lu(k,2167) - lu(k,1575) * lu(k,2164)
    6888   254840160 :          lu(k,2168) = lu(k,2168) - lu(k,1576) * lu(k,2164)
    6889   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1577) * lu(k,2164)
    6890   254840160 :          lu(k,2170) = lu(k,2170) - lu(k,1578) * lu(k,2164)
    6891   254840160 :          lu(k,2171) = lu(k,2171) - lu(k,1579) * lu(k,2164)
    6892   254840160 :          lu(k,2172) = lu(k,2172) - lu(k,1580) * lu(k,2164)
    6893   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1581) * lu(k,2164)
    6894   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1582) * lu(k,2164)
    6895   254840160 :          lu(k,2179) = lu(k,2179) - lu(k,1583) * lu(k,2164)
    6896   254840160 :          lu(k,2180) = lu(k,2180) - lu(k,1584) * lu(k,2164)
    6897   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1585) * lu(k,2164)
    6898   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,1586) * lu(k,2164)
    6899   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,1587) * lu(k,2164)
    6900   254840160 :          lu(k,2186) = - lu(k,1588) * lu(k,2164)
    6901   254840160 :          lu(k,2187) = - lu(k,1589) * lu(k,2164)
    6902   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1590) * lu(k,2164)
    6903   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1591) * lu(k,2164)
    6904   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1592) * lu(k,2164)
    6905   254840160 :          lu(k,2193) = - lu(k,1593) * lu(k,2164)
    6906   254840160 :          lu(k,2194) = - lu(k,1594) * lu(k,2164)
    6907   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1595) * lu(k,2164)
    6908   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,1596) * lu(k,2164)
    6909   254840160 :          lu(k,3309) = lu(k,3309) - lu(k,1573) * lu(k,3308)
    6910   254840160 :          lu(k,3311) = lu(k,3311) - lu(k,1574) * lu(k,3308)
    6911   254840160 :          lu(k,3312) = lu(k,3312) - lu(k,1575) * lu(k,3308)
    6912   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1576) * lu(k,3308)
    6913   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1577) * lu(k,3308)
    6914   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1578) * lu(k,3308)
    6915   254840160 :          lu(k,3322) = lu(k,3322) - lu(k,1579) * lu(k,3308)
    6916   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1580) * lu(k,3308)
    6917   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1581) * lu(k,3308)
    6918   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1582) * lu(k,3308)
    6919   254840160 :          lu(k,3336) = lu(k,3336) - lu(k,1583) * lu(k,3308)
    6920   254840160 :          lu(k,3337) = lu(k,3337) - lu(k,1584) * lu(k,3308)
    6921   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1585) * lu(k,3308)
    6922   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1586) * lu(k,3308)
    6923   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1587) * lu(k,3308)
    6924   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,1588) * lu(k,3308)
    6925   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1589) * lu(k,3308)
    6926   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1590) * lu(k,3308)
    6927   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1591) * lu(k,3308)
    6928   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1592) * lu(k,3308)
    6929   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,1593) * lu(k,3308)
    6930   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,1594) * lu(k,3308)
    6931   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1595) * lu(k,3308)
    6932   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1596) * lu(k,3308)
    6933   254840160 :          lu(k,3706) = lu(k,3706) - lu(k,1573) * lu(k,3704)
    6934   254840160 :          lu(k,3707) = - lu(k,1574) * lu(k,3704)
    6935   254840160 :          lu(k,3708) = - lu(k,1575) * lu(k,3704)
    6936   254840160 :          lu(k,3709) = lu(k,3709) - lu(k,1576) * lu(k,3704)
    6937   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,1577) * lu(k,3704)
    6938   254840160 :          lu(k,3714) = - lu(k,1578) * lu(k,3704)
    6939   254840160 :          lu(k,3715) = - lu(k,1579) * lu(k,3704)
    6940   254840160 :          lu(k,3720) = - lu(k,1580) * lu(k,3704)
    6941   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1581) * lu(k,3704)
    6942   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1582) * lu(k,3704)
    6943   254840160 :          lu(k,3729) = lu(k,3729) - lu(k,1583) * lu(k,3704)
    6944   254840160 :          lu(k,3730) = lu(k,3730) - lu(k,1584) * lu(k,3704)
    6945   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1585) * lu(k,3704)
    6946   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1586) * lu(k,3704)
    6947   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1587) * lu(k,3704)
    6948   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,1588) * lu(k,3704)
    6949   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1589) * lu(k,3704)
    6950   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1590) * lu(k,3704)
    6951   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1591) * lu(k,3704)
    6952   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1592) * lu(k,3704)
    6953   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1593) * lu(k,3704)
    6954   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,1594) * lu(k,3704)
    6955   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1595) * lu(k,3704)
    6956   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1596) * lu(k,3704)
    6957   254840160 :          lu(k,4033) = lu(k,4033) - lu(k,1573) * lu(k,4031)
    6958   254840160 :          lu(k,4035) = lu(k,4035) - lu(k,1574) * lu(k,4031)
    6959   254840160 :          lu(k,4036) = lu(k,4036) - lu(k,1575) * lu(k,4031)
    6960   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1576) * lu(k,4031)
    6961   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1577) * lu(k,4031)
    6962   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1578) * lu(k,4031)
    6963   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1579) * lu(k,4031)
    6964   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1580) * lu(k,4031)
    6965   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1581) * lu(k,4031)
    6966   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1582) * lu(k,4031)
    6967   254840160 :          lu(k,4060) = lu(k,4060) - lu(k,1583) * lu(k,4031)
    6968   254840160 :          lu(k,4061) = lu(k,4061) - lu(k,1584) * lu(k,4031)
    6969   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1585) * lu(k,4031)
    6970   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1586) * lu(k,4031)
    6971   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1587) * lu(k,4031)
    6972   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,1588) * lu(k,4031)
    6973   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1589) * lu(k,4031)
    6974   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1590) * lu(k,4031)
    6975   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1591) * lu(k,4031)
    6976   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1592) * lu(k,4031)
    6977   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1593) * lu(k,4031)
    6978   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,1594) * lu(k,4031)
    6979   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1595) * lu(k,4031)
    6980   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,1596) * lu(k,4031)
    6981             :       end do
    6982     8168963 :       end subroutine lu_fac35
    6983     8168963 :       subroutine lu_fac36( avec_len, lu )
    6984             :       use chem_mods, only : nzcnt
    6985             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6986             :       implicit none
    6987             : !-----------------------------------------------------------------------
    6988             : ! ... dummy args
    6989             : !-----------------------------------------------------------------------
    6990             :       integer, intent(in) :: avec_len
    6991             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6992             : !-----------------------------------------------------------------------
    6993             : ! ... local variables
    6994             : !-----------------------------------------------------------------------
    6995             :       integer :: k
    6996   263009123 :       do k = 1,avec_len
    6997   254840160 :          lu(k,1600) = 1._r8 / lu(k,1600)
    6998   254840160 :          lu(k,1601) = lu(k,1601) * lu(k,1600)
    6999   254840160 :          lu(k,1602) = lu(k,1602) * lu(k,1600)
    7000   254840160 :          lu(k,1603) = lu(k,1603) * lu(k,1600)
    7001   254840160 :          lu(k,1604) = lu(k,1604) * lu(k,1600)
    7002   254840160 :          lu(k,1605) = lu(k,1605) * lu(k,1600)
    7003   254840160 :          lu(k,1606) = lu(k,1606) * lu(k,1600)
    7004   254840160 :          lu(k,1607) = lu(k,1607) * lu(k,1600)
    7005   254840160 :          lu(k,1608) = lu(k,1608) * lu(k,1600)
    7006   254840160 :          lu(k,1609) = lu(k,1609) * lu(k,1600)
    7007   254840160 :          lu(k,1610) = lu(k,1610) * lu(k,1600)
    7008   254840160 :          lu(k,1611) = lu(k,1611) * lu(k,1600)
    7009   254840160 :          lu(k,1612) = lu(k,1612) * lu(k,1600)
    7010   254840160 :          lu(k,3155) = lu(k,3155) - lu(k,1601) * lu(k,3152)
    7011   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,1602) * lu(k,3152)
    7012   254840160 :          lu(k,3159) = lu(k,3159) - lu(k,1603) * lu(k,3152)
    7013   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1604) * lu(k,3152)
    7014   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,1605) * lu(k,3152)
    7015   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,1606) * lu(k,3152)
    7016   254840160 :          lu(k,3166) = lu(k,3166) - lu(k,1607) * lu(k,3152)
    7017   254840160 :          lu(k,3168) = lu(k,3168) - lu(k,1608) * lu(k,3152)
    7018   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,1609) * lu(k,3152)
    7019   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,1610) * lu(k,3152)
    7020   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1611) * lu(k,3152)
    7021   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1612) * lu(k,3152)
    7022   254840160 :          lu(k,3479) = lu(k,3479) - lu(k,1601) * lu(k,3478)
    7023   254840160 :          lu(k,3480) = - lu(k,1602) * lu(k,3478)
    7024   254840160 :          lu(k,3482) = lu(k,3482) - lu(k,1603) * lu(k,3478)
    7025   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,1604) * lu(k,3478)
    7026   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,1605) * lu(k,3478)
    7027   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,1606) * lu(k,3478)
    7028   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,1607) * lu(k,3478)
    7029   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,1608) * lu(k,3478)
    7030   254840160 :          lu(k,3492) = - lu(k,1609) * lu(k,3478)
    7031   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,1610) * lu(k,3478)
    7032   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,1611) * lu(k,3478)
    7033   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,1612) * lu(k,3478)
    7034   254840160 :          lu(k,3505) = lu(k,3505) - lu(k,1601) * lu(k,3504)
    7035   254840160 :          lu(k,3506) = - lu(k,1602) * lu(k,3504)
    7036   254840160 :          lu(k,3508) = lu(k,3508) - lu(k,1603) * lu(k,3504)
    7037   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,1604) * lu(k,3504)
    7038   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,1605) * lu(k,3504)
    7039   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,1606) * lu(k,3504)
    7040   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,1607) * lu(k,3504)
    7041   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,1608) * lu(k,3504)
    7042   254840160 :          lu(k,3518) = - lu(k,1609) * lu(k,3504)
    7043   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,1610) * lu(k,3504)
    7044   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,1611) * lu(k,3504)
    7045   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,1612) * lu(k,3504)
    7046   254840160 :          lu(k,3575) = - lu(k,1601) * lu(k,3550)
    7047   254840160 :          lu(k,3600) = - lu(k,1602) * lu(k,3550)
    7048   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1603) * lu(k,3550)
    7049   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1604) * lu(k,3550)
    7050   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1605) * lu(k,3550)
    7051   254840160 :          lu(k,3608) = - lu(k,1606) * lu(k,3550)
    7052   254840160 :          lu(k,3609) = - lu(k,1607) * lu(k,3550)
    7053   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1608) * lu(k,3550)
    7054   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1609) * lu(k,3550)
    7055   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,1610) * lu(k,3550)
    7056   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1611) * lu(k,3550)
    7057   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1612) * lu(k,3550)
    7058   254840160 :          lu(k,3645) = lu(k,3645) - lu(k,1601) * lu(k,3639)
    7059   254840160 :          lu(k,3652) = lu(k,3652) - lu(k,1602) * lu(k,3639)
    7060   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,1603) * lu(k,3639)
    7061   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,1604) * lu(k,3639)
    7062   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1605) * lu(k,3639)
    7063   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,1606) * lu(k,3639)
    7064   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,1607) * lu(k,3639)
    7065   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,1608) * lu(k,3639)
    7066   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,1609) * lu(k,3639)
    7067   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,1610) * lu(k,3639)
    7068   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1611) * lu(k,3639)
    7069   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,1612) * lu(k,3639)
    7070   254840160 :          lu(k,3731) = lu(k,3731) - lu(k,1601) * lu(k,3705)
    7071   254840160 :          lu(k,3754) = lu(k,3754) - lu(k,1602) * lu(k,3705)
    7072   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1603) * lu(k,3705)
    7073   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1604) * lu(k,3705)
    7074   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1605) * lu(k,3705)
    7075   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,1606) * lu(k,3705)
    7076   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,1607) * lu(k,3705)
    7077   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1608) * lu(k,3705)
    7078   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,1609) * lu(k,3705)
    7079   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,1610) * lu(k,3705)
    7080   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1611) * lu(k,3705)
    7081   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1612) * lu(k,3705)
    7082   254840160 :          lu(k,4062) = lu(k,4062) - lu(k,1601) * lu(k,4032)
    7083   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,1602) * lu(k,4032)
    7084   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1603) * lu(k,4032)
    7085   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1604) * lu(k,4032)
    7086   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1605) * lu(k,4032)
    7087   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,1606) * lu(k,4032)
    7088   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,1607) * lu(k,4032)
    7089   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1608) * lu(k,4032)
    7090   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1609) * lu(k,4032)
    7091   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,1610) * lu(k,4032)
    7092   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1611) * lu(k,4032)
    7093   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1612) * lu(k,4032)
    7094   254840160 :          lu(k,4110) = - lu(k,1601) * lu(k,4108)
    7095   254840160 :          lu(k,4112) = lu(k,4112) - lu(k,1602) * lu(k,4108)
    7096   254840160 :          lu(k,4114) = - lu(k,1603) * lu(k,4108)
    7097   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,1604) * lu(k,4108)
    7098   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,1605) * lu(k,4108)
    7099   254840160 :          lu(k,4120) = - lu(k,1606) * lu(k,4108)
    7100   254840160 :          lu(k,4121) = - lu(k,1607) * lu(k,4108)
    7101   254840160 :          lu(k,4123) = - lu(k,1608) * lu(k,4108)
    7102   254840160 :          lu(k,4124) = - lu(k,1609) * lu(k,4108)
    7103   254840160 :          lu(k,4126) = - lu(k,1610) * lu(k,4108)
    7104   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,1611) * lu(k,4108)
    7105   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,1612) * lu(k,4108)
    7106   254840160 :          lu(k,1613) = 1._r8 / lu(k,1613)
    7107   254840160 :          lu(k,1614) = lu(k,1614) * lu(k,1613)
    7108   254840160 :          lu(k,1615) = lu(k,1615) * lu(k,1613)
    7109   254840160 :          lu(k,1622) = lu(k,1622) - lu(k,1614) * lu(k,1619)
    7110   254840160 :          lu(k,1625) = - lu(k,1615) * lu(k,1619)
    7111   254840160 :          lu(k,1647) = lu(k,1647) - lu(k,1614) * lu(k,1639)
    7112   254840160 :          lu(k,1651) = - lu(k,1615) * lu(k,1639)
    7113   254840160 :          lu(k,1665) = lu(k,1665) - lu(k,1614) * lu(k,1658)
    7114   254840160 :          lu(k,1667) = - lu(k,1615) * lu(k,1658)
    7115   254840160 :          lu(k,1713) = lu(k,1713) - lu(k,1614) * lu(k,1711)
    7116   254840160 :          lu(k,1714) = - lu(k,1615) * lu(k,1711)
    7117   254840160 :          lu(k,1738) = lu(k,1738) - lu(k,1614) * lu(k,1730)
    7118   254840160 :          lu(k,1742) = - lu(k,1615) * lu(k,1730)
    7119   254840160 :          lu(k,1760) = lu(k,1760) - lu(k,1614) * lu(k,1752)
    7120   254840160 :          lu(k,1764) = - lu(k,1615) * lu(k,1752)
    7121   254840160 :          lu(k,1796) = lu(k,1796) - lu(k,1614) * lu(k,1789)
    7122   254840160 :          lu(k,1798) = - lu(k,1615) * lu(k,1789)
    7123   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,1614) * lu(k,1813)
    7124   254840160 :          lu(k,1828) = - lu(k,1615) * lu(k,1813)
    7125   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,1614) * lu(k,1845)
    7126   254840160 :          lu(k,1859) = - lu(k,1615) * lu(k,1845)
    7127   254840160 :          lu(k,1875) = lu(k,1875) - lu(k,1614) * lu(k,1868)
    7128   254840160 :          lu(k,1878) = - lu(k,1615) * lu(k,1868)
    7129   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1614) * lu(k,1891)
    7130   254840160 :          lu(k,1906) = - lu(k,1615) * lu(k,1891)
    7131   254840160 :          lu(k,1918) = lu(k,1918) - lu(k,1614) * lu(k,1914)
    7132   254840160 :          lu(k,1921) = - lu(k,1615) * lu(k,1914)
    7133   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1614) * lu(k,1941)
    7134   254840160 :          lu(k,1962) = - lu(k,1615) * lu(k,1941)
    7135   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1614) * lu(k,1978)
    7136   254840160 :          lu(k,2001) = - lu(k,1615) * lu(k,1978)
    7137   254840160 :          lu(k,2017) = lu(k,2017) - lu(k,1614) * lu(k,2011)
    7138   254840160 :          lu(k,2022) = - lu(k,1615) * lu(k,2011)
    7139   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1614) * lu(k,2036)
    7140   254840160 :          lu(k,2047) = - lu(k,1615) * lu(k,2036)
    7141   254840160 :          lu(k,2057) = lu(k,2057) - lu(k,1614) * lu(k,2056)
    7142   254840160 :          lu(k,2058) = - lu(k,1615) * lu(k,2056)
    7143   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1614) * lu(k,2068)
    7144   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,1615) * lu(k,2068)
    7145   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1614) * lu(k,2100)
    7146   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,1615) * lu(k,2100)
    7147   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1614) * lu(k,2130)
    7148   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,1615) * lu(k,2130)
    7149   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1614) * lu(k,2165)
    7150   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,1615) * lu(k,2165)
    7151   254840160 :          lu(k,2212) = - lu(k,1614) * lu(k,2211)
    7152   254840160 :          lu(k,2223) = - lu(k,1615) * lu(k,2211)
    7153   254840160 :          lu(k,2234) = - lu(k,1614) * lu(k,2232)
    7154   254840160 :          lu(k,2247) = - lu(k,1615) * lu(k,2232)
    7155   254840160 :          lu(k,2258) = lu(k,2258) - lu(k,1614) * lu(k,2256)
    7156   254840160 :          lu(k,2263) = lu(k,2263) - lu(k,1615) * lu(k,2256)
    7157   254840160 :          lu(k,2295) = - lu(k,1614) * lu(k,2294)
    7158   254840160 :          lu(k,2307) = - lu(k,1615) * lu(k,2294)
    7159   254840160 :          lu(k,2337) = - lu(k,1614) * lu(k,2334)
    7160   254840160 :          lu(k,2351) = - lu(k,1615) * lu(k,2334)
    7161   254840160 :          lu(k,2376) = - lu(k,1614) * lu(k,2372)
    7162   254840160 :          lu(k,2391) = - lu(k,1615) * lu(k,2372)
    7163   254840160 :          lu(k,2405) = - lu(k,1614) * lu(k,2404)
    7164   254840160 :          lu(k,2420) = - lu(k,1615) * lu(k,2404)
    7165   254840160 :          lu(k,2437) = - lu(k,1614) * lu(k,2433)
    7166   254840160 :          lu(k,2452) = - lu(k,1615) * lu(k,2433)
    7167   254840160 :          lu(k,2467) = - lu(k,1614) * lu(k,2464)
    7168   254840160 :          lu(k,2483) = - lu(k,1615) * lu(k,2464)
    7169   254840160 :          lu(k,2503) = - lu(k,1614) * lu(k,2500)
    7170   254840160 :          lu(k,2517) = - lu(k,1615) * lu(k,2500)
    7171   254840160 :          lu(k,2534) = - lu(k,1614) * lu(k,2532)
    7172   254840160 :          lu(k,2546) = - lu(k,1615) * lu(k,2532)
    7173   254840160 :          lu(k,2566) = - lu(k,1614) * lu(k,2563)
    7174   254840160 :          lu(k,2582) = - lu(k,1615) * lu(k,2563)
    7175   254840160 :          lu(k,2597) = - lu(k,1614) * lu(k,2594)
    7176   254840160 :          lu(k,2610) = lu(k,2610) - lu(k,1615) * lu(k,2594)
    7177   254840160 :          lu(k,2627) = - lu(k,1614) * lu(k,2625)
    7178   254840160 :          lu(k,2638) = lu(k,2638) - lu(k,1615) * lu(k,2625)
    7179   254840160 :          lu(k,2652) = lu(k,2652) - lu(k,1614) * lu(k,2651)
    7180   254840160 :          lu(k,2663) = - lu(k,1615) * lu(k,2651)
    7181   254840160 :          lu(k,2674) = lu(k,2674) - lu(k,1614) * lu(k,2672)
    7182   254840160 :          lu(k,2685) = - lu(k,1615) * lu(k,2672)
    7183   254840160 :          lu(k,2695) = - lu(k,1614) * lu(k,2694)
    7184   254840160 :          lu(k,2708) = - lu(k,1615) * lu(k,2694)
    7185   254840160 :          lu(k,2725) = lu(k,2725) - lu(k,1614) * lu(k,2721)
    7186   254840160 :          lu(k,2752) = - lu(k,1615) * lu(k,2721)
    7187   254840160 :          lu(k,2771) = lu(k,2771) - lu(k,1614) * lu(k,2767)
    7188   254840160 :          lu(k,2798) = - lu(k,1615) * lu(k,2767)
    7189   254840160 :          lu(k,2818) = lu(k,2818) - lu(k,1614) * lu(k,2814)
    7190   254840160 :          lu(k,2845) = - lu(k,1615) * lu(k,2814)
    7191   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1614) * lu(k,2865)
    7192   254840160 :          lu(k,2918) = - lu(k,1615) * lu(k,2865)
    7193   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1614) * lu(k,3051)
    7194   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1615) * lu(k,3051)
    7195   254840160 :          lu(k,3180) = lu(k,3180) - lu(k,1614) * lu(k,3178)
    7196   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,1615) * lu(k,3178)
    7197   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1614) * lu(k,3309)
    7198   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1615) * lu(k,3309)
    7199   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1614) * lu(k,3404)
    7200   254840160 :          lu(k,3460) = - lu(k,1615) * lu(k,3404)
    7201   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1614) * lu(k,3551)
    7202   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1615) * lu(k,3551)
    7203   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,1614) * lu(k,3640)
    7204   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,1615) * lu(k,3640)
    7205   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1614) * lu(k,3706)
    7206   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1615) * lu(k,3706)
    7207   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,1614) * lu(k,3829)
    7208   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,1615) * lu(k,3829)
    7209   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1614) * lu(k,4033)
    7210   263009123 :          lu(k,4090) = lu(k,4090) - lu(k,1615) * lu(k,4033)
    7211             :       end do
    7212     8168963 :       end subroutine lu_fac36
    7213     8168963 :       subroutine lu_fac37( avec_len, lu )
    7214             :       use chem_mods, only : nzcnt
    7215             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7216             :       implicit none
    7217             : !-----------------------------------------------------------------------
    7218             : ! ... dummy args
    7219             : !-----------------------------------------------------------------------
    7220             :       integer, intent(in) :: avec_len
    7221             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7222             : !-----------------------------------------------------------------------
    7223             : ! ... local variables
    7224             : !-----------------------------------------------------------------------
    7225             :       integer :: k
    7226   263009123 :       do k = 1,avec_len
    7227   254840160 :          lu(k,1620) = 1._r8 / lu(k,1620)
    7228   254840160 :          lu(k,1621) = lu(k,1621) * lu(k,1620)
    7229   254840160 :          lu(k,1622) = lu(k,1622) * lu(k,1620)
    7230   254840160 :          lu(k,1623) = lu(k,1623) * lu(k,1620)
    7231   254840160 :          lu(k,1624) = lu(k,1624) * lu(k,1620)
    7232   254840160 :          lu(k,1625) = lu(k,1625) * lu(k,1620)
    7233   254840160 :          lu(k,1626) = lu(k,1626) * lu(k,1620)
    7234   254840160 :          lu(k,1627) = lu(k,1627) * lu(k,1620)
    7235   254840160 :          lu(k,1628) = lu(k,1628) * lu(k,1620)
    7236   254840160 :          lu(k,1629) = lu(k,1629) * lu(k,1620)
    7237   254840160 :          lu(k,1630) = lu(k,1630) * lu(k,1620)
    7238   254840160 :          lu(k,1631) = lu(k,1631) * lu(k,1620)
    7239   254840160 :          lu(k,1632) = lu(k,1632) * lu(k,1620)
    7240   254840160 :          lu(k,1633) = lu(k,1633) * lu(k,1620)
    7241   254840160 :          lu(k,2013) = lu(k,2013) - lu(k,1621) * lu(k,2012)
    7242   254840160 :          lu(k,2017) = lu(k,2017) - lu(k,1622) * lu(k,2012)
    7243   254840160 :          lu(k,2019) = lu(k,2019) - lu(k,1623) * lu(k,2012)
    7244   254840160 :          lu(k,2021) = lu(k,2021) - lu(k,1624) * lu(k,2012)
    7245   254840160 :          lu(k,2022) = lu(k,2022) - lu(k,1625) * lu(k,2012)
    7246   254840160 :          lu(k,2023) = lu(k,2023) - lu(k,1626) * lu(k,2012)
    7247   254840160 :          lu(k,2024) = lu(k,2024) - lu(k,1627) * lu(k,2012)
    7248   254840160 :          lu(k,2025) = lu(k,2025) - lu(k,1628) * lu(k,2012)
    7249   254840160 :          lu(k,2026) = - lu(k,1629) * lu(k,2012)
    7250   254840160 :          lu(k,2027) = lu(k,2027) - lu(k,1630) * lu(k,2012)
    7251   254840160 :          lu(k,2028) = lu(k,2028) - lu(k,1631) * lu(k,2012)
    7252   254840160 :          lu(k,2029) = lu(k,2029) - lu(k,1632) * lu(k,2012)
    7253   254840160 :          lu(k,2030) = lu(k,2030) - lu(k,1633) * lu(k,2012)
    7254   254840160 :          lu(k,2873) = lu(k,2873) - lu(k,1621) * lu(k,2866)
    7255   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1622) * lu(k,2866)
    7256   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1623) * lu(k,2866)
    7257   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1624) * lu(k,2866)
    7258   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1625) * lu(k,2866)
    7259   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1626) * lu(k,2866)
    7260   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1627) * lu(k,2866)
    7261   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1628) * lu(k,2866)
    7262   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,1629) * lu(k,2866)
    7263   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1630) * lu(k,2866)
    7264   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,1631) * lu(k,2866)
    7265   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1632) * lu(k,2866)
    7266   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,1633) * lu(k,2866)
    7267   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1621) * lu(k,3052)
    7268   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1622) * lu(k,3052)
    7269   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1623) * lu(k,3052)
    7270   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1624) * lu(k,3052)
    7271   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1625) * lu(k,3052)
    7272   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1626) * lu(k,3052)
    7273   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1627) * lu(k,3052)
    7274   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1628) * lu(k,3052)
    7275   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,1629) * lu(k,3052)
    7276   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1630) * lu(k,3052)
    7277   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,1631) * lu(k,3052)
    7278   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1632) * lu(k,3052)
    7279   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1633) * lu(k,3052)
    7280   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1621) * lu(k,3310)
    7281   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1622) * lu(k,3310)
    7282   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1623) * lu(k,3310)
    7283   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1624) * lu(k,3310)
    7284   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1625) * lu(k,3310)
    7285   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1626) * lu(k,3310)
    7286   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1627) * lu(k,3310)
    7287   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1628) * lu(k,3310)
    7288   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,1629) * lu(k,3310)
    7289   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1630) * lu(k,3310)
    7290   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,1631) * lu(k,3310)
    7291   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1632) * lu(k,3310)
    7292   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1633) * lu(k,3310)
    7293   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1621) * lu(k,3405)
    7294   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1622) * lu(k,3405)
    7295   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1623) * lu(k,3405)
    7296   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1624) * lu(k,3405)
    7297   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1625) * lu(k,3405)
    7298   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1626) * lu(k,3405)
    7299   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1627) * lu(k,3405)
    7300   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1628) * lu(k,3405)
    7301   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,1629) * lu(k,3405)
    7302   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1630) * lu(k,3405)
    7303   254840160 :          lu(k,3468) = - lu(k,1631) * lu(k,3405)
    7304   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1632) * lu(k,3405)
    7305   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1633) * lu(k,3405)
    7306   254840160 :          lu(k,3559) = lu(k,3559) - lu(k,1621) * lu(k,3552)
    7307   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1622) * lu(k,3552)
    7308   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1623) * lu(k,3552)
    7309   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1624) * lu(k,3552)
    7310   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1625) * lu(k,3552)
    7311   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1626) * lu(k,3552)
    7312   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1627) * lu(k,3552)
    7313   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1628) * lu(k,3552)
    7314   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1629) * lu(k,3552)
    7315   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1630) * lu(k,3552)
    7316   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,1631) * lu(k,3552)
    7317   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1632) * lu(k,3552)
    7318   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1633) * lu(k,3552)
    7319   254840160 :          lu(k,3642) = lu(k,3642) - lu(k,1621) * lu(k,3641)
    7320   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,1622) * lu(k,3641)
    7321   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,1623) * lu(k,3641)
    7322   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,1624) * lu(k,3641)
    7323   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,1625) * lu(k,3641)
    7324   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,1626) * lu(k,3641)
    7325   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1627) * lu(k,3641)
    7326   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,1628) * lu(k,3641)
    7327   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,1629) * lu(k,3641)
    7328   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,1630) * lu(k,3641)
    7329   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,1631) * lu(k,3641)
    7330   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1632) * lu(k,3641)
    7331   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,1633) * lu(k,3641)
    7332   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1621) * lu(k,4034)
    7333   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1622) * lu(k,4034)
    7334   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1623) * lu(k,4034)
    7335   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1624) * lu(k,4034)
    7336   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1625) * lu(k,4034)
    7337   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1626) * lu(k,4034)
    7338   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1627) * lu(k,4034)
    7339   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1628) * lu(k,4034)
    7340   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1629) * lu(k,4034)
    7341   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1630) * lu(k,4034)
    7342   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,1631) * lu(k,4034)
    7343   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1632) * lu(k,4034)
    7344   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1633) * lu(k,4034)
    7345   254840160 :          lu(k,1640) = 1._r8 / lu(k,1640)
    7346   254840160 :          lu(k,1641) = lu(k,1641) * lu(k,1640)
    7347   254840160 :          lu(k,1642) = lu(k,1642) * lu(k,1640)
    7348   254840160 :          lu(k,1643) = lu(k,1643) * lu(k,1640)
    7349   254840160 :          lu(k,1644) = lu(k,1644) * lu(k,1640)
    7350   254840160 :          lu(k,1645) = lu(k,1645) * lu(k,1640)
    7351   254840160 :          lu(k,1646) = lu(k,1646) * lu(k,1640)
    7352   254840160 :          lu(k,1647) = lu(k,1647) * lu(k,1640)
    7353   254840160 :          lu(k,1648) = lu(k,1648) * lu(k,1640)
    7354   254840160 :          lu(k,1649) = lu(k,1649) * lu(k,1640)
    7355   254840160 :          lu(k,1650) = lu(k,1650) * lu(k,1640)
    7356   254840160 :          lu(k,1651) = lu(k,1651) * lu(k,1640)
    7357   254840160 :          lu(k,1652) = lu(k,1652) * lu(k,1640)
    7358   254840160 :          lu(k,1653) = lu(k,1653) * lu(k,1640)
    7359   254840160 :          lu(k,1654) = lu(k,1654) * lu(k,1640)
    7360   254840160 :          lu(k,1655) = lu(k,1655) * lu(k,1640)
    7361   254840160 :          lu(k,2132) = - lu(k,1641) * lu(k,2131)
    7362   254840160 :          lu(k,2133) = lu(k,2133) - lu(k,1642) * lu(k,2131)
    7363   254840160 :          lu(k,2134) = lu(k,2134) - lu(k,1643) * lu(k,2131)
    7364   254840160 :          lu(k,2135) = - lu(k,1644) * lu(k,2131)
    7365   254840160 :          lu(k,2137) = lu(k,2137) - lu(k,1645) * lu(k,2131)
    7366   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1646) * lu(k,2131)
    7367   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1647) * lu(k,2131)
    7368   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1648) * lu(k,2131)
    7369   254840160 :          lu(k,2142) = lu(k,2142) - lu(k,1649) * lu(k,2131)
    7370   254840160 :          lu(k,2143) = - lu(k,1650) * lu(k,2131)
    7371   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,1651) * lu(k,2131)
    7372   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1652) * lu(k,2131)
    7373   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1653) * lu(k,2131)
    7374   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1654) * lu(k,2131)
    7375   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1655) * lu(k,2131)
    7376   254840160 :          lu(k,2168) = lu(k,2168) - lu(k,1641) * lu(k,2166)
    7377   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1642) * lu(k,2166)
    7378   254840160 :          lu(k,2170) = lu(k,2170) - lu(k,1643) * lu(k,2166)
    7379   254840160 :          lu(k,2171) = lu(k,2171) - lu(k,1644) * lu(k,2166)
    7380   254840160 :          lu(k,2172) = lu(k,2172) - lu(k,1645) * lu(k,2166)
    7381   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1646) * lu(k,2166)
    7382   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1647) * lu(k,2166)
    7383   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1648) * lu(k,2166)
    7384   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,1649) * lu(k,2166)
    7385   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,1650) * lu(k,2166)
    7386   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,1651) * lu(k,2166)
    7387   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1652) * lu(k,2166)
    7388   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1653) * lu(k,2166)
    7389   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1654) * lu(k,2166)
    7390   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1655) * lu(k,2166)
    7391   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1641) * lu(k,3053)
    7392   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1642) * lu(k,3053)
    7393   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1643) * lu(k,3053)
    7394   254840160 :          lu(k,3063) = lu(k,3063) - lu(k,1644) * lu(k,3053)
    7395   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1645) * lu(k,3053)
    7396   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1646) * lu(k,3053)
    7397   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1647) * lu(k,3053)
    7398   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1648) * lu(k,3053)
    7399   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1649) * lu(k,3053)
    7400   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1650) * lu(k,3053)
    7401   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1651) * lu(k,3053)
    7402   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1652) * lu(k,3053)
    7403   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1653) * lu(k,3053)
    7404   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1654) * lu(k,3053)
    7405   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1655) * lu(k,3053)
    7406   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1641) * lu(k,3311)
    7407   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1642) * lu(k,3311)
    7408   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1643) * lu(k,3311)
    7409   254840160 :          lu(k,3322) = lu(k,3322) - lu(k,1644) * lu(k,3311)
    7410   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1645) * lu(k,3311)
    7411   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1646) * lu(k,3311)
    7412   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1647) * lu(k,3311)
    7413   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1648) * lu(k,3311)
    7414   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1649) * lu(k,3311)
    7415   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1650) * lu(k,3311)
    7416   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1651) * lu(k,3311)
    7417   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1652) * lu(k,3311)
    7418   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1653) * lu(k,3311)
    7419   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1654) * lu(k,3311)
    7420   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1655) * lu(k,3311)
    7421   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,1641) * lu(k,3406)
    7422   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1642) * lu(k,3406)
    7423   254840160 :          lu(k,3415) = lu(k,3415) - lu(k,1643) * lu(k,3406)
    7424   254840160 :          lu(k,3416) = lu(k,3416) - lu(k,1644) * lu(k,3406)
    7425   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1645) * lu(k,3406)
    7426   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1646) * lu(k,3406)
    7427   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1647) * lu(k,3406)
    7428   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1648) * lu(k,3406)
    7429   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1649) * lu(k,3406)
    7430   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1650) * lu(k,3406)
    7431   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1651) * lu(k,3406)
    7432   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1652) * lu(k,3406)
    7433   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1653) * lu(k,3406)
    7434   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1654) * lu(k,3406)
    7435   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1655) * lu(k,3406)
    7436   254840160 :          lu(k,3709) = lu(k,3709) - lu(k,1641) * lu(k,3707)
    7437   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,1642) * lu(k,3707)
    7438   254840160 :          lu(k,3714) = lu(k,3714) - lu(k,1643) * lu(k,3707)
    7439   254840160 :          lu(k,3715) = lu(k,3715) - lu(k,1644) * lu(k,3707)
    7440   254840160 :          lu(k,3720) = lu(k,3720) - lu(k,1645) * lu(k,3707)
    7441   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1646) * lu(k,3707)
    7442   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1647) * lu(k,3707)
    7443   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1648) * lu(k,3707)
    7444   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1649) * lu(k,3707)
    7445   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1650) * lu(k,3707)
    7446   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1651) * lu(k,3707)
    7447   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1652) * lu(k,3707)
    7448   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1653) * lu(k,3707)
    7449   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1654) * lu(k,3707)
    7450   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1655) * lu(k,3707)
    7451   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1641) * lu(k,4035)
    7452   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1642) * lu(k,4035)
    7453   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1643) * lu(k,4035)
    7454   254840160 :          lu(k,4046) = lu(k,4046) - lu(k,1644) * lu(k,4035)
    7455   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1645) * lu(k,4035)
    7456   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1646) * lu(k,4035)
    7457   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1647) * lu(k,4035)
    7458   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1648) * lu(k,4035)
    7459   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1649) * lu(k,4035)
    7460   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1650) * lu(k,4035)
    7461   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1651) * lu(k,4035)
    7462   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1652) * lu(k,4035)
    7463   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1653) * lu(k,4035)
    7464   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1654) * lu(k,4035)
    7465   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1655) * lu(k,4035)
    7466   254840160 :          lu(k,1659) = 1._r8 / lu(k,1659)
    7467   254840160 :          lu(k,1660) = lu(k,1660) * lu(k,1659)
    7468   254840160 :          lu(k,1661) = lu(k,1661) * lu(k,1659)
    7469   254840160 :          lu(k,1662) = lu(k,1662) * lu(k,1659)
    7470   254840160 :          lu(k,1663) = lu(k,1663) * lu(k,1659)
    7471   254840160 :          lu(k,1664) = lu(k,1664) * lu(k,1659)
    7472   254840160 :          lu(k,1665) = lu(k,1665) * lu(k,1659)
    7473   254840160 :          lu(k,1666) = lu(k,1666) * lu(k,1659)
    7474   254840160 :          lu(k,1667) = lu(k,1667) * lu(k,1659)
    7475   254840160 :          lu(k,1668) = lu(k,1668) * lu(k,1659)
    7476   254840160 :          lu(k,1669) = lu(k,1669) * lu(k,1659)
    7477   254840160 :          lu(k,1670) = lu(k,1670) * lu(k,1659)
    7478   254840160 :          lu(k,1943) = lu(k,1943) - lu(k,1660) * lu(k,1942)
    7479   254840160 :          lu(k,1945) = lu(k,1945) - lu(k,1661) * lu(k,1942)
    7480   254840160 :          lu(k,1946) = lu(k,1946) - lu(k,1662) * lu(k,1942)
    7481   254840160 :          lu(k,1951) = - lu(k,1663) * lu(k,1942)
    7482   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1664) * lu(k,1942)
    7483   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1665) * lu(k,1942)
    7484   254840160 :          lu(k,1960) = lu(k,1960) - lu(k,1666) * lu(k,1942)
    7485   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1667) * lu(k,1942)
    7486   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1668) * lu(k,1942)
    7487   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1669) * lu(k,1942)
    7488   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1670) * lu(k,1942)
    7489   254840160 :          lu(k,1980) = lu(k,1980) - lu(k,1660) * lu(k,1979)
    7490   254840160 :          lu(k,1982) = lu(k,1982) - lu(k,1661) * lu(k,1979)
    7491   254840160 :          lu(k,1983) = - lu(k,1662) * lu(k,1979)
    7492   254840160 :          lu(k,1988) = lu(k,1988) - lu(k,1663) * lu(k,1979)
    7493   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1664) * lu(k,1979)
    7494   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1665) * lu(k,1979)
    7495   254840160 :          lu(k,1999) = - lu(k,1666) * lu(k,1979)
    7496   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1667) * lu(k,1979)
    7497   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1668) * lu(k,1979)
    7498   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1669) * lu(k,1979)
    7499   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1670) * lu(k,1979)
    7500   254840160 :          lu(k,2070) = lu(k,2070) - lu(k,1660) * lu(k,2069)
    7501   254840160 :          lu(k,2071) = lu(k,2071) - lu(k,1661) * lu(k,2069)
    7502   254840160 :          lu(k,2072) = lu(k,2072) - lu(k,1662) * lu(k,2069)
    7503   254840160 :          lu(k,2075) = - lu(k,1663) * lu(k,2069)
    7504   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1664) * lu(k,2069)
    7505   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1665) * lu(k,2069)
    7506   254840160 :          lu(k,2081) = lu(k,2081) - lu(k,1666) * lu(k,2069)
    7507   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,1667) * lu(k,2069)
    7508   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1668) * lu(k,2069)
    7509   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1669) * lu(k,2069)
    7510   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1670) * lu(k,2069)
    7511   254840160 :          lu(k,2102) = lu(k,2102) - lu(k,1660) * lu(k,2101)
    7512   254840160 :          lu(k,2103) = lu(k,2103) - lu(k,1661) * lu(k,2101)
    7513   254840160 :          lu(k,2104) = - lu(k,1662) * lu(k,2101)
    7514   254840160 :          lu(k,2107) = lu(k,2107) - lu(k,1663) * lu(k,2101)
    7515   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1664) * lu(k,2101)
    7516   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1665) * lu(k,2101)
    7517   254840160 :          lu(k,2113) = lu(k,2113) - lu(k,1666) * lu(k,2101)
    7518   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,1667) * lu(k,2101)
    7519   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1668) * lu(k,2101)
    7520   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1669) * lu(k,2101)
    7521   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1670) * lu(k,2101)
    7522   254840160 :          lu(k,2168) = lu(k,2168) - lu(k,1660) * lu(k,2167)
    7523   254840160 :          lu(k,2169) = lu(k,2169) - lu(k,1661) * lu(k,2167)
    7524   254840160 :          lu(k,2170) = lu(k,2170) - lu(k,1662) * lu(k,2167)
    7525   254840160 :          lu(k,2172) = lu(k,2172) - lu(k,1663) * lu(k,2167)
    7526   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1664) * lu(k,2167)
    7527   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1665) * lu(k,2167)
    7528   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,1666) * lu(k,2167)
    7529   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,1667) * lu(k,2167)
    7530   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1668) * lu(k,2167)
    7531   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1669) * lu(k,2167)
    7532   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1670) * lu(k,2167)
    7533   254840160 :          lu(k,3057) = lu(k,3057) - lu(k,1660) * lu(k,3054)
    7534   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1661) * lu(k,3054)
    7535   254840160 :          lu(k,3062) = lu(k,3062) - lu(k,1662) * lu(k,3054)
    7536   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1663) * lu(k,3054)
    7537   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1664) * lu(k,3054)
    7538   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1665) * lu(k,3054)
    7539   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1666) * lu(k,3054)
    7540   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1667) * lu(k,3054)
    7541   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1668) * lu(k,3054)
    7542   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1669) * lu(k,3054)
    7543   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1670) * lu(k,3054)
    7544   254840160 :          lu(k,3316) = lu(k,3316) - lu(k,1660) * lu(k,3312)
    7545   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1661) * lu(k,3312)
    7546   254840160 :          lu(k,3321) = lu(k,3321) - lu(k,1662) * lu(k,3312)
    7547   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1663) * lu(k,3312)
    7548   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1664) * lu(k,3312)
    7549   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1665) * lu(k,3312)
    7550   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1666) * lu(k,3312)
    7551   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1667) * lu(k,3312)
    7552   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1668) * lu(k,3312)
    7553   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1669) * lu(k,3312)
    7554   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1670) * lu(k,3312)
    7555   254840160 :          lu(k,3410) = lu(k,3410) - lu(k,1660) * lu(k,3407)
    7556   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1661) * lu(k,3407)
    7557   254840160 :          lu(k,3415) = lu(k,3415) - lu(k,1662) * lu(k,3407)
    7558   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1663) * lu(k,3407)
    7559   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1664) * lu(k,3407)
    7560   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1665) * lu(k,3407)
    7561   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1666) * lu(k,3407)
    7562   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1667) * lu(k,3407)
    7563   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1668) * lu(k,3407)
    7564   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1669) * lu(k,3407)
    7565   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1670) * lu(k,3407)
    7566   254840160 :          lu(k,3709) = lu(k,3709) - lu(k,1660) * lu(k,3708)
    7567   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,1661) * lu(k,3708)
    7568   254840160 :          lu(k,3714) = lu(k,3714) - lu(k,1662) * lu(k,3708)
    7569   254840160 :          lu(k,3720) = lu(k,3720) - lu(k,1663) * lu(k,3708)
    7570   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1664) * lu(k,3708)
    7571   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1665) * lu(k,3708)
    7572   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1666) * lu(k,3708)
    7573   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1667) * lu(k,3708)
    7574   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1668) * lu(k,3708)
    7575   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1669) * lu(k,3708)
    7576   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1670) * lu(k,3708)
    7577   254840160 :          lu(k,4040) = lu(k,4040) - lu(k,1660) * lu(k,4036)
    7578   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1661) * lu(k,4036)
    7579   254840160 :          lu(k,4045) = lu(k,4045) - lu(k,1662) * lu(k,4036)
    7580   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1663) * lu(k,4036)
    7581   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1664) * lu(k,4036)
    7582   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1665) * lu(k,4036)
    7583   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1666) * lu(k,4036)
    7584   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1667) * lu(k,4036)
    7585   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1668) * lu(k,4036)
    7586   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1669) * lu(k,4036)
    7587   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1670) * lu(k,4036)
    7588             :       end do
    7589     8168963 :       end subroutine lu_fac37
    7590     8168963 :       subroutine lu_fac38( avec_len, lu )
    7591             :       use chem_mods, only : nzcnt
    7592             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7593             :       implicit none
    7594             : !-----------------------------------------------------------------------
    7595             : ! ... dummy args
    7596             : !-----------------------------------------------------------------------
    7597             :       integer, intent(in) :: avec_len
    7598             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7599             : !-----------------------------------------------------------------------
    7600             : ! ... local variables
    7601             : !-----------------------------------------------------------------------
    7602             :       integer :: k
    7603   263009123 :       do k = 1,avec_len
    7604   254840160 :          lu(k,1673) = 1._r8 / lu(k,1673)
    7605   254840160 :          lu(k,1674) = lu(k,1674) * lu(k,1673)
    7606   254840160 :          lu(k,1675) = lu(k,1675) * lu(k,1673)
    7607   254840160 :          lu(k,1676) = lu(k,1676) * lu(k,1673)
    7608   254840160 :          lu(k,1677) = lu(k,1677) * lu(k,1673)
    7609   254840160 :          lu(k,1678) = lu(k,1678) * lu(k,1673)
    7610   254840160 :          lu(k,1679) = lu(k,1679) * lu(k,1673)
    7611   254840160 :          lu(k,1680) = lu(k,1680) * lu(k,1673)
    7612   254840160 :          lu(k,1681) = lu(k,1681) * lu(k,1673)
    7613   254840160 :          lu(k,1682) = lu(k,1682) * lu(k,1673)
    7614   254840160 :          lu(k,1683) = lu(k,1683) * lu(k,1673)
    7615   254840160 :          lu(k,1684) = lu(k,1684) * lu(k,1673)
    7616   254840160 :          lu(k,2259) = lu(k,2259) - lu(k,1674) * lu(k,2257)
    7617   254840160 :          lu(k,2260) = lu(k,2260) - lu(k,1675) * lu(k,2257)
    7618   254840160 :          lu(k,2261) = lu(k,2261) - lu(k,1676) * lu(k,2257)
    7619   254840160 :          lu(k,2262) = lu(k,2262) - lu(k,1677) * lu(k,2257)
    7620   254840160 :          lu(k,2263) = lu(k,2263) - lu(k,1678) * lu(k,2257)
    7621   254840160 :          lu(k,2266) = lu(k,2266) - lu(k,1679) * lu(k,2257)
    7622   254840160 :          lu(k,2267) = lu(k,2267) - lu(k,1680) * lu(k,2257)
    7623   254840160 :          lu(k,2268) = lu(k,2268) - lu(k,1681) * lu(k,2257)
    7624   254840160 :          lu(k,2269) = lu(k,2269) - lu(k,1682) * lu(k,2257)
    7625   254840160 :          lu(k,2270) = lu(k,2270) - lu(k,1683) * lu(k,2257)
    7626   254840160 :          lu(k,2271) = lu(k,2271) - lu(k,1684) * lu(k,2257)
    7627   254840160 :          lu(k,2930) = - lu(k,1674) * lu(k,2929)
    7628   254840160 :          lu(k,2931) = lu(k,2931) - lu(k,1675) * lu(k,2929)
    7629   254840160 :          lu(k,2932) = - lu(k,1676) * lu(k,2929)
    7630   254840160 :          lu(k,2933) = - lu(k,1677) * lu(k,2929)
    7631   254840160 :          lu(k,2934) = lu(k,2934) - lu(k,1678) * lu(k,2929)
    7632   254840160 :          lu(k,2937) = - lu(k,1679) * lu(k,2929)
    7633   254840160 :          lu(k,2938) = - lu(k,1680) * lu(k,2929)
    7634   254840160 :          lu(k,2940) = - lu(k,1681) * lu(k,2929)
    7635   254840160 :          lu(k,2941) = - lu(k,1682) * lu(k,2929)
    7636   254840160 :          lu(k,2942) = lu(k,2942) - lu(k,1683) * lu(k,2929)
    7637   254840160 :          lu(k,2943) = lu(k,2943) - lu(k,1684) * lu(k,2929)
    7638   254840160 :          lu(k,2947) = lu(k,2947) - lu(k,1674) * lu(k,2946)
    7639   254840160 :          lu(k,2948) = lu(k,2948) - lu(k,1675) * lu(k,2946)
    7640   254840160 :          lu(k,2949) = lu(k,2949) - lu(k,1676) * lu(k,2946)
    7641   254840160 :          lu(k,2950) = - lu(k,1677) * lu(k,2946)
    7642   254840160 :          lu(k,2951) = - lu(k,1678) * lu(k,2946)
    7643   254840160 :          lu(k,2954) = lu(k,2954) - lu(k,1679) * lu(k,2946)
    7644   254840160 :          lu(k,2955) = lu(k,2955) - lu(k,1680) * lu(k,2946)
    7645   254840160 :          lu(k,2958) = - lu(k,1681) * lu(k,2946)
    7646   254840160 :          lu(k,2959) = - lu(k,1682) * lu(k,2946)
    7647   254840160 :          lu(k,2960) = lu(k,2960) - lu(k,1683) * lu(k,2946)
    7648   254840160 :          lu(k,2961) = lu(k,2961) - lu(k,1684) * lu(k,2946)
    7649   254840160 :          lu(k,3156) = - lu(k,1674) * lu(k,3153)
    7650   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,1675) * lu(k,3153)
    7651   254840160 :          lu(k,3158) = lu(k,3158) - lu(k,1676) * lu(k,3153)
    7652   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,1677) * lu(k,3153)
    7653   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,1678) * lu(k,3153)
    7654   254840160 :          lu(k,3164) = - lu(k,1679) * lu(k,3153)
    7655   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,1680) * lu(k,3153)
    7656   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,1681) * lu(k,3153)
    7657   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,1682) * lu(k,3153)
    7658   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,1683) * lu(k,3153)
    7659   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,1684) * lu(k,3153)
    7660   254840160 :          lu(k,3182) = - lu(k,1674) * lu(k,3179)
    7661   254840160 :          lu(k,3183) = lu(k,3183) - lu(k,1675) * lu(k,3179)
    7662   254840160 :          lu(k,3184) = lu(k,3184) - lu(k,1676) * lu(k,3179)
    7663   254840160 :          lu(k,3186) = lu(k,3186) - lu(k,1677) * lu(k,3179)
    7664   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,1678) * lu(k,3179)
    7665   254840160 :          lu(k,3190) = - lu(k,1679) * lu(k,3179)
    7666   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,1680) * lu(k,3179)
    7667   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,1681) * lu(k,3179)
    7668   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,1682) * lu(k,3179)
    7669   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,1683) * lu(k,3179)
    7670   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,1684) * lu(k,3179)
    7671   254840160 :          lu(k,3341) = - lu(k,1674) * lu(k,3313)
    7672   254840160 :          lu(k,3363) = lu(k,3363) - lu(k,1675) * lu(k,3313)
    7673   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1676) * lu(k,3313)
    7674   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,1677) * lu(k,3313)
    7675   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1678) * lu(k,3313)
    7676   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1679) * lu(k,3313)
    7677   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,1680) * lu(k,3313)
    7678   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,1681) * lu(k,3313)
    7679   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,1682) * lu(k,3313)
    7680   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1683) * lu(k,3313)
    7681   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1684) * lu(k,3313)
    7682   254840160 :          lu(k,3794) = lu(k,3794) - lu(k,1674) * lu(k,3792)
    7683   254840160 :          lu(k,3795) = lu(k,3795) - lu(k,1675) * lu(k,3792)
    7684   254840160 :          lu(k,3796) = lu(k,3796) - lu(k,1676) * lu(k,3792)
    7685   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,1677) * lu(k,3792)
    7686   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,1678) * lu(k,3792)
    7687   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,1679) * lu(k,3792)
    7688   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,1680) * lu(k,3792)
    7689   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,1681) * lu(k,3792)
    7690   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,1682) * lu(k,3792)
    7691   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,1683) * lu(k,3792)
    7692   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,1684) * lu(k,3792)
    7693   254840160 :          lu(k,3834) = lu(k,3834) - lu(k,1674) * lu(k,3830)
    7694   254840160 :          lu(k,3836) = lu(k,3836) - lu(k,1675) * lu(k,3830)
    7695   254840160 :          lu(k,3837) = lu(k,3837) - lu(k,1676) * lu(k,3830)
    7696   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,1677) * lu(k,3830)
    7697   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,1678) * lu(k,3830)
    7698   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,1679) * lu(k,3830)
    7699   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,1680) * lu(k,3830)
    7700   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,1681) * lu(k,3830)
    7701   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,1682) * lu(k,3830)
    7702   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1683) * lu(k,3830)
    7703   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,1684) * lu(k,3830)
    7704   254840160 :          lu(k,4064) = lu(k,4064) - lu(k,1674) * lu(k,4037)
    7705   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,1675) * lu(k,4037)
    7706   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1676) * lu(k,4037)
    7707   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,1677) * lu(k,4037)
    7708   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1678) * lu(k,4037)
    7709   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1679) * lu(k,4037)
    7710   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1680) * lu(k,4037)
    7711   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,1681) * lu(k,4037)
    7712   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,1682) * lu(k,4037)
    7713   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1683) * lu(k,4037)
    7714   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1684) * lu(k,4037)
    7715   254840160 :          lu(k,4111) = lu(k,4111) - lu(k,1674) * lu(k,4109)
    7716   254840160 :          lu(k,4112) = lu(k,4112) - lu(k,1675) * lu(k,4109)
    7717   254840160 :          lu(k,4113) = lu(k,4113) - lu(k,1676) * lu(k,4109)
    7718   254840160 :          lu(k,4115) = - lu(k,1677) * lu(k,4109)
    7719   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,1678) * lu(k,4109)
    7720   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,1679) * lu(k,4109)
    7721   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,1680) * lu(k,4109)
    7722   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,1681) * lu(k,4109)
    7723   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,1682) * lu(k,4109)
    7724   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,1683) * lu(k,4109)
    7725   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,1684) * lu(k,4109)
    7726   254840160 :          lu(k,1689) = 1._r8 / lu(k,1689)
    7727   254840160 :          lu(k,1690) = lu(k,1690) * lu(k,1689)
    7728   254840160 :          lu(k,1691) = lu(k,1691) * lu(k,1689)
    7729   254840160 :          lu(k,1692) = lu(k,1692) * lu(k,1689)
    7730   254840160 :          lu(k,1693) = lu(k,1693) * lu(k,1689)
    7731   254840160 :          lu(k,1694) = lu(k,1694) * lu(k,1689)
    7732   254840160 :          lu(k,1695) = lu(k,1695) * lu(k,1689)
    7733   254840160 :          lu(k,1696) = lu(k,1696) * lu(k,1689)
    7734   254840160 :          lu(k,2340) = - lu(k,1690) * lu(k,2335)
    7735   254840160 :          lu(k,2341) = lu(k,2341) - lu(k,1691) * lu(k,2335)
    7736   254840160 :          lu(k,2349) = - lu(k,1692) * lu(k,2335)
    7737   254840160 :          lu(k,2350) = lu(k,2350) - lu(k,1693) * lu(k,2335)
    7738   254840160 :          lu(k,2353) = lu(k,2353) - lu(k,1694) * lu(k,2335)
    7739   254840160 :          lu(k,2356) = lu(k,2356) - lu(k,1695) * lu(k,2335)
    7740   254840160 :          lu(k,2357) = lu(k,2357) - lu(k,1696) * lu(k,2335)
    7741   254840160 :          lu(k,2379) = lu(k,2379) - lu(k,1690) * lu(k,2373)
    7742   254840160 :          lu(k,2381) = lu(k,2381) - lu(k,1691) * lu(k,2373)
    7743   254840160 :          lu(k,2389) = lu(k,2389) - lu(k,1692) * lu(k,2373)
    7744   254840160 :          lu(k,2390) = lu(k,2390) - lu(k,1693) * lu(k,2373)
    7745   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,1694) * lu(k,2373)
    7746   254840160 :          lu(k,2396) = lu(k,2396) - lu(k,1695) * lu(k,2373)
    7747   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,1696) * lu(k,2373)
    7748   254840160 :          lu(k,2440) = lu(k,2440) - lu(k,1690) * lu(k,2434)
    7749   254840160 :          lu(k,2442) = lu(k,2442) - lu(k,1691) * lu(k,2434)
    7750   254840160 :          lu(k,2450) = lu(k,2450) - lu(k,1692) * lu(k,2434)
    7751   254840160 :          lu(k,2451) = lu(k,2451) - lu(k,1693) * lu(k,2434)
    7752   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,1694) * lu(k,2434)
    7753   254840160 :          lu(k,2457) = lu(k,2457) - lu(k,1695) * lu(k,2434)
    7754   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1696) * lu(k,2434)
    7755   254840160 :          lu(k,2470) = lu(k,2470) - lu(k,1690) * lu(k,2465)
    7756   254840160 :          lu(k,2473) = - lu(k,1691) * lu(k,2465)
    7757   254840160 :          lu(k,2481) = - lu(k,1692) * lu(k,2465)
    7758   254840160 :          lu(k,2482) = lu(k,2482) - lu(k,1693) * lu(k,2465)
    7759   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,1694) * lu(k,2465)
    7760   254840160 :          lu(k,2488) = lu(k,2488) - lu(k,1695) * lu(k,2465)
    7761   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,1696) * lu(k,2465)
    7762   254840160 :          lu(k,2504) = lu(k,2504) - lu(k,1690) * lu(k,2501)
    7763   254840160 :          lu(k,2507) = lu(k,2507) - lu(k,1691) * lu(k,2501)
    7764   254840160 :          lu(k,2515) = lu(k,2515) - lu(k,1692) * lu(k,2501)
    7765   254840160 :          lu(k,2516) = lu(k,2516) - lu(k,1693) * lu(k,2501)
    7766   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1694) * lu(k,2501)
    7767   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1695) * lu(k,2501)
    7768   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1696) * lu(k,2501)
    7769   254840160 :          lu(k,2568) = lu(k,2568) - lu(k,1690) * lu(k,2564)
    7770   254840160 :          lu(k,2572) = lu(k,2572) - lu(k,1691) * lu(k,2564)
    7771   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,1692) * lu(k,2564)
    7772   254840160 :          lu(k,2581) = lu(k,2581) - lu(k,1693) * lu(k,2564)
    7773   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1694) * lu(k,2564)
    7774   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1695) * lu(k,2564)
    7775   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1696) * lu(k,2564)
    7776   254840160 :          lu(k,2599) = - lu(k,1690) * lu(k,2595)
    7777   254840160 :          lu(k,2601) = lu(k,2601) - lu(k,1691) * lu(k,2595)
    7778   254840160 :          lu(k,2607) = - lu(k,1692) * lu(k,2595)
    7779   254840160 :          lu(k,2608) = lu(k,2608) - lu(k,1693) * lu(k,2595)
    7780   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,1694) * lu(k,2595)
    7781   254840160 :          lu(k,2614) = lu(k,2614) - lu(k,1695) * lu(k,2595)
    7782   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,1696) * lu(k,2595)
    7783   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,1690) * lu(k,2722)
    7784   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,1691) * lu(k,2722)
    7785   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,1692) * lu(k,2722)
    7786   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,1693) * lu(k,2722)
    7787   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,1694) * lu(k,2722)
    7788   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,1695) * lu(k,2722)
    7789   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,1696) * lu(k,2722)
    7790   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,1690) * lu(k,2768)
    7791   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,1691) * lu(k,2768)
    7792   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,1692) * lu(k,2768)
    7793   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,1693) * lu(k,2768)
    7794   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,1694) * lu(k,2768)
    7795   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,1695) * lu(k,2768)
    7796   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,1696) * lu(k,2768)
    7797   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,1690) * lu(k,2815)
    7798   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,1691) * lu(k,2815)
    7799   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,1692) * lu(k,2815)
    7800   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,1693) * lu(k,2815)
    7801   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,1694) * lu(k,2815)
    7802   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,1695) * lu(k,2815)
    7803   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1696) * lu(k,2815)
    7804   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,1690) * lu(k,2867)
    7805   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,1691) * lu(k,2867)
    7806   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1692) * lu(k,2867)
    7807   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1693) * lu(k,2867)
    7808   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1694) * lu(k,2867)
    7809   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1695) * lu(k,2867)
    7810   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1696) * lu(k,2867)
    7811   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1690) * lu(k,3055)
    7812   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,1691) * lu(k,3055)
    7813   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1692) * lu(k,3055)
    7814   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1693) * lu(k,3055)
    7815   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1694) * lu(k,3055)
    7816   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1695) * lu(k,3055)
    7817   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1696) * lu(k,3055)
    7818   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1690) * lu(k,3314)
    7819   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,1691) * lu(k,3314)
    7820   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1692) * lu(k,3314)
    7821   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1693) * lu(k,3314)
    7822   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1694) * lu(k,3314)
    7823   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1695) * lu(k,3314)
    7824   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1696) * lu(k,3314)
    7825   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,1690) * lu(k,3408)
    7826   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,1691) * lu(k,3408)
    7827   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1692) * lu(k,3408)
    7828   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1693) * lu(k,3408)
    7829   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1694) * lu(k,3408)
    7830   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1695) * lu(k,3408)
    7831   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1696) * lu(k,3408)
    7832   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,1690) * lu(k,3553)
    7833   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,1691) * lu(k,3553)
    7834   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1692) * lu(k,3553)
    7835   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1693) * lu(k,3553)
    7836   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1694) * lu(k,3553)
    7837   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1695) * lu(k,3553)
    7838   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1696) * lu(k,3553)
    7839   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1690) * lu(k,4038)
    7840   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,1691) * lu(k,4038)
    7841   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1692) * lu(k,4038)
    7842   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1693) * lu(k,4038)
    7843   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1694) * lu(k,4038)
    7844   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1695) * lu(k,4038)
    7845   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1696) * lu(k,4038)
    7846   254840160 :          lu(k,1702) = 1._r8 / lu(k,1702)
    7847   254840160 :          lu(k,1703) = lu(k,1703) * lu(k,1702)
    7848   254840160 :          lu(k,1704) = lu(k,1704) * lu(k,1702)
    7849   254840160 :          lu(k,1705) = lu(k,1705) * lu(k,1702)
    7850   254840160 :          lu(k,1706) = lu(k,1706) * lu(k,1702)
    7851   254840160 :          lu(k,1707) = lu(k,1707) * lu(k,1702)
    7852   254840160 :          lu(k,1708) = lu(k,1708) * lu(k,1702)
    7853   254840160 :          lu(k,1709) = lu(k,1709) * lu(k,1702)
    7854   254840160 :          lu(k,2340) = lu(k,2340) - lu(k,1703) * lu(k,2336)
    7855   254840160 :          lu(k,2341) = lu(k,2341) - lu(k,1704) * lu(k,2336)
    7856   254840160 :          lu(k,2349) = lu(k,2349) - lu(k,1705) * lu(k,2336)
    7857   254840160 :          lu(k,2350) = lu(k,2350) - lu(k,1706) * lu(k,2336)
    7858   254840160 :          lu(k,2353) = lu(k,2353) - lu(k,1707) * lu(k,2336)
    7859   254840160 :          lu(k,2356) = lu(k,2356) - lu(k,1708) * lu(k,2336)
    7860   254840160 :          lu(k,2357) = lu(k,2357) - lu(k,1709) * lu(k,2336)
    7861   254840160 :          lu(k,2379) = lu(k,2379) - lu(k,1703) * lu(k,2374)
    7862   254840160 :          lu(k,2381) = lu(k,2381) - lu(k,1704) * lu(k,2374)
    7863   254840160 :          lu(k,2389) = lu(k,2389) - lu(k,1705) * lu(k,2374)
    7864   254840160 :          lu(k,2390) = lu(k,2390) - lu(k,1706) * lu(k,2374)
    7865   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,1707) * lu(k,2374)
    7866   254840160 :          lu(k,2396) = lu(k,2396) - lu(k,1708) * lu(k,2374)
    7867   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,1709) * lu(k,2374)
    7868   254840160 :          lu(k,2440) = lu(k,2440) - lu(k,1703) * lu(k,2435)
    7869   254840160 :          lu(k,2442) = lu(k,2442) - lu(k,1704) * lu(k,2435)
    7870   254840160 :          lu(k,2450) = lu(k,2450) - lu(k,1705) * lu(k,2435)
    7871   254840160 :          lu(k,2451) = lu(k,2451) - lu(k,1706) * lu(k,2435)
    7872   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,1707) * lu(k,2435)
    7873   254840160 :          lu(k,2457) = lu(k,2457) - lu(k,1708) * lu(k,2435)
    7874   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1709) * lu(k,2435)
    7875   254840160 :          lu(k,2470) = lu(k,2470) - lu(k,1703) * lu(k,2466)
    7876   254840160 :          lu(k,2473) = lu(k,2473) - lu(k,1704) * lu(k,2466)
    7877   254840160 :          lu(k,2481) = lu(k,2481) - lu(k,1705) * lu(k,2466)
    7878   254840160 :          lu(k,2482) = lu(k,2482) - lu(k,1706) * lu(k,2466)
    7879   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,1707) * lu(k,2466)
    7880   254840160 :          lu(k,2488) = lu(k,2488) - lu(k,1708) * lu(k,2466)
    7881   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,1709) * lu(k,2466)
    7882   254840160 :          lu(k,2504) = lu(k,2504) - lu(k,1703) * lu(k,2502)
    7883   254840160 :          lu(k,2507) = lu(k,2507) - lu(k,1704) * lu(k,2502)
    7884   254840160 :          lu(k,2515) = lu(k,2515) - lu(k,1705) * lu(k,2502)
    7885   254840160 :          lu(k,2516) = lu(k,2516) - lu(k,1706) * lu(k,2502)
    7886   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,1707) * lu(k,2502)
    7887   254840160 :          lu(k,2522) = lu(k,2522) - lu(k,1708) * lu(k,2502)
    7888   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,1709) * lu(k,2502)
    7889   254840160 :          lu(k,2568) = lu(k,2568) - lu(k,1703) * lu(k,2565)
    7890   254840160 :          lu(k,2572) = lu(k,2572) - lu(k,1704) * lu(k,2565)
    7891   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,1705) * lu(k,2565)
    7892   254840160 :          lu(k,2581) = lu(k,2581) - lu(k,1706) * lu(k,2565)
    7893   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,1707) * lu(k,2565)
    7894   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,1708) * lu(k,2565)
    7895   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,1709) * lu(k,2565)
    7896   254840160 :          lu(k,2599) = lu(k,2599) - lu(k,1703) * lu(k,2596)
    7897   254840160 :          lu(k,2601) = lu(k,2601) - lu(k,1704) * lu(k,2596)
    7898   254840160 :          lu(k,2607) = lu(k,2607) - lu(k,1705) * lu(k,2596)
    7899   254840160 :          lu(k,2608) = lu(k,2608) - lu(k,1706) * lu(k,2596)
    7900   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,1707) * lu(k,2596)
    7901   254840160 :          lu(k,2614) = lu(k,2614) - lu(k,1708) * lu(k,2596)
    7902   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,1709) * lu(k,2596)
    7903   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,1703) * lu(k,2723)
    7904   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,1704) * lu(k,2723)
    7905   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,1705) * lu(k,2723)
    7906   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,1706) * lu(k,2723)
    7907   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,1707) * lu(k,2723)
    7908   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,1708) * lu(k,2723)
    7909   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,1709) * lu(k,2723)
    7910   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,1703) * lu(k,2769)
    7911   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,1704) * lu(k,2769)
    7912   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,1705) * lu(k,2769)
    7913   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,1706) * lu(k,2769)
    7914   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,1707) * lu(k,2769)
    7915   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,1708) * lu(k,2769)
    7916   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,1709) * lu(k,2769)
    7917   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,1703) * lu(k,2816)
    7918   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,1704) * lu(k,2816)
    7919   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,1705) * lu(k,2816)
    7920   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,1706) * lu(k,2816)
    7921   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,1707) * lu(k,2816)
    7922   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,1708) * lu(k,2816)
    7923   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1709) * lu(k,2816)
    7924   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,1703) * lu(k,2868)
    7925   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,1704) * lu(k,2868)
    7926   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1705) * lu(k,2868)
    7927   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1706) * lu(k,2868)
    7928   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1707) * lu(k,2868)
    7929   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1708) * lu(k,2868)
    7930   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1709) * lu(k,2868)
    7931   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,1703) * lu(k,3056)
    7932   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,1704) * lu(k,3056)
    7933   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1705) * lu(k,3056)
    7934   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1706) * lu(k,3056)
    7935   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1707) * lu(k,3056)
    7936   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1708) * lu(k,3056)
    7937   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1709) * lu(k,3056)
    7938   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,1703) * lu(k,3315)
    7939   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,1704) * lu(k,3315)
    7940   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1705) * lu(k,3315)
    7941   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1706) * lu(k,3315)
    7942   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1707) * lu(k,3315)
    7943   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1708) * lu(k,3315)
    7944   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1709) * lu(k,3315)
    7945   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,1703) * lu(k,3409)
    7946   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,1704) * lu(k,3409)
    7947   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1705) * lu(k,3409)
    7948   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1706) * lu(k,3409)
    7949   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1707) * lu(k,3409)
    7950   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1708) * lu(k,3409)
    7951   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1709) * lu(k,3409)
    7952   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,1703) * lu(k,3554)
    7953   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,1704) * lu(k,3554)
    7954   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1705) * lu(k,3554)
    7955   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1706) * lu(k,3554)
    7956   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1707) * lu(k,3554)
    7957   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1708) * lu(k,3554)
    7958   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1709) * lu(k,3554)
    7959   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,1703) * lu(k,4039)
    7960   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,1704) * lu(k,4039)
    7961   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1705) * lu(k,4039)
    7962   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1706) * lu(k,4039)
    7963   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1707) * lu(k,4039)
    7964   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1708) * lu(k,4039)
    7965   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1709) * lu(k,4039)
    7966             :       end do
    7967     8168963 :       end subroutine lu_fac38
    7968     8168963 :       subroutine lu_fac39( avec_len, lu )
    7969             :       use chem_mods, only : nzcnt
    7970             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7971             :       implicit none
    7972             : !-----------------------------------------------------------------------
    7973             : ! ... dummy args
    7974             : !-----------------------------------------------------------------------
    7975             :       integer, intent(in) :: avec_len
    7976             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7977             : !-----------------------------------------------------------------------
    7978             : ! ... local variables
    7979             : !-----------------------------------------------------------------------
    7980             :       integer :: k
    7981   263009123 :       do k = 1,avec_len
    7982   254840160 :          lu(k,1712) = 1._r8 / lu(k,1712)
    7983   254840160 :          lu(k,1713) = lu(k,1713) * lu(k,1712)
    7984   254840160 :          lu(k,1714) = lu(k,1714) * lu(k,1712)
    7985   254840160 :          lu(k,1715) = lu(k,1715) * lu(k,1712)
    7986   254840160 :          lu(k,1716) = lu(k,1716) * lu(k,1712)
    7987   254840160 :          lu(k,1717) = lu(k,1717) * lu(k,1712)
    7988   254840160 :          lu(k,1738) = lu(k,1738) - lu(k,1713) * lu(k,1731)
    7989   254840160 :          lu(k,1742) = lu(k,1742) - lu(k,1714) * lu(k,1731)
    7990   254840160 :          lu(k,1743) = lu(k,1743) - lu(k,1715) * lu(k,1731)
    7991   254840160 :          lu(k,1744) = lu(k,1744) - lu(k,1716) * lu(k,1731)
    7992   254840160 :          lu(k,1747) = lu(k,1747) - lu(k,1717) * lu(k,1731)
    7993   254840160 :          lu(k,1760) = lu(k,1760) - lu(k,1713) * lu(k,1753)
    7994   254840160 :          lu(k,1764) = lu(k,1764) - lu(k,1714) * lu(k,1753)
    7995   254840160 :          lu(k,1765) = lu(k,1765) - lu(k,1715) * lu(k,1753)
    7996   254840160 :          lu(k,1766) = lu(k,1766) - lu(k,1716) * lu(k,1753)
    7997   254840160 :          lu(k,1769) = lu(k,1769) - lu(k,1717) * lu(k,1753)
    7998   254840160 :          lu(k,1796) = lu(k,1796) - lu(k,1713) * lu(k,1790)
    7999   254840160 :          lu(k,1798) = lu(k,1798) - lu(k,1714) * lu(k,1790)
    8000   254840160 :          lu(k,1799) = lu(k,1799) - lu(k,1715) * lu(k,1790)
    8001   254840160 :          lu(k,1800) = lu(k,1800) - lu(k,1716) * lu(k,1790)
    8002   254840160 :          lu(k,1802) = lu(k,1802) - lu(k,1717) * lu(k,1790)
    8003   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,1713) * lu(k,1814)
    8004   254840160 :          lu(k,1828) = lu(k,1828) - lu(k,1714) * lu(k,1814)
    8005   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,1715) * lu(k,1814)
    8006   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,1716) * lu(k,1814)
    8007   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,1717) * lu(k,1814)
    8008   254840160 :          lu(k,1855) = lu(k,1855) - lu(k,1713) * lu(k,1846)
    8009   254840160 :          lu(k,1859) = lu(k,1859) - lu(k,1714) * lu(k,1846)
    8010   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,1715) * lu(k,1846)
    8011   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,1716) * lu(k,1846)
    8012   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,1717) * lu(k,1846)
    8013   254840160 :          lu(k,1875) = lu(k,1875) - lu(k,1713) * lu(k,1869)
    8014   254840160 :          lu(k,1878) = lu(k,1878) - lu(k,1714) * lu(k,1869)
    8015   254840160 :          lu(k,1879) = - lu(k,1715) * lu(k,1869)
    8016   254840160 :          lu(k,1880) = lu(k,1880) - lu(k,1716) * lu(k,1869)
    8017   254840160 :          lu(k,1882) = lu(k,1882) - lu(k,1717) * lu(k,1869)
    8018   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1713) * lu(k,1892)
    8019   254840160 :          lu(k,1906) = lu(k,1906) - lu(k,1714) * lu(k,1892)
    8020   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1715) * lu(k,1892)
    8021   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1716) * lu(k,1892)
    8022   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1717) * lu(k,1892)
    8023   254840160 :          lu(k,1918) = lu(k,1918) - lu(k,1713) * lu(k,1915)
    8024   254840160 :          lu(k,1921) = lu(k,1921) - lu(k,1714) * lu(k,1915)
    8025   254840160 :          lu(k,1922) = lu(k,1922) - lu(k,1715) * lu(k,1915)
    8026   254840160 :          lu(k,1923) = lu(k,1923) - lu(k,1716) * lu(k,1915)
    8027   254840160 :          lu(k,1925) = lu(k,1925) - lu(k,1717) * lu(k,1915)
    8028   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1713) * lu(k,1943)
    8029   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1714) * lu(k,1943)
    8030   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1715) * lu(k,1943)
    8031   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1716) * lu(k,1943)
    8032   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1717) * lu(k,1943)
    8033   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1713) * lu(k,1980)
    8034   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1714) * lu(k,1980)
    8035   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1715) * lu(k,1980)
    8036   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1716) * lu(k,1980)
    8037   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1717) * lu(k,1980)
    8038   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1713) * lu(k,2037)
    8039   254840160 :          lu(k,2047) = lu(k,2047) - lu(k,1714) * lu(k,2037)
    8040   254840160 :          lu(k,2048) = lu(k,2048) - lu(k,1715) * lu(k,2037)
    8041   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1716) * lu(k,2037)
    8042   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1717) * lu(k,2037)
    8043   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1713) * lu(k,2070)
    8044   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,1714) * lu(k,2070)
    8045   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1715) * lu(k,2070)
    8046   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1716) * lu(k,2070)
    8047   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1717) * lu(k,2070)
    8048   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1713) * lu(k,2102)
    8049   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,1714) * lu(k,2102)
    8050   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1715) * lu(k,2102)
    8051   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1716) * lu(k,2102)
    8052   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1717) * lu(k,2102)
    8053   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1713) * lu(k,2132)
    8054   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,1714) * lu(k,2132)
    8055   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1715) * lu(k,2132)
    8056   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1716) * lu(k,2132)
    8057   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1717) * lu(k,2132)
    8058   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1713) * lu(k,2168)
    8059   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,1714) * lu(k,2168)
    8060   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1715) * lu(k,2168)
    8061   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1716) * lu(k,2168)
    8062   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1717) * lu(k,2168)
    8063   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1713) * lu(k,2869)
    8064   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1714) * lu(k,2869)
    8065   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1715) * lu(k,2869)
    8066   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1716) * lu(k,2869)
    8067   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1717) * lu(k,2869)
    8068   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1713) * lu(k,3057)
    8069   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1714) * lu(k,3057)
    8070   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1715) * lu(k,3057)
    8071   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1716) * lu(k,3057)
    8072   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1717) * lu(k,3057)
    8073   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1713) * lu(k,3316)
    8074   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1714) * lu(k,3316)
    8075   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1715) * lu(k,3316)
    8076   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1716) * lu(k,3316)
    8077   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1717) * lu(k,3316)
    8078   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1713) * lu(k,3410)
    8079   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1714) * lu(k,3410)
    8080   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1715) * lu(k,3410)
    8081   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1716) * lu(k,3410)
    8082   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1717) * lu(k,3410)
    8083   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1713) * lu(k,3555)
    8084   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1714) * lu(k,3555)
    8085   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1715) * lu(k,3555)
    8086   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1716) * lu(k,3555)
    8087   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1717) * lu(k,3555)
    8088   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1713) * lu(k,3709)
    8089   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1714) * lu(k,3709)
    8090   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1715) * lu(k,3709)
    8091   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1716) * lu(k,3709)
    8092   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1717) * lu(k,3709)
    8093   254840160 :          lu(k,3832) = lu(k,3832) - lu(k,1713) * lu(k,3831)
    8094   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,1714) * lu(k,3831)
    8095   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,1715) * lu(k,3831)
    8096   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,1716) * lu(k,3831)
    8097   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,1717) * lu(k,3831)
    8098   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1713) * lu(k,4040)
    8099   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1714) * lu(k,4040)
    8100   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1715) * lu(k,4040)
    8101   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1716) * lu(k,4040)
    8102   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1717) * lu(k,4040)
    8103   254840160 :          lu(k,1718) = 1._r8 / lu(k,1718)
    8104   254840160 :          lu(k,1719) = lu(k,1719) * lu(k,1718)
    8105   254840160 :          lu(k,1720) = lu(k,1720) * lu(k,1718)
    8106   254840160 :          lu(k,1721) = lu(k,1721) * lu(k,1718)
    8107   254840160 :          lu(k,1722) = lu(k,1722) * lu(k,1718)
    8108   254840160 :          lu(k,1723) = lu(k,1723) * lu(k,1718)
    8109   254840160 :          lu(k,1724) = lu(k,1724) * lu(k,1718)
    8110   254840160 :          lu(k,1725) = lu(k,1725) * lu(k,1718)
    8111   254840160 :          lu(k,2234) = lu(k,2234) - lu(k,1719) * lu(k,2233)
    8112   254840160 :          lu(k,2239) = lu(k,2239) - lu(k,1720) * lu(k,2233)
    8113   254840160 :          lu(k,2242) = lu(k,2242) - lu(k,1721) * lu(k,2233)
    8114   254840160 :          lu(k,2245) = lu(k,2245) - lu(k,1722) * lu(k,2233)
    8115   254840160 :          lu(k,2249) = lu(k,2249) - lu(k,1723) * lu(k,2233)
    8116   254840160 :          lu(k,2251) = lu(k,2251) - lu(k,1724) * lu(k,2233)
    8117   254840160 :          lu(k,2253) = lu(k,2253) - lu(k,1725) * lu(k,2233)
    8118   254840160 :          lu(k,2319) = - lu(k,1719) * lu(k,2318)
    8119   254840160 :          lu(k,2323) = - lu(k,1720) * lu(k,2318)
    8120   254840160 :          lu(k,2324) = - lu(k,1721) * lu(k,2318)
    8121   254840160 :          lu(k,2325) = - lu(k,1722) * lu(k,2318)
    8122   254840160 :          lu(k,2329) = lu(k,2329) - lu(k,1723) * lu(k,2318)
    8123   254840160 :          lu(k,2330) = - lu(k,1724) * lu(k,2318)
    8124   254840160 :          lu(k,2332) = lu(k,2332) - lu(k,1725) * lu(k,2318)
    8125   254840160 :          lu(k,2376) = lu(k,2376) - lu(k,1719) * lu(k,2375)
    8126   254840160 :          lu(k,2383) = lu(k,2383) - lu(k,1720) * lu(k,2375)
    8127   254840160 :          lu(k,2386) = lu(k,2386) - lu(k,1721) * lu(k,2375)
    8128   254840160 :          lu(k,2389) = lu(k,2389) - lu(k,1722) * lu(k,2375)
    8129   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,1723) * lu(k,2375)
    8130   254840160 :          lu(k,2395) = lu(k,2395) - lu(k,1724) * lu(k,2375)
    8131   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,1725) * lu(k,2375)
    8132   254840160 :          lu(k,2437) = lu(k,2437) - lu(k,1719) * lu(k,2436)
    8133   254840160 :          lu(k,2444) = lu(k,2444) - lu(k,1720) * lu(k,2436)
    8134   254840160 :          lu(k,2447) = lu(k,2447) - lu(k,1721) * lu(k,2436)
    8135   254840160 :          lu(k,2450) = lu(k,2450) - lu(k,1722) * lu(k,2436)
    8136   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,1723) * lu(k,2436)
    8137   254840160 :          lu(k,2456) = lu(k,2456) - lu(k,1724) * lu(k,2436)
    8138   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,1725) * lu(k,2436)
    8139   254840160 :          lu(k,2534) = lu(k,2534) - lu(k,1719) * lu(k,2533)
    8140   254840160 :          lu(k,2538) = lu(k,2538) - lu(k,1720) * lu(k,2533)
    8141   254840160 :          lu(k,2541) = lu(k,2541) - lu(k,1721) * lu(k,2533)
    8142   254840160 :          lu(k,2544) = lu(k,2544) - lu(k,1722) * lu(k,2533)
    8143   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,1723) * lu(k,2533)
    8144   254840160 :          lu(k,2550) = lu(k,2550) - lu(k,1724) * lu(k,2533)
    8145   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,1725) * lu(k,2533)
    8146   254840160 :          lu(k,2627) = lu(k,2627) - lu(k,1719) * lu(k,2626)
    8147   254840160 :          lu(k,2631) = - lu(k,1720) * lu(k,2626)
    8148   254840160 :          lu(k,2633) = lu(k,2633) - lu(k,1721) * lu(k,2626)
    8149   254840160 :          lu(k,2635) = - lu(k,1722) * lu(k,2626)
    8150   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,1723) * lu(k,2626)
    8151   254840160 :          lu(k,2641) = lu(k,2641) - lu(k,1724) * lu(k,2626)
    8152   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,1725) * lu(k,2626)
    8153   254840160 :          lu(k,2674) = lu(k,2674) - lu(k,1719) * lu(k,2673)
    8154   254840160 :          lu(k,2677) = lu(k,2677) - lu(k,1720) * lu(k,2673)
    8155   254840160 :          lu(k,2680) = lu(k,2680) - lu(k,1721) * lu(k,2673)
    8156   254840160 :          lu(k,2683) = - lu(k,1722) * lu(k,2673)
    8157   254840160 :          lu(k,2687) = lu(k,2687) - lu(k,1723) * lu(k,2673)
    8158   254840160 :          lu(k,2689) = lu(k,2689) - lu(k,1724) * lu(k,2673)
    8159   254840160 :          lu(k,2691) = lu(k,2691) - lu(k,1725) * lu(k,2673)
    8160   254840160 :          lu(k,2725) = lu(k,2725) - lu(k,1719) * lu(k,2724)
    8161   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,1720) * lu(k,2724)
    8162   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,1721) * lu(k,2724)
    8163   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,1722) * lu(k,2724)
    8164   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,1723) * lu(k,2724)
    8165   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,1724) * lu(k,2724)
    8166   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,1725) * lu(k,2724)
    8167   254840160 :          lu(k,2771) = lu(k,2771) - lu(k,1719) * lu(k,2770)
    8168   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,1720) * lu(k,2770)
    8169   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,1721) * lu(k,2770)
    8170   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,1722) * lu(k,2770)
    8171   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,1723) * lu(k,2770)
    8172   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,1724) * lu(k,2770)
    8173   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,1725) * lu(k,2770)
    8174   254840160 :          lu(k,2818) = lu(k,2818) - lu(k,1719) * lu(k,2817)
    8175   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,1720) * lu(k,2817)
    8176   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,1721) * lu(k,2817)
    8177   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,1722) * lu(k,2817)
    8178   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,1723) * lu(k,2817)
    8179   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,1724) * lu(k,2817)
    8180   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,1725) * lu(k,2817)
    8181   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1719) * lu(k,2870)
    8182   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,1720) * lu(k,2870)
    8183   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,1721) * lu(k,2870)
    8184   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1722) * lu(k,2870)
    8185   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1723) * lu(k,2870)
    8186   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,1724) * lu(k,2870)
    8187   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1725) * lu(k,2870)
    8188   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1719) * lu(k,3058)
    8189   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,1720) * lu(k,3058)
    8190   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,1721) * lu(k,3058)
    8191   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1722) * lu(k,3058)
    8192   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1723) * lu(k,3058)
    8193   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,1724) * lu(k,3058)
    8194   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1725) * lu(k,3058)
    8195   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1719) * lu(k,3317)
    8196   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,1720) * lu(k,3317)
    8197   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,1721) * lu(k,3317)
    8198   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1722) * lu(k,3317)
    8199   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1723) * lu(k,3317)
    8200   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,1724) * lu(k,3317)
    8201   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1725) * lu(k,3317)
    8202   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1719) * lu(k,3411)
    8203   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,1720) * lu(k,3411)
    8204   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,1721) * lu(k,3411)
    8205   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1722) * lu(k,3411)
    8206   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1723) * lu(k,3411)
    8207   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,1724) * lu(k,3411)
    8208   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1725) * lu(k,3411)
    8209   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1719) * lu(k,3556)
    8210   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,1720) * lu(k,3556)
    8211   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,1721) * lu(k,3556)
    8212   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1722) * lu(k,3556)
    8213   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1723) * lu(k,3556)
    8214   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1724) * lu(k,3556)
    8215   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1725) * lu(k,3556)
    8216   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1719) * lu(k,3710)
    8217   254840160 :          lu(k,3748) = - lu(k,1720) * lu(k,3710)
    8218   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,1721) * lu(k,3710)
    8219   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1722) * lu(k,3710)
    8220   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1723) * lu(k,3710)
    8221   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1724) * lu(k,3710)
    8222   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1725) * lu(k,3710)
    8223   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1719) * lu(k,4041)
    8224   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,1720) * lu(k,4041)
    8225   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,1721) * lu(k,4041)
    8226   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1722) * lu(k,4041)
    8227   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1723) * lu(k,4041)
    8228   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1724) * lu(k,4041)
    8229   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1725) * lu(k,4041)
    8230   254840160 :          lu(k,1732) = 1._r8 / lu(k,1732)
    8231   254840160 :          lu(k,1733) = lu(k,1733) * lu(k,1732)
    8232   254840160 :          lu(k,1734) = lu(k,1734) * lu(k,1732)
    8233   254840160 :          lu(k,1735) = lu(k,1735) * lu(k,1732)
    8234   254840160 :          lu(k,1736) = lu(k,1736) * lu(k,1732)
    8235   254840160 :          lu(k,1737) = lu(k,1737) * lu(k,1732)
    8236   254840160 :          lu(k,1738) = lu(k,1738) * lu(k,1732)
    8237   254840160 :          lu(k,1739) = lu(k,1739) * lu(k,1732)
    8238   254840160 :          lu(k,1740) = lu(k,1740) * lu(k,1732)
    8239   254840160 :          lu(k,1741) = lu(k,1741) * lu(k,1732)
    8240   254840160 :          lu(k,1742) = lu(k,1742) * lu(k,1732)
    8241   254840160 :          lu(k,1743) = lu(k,1743) * lu(k,1732)
    8242   254840160 :          lu(k,1744) = lu(k,1744) * lu(k,1732)
    8243   254840160 :          lu(k,1745) = lu(k,1745) * lu(k,1732)
    8244   254840160 :          lu(k,1746) = lu(k,1746) * lu(k,1732)
    8245   254840160 :          lu(k,1747) = lu(k,1747) * lu(k,1732)
    8246   254840160 :          lu(k,1945) = lu(k,1945) - lu(k,1733) * lu(k,1944)
    8247   254840160 :          lu(k,1949) = - lu(k,1734) * lu(k,1944)
    8248   254840160 :          lu(k,1950) = lu(k,1950) - lu(k,1735) * lu(k,1944)
    8249   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1736) * lu(k,1944)
    8250   254840160 :          lu(k,1953) = lu(k,1953) - lu(k,1737) * lu(k,1944)
    8251   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1738) * lu(k,1944)
    8252   254840160 :          lu(k,1958) = - lu(k,1739) * lu(k,1944)
    8253   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1740) * lu(k,1944)
    8254   254840160 :          lu(k,1961) = lu(k,1961) - lu(k,1741) * lu(k,1944)
    8255   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1742) * lu(k,1944)
    8256   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1743) * lu(k,1944)
    8257   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1744) * lu(k,1944)
    8258   254840160 :          lu(k,1965) = lu(k,1965) - lu(k,1745) * lu(k,1944)
    8259   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1746) * lu(k,1944)
    8260   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1747) * lu(k,1944)
    8261   254840160 :          lu(k,2873) = lu(k,2873) - lu(k,1733) * lu(k,2871)
    8262   254840160 :          lu(k,2877) = lu(k,2877) - lu(k,1734) * lu(k,2871)
    8263   254840160 :          lu(k,2878) = - lu(k,1735) * lu(k,2871)
    8264   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1736) * lu(k,2871)
    8265   254840160 :          lu(k,2881) = lu(k,2881) - lu(k,1737) * lu(k,2871)
    8266   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1738) * lu(k,2871)
    8267   254840160 :          lu(k,2887) = - lu(k,1739) * lu(k,2871)
    8268   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1740) * lu(k,2871)
    8269   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1741) * lu(k,2871)
    8270   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1742) * lu(k,2871)
    8271   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1743) * lu(k,2871)
    8272   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1744) * lu(k,2871)
    8273   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1745) * lu(k,2871)
    8274   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1746) * lu(k,2871)
    8275   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1747) * lu(k,2871)
    8276   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1733) * lu(k,3059)
    8277   254840160 :          lu(k,3066) = lu(k,3066) - lu(k,1734) * lu(k,3059)
    8278   254840160 :          lu(k,3067) = - lu(k,1735) * lu(k,3059)
    8279   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1736) * lu(k,3059)
    8280   254840160 :          lu(k,3070) = lu(k,3070) - lu(k,1737) * lu(k,3059)
    8281   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1738) * lu(k,3059)
    8282   254840160 :          lu(k,3076) = lu(k,3076) - lu(k,1739) * lu(k,3059)
    8283   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1740) * lu(k,3059)
    8284   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1741) * lu(k,3059)
    8285   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1742) * lu(k,3059)
    8286   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1743) * lu(k,3059)
    8287   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1744) * lu(k,3059)
    8288   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1745) * lu(k,3059)
    8289   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1746) * lu(k,3059)
    8290   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1747) * lu(k,3059)
    8291   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1733) * lu(k,3318)
    8292   254840160 :          lu(k,3325) = - lu(k,1734) * lu(k,3318)
    8293   254840160 :          lu(k,3326) = lu(k,3326) - lu(k,1735) * lu(k,3318)
    8294   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1736) * lu(k,3318)
    8295   254840160 :          lu(k,3329) = lu(k,3329) - lu(k,1737) * lu(k,3318)
    8296   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1738) * lu(k,3318)
    8297   254840160 :          lu(k,3335) = - lu(k,1739) * lu(k,3318)
    8298   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1740) * lu(k,3318)
    8299   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1741) * lu(k,3318)
    8300   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1742) * lu(k,3318)
    8301   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1743) * lu(k,3318)
    8302   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1744) * lu(k,3318)
    8303   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1745) * lu(k,3318)
    8304   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1746) * lu(k,3318)
    8305   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1747) * lu(k,3318)
    8306   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1733) * lu(k,3412)
    8307   254840160 :          lu(k,3419) = lu(k,3419) - lu(k,1734) * lu(k,3412)
    8308   254840160 :          lu(k,3420) = - lu(k,1735) * lu(k,3412)
    8309   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1736) * lu(k,3412)
    8310   254840160 :          lu(k,3423) = lu(k,3423) - lu(k,1737) * lu(k,3412)
    8311   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1738) * lu(k,3412)
    8312   254840160 :          lu(k,3429) = lu(k,3429) - lu(k,1739) * lu(k,3412)
    8313   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1740) * lu(k,3412)
    8314   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1741) * lu(k,3412)
    8315   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1742) * lu(k,3412)
    8316   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1743) * lu(k,3412)
    8317   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1744) * lu(k,3412)
    8318   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1745) * lu(k,3412)
    8319   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1746) * lu(k,3412)
    8320   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1747) * lu(k,3412)
    8321   254840160 :          lu(k,3559) = lu(k,3559) - lu(k,1733) * lu(k,3557)
    8322   254840160 :          lu(k,3562) = - lu(k,1734) * lu(k,3557)
    8323   254840160 :          lu(k,3563) = - lu(k,1735) * lu(k,3557)
    8324   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1736) * lu(k,3557)
    8325   254840160 :          lu(k,3566) = lu(k,3566) - lu(k,1737) * lu(k,3557)
    8326   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1738) * lu(k,3557)
    8327   254840160 :          lu(k,3572) = - lu(k,1739) * lu(k,3557)
    8328   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1740) * lu(k,3557)
    8329   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1741) * lu(k,3557)
    8330   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1742) * lu(k,3557)
    8331   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1743) * lu(k,3557)
    8332   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1744) * lu(k,3557)
    8333   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1745) * lu(k,3557)
    8334   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1746) * lu(k,3557)
    8335   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1747) * lu(k,3557)
    8336   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,1733) * lu(k,3711)
    8337   254840160 :          lu(k,3718) = - lu(k,1734) * lu(k,3711)
    8338   254840160 :          lu(k,3719) = - lu(k,1735) * lu(k,3711)
    8339   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1736) * lu(k,3711)
    8340   254840160 :          lu(k,3722) = lu(k,3722) - lu(k,1737) * lu(k,3711)
    8341   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1738) * lu(k,3711)
    8342   254840160 :          lu(k,3728) = lu(k,3728) - lu(k,1739) * lu(k,3711)
    8343   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1740) * lu(k,3711)
    8344   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1741) * lu(k,3711)
    8345   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1742) * lu(k,3711)
    8346   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1743) * lu(k,3711)
    8347   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1744) * lu(k,3711)
    8348   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1745) * lu(k,3711)
    8349   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1746) * lu(k,3711)
    8350   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1747) * lu(k,3711)
    8351   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1733) * lu(k,4042)
    8352   254840160 :          lu(k,4049) = lu(k,4049) - lu(k,1734) * lu(k,4042)
    8353   254840160 :          lu(k,4050) = lu(k,4050) - lu(k,1735) * lu(k,4042)
    8354   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1736) * lu(k,4042)
    8355   254840160 :          lu(k,4053) = lu(k,4053) - lu(k,1737) * lu(k,4042)
    8356   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1738) * lu(k,4042)
    8357   254840160 :          lu(k,4059) = lu(k,4059) - lu(k,1739) * lu(k,4042)
    8358   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1740) * lu(k,4042)
    8359   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1741) * lu(k,4042)
    8360   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1742) * lu(k,4042)
    8361   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1743) * lu(k,4042)
    8362   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1744) * lu(k,4042)
    8363   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1745) * lu(k,4042)
    8364   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1746) * lu(k,4042)
    8365   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1747) * lu(k,4042)
    8366             :       end do
    8367     8168963 :       end subroutine lu_fac39
    8368     8168963 :       subroutine lu_fac40( avec_len, lu )
    8369             :       use chem_mods, only : nzcnt
    8370             :       use shr_kind_mod, only : r8 => shr_kind_r8
    8371             :       implicit none
    8372             : !-----------------------------------------------------------------------
    8373             : ! ... dummy args
    8374             : !-----------------------------------------------------------------------
    8375             :       integer, intent(in) :: avec_len
    8376             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    8377             : !-----------------------------------------------------------------------
    8378             : ! ... local variables
    8379             : !-----------------------------------------------------------------------
    8380             :       integer :: k
    8381   263009123 :       do k = 1,avec_len
    8382   254840160 :          lu(k,1754) = 1._r8 / lu(k,1754)
    8383   254840160 :          lu(k,1755) = lu(k,1755) * lu(k,1754)
    8384   254840160 :          lu(k,1756) = lu(k,1756) * lu(k,1754)
    8385   254840160 :          lu(k,1757) = lu(k,1757) * lu(k,1754)
    8386   254840160 :          lu(k,1758) = lu(k,1758) * lu(k,1754)
    8387   254840160 :          lu(k,1759) = lu(k,1759) * lu(k,1754)
    8388   254840160 :          lu(k,1760) = lu(k,1760) * lu(k,1754)
    8389   254840160 :          lu(k,1761) = lu(k,1761) * lu(k,1754)
    8390   254840160 :          lu(k,1762) = lu(k,1762) * lu(k,1754)
    8391   254840160 :          lu(k,1763) = lu(k,1763) * lu(k,1754)
    8392   254840160 :          lu(k,1764) = lu(k,1764) * lu(k,1754)
    8393   254840160 :          lu(k,1765) = lu(k,1765) * lu(k,1754)
    8394   254840160 :          lu(k,1766) = lu(k,1766) * lu(k,1754)
    8395   254840160 :          lu(k,1767) = lu(k,1767) * lu(k,1754)
    8396   254840160 :          lu(k,1768) = lu(k,1768) * lu(k,1754)
    8397   254840160 :          lu(k,1769) = lu(k,1769) * lu(k,1754)
    8398   254840160 :          lu(k,1982) = lu(k,1982) - lu(k,1755) * lu(k,1981)
    8399   254840160 :          lu(k,1986) = lu(k,1986) - lu(k,1756) * lu(k,1981)
    8400   254840160 :          lu(k,1987) = lu(k,1987) - lu(k,1757) * lu(k,1981)
    8401   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1758) * lu(k,1981)
    8402   254840160 :          lu(k,1991) = lu(k,1991) - lu(k,1759) * lu(k,1981)
    8403   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1760) * lu(k,1981)
    8404   254840160 :          lu(k,1995) = - lu(k,1761) * lu(k,1981)
    8405   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1762) * lu(k,1981)
    8406   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1763) * lu(k,1981)
    8407   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1764) * lu(k,1981)
    8408   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1765) * lu(k,1981)
    8409   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1766) * lu(k,1981)
    8410   254840160 :          lu(k,2004) = lu(k,2004) - lu(k,1767) * lu(k,1981)
    8411   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1768) * lu(k,1981)
    8412   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1769) * lu(k,1981)
    8413   254840160 :          lu(k,2873) = lu(k,2873) - lu(k,1755) * lu(k,2872)
    8414   254840160 :          lu(k,2877) = lu(k,2877) - lu(k,1756) * lu(k,2872)
    8415   254840160 :          lu(k,2878) = lu(k,2878) - lu(k,1757) * lu(k,2872)
    8416   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1758) * lu(k,2872)
    8417   254840160 :          lu(k,2882) = lu(k,2882) - lu(k,1759) * lu(k,2872)
    8418   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1760) * lu(k,2872)
    8419   254840160 :          lu(k,2886) = - lu(k,1761) * lu(k,2872)
    8420   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1762) * lu(k,2872)
    8421   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1763) * lu(k,2872)
    8422   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1764) * lu(k,2872)
    8423   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1765) * lu(k,2872)
    8424   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1766) * lu(k,2872)
    8425   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1767) * lu(k,2872)
    8426   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1768) * lu(k,2872)
    8427   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1769) * lu(k,2872)
    8428   254840160 :          lu(k,3061) = lu(k,3061) - lu(k,1755) * lu(k,3060)
    8429   254840160 :          lu(k,3066) = lu(k,3066) - lu(k,1756) * lu(k,3060)
    8430   254840160 :          lu(k,3067) = lu(k,3067) - lu(k,1757) * lu(k,3060)
    8431   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1758) * lu(k,3060)
    8432   254840160 :          lu(k,3071) = lu(k,3071) - lu(k,1759) * lu(k,3060)
    8433   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1760) * lu(k,3060)
    8434   254840160 :          lu(k,3075) = lu(k,3075) - lu(k,1761) * lu(k,3060)
    8435   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1762) * lu(k,3060)
    8436   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1763) * lu(k,3060)
    8437   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1764) * lu(k,3060)
    8438   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1765) * lu(k,3060)
    8439   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1766) * lu(k,3060)
    8440   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1767) * lu(k,3060)
    8441   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1768) * lu(k,3060)
    8442   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1769) * lu(k,3060)
    8443   254840160 :          lu(k,3320) = lu(k,3320) - lu(k,1755) * lu(k,3319)
    8444   254840160 :          lu(k,3325) = lu(k,3325) - lu(k,1756) * lu(k,3319)
    8445   254840160 :          lu(k,3326) = lu(k,3326) - lu(k,1757) * lu(k,3319)
    8446   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1758) * lu(k,3319)
    8447   254840160 :          lu(k,3330) = lu(k,3330) - lu(k,1759) * lu(k,3319)
    8448   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1760) * lu(k,3319)
    8449   254840160 :          lu(k,3334) = - lu(k,1761) * lu(k,3319)
    8450   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1762) * lu(k,3319)
    8451   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1763) * lu(k,3319)
    8452   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1764) * lu(k,3319)
    8453   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1765) * lu(k,3319)
    8454   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1766) * lu(k,3319)
    8455   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1767) * lu(k,3319)
    8456   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1768) * lu(k,3319)
    8457   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1769) * lu(k,3319)
    8458   254840160 :          lu(k,3414) = lu(k,3414) - lu(k,1755) * lu(k,3413)
    8459   254840160 :          lu(k,3419) = lu(k,3419) - lu(k,1756) * lu(k,3413)
    8460   254840160 :          lu(k,3420) = lu(k,3420) - lu(k,1757) * lu(k,3413)
    8461   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1758) * lu(k,3413)
    8462   254840160 :          lu(k,3424) = lu(k,3424) - lu(k,1759) * lu(k,3413)
    8463   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1760) * lu(k,3413)
    8464   254840160 :          lu(k,3428) = lu(k,3428) - lu(k,1761) * lu(k,3413)
    8465   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1762) * lu(k,3413)
    8466   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1763) * lu(k,3413)
    8467   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1764) * lu(k,3413)
    8468   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1765) * lu(k,3413)
    8469   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1766) * lu(k,3413)
    8470   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1767) * lu(k,3413)
    8471   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1768) * lu(k,3413)
    8472   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1769) * lu(k,3413)
    8473   254840160 :          lu(k,3559) = lu(k,3559) - lu(k,1755) * lu(k,3558)
    8474   254840160 :          lu(k,3562) = lu(k,3562) - lu(k,1756) * lu(k,3558)
    8475   254840160 :          lu(k,3563) = lu(k,3563) - lu(k,1757) * lu(k,3558)
    8476   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1758) * lu(k,3558)
    8477   254840160 :          lu(k,3567) = lu(k,3567) - lu(k,1759) * lu(k,3558)
    8478   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1760) * lu(k,3558)
    8479   254840160 :          lu(k,3571) = - lu(k,1761) * lu(k,3558)
    8480   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1762) * lu(k,3558)
    8481   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1763) * lu(k,3558)
    8482   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1764) * lu(k,3558)
    8483   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1765) * lu(k,3558)
    8484   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1766) * lu(k,3558)
    8485   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1767) * lu(k,3558)
    8486   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1768) * lu(k,3558)
    8487   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1769) * lu(k,3558)
    8488   254840160 :          lu(k,3713) = lu(k,3713) - lu(k,1755) * lu(k,3712)
    8489   254840160 :          lu(k,3718) = lu(k,3718) - lu(k,1756) * lu(k,3712)
    8490   254840160 :          lu(k,3719) = lu(k,3719) - lu(k,1757) * lu(k,3712)
    8491   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1758) * lu(k,3712)
    8492   254840160 :          lu(k,3723) = lu(k,3723) - lu(k,1759) * lu(k,3712)
    8493   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1760) * lu(k,3712)
    8494   254840160 :          lu(k,3727) = lu(k,3727) - lu(k,1761) * lu(k,3712)
    8495   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1762) * lu(k,3712)
    8496   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1763) * lu(k,3712)
    8497   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1764) * lu(k,3712)
    8498   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1765) * lu(k,3712)
    8499   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1766) * lu(k,3712)
    8500   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1767) * lu(k,3712)
    8501   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1768) * lu(k,3712)
    8502   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1769) * lu(k,3712)
    8503   254840160 :          lu(k,4044) = lu(k,4044) - lu(k,1755) * lu(k,4043)
    8504   254840160 :          lu(k,4049) = lu(k,4049) - lu(k,1756) * lu(k,4043)
    8505   254840160 :          lu(k,4050) = lu(k,4050) - lu(k,1757) * lu(k,4043)
    8506   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1758) * lu(k,4043)
    8507   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,1759) * lu(k,4043)
    8508   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1760) * lu(k,4043)
    8509   254840160 :          lu(k,4058) = lu(k,4058) - lu(k,1761) * lu(k,4043)
    8510   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1762) * lu(k,4043)
    8511   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1763) * lu(k,4043)
    8512   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1764) * lu(k,4043)
    8513   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1765) * lu(k,4043)
    8514   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1766) * lu(k,4043)
    8515   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1767) * lu(k,4043)
    8516   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1768) * lu(k,4043)
    8517   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1769) * lu(k,4043)
    8518   254840160 :          lu(k,1770) = 1._r8 / lu(k,1770)
    8519   254840160 :          lu(k,1771) = lu(k,1771) * lu(k,1770)
    8520   254840160 :          lu(k,1772) = lu(k,1772) * lu(k,1770)
    8521   254840160 :          lu(k,1773) = lu(k,1773) * lu(k,1770)
    8522   254840160 :          lu(k,1774) = lu(k,1774) * lu(k,1770)
    8523   254840160 :          lu(k,1775) = lu(k,1775) * lu(k,1770)
    8524   254840160 :          lu(k,1779) = lu(k,1779) - lu(k,1771) * lu(k,1777)
    8525   254840160 :          lu(k,1781) = lu(k,1781) - lu(k,1772) * lu(k,1777)
    8526   254840160 :          lu(k,1782) = lu(k,1782) - lu(k,1773) * lu(k,1777)
    8527   254840160 :          lu(k,1783) = lu(k,1783) - lu(k,1774) * lu(k,1777)
    8528   254840160 :          lu(k,1785) = lu(k,1785) - lu(k,1775) * lu(k,1777)
    8529   254840160 :          lu(k,1795) = lu(k,1795) - lu(k,1771) * lu(k,1791)
    8530   254840160 :          lu(k,1797) = lu(k,1797) - lu(k,1772) * lu(k,1791)
    8531   254840160 :          lu(k,1799) = lu(k,1799) - lu(k,1773) * lu(k,1791)
    8532   254840160 :          lu(k,1800) = lu(k,1800) - lu(k,1774) * lu(k,1791)
    8533   254840160 :          lu(k,1802) = lu(k,1802) - lu(k,1775) * lu(k,1791)
    8534   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,1771) * lu(k,1815)
    8535   254840160 :          lu(k,1826) = lu(k,1826) - lu(k,1772) * lu(k,1815)
    8536   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,1773) * lu(k,1815)
    8537   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,1774) * lu(k,1815)
    8538   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,1775) * lu(k,1815)
    8539   254840160 :          lu(k,1852) = lu(k,1852) - lu(k,1771) * lu(k,1847)
    8540   254840160 :          lu(k,1857) = lu(k,1857) - lu(k,1772) * lu(k,1847)
    8541   254840160 :          lu(k,1860) = lu(k,1860) - lu(k,1773) * lu(k,1847)
    8542   254840160 :          lu(k,1861) = lu(k,1861) - lu(k,1774) * lu(k,1847)
    8543   254840160 :          lu(k,1864) = lu(k,1864) - lu(k,1775) * lu(k,1847)
    8544   254840160 :          lu(k,1874) = lu(k,1874) - lu(k,1771) * lu(k,1870)
    8545   254840160 :          lu(k,1876) = lu(k,1876) - lu(k,1772) * lu(k,1870)
    8546   254840160 :          lu(k,1879) = lu(k,1879) - lu(k,1773) * lu(k,1870)
    8547   254840160 :          lu(k,1880) = lu(k,1880) - lu(k,1774) * lu(k,1870)
    8548   254840160 :          lu(k,1882) = lu(k,1882) - lu(k,1775) * lu(k,1870)
    8549   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,1771) * lu(k,1893)
    8550   254840160 :          lu(k,1904) = lu(k,1904) - lu(k,1772) * lu(k,1893)
    8551   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1773) * lu(k,1893)
    8552   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1774) * lu(k,1893)
    8553   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1775) * lu(k,1893)
    8554   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1771) * lu(k,1945)
    8555   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1772) * lu(k,1945)
    8556   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1773) * lu(k,1945)
    8557   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1774) * lu(k,1945)
    8558   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1775) * lu(k,1945)
    8559   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1771) * lu(k,1982)
    8560   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1772) * lu(k,1982)
    8561   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1773) * lu(k,1982)
    8562   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1774) * lu(k,1982)
    8563   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1775) * lu(k,1982)
    8564   254840160 :          lu(k,2015) = lu(k,2015) - lu(k,1771) * lu(k,2013)
    8565   254840160 :          lu(k,2019) = lu(k,2019) - lu(k,1772) * lu(k,2013)
    8566   254840160 :          lu(k,2023) = lu(k,2023) - lu(k,1773) * lu(k,2013)
    8567   254840160 :          lu(k,2024) = lu(k,2024) - lu(k,1774) * lu(k,2013)
    8568   254840160 :          lu(k,2029) = lu(k,2029) - lu(k,1775) * lu(k,2013)
    8569   254840160 :          lu(k,2040) = lu(k,2040) - lu(k,1771) * lu(k,2038)
    8570   254840160 :          lu(k,2044) = lu(k,2044) - lu(k,1772) * lu(k,2038)
    8571   254840160 :          lu(k,2048) = lu(k,2048) - lu(k,1773) * lu(k,2038)
    8572   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1774) * lu(k,2038)
    8573   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1775) * lu(k,2038)
    8574   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1771) * lu(k,2071)
    8575   254840160 :          lu(k,2080) = lu(k,2080) - lu(k,1772) * lu(k,2071)
    8576   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1773) * lu(k,2071)
    8577   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1774) * lu(k,2071)
    8578   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1775) * lu(k,2071)
    8579   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1771) * lu(k,2103)
    8580   254840160 :          lu(k,2112) = lu(k,2112) - lu(k,1772) * lu(k,2103)
    8581   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1773) * lu(k,2103)
    8582   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1774) * lu(k,2103)
    8583   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1775) * lu(k,2103)
    8584   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1771) * lu(k,2133)
    8585   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1772) * lu(k,2133)
    8586   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1773) * lu(k,2133)
    8587   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1774) * lu(k,2133)
    8588   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1775) * lu(k,2133)
    8589   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1771) * lu(k,2169)
    8590   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1772) * lu(k,2169)
    8591   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1773) * lu(k,2169)
    8592   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1774) * lu(k,2169)
    8593   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1775) * lu(k,2169)
    8594   254840160 :          lu(k,2275) = lu(k,2275) - lu(k,1771) * lu(k,2274)
    8595   254840160 :          lu(k,2278) = lu(k,2278) - lu(k,1772) * lu(k,2274)
    8596   254840160 :          lu(k,2282) = lu(k,2282) - lu(k,1773) * lu(k,2274)
    8597   254840160 :          lu(k,2283) = lu(k,2283) - lu(k,1774) * lu(k,2274)
    8598   254840160 :          lu(k,2287) = lu(k,2287) - lu(k,1775) * lu(k,2274)
    8599   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1771) * lu(k,2873)
    8600   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1772) * lu(k,2873)
    8601   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1773) * lu(k,2873)
    8602   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1774) * lu(k,2873)
    8603   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1775) * lu(k,2873)
    8604   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1771) * lu(k,3061)
    8605   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1772) * lu(k,3061)
    8606   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1773) * lu(k,3061)
    8607   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1774) * lu(k,3061)
    8608   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1775) * lu(k,3061)
    8609   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1771) * lu(k,3320)
    8610   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1772) * lu(k,3320)
    8611   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1773) * lu(k,3320)
    8612   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1774) * lu(k,3320)
    8613   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1775) * lu(k,3320)
    8614   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1771) * lu(k,3414)
    8615   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1772) * lu(k,3414)
    8616   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1773) * lu(k,3414)
    8617   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1774) * lu(k,3414)
    8618   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1775) * lu(k,3414)
    8619   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1771) * lu(k,3559)
    8620   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1772) * lu(k,3559)
    8621   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1773) * lu(k,3559)
    8622   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1774) * lu(k,3559)
    8623   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1775) * lu(k,3559)
    8624   254840160 :          lu(k,3643) = lu(k,3643) - lu(k,1771) * lu(k,3642)
    8625   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,1772) * lu(k,3642)
    8626   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,1773) * lu(k,3642)
    8627   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1774) * lu(k,3642)
    8628   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1775) * lu(k,3642)
    8629   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1771) * lu(k,3713)
    8630   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1772) * lu(k,3713)
    8631   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1773) * lu(k,3713)
    8632   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1774) * lu(k,3713)
    8633   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1775) * lu(k,3713)
    8634   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1771) * lu(k,4044)
    8635   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1772) * lu(k,4044)
    8636   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1773) * lu(k,4044)
    8637   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1774) * lu(k,4044)
    8638   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1775) * lu(k,4044)
    8639   254840160 :          lu(k,1778) = 1._r8 / lu(k,1778)
    8640   254840160 :          lu(k,1779) = lu(k,1779) * lu(k,1778)
    8641   254840160 :          lu(k,1780) = lu(k,1780) * lu(k,1778)
    8642   254840160 :          lu(k,1781) = lu(k,1781) * lu(k,1778)
    8643   254840160 :          lu(k,1782) = lu(k,1782) * lu(k,1778)
    8644   254840160 :          lu(k,1783) = lu(k,1783) * lu(k,1778)
    8645   254840160 :          lu(k,1784) = lu(k,1784) * lu(k,1778)
    8646   254840160 :          lu(k,1785) = lu(k,1785) * lu(k,1778)
    8647   254840160 :          lu(k,1795) = lu(k,1795) - lu(k,1779) * lu(k,1792)
    8648   254840160 :          lu(k,1796) = lu(k,1796) - lu(k,1780) * lu(k,1792)
    8649   254840160 :          lu(k,1797) = lu(k,1797) - lu(k,1781) * lu(k,1792)
    8650   254840160 :          lu(k,1799) = lu(k,1799) - lu(k,1782) * lu(k,1792)
    8651   254840160 :          lu(k,1800) = lu(k,1800) - lu(k,1783) * lu(k,1792)
    8652   254840160 :          lu(k,1801) = lu(k,1801) - lu(k,1784) * lu(k,1792)
    8653   254840160 :          lu(k,1802) = lu(k,1802) - lu(k,1785) * lu(k,1792)
    8654   254840160 :          lu(k,1820) = lu(k,1820) - lu(k,1779) * lu(k,1816)
    8655   254840160 :          lu(k,1823) = lu(k,1823) - lu(k,1780) * lu(k,1816)
    8656   254840160 :          lu(k,1826) = lu(k,1826) - lu(k,1781) * lu(k,1816)
    8657   254840160 :          lu(k,1829) = lu(k,1829) - lu(k,1782) * lu(k,1816)
    8658   254840160 :          lu(k,1830) = lu(k,1830) - lu(k,1783) * lu(k,1816)
    8659   254840160 :          lu(k,1832) = lu(k,1832) - lu(k,1784) * lu(k,1816)
    8660   254840160 :          lu(k,1833) = lu(k,1833) - lu(k,1785) * lu(k,1816)
    8661   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1779) * lu(k,1946)
    8662   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1780) * lu(k,1946)
    8663   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1781) * lu(k,1946)
    8664   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1782) * lu(k,1946)
    8665   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1783) * lu(k,1946)
    8666   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1784) * lu(k,1946)
    8667   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1785) * lu(k,1946)
    8668   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1779) * lu(k,1983)
    8669   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1780) * lu(k,1983)
    8670   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1781) * lu(k,1983)
    8671   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1782) * lu(k,1983)
    8672   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1783) * lu(k,1983)
    8673   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1784) * lu(k,1983)
    8674   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1785) * lu(k,1983)
    8675   254840160 :          lu(k,2015) = lu(k,2015) - lu(k,1779) * lu(k,2014)
    8676   254840160 :          lu(k,2017) = lu(k,2017) - lu(k,1780) * lu(k,2014)
    8677   254840160 :          lu(k,2019) = lu(k,2019) - lu(k,1781) * lu(k,2014)
    8678   254840160 :          lu(k,2023) = lu(k,2023) - lu(k,1782) * lu(k,2014)
    8679   254840160 :          lu(k,2024) = lu(k,2024) - lu(k,1783) * lu(k,2014)
    8680   254840160 :          lu(k,2027) = lu(k,2027) - lu(k,1784) * lu(k,2014)
    8681   254840160 :          lu(k,2029) = lu(k,2029) - lu(k,1785) * lu(k,2014)
    8682   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1779) * lu(k,2072)
    8683   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1780) * lu(k,2072)
    8684   254840160 :          lu(k,2080) = lu(k,2080) - lu(k,1781) * lu(k,2072)
    8685   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1782) * lu(k,2072)
    8686   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1783) * lu(k,2072)
    8687   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1784) * lu(k,2072)
    8688   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1785) * lu(k,2072)
    8689   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1779) * lu(k,2104)
    8690   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1780) * lu(k,2104)
    8691   254840160 :          lu(k,2112) = lu(k,2112) - lu(k,1781) * lu(k,2104)
    8692   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1782) * lu(k,2104)
    8693   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1783) * lu(k,2104)
    8694   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1784) * lu(k,2104)
    8695   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1785) * lu(k,2104)
    8696   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1779) * lu(k,2134)
    8697   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1780) * lu(k,2134)
    8698   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1781) * lu(k,2134)
    8699   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1782) * lu(k,2134)
    8700   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1783) * lu(k,2134)
    8701   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1784) * lu(k,2134)
    8702   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1785) * lu(k,2134)
    8703   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1779) * lu(k,2170)
    8704   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1780) * lu(k,2170)
    8705   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1781) * lu(k,2170)
    8706   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1782) * lu(k,2170)
    8707   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1783) * lu(k,2170)
    8708   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1784) * lu(k,2170)
    8709   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1785) * lu(k,2170)
    8710   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1779) * lu(k,2874)
    8711   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1780) * lu(k,2874)
    8712   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1781) * lu(k,2874)
    8713   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1782) * lu(k,2874)
    8714   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1783) * lu(k,2874)
    8715   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1784) * lu(k,2874)
    8716   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1785) * lu(k,2874)
    8717   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1779) * lu(k,3062)
    8718   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1780) * lu(k,3062)
    8719   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1781) * lu(k,3062)
    8720   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1782) * lu(k,3062)
    8721   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1783) * lu(k,3062)
    8722   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1784) * lu(k,3062)
    8723   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1785) * lu(k,3062)
    8724   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1779) * lu(k,3321)
    8725   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1780) * lu(k,3321)
    8726   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1781) * lu(k,3321)
    8727   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1782) * lu(k,3321)
    8728   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1783) * lu(k,3321)
    8729   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1784) * lu(k,3321)
    8730   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1785) * lu(k,3321)
    8731   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1779) * lu(k,3415)
    8732   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1780) * lu(k,3415)
    8733   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1781) * lu(k,3415)
    8734   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1782) * lu(k,3415)
    8735   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1783) * lu(k,3415)
    8736   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1784) * lu(k,3415)
    8737   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1785) * lu(k,3415)
    8738   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1779) * lu(k,3714)
    8739   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1780) * lu(k,3714)
    8740   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1781) * lu(k,3714)
    8741   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1782) * lu(k,3714)
    8742   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1783) * lu(k,3714)
    8743   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1784) * lu(k,3714)
    8744   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1785) * lu(k,3714)
    8745   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1779) * lu(k,4045)
    8746   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1780) * lu(k,4045)
    8747   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1781) * lu(k,4045)
    8748   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1782) * lu(k,4045)
    8749   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1783) * lu(k,4045)
    8750   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1784) * lu(k,4045)
    8751   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1785) * lu(k,4045)
    8752   254840160 :          lu(k,1793) = 1._r8 / lu(k,1793)
    8753   254840160 :          lu(k,1794) = lu(k,1794) * lu(k,1793)
    8754   254840160 :          lu(k,1795) = lu(k,1795) * lu(k,1793)
    8755   254840160 :          lu(k,1796) = lu(k,1796) * lu(k,1793)
    8756   254840160 :          lu(k,1797) = lu(k,1797) * lu(k,1793)
    8757   254840160 :          lu(k,1798) = lu(k,1798) * lu(k,1793)
    8758   254840160 :          lu(k,1799) = lu(k,1799) * lu(k,1793)
    8759   254840160 :          lu(k,1800) = lu(k,1800) * lu(k,1793)
    8760   254840160 :          lu(k,1801) = lu(k,1801) * lu(k,1793)
    8761   254840160 :          lu(k,1802) = lu(k,1802) * lu(k,1793)
    8762   254840160 :          lu(k,1873) = - lu(k,1794) * lu(k,1871)
    8763   254840160 :          lu(k,1874) = lu(k,1874) - lu(k,1795) * lu(k,1871)
    8764   254840160 :          lu(k,1875) = lu(k,1875) - lu(k,1796) * lu(k,1871)
    8765   254840160 :          lu(k,1876) = lu(k,1876) - lu(k,1797) * lu(k,1871)
    8766   254840160 :          lu(k,1878) = lu(k,1878) - lu(k,1798) * lu(k,1871)
    8767   254840160 :          lu(k,1879) = lu(k,1879) - lu(k,1799) * lu(k,1871)
    8768   254840160 :          lu(k,1880) = lu(k,1880) - lu(k,1800) * lu(k,1871)
    8769   254840160 :          lu(k,1881) = lu(k,1881) - lu(k,1801) * lu(k,1871)
    8770   254840160 :          lu(k,1882) = lu(k,1882) - lu(k,1802) * lu(k,1871)
    8771   254840160 :          lu(k,1897) = - lu(k,1794) * lu(k,1894)
    8772   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,1795) * lu(k,1894)
    8773   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1796) * lu(k,1894)
    8774   254840160 :          lu(k,1904) = lu(k,1904) - lu(k,1797) * lu(k,1894)
    8775   254840160 :          lu(k,1906) = lu(k,1906) - lu(k,1798) * lu(k,1894)
    8776   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1799) * lu(k,1894)
    8777   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1800) * lu(k,1894)
    8778   254840160 :          lu(k,1909) = lu(k,1909) - lu(k,1801) * lu(k,1894)
    8779   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1802) * lu(k,1894)
    8780   254840160 :          lu(k,1951) = lu(k,1951) - lu(k,1794) * lu(k,1947)
    8781   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1795) * lu(k,1947)
    8782   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1796) * lu(k,1947)
    8783   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1797) * lu(k,1947)
    8784   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1798) * lu(k,1947)
    8785   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1799) * lu(k,1947)
    8786   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1800) * lu(k,1947)
    8787   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1801) * lu(k,1947)
    8788   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1802) * lu(k,1947)
    8789   254840160 :          lu(k,1988) = lu(k,1988) - lu(k,1794) * lu(k,1984)
    8790   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1795) * lu(k,1984)
    8791   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1796) * lu(k,1984)
    8792   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1797) * lu(k,1984)
    8793   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1798) * lu(k,1984)
    8794   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1799) * lu(k,1984)
    8795   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1800) * lu(k,1984)
    8796   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1801) * lu(k,1984)
    8797   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1802) * lu(k,1984)
    8798   254840160 :          lu(k,2075) = lu(k,2075) - lu(k,1794) * lu(k,2073)
    8799   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1795) * lu(k,2073)
    8800   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1796) * lu(k,2073)
    8801   254840160 :          lu(k,2080) = lu(k,2080) - lu(k,1797) * lu(k,2073)
    8802   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,1798) * lu(k,2073)
    8803   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1799) * lu(k,2073)
    8804   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1800) * lu(k,2073)
    8805   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1801) * lu(k,2073)
    8806   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1802) * lu(k,2073)
    8807   254840160 :          lu(k,2107) = lu(k,2107) - lu(k,1794) * lu(k,2105)
    8808   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1795) * lu(k,2105)
    8809   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1796) * lu(k,2105)
    8810   254840160 :          lu(k,2112) = lu(k,2112) - lu(k,1797) * lu(k,2105)
    8811   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,1798) * lu(k,2105)
    8812   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1799) * lu(k,2105)
    8813   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1800) * lu(k,2105)
    8814   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1801) * lu(k,2105)
    8815   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1802) * lu(k,2105)
    8816   254840160 :          lu(k,2137) = lu(k,2137) - lu(k,1794) * lu(k,2135)
    8817   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1795) * lu(k,2135)
    8818   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1796) * lu(k,2135)
    8819   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1797) * lu(k,2135)
    8820   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,1798) * lu(k,2135)
    8821   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1799) * lu(k,2135)
    8822   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1800) * lu(k,2135)
    8823   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1801) * lu(k,2135)
    8824   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1802) * lu(k,2135)
    8825   254840160 :          lu(k,2172) = lu(k,2172) - lu(k,1794) * lu(k,2171)
    8826   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1795) * lu(k,2171)
    8827   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1796) * lu(k,2171)
    8828   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1797) * lu(k,2171)
    8829   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,1798) * lu(k,2171)
    8830   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1799) * lu(k,2171)
    8831   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1800) * lu(k,2171)
    8832   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1801) * lu(k,2171)
    8833   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1802) * lu(k,2171)
    8834   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1794) * lu(k,3063)
    8835   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1795) * lu(k,3063)
    8836   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1796) * lu(k,3063)
    8837   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1797) * lu(k,3063)
    8838   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1798) * lu(k,3063)
    8839   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1799) * lu(k,3063)
    8840   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1800) * lu(k,3063)
    8841   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1801) * lu(k,3063)
    8842   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1802) * lu(k,3063)
    8843   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1794) * lu(k,3322)
    8844   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1795) * lu(k,3322)
    8845   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1796) * lu(k,3322)
    8846   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1797) * lu(k,3322)
    8847   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1798) * lu(k,3322)
    8848   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1799) * lu(k,3322)
    8849   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1800) * lu(k,3322)
    8850   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1801) * lu(k,3322)
    8851   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1802) * lu(k,3322)
    8852   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1794) * lu(k,3416)
    8853   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1795) * lu(k,3416)
    8854   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1796) * lu(k,3416)
    8855   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1797) * lu(k,3416)
    8856   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1798) * lu(k,3416)
    8857   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1799) * lu(k,3416)
    8858   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1800) * lu(k,3416)
    8859   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1801) * lu(k,3416)
    8860   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1802) * lu(k,3416)
    8861   254840160 :          lu(k,3720) = lu(k,3720) - lu(k,1794) * lu(k,3715)
    8862   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1795) * lu(k,3715)
    8863   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1796) * lu(k,3715)
    8864   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1797) * lu(k,3715)
    8865   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1798) * lu(k,3715)
    8866   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1799) * lu(k,3715)
    8867   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1800) * lu(k,3715)
    8868   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1801) * lu(k,3715)
    8869   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1802) * lu(k,3715)
    8870   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1794) * lu(k,4046)
    8871   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1795) * lu(k,4046)
    8872   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1796) * lu(k,4046)
    8873   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1797) * lu(k,4046)
    8874   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1798) * lu(k,4046)
    8875   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1799) * lu(k,4046)
    8876   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1800) * lu(k,4046)
    8877   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1801) * lu(k,4046)
    8878   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1802) * lu(k,4046)
    8879   254840160 :          lu(k,1817) = 1._r8 / lu(k,1817)
    8880   254840160 :          lu(k,1818) = lu(k,1818) * lu(k,1817)
    8881   254840160 :          lu(k,1819) = lu(k,1819) * lu(k,1817)
    8882   254840160 :          lu(k,1820) = lu(k,1820) * lu(k,1817)
    8883   254840160 :          lu(k,1821) = lu(k,1821) * lu(k,1817)
    8884   254840160 :          lu(k,1822) = lu(k,1822) * lu(k,1817)
    8885   254840160 :          lu(k,1823) = lu(k,1823) * lu(k,1817)
    8886   254840160 :          lu(k,1824) = lu(k,1824) * lu(k,1817)
    8887   254840160 :          lu(k,1825) = lu(k,1825) * lu(k,1817)
    8888   254840160 :          lu(k,1826) = lu(k,1826) * lu(k,1817)
    8889   254840160 :          lu(k,1827) = lu(k,1827) * lu(k,1817)
    8890   254840160 :          lu(k,1828) = lu(k,1828) * lu(k,1817)
    8891   254840160 :          lu(k,1829) = lu(k,1829) * lu(k,1817)
    8892   254840160 :          lu(k,1830) = lu(k,1830) * lu(k,1817)
    8893   254840160 :          lu(k,1831) = lu(k,1831) * lu(k,1817)
    8894   254840160 :          lu(k,1832) = lu(k,1832) * lu(k,1817)
    8895   254840160 :          lu(k,1833) = lu(k,1833) * lu(k,1817)
    8896   254840160 :          lu(k,1986) = lu(k,1986) - lu(k,1818) * lu(k,1985)
    8897   254840160 :          lu(k,1987) = lu(k,1987) - lu(k,1819) * lu(k,1985)
    8898   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1820) * lu(k,1985)
    8899   254840160 :          lu(k,1991) = lu(k,1991) - lu(k,1821) * lu(k,1985)
    8900   254840160 :          lu(k,1992) = lu(k,1992) - lu(k,1822) * lu(k,1985)
    8901   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1823) * lu(k,1985)
    8902   254840160 :          lu(k,1995) = lu(k,1995) - lu(k,1824) * lu(k,1985)
    8903   254840160 :          lu(k,1997) = - lu(k,1825) * lu(k,1985)
    8904   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1826) * lu(k,1985)
    8905   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1827) * lu(k,1985)
    8906   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1828) * lu(k,1985)
    8907   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1829) * lu(k,1985)
    8908   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1830) * lu(k,1985)
    8909   254840160 :          lu(k,2004) = lu(k,2004) - lu(k,1831) * lu(k,1985)
    8910   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1832) * lu(k,1985)
    8911   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1833) * lu(k,1985)
    8912   254840160 :          lu(k,2877) = lu(k,2877) - lu(k,1818) * lu(k,2875)
    8913   254840160 :          lu(k,2878) = lu(k,2878) - lu(k,1819) * lu(k,2875)
    8914   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1820) * lu(k,2875)
    8915   254840160 :          lu(k,2882) = lu(k,2882) - lu(k,1821) * lu(k,2875)
    8916   254840160 :          lu(k,2883) = lu(k,2883) - lu(k,1822) * lu(k,2875)
    8917   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1823) * lu(k,2875)
    8918   254840160 :          lu(k,2886) = lu(k,2886) - lu(k,1824) * lu(k,2875)
    8919   254840160 :          lu(k,2893) = lu(k,2893) - lu(k,1825) * lu(k,2875)
    8920   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1826) * lu(k,2875)
    8921   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1827) * lu(k,2875)
    8922   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1828) * lu(k,2875)
    8923   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1829) * lu(k,2875)
    8924   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1830) * lu(k,2875)
    8925   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1831) * lu(k,2875)
    8926   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1832) * lu(k,2875)
    8927   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1833) * lu(k,2875)
    8928   254840160 :          lu(k,3066) = lu(k,3066) - lu(k,1818) * lu(k,3064)
    8929   254840160 :          lu(k,3067) = lu(k,3067) - lu(k,1819) * lu(k,3064)
    8930   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1820) * lu(k,3064)
    8931   254840160 :          lu(k,3071) = lu(k,3071) - lu(k,1821) * lu(k,3064)
    8932   254840160 :          lu(k,3072) = lu(k,3072) - lu(k,1822) * lu(k,3064)
    8933   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1823) * lu(k,3064)
    8934   254840160 :          lu(k,3075) = lu(k,3075) - lu(k,1824) * lu(k,3064)
    8935   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,1825) * lu(k,3064)
    8936   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1826) * lu(k,3064)
    8937   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1827) * lu(k,3064)
    8938   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1828) * lu(k,3064)
    8939   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1829) * lu(k,3064)
    8940   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1830) * lu(k,3064)
    8941   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1831) * lu(k,3064)
    8942   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1832) * lu(k,3064)
    8943   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1833) * lu(k,3064)
    8944   254840160 :          lu(k,3325) = lu(k,3325) - lu(k,1818) * lu(k,3323)
    8945   254840160 :          lu(k,3326) = lu(k,3326) - lu(k,1819) * lu(k,3323)
    8946   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1820) * lu(k,3323)
    8947   254840160 :          lu(k,3330) = lu(k,3330) - lu(k,1821) * lu(k,3323)
    8948   254840160 :          lu(k,3331) = lu(k,3331) - lu(k,1822) * lu(k,3323)
    8949   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1823) * lu(k,3323)
    8950   254840160 :          lu(k,3334) = lu(k,3334) - lu(k,1824) * lu(k,3323)
    8951   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,1825) * lu(k,3323)
    8952   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1826) * lu(k,3323)
    8953   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1827) * lu(k,3323)
    8954   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1828) * lu(k,3323)
    8955   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1829) * lu(k,3323)
    8956   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1830) * lu(k,3323)
    8957   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1831) * lu(k,3323)
    8958   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1832) * lu(k,3323)
    8959   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1833) * lu(k,3323)
    8960   254840160 :          lu(k,3419) = lu(k,3419) - lu(k,1818) * lu(k,3417)
    8961   254840160 :          lu(k,3420) = lu(k,3420) - lu(k,1819) * lu(k,3417)
    8962   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1820) * lu(k,3417)
    8963   254840160 :          lu(k,3424) = lu(k,3424) - lu(k,1821) * lu(k,3417)
    8964   254840160 :          lu(k,3425) = lu(k,3425) - lu(k,1822) * lu(k,3417)
    8965   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1823) * lu(k,3417)
    8966   254840160 :          lu(k,3428) = lu(k,3428) - lu(k,1824) * lu(k,3417)
    8967   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,1825) * lu(k,3417)
    8968   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1826) * lu(k,3417)
    8969   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1827) * lu(k,3417)
    8970   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1828) * lu(k,3417)
    8971   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1829) * lu(k,3417)
    8972   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1830) * lu(k,3417)
    8973   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1831) * lu(k,3417)
    8974   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1832) * lu(k,3417)
    8975   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1833) * lu(k,3417)
    8976   254840160 :          lu(k,3562) = lu(k,3562) - lu(k,1818) * lu(k,3560)
    8977   254840160 :          lu(k,3563) = lu(k,3563) - lu(k,1819) * lu(k,3560)
    8978   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1820) * lu(k,3560)
    8979   254840160 :          lu(k,3567) = lu(k,3567) - lu(k,1821) * lu(k,3560)
    8980   254840160 :          lu(k,3568) = lu(k,3568) - lu(k,1822) * lu(k,3560)
    8981   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1823) * lu(k,3560)
    8982   254840160 :          lu(k,3571) = lu(k,3571) - lu(k,1824) * lu(k,3560)
    8983   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,1825) * lu(k,3560)
    8984   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1826) * lu(k,3560)
    8985   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1827) * lu(k,3560)
    8986   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1828) * lu(k,3560)
    8987   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1829) * lu(k,3560)
    8988   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1830) * lu(k,3560)
    8989   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1831) * lu(k,3560)
    8990   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1832) * lu(k,3560)
    8991   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1833) * lu(k,3560)
    8992   254840160 :          lu(k,3718) = lu(k,3718) - lu(k,1818) * lu(k,3716)
    8993   254840160 :          lu(k,3719) = lu(k,3719) - lu(k,1819) * lu(k,3716)
    8994   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1820) * lu(k,3716)
    8995   254840160 :          lu(k,3723) = lu(k,3723) - lu(k,1821) * lu(k,3716)
    8996   254840160 :          lu(k,3724) = lu(k,3724) - lu(k,1822) * lu(k,3716)
    8997   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1823) * lu(k,3716)
    8998   254840160 :          lu(k,3727) = lu(k,3727) - lu(k,1824) * lu(k,3716)
    8999   254840160 :          lu(k,3734) = lu(k,3734) - lu(k,1825) * lu(k,3716)
    9000   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1826) * lu(k,3716)
    9001   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1827) * lu(k,3716)
    9002   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1828) * lu(k,3716)
    9003   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1829) * lu(k,3716)
    9004   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1830) * lu(k,3716)
    9005   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1831) * lu(k,3716)
    9006   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1832) * lu(k,3716)
    9007   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1833) * lu(k,3716)
    9008   254840160 :          lu(k,4049) = lu(k,4049) - lu(k,1818) * lu(k,4047)
    9009   254840160 :          lu(k,4050) = lu(k,4050) - lu(k,1819) * lu(k,4047)
    9010   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1820) * lu(k,4047)
    9011   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,1821) * lu(k,4047)
    9012   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,1822) * lu(k,4047)
    9013   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1823) * lu(k,4047)
    9014   254840160 :          lu(k,4058) = lu(k,4058) - lu(k,1824) * lu(k,4047)
    9015   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,1825) * lu(k,4047)
    9016   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1826) * lu(k,4047)
    9017   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1827) * lu(k,4047)
    9018   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1828) * lu(k,4047)
    9019   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1829) * lu(k,4047)
    9020   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1830) * lu(k,4047)
    9021   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1831) * lu(k,4047)
    9022   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1832) * lu(k,4047)
    9023   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1833) * lu(k,4047)
    9024             :       end do
    9025     8168963 :       end subroutine lu_fac40
    9026     8168963 :       subroutine lu_fac41( avec_len, lu )
    9027             :       use chem_mods, only : nzcnt
    9028             :       use shr_kind_mod, only : r8 => shr_kind_r8
    9029             :       implicit none
    9030             : !-----------------------------------------------------------------------
    9031             : ! ... dummy args
    9032             : !-----------------------------------------------------------------------
    9033             :       integer, intent(in) :: avec_len
    9034             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    9035             : !-----------------------------------------------------------------------
    9036             : ! ... local variables
    9037             : !-----------------------------------------------------------------------
    9038             :       integer :: k
    9039   263009123 :       do k = 1,avec_len
    9040   254840160 :          lu(k,1848) = 1._r8 / lu(k,1848)
    9041   254840160 :          lu(k,1849) = lu(k,1849) * lu(k,1848)
    9042   254840160 :          lu(k,1850) = lu(k,1850) * lu(k,1848)
    9043   254840160 :          lu(k,1851) = lu(k,1851) * lu(k,1848)
    9044   254840160 :          lu(k,1852) = lu(k,1852) * lu(k,1848)
    9045   254840160 :          lu(k,1853) = lu(k,1853) * lu(k,1848)
    9046   254840160 :          lu(k,1854) = lu(k,1854) * lu(k,1848)
    9047   254840160 :          lu(k,1855) = lu(k,1855) * lu(k,1848)
    9048   254840160 :          lu(k,1856) = lu(k,1856) * lu(k,1848)
    9049   254840160 :          lu(k,1857) = lu(k,1857) * lu(k,1848)
    9050   254840160 :          lu(k,1858) = lu(k,1858) * lu(k,1848)
    9051   254840160 :          lu(k,1859) = lu(k,1859) * lu(k,1848)
    9052   254840160 :          lu(k,1860) = lu(k,1860) * lu(k,1848)
    9053   254840160 :          lu(k,1861) = lu(k,1861) * lu(k,1848)
    9054   254840160 :          lu(k,1862) = lu(k,1862) * lu(k,1848)
    9055   254840160 :          lu(k,1863) = lu(k,1863) * lu(k,1848)
    9056   254840160 :          lu(k,1864) = lu(k,1864) * lu(k,1848)
    9057   254840160 :          lu(k,1865) = lu(k,1865) * lu(k,1848)
    9058   254840160 :          lu(k,1949) = lu(k,1949) - lu(k,1849) * lu(k,1948)
    9059   254840160 :          lu(k,1950) = lu(k,1950) - lu(k,1850) * lu(k,1948)
    9060   254840160 :          lu(k,1951) = lu(k,1951) - lu(k,1851) * lu(k,1948)
    9061   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1852) * lu(k,1948)
    9062   254840160 :          lu(k,1953) = lu(k,1953) - lu(k,1853) * lu(k,1948)
    9063   254840160 :          lu(k,1956) = lu(k,1956) - lu(k,1854) * lu(k,1948)
    9064   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1855) * lu(k,1948)
    9065   254840160 :          lu(k,1958) = lu(k,1958) - lu(k,1856) * lu(k,1948)
    9066   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1857) * lu(k,1948)
    9067   254840160 :          lu(k,1961) = lu(k,1961) - lu(k,1858) * lu(k,1948)
    9068   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1859) * lu(k,1948)
    9069   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1860) * lu(k,1948)
    9070   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1861) * lu(k,1948)
    9071   254840160 :          lu(k,1965) = lu(k,1965) - lu(k,1862) * lu(k,1948)
    9072   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1863) * lu(k,1948)
    9073   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1864) * lu(k,1948)
    9074   254840160 :          lu(k,1969) = - lu(k,1865) * lu(k,1948)
    9075   254840160 :          lu(k,2877) = lu(k,2877) - lu(k,1849) * lu(k,2876)
    9076   254840160 :          lu(k,2878) = lu(k,2878) - lu(k,1850) * lu(k,2876)
    9077   254840160 :          lu(k,2879) = lu(k,2879) - lu(k,1851) * lu(k,2876)
    9078   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1852) * lu(k,2876)
    9079   254840160 :          lu(k,2881) = lu(k,2881) - lu(k,1853) * lu(k,2876)
    9080   254840160 :          lu(k,2884) = lu(k,2884) - lu(k,1854) * lu(k,2876)
    9081   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1855) * lu(k,2876)
    9082   254840160 :          lu(k,2887) = lu(k,2887) - lu(k,1856) * lu(k,2876)
    9083   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1857) * lu(k,2876)
    9084   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1858) * lu(k,2876)
    9085   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1859) * lu(k,2876)
    9086   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1860) * lu(k,2876)
    9087   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1861) * lu(k,2876)
    9088   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1862) * lu(k,2876)
    9089   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1863) * lu(k,2876)
    9090   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1864) * lu(k,2876)
    9091   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,1865) * lu(k,2876)
    9092   254840160 :          lu(k,3066) = lu(k,3066) - lu(k,1849) * lu(k,3065)
    9093   254840160 :          lu(k,3067) = lu(k,3067) - lu(k,1850) * lu(k,3065)
    9094   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1851) * lu(k,3065)
    9095   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1852) * lu(k,3065)
    9096   254840160 :          lu(k,3070) = lu(k,3070) - lu(k,1853) * lu(k,3065)
    9097   254840160 :          lu(k,3073) = lu(k,3073) - lu(k,1854) * lu(k,3065)
    9098   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1855) * lu(k,3065)
    9099   254840160 :          lu(k,3076) = lu(k,3076) - lu(k,1856) * lu(k,3065)
    9100   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1857) * lu(k,3065)
    9101   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1858) * lu(k,3065)
    9102   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1859) * lu(k,3065)
    9103   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1860) * lu(k,3065)
    9104   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1861) * lu(k,3065)
    9105   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1862) * lu(k,3065)
    9106   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1863) * lu(k,3065)
    9107   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1864) * lu(k,3065)
    9108   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1865) * lu(k,3065)
    9109   254840160 :          lu(k,3325) = lu(k,3325) - lu(k,1849) * lu(k,3324)
    9110   254840160 :          lu(k,3326) = lu(k,3326) - lu(k,1850) * lu(k,3324)
    9111   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1851) * lu(k,3324)
    9112   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1852) * lu(k,3324)
    9113   254840160 :          lu(k,3329) = lu(k,3329) - lu(k,1853) * lu(k,3324)
    9114   254840160 :          lu(k,3332) = lu(k,3332) - lu(k,1854) * lu(k,3324)
    9115   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1855) * lu(k,3324)
    9116   254840160 :          lu(k,3335) = lu(k,3335) - lu(k,1856) * lu(k,3324)
    9117   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1857) * lu(k,3324)
    9118   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1858) * lu(k,3324)
    9119   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1859) * lu(k,3324)
    9120   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1860) * lu(k,3324)
    9121   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1861) * lu(k,3324)
    9122   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1862) * lu(k,3324)
    9123   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1863) * lu(k,3324)
    9124   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1864) * lu(k,3324)
    9125   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1865) * lu(k,3324)
    9126   254840160 :          lu(k,3419) = lu(k,3419) - lu(k,1849) * lu(k,3418)
    9127   254840160 :          lu(k,3420) = lu(k,3420) - lu(k,1850) * lu(k,3418)
    9128   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1851) * lu(k,3418)
    9129   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1852) * lu(k,3418)
    9130   254840160 :          lu(k,3423) = lu(k,3423) - lu(k,1853) * lu(k,3418)
    9131   254840160 :          lu(k,3426) = lu(k,3426) - lu(k,1854) * lu(k,3418)
    9132   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1855) * lu(k,3418)
    9133   254840160 :          lu(k,3429) = lu(k,3429) - lu(k,1856) * lu(k,3418)
    9134   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1857) * lu(k,3418)
    9135   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1858) * lu(k,3418)
    9136   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1859) * lu(k,3418)
    9137   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1860) * lu(k,3418)
    9138   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1861) * lu(k,3418)
    9139   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1862) * lu(k,3418)
    9140   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1863) * lu(k,3418)
    9141   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1864) * lu(k,3418)
    9142   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1865) * lu(k,3418)
    9143   254840160 :          lu(k,3562) = lu(k,3562) - lu(k,1849) * lu(k,3561)
    9144   254840160 :          lu(k,3563) = lu(k,3563) - lu(k,1850) * lu(k,3561)
    9145   254840160 :          lu(k,3564) = - lu(k,1851) * lu(k,3561)
    9146   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1852) * lu(k,3561)
    9147   254840160 :          lu(k,3566) = lu(k,3566) - lu(k,1853) * lu(k,3561)
    9148   254840160 :          lu(k,3569) = lu(k,3569) - lu(k,1854) * lu(k,3561)
    9149   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1855) * lu(k,3561)
    9150   254840160 :          lu(k,3572) = lu(k,3572) - lu(k,1856) * lu(k,3561)
    9151   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1857) * lu(k,3561)
    9152   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1858) * lu(k,3561)
    9153   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1859) * lu(k,3561)
    9154   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1860) * lu(k,3561)
    9155   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1861) * lu(k,3561)
    9156   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1862) * lu(k,3561)
    9157   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1863) * lu(k,3561)
    9158   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1864) * lu(k,3561)
    9159   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1865) * lu(k,3561)
    9160   254840160 :          lu(k,3718) = lu(k,3718) - lu(k,1849) * lu(k,3717)
    9161   254840160 :          lu(k,3719) = lu(k,3719) - lu(k,1850) * lu(k,3717)
    9162   254840160 :          lu(k,3720) = lu(k,3720) - lu(k,1851) * lu(k,3717)
    9163   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1852) * lu(k,3717)
    9164   254840160 :          lu(k,3722) = lu(k,3722) - lu(k,1853) * lu(k,3717)
    9165   254840160 :          lu(k,3725) = lu(k,3725) - lu(k,1854) * lu(k,3717)
    9166   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1855) * lu(k,3717)
    9167   254840160 :          lu(k,3728) = lu(k,3728) - lu(k,1856) * lu(k,3717)
    9168   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1857) * lu(k,3717)
    9169   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1858) * lu(k,3717)
    9170   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1859) * lu(k,3717)
    9171   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1860) * lu(k,3717)
    9172   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1861) * lu(k,3717)
    9173   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1862) * lu(k,3717)
    9174   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1863) * lu(k,3717)
    9175   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1864) * lu(k,3717)
    9176   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1865) * lu(k,3717)
    9177   254840160 :          lu(k,4049) = lu(k,4049) - lu(k,1849) * lu(k,4048)
    9178   254840160 :          lu(k,4050) = lu(k,4050) - lu(k,1850) * lu(k,4048)
    9179   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1851) * lu(k,4048)
    9180   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1852) * lu(k,4048)
    9181   254840160 :          lu(k,4053) = lu(k,4053) - lu(k,1853) * lu(k,4048)
    9182   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,1854) * lu(k,4048)
    9183   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1855) * lu(k,4048)
    9184   254840160 :          lu(k,4059) = lu(k,4059) - lu(k,1856) * lu(k,4048)
    9185   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1857) * lu(k,4048)
    9186   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1858) * lu(k,4048)
    9187   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1859) * lu(k,4048)
    9188   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1860) * lu(k,4048)
    9189   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1861) * lu(k,4048)
    9190   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1862) * lu(k,4048)
    9191   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1863) * lu(k,4048)
    9192   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1864) * lu(k,4048)
    9193   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1865) * lu(k,4048)
    9194   254840160 :          lu(k,1872) = 1._r8 / lu(k,1872)
    9195   254840160 :          lu(k,1873) = lu(k,1873) * lu(k,1872)
    9196   254840160 :          lu(k,1874) = lu(k,1874) * lu(k,1872)
    9197   254840160 :          lu(k,1875) = lu(k,1875) * lu(k,1872)
    9198   254840160 :          lu(k,1876) = lu(k,1876) * lu(k,1872)
    9199   254840160 :          lu(k,1877) = lu(k,1877) * lu(k,1872)
    9200   254840160 :          lu(k,1878) = lu(k,1878) * lu(k,1872)
    9201   254840160 :          lu(k,1879) = lu(k,1879) * lu(k,1872)
    9202   254840160 :          lu(k,1880) = lu(k,1880) * lu(k,1872)
    9203   254840160 :          lu(k,1881) = lu(k,1881) * lu(k,1872)
    9204   254840160 :          lu(k,1882) = lu(k,1882) * lu(k,1872)
    9205   254840160 :          lu(k,1897) = lu(k,1897) - lu(k,1873) * lu(k,1895)
    9206   254840160 :          lu(k,1898) = lu(k,1898) - lu(k,1874) * lu(k,1895)
    9207   254840160 :          lu(k,1903) = lu(k,1903) - lu(k,1875) * lu(k,1895)
    9208   254840160 :          lu(k,1904) = lu(k,1904) - lu(k,1876) * lu(k,1895)
    9209   254840160 :          lu(k,1905) = lu(k,1905) - lu(k,1877) * lu(k,1895)
    9210   254840160 :          lu(k,1906) = lu(k,1906) - lu(k,1878) * lu(k,1895)
    9211   254840160 :          lu(k,1907) = lu(k,1907) - lu(k,1879) * lu(k,1895)
    9212   254840160 :          lu(k,1908) = lu(k,1908) - lu(k,1880) * lu(k,1895)
    9213   254840160 :          lu(k,1909) = lu(k,1909) - lu(k,1881) * lu(k,1895)
    9214   254840160 :          lu(k,1910) = lu(k,1910) - lu(k,1882) * lu(k,1895)
    9215   254840160 :          lu(k,1951) = lu(k,1951) - lu(k,1873) * lu(k,1949)
    9216   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1874) * lu(k,1949)
    9217   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1875) * lu(k,1949)
    9218   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1876) * lu(k,1949)
    9219   254840160 :          lu(k,1961) = lu(k,1961) - lu(k,1877) * lu(k,1949)
    9220   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1878) * lu(k,1949)
    9221   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1879) * lu(k,1949)
    9222   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1880) * lu(k,1949)
    9223   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1881) * lu(k,1949)
    9224   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1882) * lu(k,1949)
    9225   254840160 :          lu(k,1988) = lu(k,1988) - lu(k,1873) * lu(k,1986)
    9226   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1874) * lu(k,1986)
    9227   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1875) * lu(k,1986)
    9228   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1876) * lu(k,1986)
    9229   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1877) * lu(k,1986)
    9230   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1878) * lu(k,1986)
    9231   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1879) * lu(k,1986)
    9232   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1880) * lu(k,1986)
    9233   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1881) * lu(k,1986)
    9234   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1882) * lu(k,1986)
    9235   254840160 :          lu(k,2075) = lu(k,2075) - lu(k,1873) * lu(k,2074)
    9236   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1874) * lu(k,2074)
    9237   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1875) * lu(k,2074)
    9238   254840160 :          lu(k,2080) = lu(k,2080) - lu(k,1876) * lu(k,2074)
    9239   254840160 :          lu(k,2082) = lu(k,2082) - lu(k,1877) * lu(k,2074)
    9240   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,1878) * lu(k,2074)
    9241   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1879) * lu(k,2074)
    9242   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1880) * lu(k,2074)
    9243   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1881) * lu(k,2074)
    9244   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1882) * lu(k,2074)
    9245   254840160 :          lu(k,2107) = lu(k,2107) - lu(k,1873) * lu(k,2106)
    9246   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1874) * lu(k,2106)
    9247   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1875) * lu(k,2106)
    9248   254840160 :          lu(k,2112) = lu(k,2112) - lu(k,1876) * lu(k,2106)
    9249   254840160 :          lu(k,2114) = lu(k,2114) - lu(k,1877) * lu(k,2106)
    9250   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,1878) * lu(k,2106)
    9251   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1879) * lu(k,2106)
    9252   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1880) * lu(k,2106)
    9253   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1881) * lu(k,2106)
    9254   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1882) * lu(k,2106)
    9255   254840160 :          lu(k,2137) = lu(k,2137) - lu(k,1873) * lu(k,2136)
    9256   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1874) * lu(k,2136)
    9257   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1875) * lu(k,2136)
    9258   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1876) * lu(k,2136)
    9259   254840160 :          lu(k,2143) = lu(k,2143) - lu(k,1877) * lu(k,2136)
    9260   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,1878) * lu(k,2136)
    9261   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1879) * lu(k,2136)
    9262   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1880) * lu(k,2136)
    9263   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1881) * lu(k,2136)
    9264   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1882) * lu(k,2136)
    9265   254840160 :          lu(k,2879) = lu(k,2879) - lu(k,1873) * lu(k,2877)
    9266   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1874) * lu(k,2877)
    9267   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1875) * lu(k,2877)
    9268   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1876) * lu(k,2877)
    9269   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1877) * lu(k,2877)
    9270   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1878) * lu(k,2877)
    9271   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1879) * lu(k,2877)
    9272   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1880) * lu(k,2877)
    9273   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1881) * lu(k,2877)
    9274   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1882) * lu(k,2877)
    9275   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1873) * lu(k,3066)
    9276   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1874) * lu(k,3066)
    9277   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1875) * lu(k,3066)
    9278   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1876) * lu(k,3066)
    9279   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1877) * lu(k,3066)
    9280   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1878) * lu(k,3066)
    9281   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1879) * lu(k,3066)
    9282   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1880) * lu(k,3066)
    9283   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1881) * lu(k,3066)
    9284   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1882) * lu(k,3066)
    9285   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1873) * lu(k,3325)
    9286   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1874) * lu(k,3325)
    9287   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1875) * lu(k,3325)
    9288   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1876) * lu(k,3325)
    9289   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1877) * lu(k,3325)
    9290   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1878) * lu(k,3325)
    9291   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1879) * lu(k,3325)
    9292   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1880) * lu(k,3325)
    9293   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1881) * lu(k,3325)
    9294   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1882) * lu(k,3325)
    9295   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1873) * lu(k,3419)
    9296   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1874) * lu(k,3419)
    9297   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1875) * lu(k,3419)
    9298   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1876) * lu(k,3419)
    9299   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1877) * lu(k,3419)
    9300   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1878) * lu(k,3419)
    9301   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1879) * lu(k,3419)
    9302   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1880) * lu(k,3419)
    9303   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1881) * lu(k,3419)
    9304   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1882) * lu(k,3419)
    9305   254840160 :          lu(k,3564) = lu(k,3564) - lu(k,1873) * lu(k,3562)
    9306   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1874) * lu(k,3562)
    9307   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1875) * lu(k,3562)
    9308   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1876) * lu(k,3562)
    9309   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1877) * lu(k,3562)
    9310   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1878) * lu(k,3562)
    9311   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1879) * lu(k,3562)
    9312   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1880) * lu(k,3562)
    9313   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1881) * lu(k,3562)
    9314   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1882) * lu(k,3562)
    9315   254840160 :          lu(k,3720) = lu(k,3720) - lu(k,1873) * lu(k,3718)
    9316   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1874) * lu(k,3718)
    9317   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1875) * lu(k,3718)
    9318   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1876) * lu(k,3718)
    9319   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1877) * lu(k,3718)
    9320   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1878) * lu(k,3718)
    9321   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1879) * lu(k,3718)
    9322   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1880) * lu(k,3718)
    9323   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1881) * lu(k,3718)
    9324   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1882) * lu(k,3718)
    9325   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1873) * lu(k,4049)
    9326   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1874) * lu(k,4049)
    9327   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1875) * lu(k,4049)
    9328   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1876) * lu(k,4049)
    9329   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1877) * lu(k,4049)
    9330   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1878) * lu(k,4049)
    9331   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1879) * lu(k,4049)
    9332   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1880) * lu(k,4049)
    9333   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1881) * lu(k,4049)
    9334   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1882) * lu(k,4049)
    9335   254840160 :          lu(k,1896) = 1._r8 / lu(k,1896)
    9336   254840160 :          lu(k,1897) = lu(k,1897) * lu(k,1896)
    9337   254840160 :          lu(k,1898) = lu(k,1898) * lu(k,1896)
    9338   254840160 :          lu(k,1899) = lu(k,1899) * lu(k,1896)
    9339   254840160 :          lu(k,1900) = lu(k,1900) * lu(k,1896)
    9340   254840160 :          lu(k,1901) = lu(k,1901) * lu(k,1896)
    9341   254840160 :          lu(k,1902) = lu(k,1902) * lu(k,1896)
    9342   254840160 :          lu(k,1903) = lu(k,1903) * lu(k,1896)
    9343   254840160 :          lu(k,1904) = lu(k,1904) * lu(k,1896)
    9344   254840160 :          lu(k,1905) = lu(k,1905) * lu(k,1896)
    9345   254840160 :          lu(k,1906) = lu(k,1906) * lu(k,1896)
    9346   254840160 :          lu(k,1907) = lu(k,1907) * lu(k,1896)
    9347   254840160 :          lu(k,1908) = lu(k,1908) * lu(k,1896)
    9348   254840160 :          lu(k,1909) = lu(k,1909) * lu(k,1896)
    9349   254840160 :          lu(k,1910) = lu(k,1910) * lu(k,1896)
    9350   254840160 :          lu(k,1951) = lu(k,1951) - lu(k,1897) * lu(k,1950)
    9351   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1898) * lu(k,1950)
    9352   254840160 :          lu(k,1953) = lu(k,1953) - lu(k,1899) * lu(k,1950)
    9353   254840160 :          lu(k,1954) = - lu(k,1900) * lu(k,1950)
    9354   254840160 :          lu(k,1955) = - lu(k,1901) * lu(k,1950)
    9355   254840160 :          lu(k,1956) = lu(k,1956) - lu(k,1902) * lu(k,1950)
    9356   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1903) * lu(k,1950)
    9357   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1904) * lu(k,1950)
    9358   254840160 :          lu(k,1961) = lu(k,1961) - lu(k,1905) * lu(k,1950)
    9359   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1906) * lu(k,1950)
    9360   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1907) * lu(k,1950)
    9361   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1908) * lu(k,1950)
    9362   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1909) * lu(k,1950)
    9363   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1910) * lu(k,1950)
    9364   254840160 :          lu(k,1988) = lu(k,1988) - lu(k,1897) * lu(k,1987)
    9365   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1898) * lu(k,1987)
    9366   254840160 :          lu(k,1990) = - lu(k,1899) * lu(k,1987)
    9367   254840160 :          lu(k,1991) = lu(k,1991) - lu(k,1900) * lu(k,1987)
    9368   254840160 :          lu(k,1992) = lu(k,1992) - lu(k,1901) * lu(k,1987)
    9369   254840160 :          lu(k,1993) = - lu(k,1902) * lu(k,1987)
    9370   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1903) * lu(k,1987)
    9371   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1904) * lu(k,1987)
    9372   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1905) * lu(k,1987)
    9373   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1906) * lu(k,1987)
    9374   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1907) * lu(k,1987)
    9375   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1908) * lu(k,1987)
    9376   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1909) * lu(k,1987)
    9377   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1910) * lu(k,1987)
    9378   254840160 :          lu(k,2879) = lu(k,2879) - lu(k,1897) * lu(k,2878)
    9379   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1898) * lu(k,2878)
    9380   254840160 :          lu(k,2881) = lu(k,2881) - lu(k,1899) * lu(k,2878)
    9381   254840160 :          lu(k,2882) = lu(k,2882) - lu(k,1900) * lu(k,2878)
    9382   254840160 :          lu(k,2883) = lu(k,2883) - lu(k,1901) * lu(k,2878)
    9383   254840160 :          lu(k,2884) = lu(k,2884) - lu(k,1902) * lu(k,2878)
    9384   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1903) * lu(k,2878)
    9385   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1904) * lu(k,2878)
    9386   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1905) * lu(k,2878)
    9387   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1906) * lu(k,2878)
    9388   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1907) * lu(k,2878)
    9389   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1908) * lu(k,2878)
    9390   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1909) * lu(k,2878)
    9391   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1910) * lu(k,2878)
    9392   254840160 :          lu(k,3068) = lu(k,3068) - lu(k,1897) * lu(k,3067)
    9393   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1898) * lu(k,3067)
    9394   254840160 :          lu(k,3070) = lu(k,3070) - lu(k,1899) * lu(k,3067)
    9395   254840160 :          lu(k,3071) = lu(k,3071) - lu(k,1900) * lu(k,3067)
    9396   254840160 :          lu(k,3072) = lu(k,3072) - lu(k,1901) * lu(k,3067)
    9397   254840160 :          lu(k,3073) = lu(k,3073) - lu(k,1902) * lu(k,3067)
    9398   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1903) * lu(k,3067)
    9399   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1904) * lu(k,3067)
    9400   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1905) * lu(k,3067)
    9401   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1906) * lu(k,3067)
    9402   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1907) * lu(k,3067)
    9403   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1908) * lu(k,3067)
    9404   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1909) * lu(k,3067)
    9405   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1910) * lu(k,3067)
    9406   254840160 :          lu(k,3327) = lu(k,3327) - lu(k,1897) * lu(k,3326)
    9407   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1898) * lu(k,3326)
    9408   254840160 :          lu(k,3329) = lu(k,3329) - lu(k,1899) * lu(k,3326)
    9409   254840160 :          lu(k,3330) = lu(k,3330) - lu(k,1900) * lu(k,3326)
    9410   254840160 :          lu(k,3331) = lu(k,3331) - lu(k,1901) * lu(k,3326)
    9411   254840160 :          lu(k,3332) = lu(k,3332) - lu(k,1902) * lu(k,3326)
    9412   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1903) * lu(k,3326)
    9413   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1904) * lu(k,3326)
    9414   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1905) * lu(k,3326)
    9415   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1906) * lu(k,3326)
    9416   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1907) * lu(k,3326)
    9417   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1908) * lu(k,3326)
    9418   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1909) * lu(k,3326)
    9419   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1910) * lu(k,3326)
    9420   254840160 :          lu(k,3421) = lu(k,3421) - lu(k,1897) * lu(k,3420)
    9421   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1898) * lu(k,3420)
    9422   254840160 :          lu(k,3423) = lu(k,3423) - lu(k,1899) * lu(k,3420)
    9423   254840160 :          lu(k,3424) = lu(k,3424) - lu(k,1900) * lu(k,3420)
    9424   254840160 :          lu(k,3425) = lu(k,3425) - lu(k,1901) * lu(k,3420)
    9425   254840160 :          lu(k,3426) = lu(k,3426) - lu(k,1902) * lu(k,3420)
    9426   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1903) * lu(k,3420)
    9427   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1904) * lu(k,3420)
    9428   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1905) * lu(k,3420)
    9429   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1906) * lu(k,3420)
    9430   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1907) * lu(k,3420)
    9431   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1908) * lu(k,3420)
    9432   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1909) * lu(k,3420)
    9433   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1910) * lu(k,3420)
    9434   254840160 :          lu(k,3564) = lu(k,3564) - lu(k,1897) * lu(k,3563)
    9435   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1898) * lu(k,3563)
    9436   254840160 :          lu(k,3566) = lu(k,3566) - lu(k,1899) * lu(k,3563)
    9437   254840160 :          lu(k,3567) = lu(k,3567) - lu(k,1900) * lu(k,3563)
    9438   254840160 :          lu(k,3568) = lu(k,3568) - lu(k,1901) * lu(k,3563)
    9439   254840160 :          lu(k,3569) = lu(k,3569) - lu(k,1902) * lu(k,3563)
    9440   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1903) * lu(k,3563)
    9441   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1904) * lu(k,3563)
    9442   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1905) * lu(k,3563)
    9443   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1906) * lu(k,3563)
    9444   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1907) * lu(k,3563)
    9445   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1908) * lu(k,3563)
    9446   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1909) * lu(k,3563)
    9447   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1910) * lu(k,3563)
    9448   254840160 :          lu(k,3720) = lu(k,3720) - lu(k,1897) * lu(k,3719)
    9449   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1898) * lu(k,3719)
    9450   254840160 :          lu(k,3722) = lu(k,3722) - lu(k,1899) * lu(k,3719)
    9451   254840160 :          lu(k,3723) = lu(k,3723) - lu(k,1900) * lu(k,3719)
    9452   254840160 :          lu(k,3724) = lu(k,3724) - lu(k,1901) * lu(k,3719)
    9453   254840160 :          lu(k,3725) = lu(k,3725) - lu(k,1902) * lu(k,3719)
    9454   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1903) * lu(k,3719)
    9455   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1904) * lu(k,3719)
    9456   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1905) * lu(k,3719)
    9457   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1906) * lu(k,3719)
    9458   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1907) * lu(k,3719)
    9459   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1908) * lu(k,3719)
    9460   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1909) * lu(k,3719)
    9461   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1910) * lu(k,3719)
    9462   254840160 :          lu(k,4051) = lu(k,4051) - lu(k,1897) * lu(k,4050)
    9463   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1898) * lu(k,4050)
    9464   254840160 :          lu(k,4053) = lu(k,4053) - lu(k,1899) * lu(k,4050)
    9465   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,1900) * lu(k,4050)
    9466   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,1901) * lu(k,4050)
    9467   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,1902) * lu(k,4050)
    9468   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1903) * lu(k,4050)
    9469   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1904) * lu(k,4050)
    9470   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1905) * lu(k,4050)
    9471   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1906) * lu(k,4050)
    9472   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1907) * lu(k,4050)
    9473   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1908) * lu(k,4050)
    9474   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1909) * lu(k,4050)
    9475   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1910) * lu(k,4050)
    9476   254840160 :          lu(k,1916) = 1._r8 / lu(k,1916)
    9477   254840160 :          lu(k,1917) = lu(k,1917) * lu(k,1916)
    9478   254840160 :          lu(k,1918) = lu(k,1918) * lu(k,1916)
    9479   254840160 :          lu(k,1919) = lu(k,1919) * lu(k,1916)
    9480   254840160 :          lu(k,1920) = lu(k,1920) * lu(k,1916)
    9481   254840160 :          lu(k,1921) = lu(k,1921) * lu(k,1916)
    9482   254840160 :          lu(k,1922) = lu(k,1922) * lu(k,1916)
    9483   254840160 :          lu(k,1923) = lu(k,1923) * lu(k,1916)
    9484   254840160 :          lu(k,1924) = lu(k,1924) * lu(k,1916)
    9485   254840160 :          lu(k,1925) = lu(k,1925) * lu(k,1916)
    9486   254840160 :          lu(k,1952) = lu(k,1952) - lu(k,1917) * lu(k,1951)
    9487   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1918) * lu(k,1951)
    9488   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1919) * lu(k,1951)
    9489   254840160 :          lu(k,1960) = lu(k,1960) - lu(k,1920) * lu(k,1951)
    9490   254840160 :          lu(k,1962) = lu(k,1962) - lu(k,1921) * lu(k,1951)
    9491   254840160 :          lu(k,1963) = lu(k,1963) - lu(k,1922) * lu(k,1951)
    9492   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1923) * lu(k,1951)
    9493   254840160 :          lu(k,1967) = lu(k,1967) - lu(k,1924) * lu(k,1951)
    9494   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1925) * lu(k,1951)
    9495   254840160 :          lu(k,1989) = lu(k,1989) - lu(k,1917) * lu(k,1988)
    9496   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1918) * lu(k,1988)
    9497   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1919) * lu(k,1988)
    9498   254840160 :          lu(k,1999) = lu(k,1999) - lu(k,1920) * lu(k,1988)
    9499   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1921) * lu(k,1988)
    9500   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1922) * lu(k,1988)
    9501   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1923) * lu(k,1988)
    9502   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1924) * lu(k,1988)
    9503   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1925) * lu(k,1988)
    9504   254840160 :          lu(k,2040) = lu(k,2040) - lu(k,1917) * lu(k,2039)
    9505   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1918) * lu(k,2039)
    9506   254840160 :          lu(k,2044) = lu(k,2044) - lu(k,1919) * lu(k,2039)
    9507   254840160 :          lu(k,2045) = lu(k,2045) - lu(k,1920) * lu(k,2039)
    9508   254840160 :          lu(k,2047) = lu(k,2047) - lu(k,1921) * lu(k,2039)
    9509   254840160 :          lu(k,2048) = lu(k,2048) - lu(k,1922) * lu(k,2039)
    9510   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1923) * lu(k,2039)
    9511   254840160 :          lu(k,2052) = lu(k,2052) - lu(k,1924) * lu(k,2039)
    9512   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1925) * lu(k,2039)
    9513   254840160 :          lu(k,2076) = lu(k,2076) - lu(k,1917) * lu(k,2075)
    9514   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1918) * lu(k,2075)
    9515   254840160 :          lu(k,2080) = lu(k,2080) - lu(k,1919) * lu(k,2075)
    9516   254840160 :          lu(k,2081) = lu(k,2081) - lu(k,1920) * lu(k,2075)
    9517   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,1921) * lu(k,2075)
    9518   254840160 :          lu(k,2085) = lu(k,2085) - lu(k,1922) * lu(k,2075)
    9519   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1923) * lu(k,2075)
    9520   254840160 :          lu(k,2088) = lu(k,2088) - lu(k,1924) * lu(k,2075)
    9521   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1925) * lu(k,2075)
    9522   254840160 :          lu(k,2108) = lu(k,2108) - lu(k,1917) * lu(k,2107)
    9523   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1918) * lu(k,2107)
    9524   254840160 :          lu(k,2112) = lu(k,2112) - lu(k,1919) * lu(k,2107)
    9525   254840160 :          lu(k,2113) = lu(k,2113) - lu(k,1920) * lu(k,2107)
    9526   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,1921) * lu(k,2107)
    9527   254840160 :          lu(k,2117) = lu(k,2117) - lu(k,1922) * lu(k,2107)
    9528   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1923) * lu(k,2107)
    9529   254840160 :          lu(k,2120) = lu(k,2120) - lu(k,1924) * lu(k,2107)
    9530   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1925) * lu(k,2107)
    9531   254840160 :          lu(k,2138) = lu(k,2138) - lu(k,1917) * lu(k,2137)
    9532   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1918) * lu(k,2137)
    9533   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1919) * lu(k,2137)
    9534   254840160 :          lu(k,2142) = lu(k,2142) - lu(k,1920) * lu(k,2137)
    9535   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,1921) * lu(k,2137)
    9536   254840160 :          lu(k,2146) = lu(k,2146) - lu(k,1922) * lu(k,2137)
    9537   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1923) * lu(k,2137)
    9538   254840160 :          lu(k,2149) = lu(k,2149) - lu(k,1924) * lu(k,2137)
    9539   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1925) * lu(k,2137)
    9540   254840160 :          lu(k,2173) = lu(k,2173) - lu(k,1917) * lu(k,2172)
    9541   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1918) * lu(k,2172)
    9542   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1919) * lu(k,2172)
    9543   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,1920) * lu(k,2172)
    9544   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,1921) * lu(k,2172)
    9545   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,1922) * lu(k,2172)
    9546   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1923) * lu(k,2172)
    9547   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,1924) * lu(k,2172)
    9548   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1925) * lu(k,2172)
    9549   254840160 :          lu(k,2880) = lu(k,2880) - lu(k,1917) * lu(k,2879)
    9550   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1918) * lu(k,2879)
    9551   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1919) * lu(k,2879)
    9552   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1920) * lu(k,2879)
    9553   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1921) * lu(k,2879)
    9554   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1922) * lu(k,2879)
    9555   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1923) * lu(k,2879)
    9556   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1924) * lu(k,2879)
    9557   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1925) * lu(k,2879)
    9558   254840160 :          lu(k,3069) = lu(k,3069) - lu(k,1917) * lu(k,3068)
    9559   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1918) * lu(k,3068)
    9560   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1919) * lu(k,3068)
    9561   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1920) * lu(k,3068)
    9562   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1921) * lu(k,3068)
    9563   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1922) * lu(k,3068)
    9564   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1923) * lu(k,3068)
    9565   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1924) * lu(k,3068)
    9566   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1925) * lu(k,3068)
    9567   254840160 :          lu(k,3328) = lu(k,3328) - lu(k,1917) * lu(k,3327)
    9568   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1918) * lu(k,3327)
    9569   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1919) * lu(k,3327)
    9570   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1920) * lu(k,3327)
    9571   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1921) * lu(k,3327)
    9572   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1922) * lu(k,3327)
    9573   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1923) * lu(k,3327)
    9574   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1924) * lu(k,3327)
    9575   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1925) * lu(k,3327)
    9576   254840160 :          lu(k,3422) = lu(k,3422) - lu(k,1917) * lu(k,3421)
    9577   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1918) * lu(k,3421)
    9578   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1919) * lu(k,3421)
    9579   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1920) * lu(k,3421)
    9580   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1921) * lu(k,3421)
    9581   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1922) * lu(k,3421)
    9582   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1923) * lu(k,3421)
    9583   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1924) * lu(k,3421)
    9584   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1925) * lu(k,3421)
    9585   254840160 :          lu(k,3565) = lu(k,3565) - lu(k,1917) * lu(k,3564)
    9586   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1918) * lu(k,3564)
    9587   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1919) * lu(k,3564)
    9588   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1920) * lu(k,3564)
    9589   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1921) * lu(k,3564)
    9590   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1922) * lu(k,3564)
    9591   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1923) * lu(k,3564)
    9592   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1924) * lu(k,3564)
    9593   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1925) * lu(k,3564)
    9594   254840160 :          lu(k,3721) = lu(k,3721) - lu(k,1917) * lu(k,3720)
    9595   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1918) * lu(k,3720)
    9596   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1919) * lu(k,3720)
    9597   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1920) * lu(k,3720)
    9598   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1921) * lu(k,3720)
    9599   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1922) * lu(k,3720)
    9600   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1923) * lu(k,3720)
    9601   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1924) * lu(k,3720)
    9602   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1925) * lu(k,3720)
    9603   254840160 :          lu(k,4052) = lu(k,4052) - lu(k,1917) * lu(k,4051)
    9604   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1918) * lu(k,4051)
    9605   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1919) * lu(k,4051)
    9606   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1920) * lu(k,4051)
    9607   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1921) * lu(k,4051)
    9608   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1922) * lu(k,4051)
    9609   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1923) * lu(k,4051)
    9610   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1924) * lu(k,4051)
    9611   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,1925) * lu(k,4051)
    9612             :       end do
    9613     8168963 :       end subroutine lu_fac41
    9614     8168963 :       subroutine lu_fac42( avec_len, lu )
    9615             :       use chem_mods, only : nzcnt
    9616             :       use shr_kind_mod, only : r8 => shr_kind_r8
    9617             :       implicit none
    9618             : !-----------------------------------------------------------------------
    9619             : ! ... dummy args
    9620             : !-----------------------------------------------------------------------
    9621             :       integer, intent(in) :: avec_len
    9622             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    9623             : !-----------------------------------------------------------------------
    9624             : ! ... local variables
    9625             : !-----------------------------------------------------------------------
    9626             :       integer :: k
    9627   263009123 :       do k = 1,avec_len
    9628   254840160 :          lu(k,1926) = 1._r8 / lu(k,1926)
    9629   254840160 :          lu(k,1927) = lu(k,1927) * lu(k,1926)
    9630   254840160 :          lu(k,1928) = lu(k,1928) * lu(k,1926)
    9631   254840160 :          lu(k,1929) = lu(k,1929) * lu(k,1926)
    9632   254840160 :          lu(k,1930) = lu(k,1930) * lu(k,1926)
    9633   254840160 :          lu(k,1931) = lu(k,1931) * lu(k,1926)
    9634   254840160 :          lu(k,1932) = lu(k,1932) * lu(k,1926)
    9635   254840160 :          lu(k,1933) = lu(k,1933) * lu(k,1926)
    9636   254840160 :          lu(k,1957) = lu(k,1957) - lu(k,1927) * lu(k,1952)
    9637   254840160 :          lu(k,1959) = lu(k,1959) - lu(k,1928) * lu(k,1952)
    9638   254840160 :          lu(k,1960) = lu(k,1960) - lu(k,1929) * lu(k,1952)
    9639   254840160 :          lu(k,1964) = lu(k,1964) - lu(k,1930) * lu(k,1952)
    9640   254840160 :          lu(k,1966) = - lu(k,1931) * lu(k,1952)
    9641   254840160 :          lu(k,1968) = lu(k,1968) - lu(k,1932) * lu(k,1952)
    9642   254840160 :          lu(k,1969) = lu(k,1969) - lu(k,1933) * lu(k,1952)
    9643   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1927) * lu(k,1989)
    9644   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1928) * lu(k,1989)
    9645   254840160 :          lu(k,1999) = lu(k,1999) - lu(k,1929) * lu(k,1989)
    9646   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1930) * lu(k,1989)
    9647   254840160 :          lu(k,2005) = - lu(k,1931) * lu(k,1989)
    9648   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1932) * lu(k,1989)
    9649   254840160 :          lu(k,2008) = - lu(k,1933) * lu(k,1989)
    9650   254840160 :          lu(k,2017) = lu(k,2017) - lu(k,1927) * lu(k,2015)
    9651   254840160 :          lu(k,2019) = lu(k,2019) - lu(k,1928) * lu(k,2015)
    9652   254840160 :          lu(k,2020) = - lu(k,1929) * lu(k,2015)
    9653   254840160 :          lu(k,2024) = lu(k,2024) - lu(k,1930) * lu(k,2015)
    9654   254840160 :          lu(k,2026) = lu(k,2026) - lu(k,1931) * lu(k,2015)
    9655   254840160 :          lu(k,2029) = lu(k,2029) - lu(k,1932) * lu(k,2015)
    9656   254840160 :          lu(k,2030) = lu(k,2030) - lu(k,1933) * lu(k,2015)
    9657   254840160 :          lu(k,2042) = lu(k,2042) - lu(k,1927) * lu(k,2040)
    9658   254840160 :          lu(k,2044) = lu(k,2044) - lu(k,1928) * lu(k,2040)
    9659   254840160 :          lu(k,2045) = lu(k,2045) - lu(k,1929) * lu(k,2040)
    9660   254840160 :          lu(k,2049) = lu(k,2049) - lu(k,1930) * lu(k,2040)
    9661   254840160 :          lu(k,2051) = lu(k,2051) - lu(k,1931) * lu(k,2040)
    9662   254840160 :          lu(k,2054) = lu(k,2054) - lu(k,1932) * lu(k,2040)
    9663   254840160 :          lu(k,2055) = lu(k,2055) - lu(k,1933) * lu(k,2040)
    9664   254840160 :          lu(k,2077) = lu(k,2077) - lu(k,1927) * lu(k,2076)
    9665   254840160 :          lu(k,2080) = lu(k,2080) - lu(k,1928) * lu(k,2076)
    9666   254840160 :          lu(k,2081) = lu(k,2081) - lu(k,1929) * lu(k,2076)
    9667   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,1930) * lu(k,2076)
    9668   254840160 :          lu(k,2087) = - lu(k,1931) * lu(k,2076)
    9669   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,1932) * lu(k,2076)
    9670   254840160 :          lu(k,2092) = lu(k,2092) - lu(k,1933) * lu(k,2076)
    9671   254840160 :          lu(k,2109) = lu(k,2109) - lu(k,1927) * lu(k,2108)
    9672   254840160 :          lu(k,2112) = lu(k,2112) - lu(k,1928) * lu(k,2108)
    9673   254840160 :          lu(k,2113) = lu(k,2113) - lu(k,1929) * lu(k,2108)
    9674   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,1930) * lu(k,2108)
    9675   254840160 :          lu(k,2119) = - lu(k,1931) * lu(k,2108)
    9676   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,1932) * lu(k,2108)
    9677   254840160 :          lu(k,2124) = lu(k,2124) - lu(k,1933) * lu(k,2108)
    9678   254840160 :          lu(k,2139) = lu(k,2139) - lu(k,1927) * lu(k,2138)
    9679   254840160 :          lu(k,2141) = lu(k,2141) - lu(k,1928) * lu(k,2138)
    9680   254840160 :          lu(k,2142) = lu(k,2142) - lu(k,1929) * lu(k,2138)
    9681   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,1930) * lu(k,2138)
    9682   254840160 :          lu(k,2148) = - lu(k,1931) * lu(k,2138)
    9683   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,1932) * lu(k,2138)
    9684   254840160 :          lu(k,2153) = lu(k,2153) - lu(k,1933) * lu(k,2138)
    9685   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,1927) * lu(k,2173)
    9686   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,1928) * lu(k,2173)
    9687   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,1929) * lu(k,2173)
    9688   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,1930) * lu(k,2173)
    9689   254840160 :          lu(k,2191) = lu(k,2191) - lu(k,1931) * lu(k,2173)
    9690   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,1932) * lu(k,2173)
    9691   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,1933) * lu(k,2173)
    9692   254840160 :          lu(k,2276) = - lu(k,1927) * lu(k,2275)
    9693   254840160 :          lu(k,2278) = lu(k,2278) - lu(k,1928) * lu(k,2275)
    9694   254840160 :          lu(k,2279) = - lu(k,1929) * lu(k,2275)
    9695   254840160 :          lu(k,2283) = lu(k,2283) - lu(k,1930) * lu(k,2275)
    9696   254840160 :          lu(k,2285) = - lu(k,1931) * lu(k,2275)
    9697   254840160 :          lu(k,2287) = lu(k,2287) - lu(k,1932) * lu(k,2275)
    9698   254840160 :          lu(k,2288) = lu(k,2288) - lu(k,1933) * lu(k,2275)
    9699   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1927) * lu(k,2880)
    9700   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1928) * lu(k,2880)
    9701   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1929) * lu(k,2880)
    9702   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1930) * lu(k,2880)
    9703   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,1931) * lu(k,2880)
    9704   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1932) * lu(k,2880)
    9705   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,1933) * lu(k,2880)
    9706   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1927) * lu(k,3069)
    9707   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1928) * lu(k,3069)
    9708   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1929) * lu(k,3069)
    9709   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1930) * lu(k,3069)
    9710   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,1931) * lu(k,3069)
    9711   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1932) * lu(k,3069)
    9712   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1933) * lu(k,3069)
    9713   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1927) * lu(k,3328)
    9714   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1928) * lu(k,3328)
    9715   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1929) * lu(k,3328)
    9716   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1930) * lu(k,3328)
    9717   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,1931) * lu(k,3328)
    9718   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1932) * lu(k,3328)
    9719   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1933) * lu(k,3328)
    9720   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1927) * lu(k,3422)
    9721   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1928) * lu(k,3422)
    9722   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1929) * lu(k,3422)
    9723   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1930) * lu(k,3422)
    9724   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,1931) * lu(k,3422)
    9725   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1932) * lu(k,3422)
    9726   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1933) * lu(k,3422)
    9727   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1927) * lu(k,3565)
    9728   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1928) * lu(k,3565)
    9729   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1929) * lu(k,3565)
    9730   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1930) * lu(k,3565)
    9731   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1931) * lu(k,3565)
    9732   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1932) * lu(k,3565)
    9733   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1933) * lu(k,3565)
    9734   254840160 :          lu(k,3644) = lu(k,3644) - lu(k,1927) * lu(k,3643)
    9735   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,1928) * lu(k,3643)
    9736   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,1929) * lu(k,3643)
    9737   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,1930) * lu(k,3643)
    9738   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,1931) * lu(k,3643)
    9739   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,1932) * lu(k,3643)
    9740   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,1933) * lu(k,3643)
    9741   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1927) * lu(k,3721)
    9742   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1928) * lu(k,3721)
    9743   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1929) * lu(k,3721)
    9744   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1930) * lu(k,3721)
    9745   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1931) * lu(k,3721)
    9746   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1932) * lu(k,3721)
    9747   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1933) * lu(k,3721)
    9748   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1927) * lu(k,4052)
    9749   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1928) * lu(k,4052)
    9750   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1929) * lu(k,4052)
    9751   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1930) * lu(k,4052)
    9752   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1931) * lu(k,4052)
    9753   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1932) * lu(k,4052)
    9754   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1933) * lu(k,4052)
    9755   254840160 :          lu(k,1953) = 1._r8 / lu(k,1953)
    9756   254840160 :          lu(k,1954) = lu(k,1954) * lu(k,1953)
    9757   254840160 :          lu(k,1955) = lu(k,1955) * lu(k,1953)
    9758   254840160 :          lu(k,1956) = lu(k,1956) * lu(k,1953)
    9759   254840160 :          lu(k,1957) = lu(k,1957) * lu(k,1953)
    9760   254840160 :          lu(k,1958) = lu(k,1958) * lu(k,1953)
    9761   254840160 :          lu(k,1959) = lu(k,1959) * lu(k,1953)
    9762   254840160 :          lu(k,1960) = lu(k,1960) * lu(k,1953)
    9763   254840160 :          lu(k,1961) = lu(k,1961) * lu(k,1953)
    9764   254840160 :          lu(k,1962) = lu(k,1962) * lu(k,1953)
    9765   254840160 :          lu(k,1963) = lu(k,1963) * lu(k,1953)
    9766   254840160 :          lu(k,1964) = lu(k,1964) * lu(k,1953)
    9767   254840160 :          lu(k,1965) = lu(k,1965) * lu(k,1953)
    9768   254840160 :          lu(k,1966) = lu(k,1966) * lu(k,1953)
    9769   254840160 :          lu(k,1967) = lu(k,1967) * lu(k,1953)
    9770   254840160 :          lu(k,1968) = lu(k,1968) * lu(k,1953)
    9771   254840160 :          lu(k,1969) = lu(k,1969) * lu(k,1953)
    9772   254840160 :          lu(k,1991) = lu(k,1991) - lu(k,1954) * lu(k,1990)
    9773   254840160 :          lu(k,1992) = lu(k,1992) - lu(k,1955) * lu(k,1990)
    9774   254840160 :          lu(k,1993) = lu(k,1993) - lu(k,1956) * lu(k,1990)
    9775   254840160 :          lu(k,1994) = lu(k,1994) - lu(k,1957) * lu(k,1990)
    9776   254840160 :          lu(k,1996) = - lu(k,1958) * lu(k,1990)
    9777   254840160 :          lu(k,1998) = lu(k,1998) - lu(k,1959) * lu(k,1990)
    9778   254840160 :          lu(k,1999) = lu(k,1999) - lu(k,1960) * lu(k,1990)
    9779   254840160 :          lu(k,2000) = lu(k,2000) - lu(k,1961) * lu(k,1990)
    9780   254840160 :          lu(k,2001) = lu(k,2001) - lu(k,1962) * lu(k,1990)
    9781   254840160 :          lu(k,2002) = lu(k,2002) - lu(k,1963) * lu(k,1990)
    9782   254840160 :          lu(k,2003) = lu(k,2003) - lu(k,1964) * lu(k,1990)
    9783   254840160 :          lu(k,2004) = lu(k,2004) - lu(k,1965) * lu(k,1990)
    9784   254840160 :          lu(k,2005) = lu(k,2005) - lu(k,1966) * lu(k,1990)
    9785   254840160 :          lu(k,2006) = lu(k,2006) - lu(k,1967) * lu(k,1990)
    9786   254840160 :          lu(k,2007) = lu(k,2007) - lu(k,1968) * lu(k,1990)
    9787   254840160 :          lu(k,2008) = lu(k,2008) - lu(k,1969) * lu(k,1990)
    9788   254840160 :          lu(k,2882) = lu(k,2882) - lu(k,1954) * lu(k,2881)
    9789   254840160 :          lu(k,2883) = lu(k,2883) - lu(k,1955) * lu(k,2881)
    9790   254840160 :          lu(k,2884) = lu(k,2884) - lu(k,1956) * lu(k,2881)
    9791   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1957) * lu(k,2881)
    9792   254840160 :          lu(k,2887) = lu(k,2887) - lu(k,1958) * lu(k,2881)
    9793   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1959) * lu(k,2881)
    9794   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1960) * lu(k,2881)
    9795   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,1961) * lu(k,2881)
    9796   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,1962) * lu(k,2881)
    9797   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,1963) * lu(k,2881)
    9798   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,1964) * lu(k,2881)
    9799   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,1965) * lu(k,2881)
    9800   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,1966) * lu(k,2881)
    9801   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,1967) * lu(k,2881)
    9802   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,1968) * lu(k,2881)
    9803   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,1969) * lu(k,2881)
    9804   254840160 :          lu(k,3071) = lu(k,3071) - lu(k,1954) * lu(k,3070)
    9805   254840160 :          lu(k,3072) = lu(k,3072) - lu(k,1955) * lu(k,3070)
    9806   254840160 :          lu(k,3073) = lu(k,3073) - lu(k,1956) * lu(k,3070)
    9807   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1957) * lu(k,3070)
    9808   254840160 :          lu(k,3076) = lu(k,3076) - lu(k,1958) * lu(k,3070)
    9809   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1959) * lu(k,3070)
    9810   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1960) * lu(k,3070)
    9811   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,1961) * lu(k,3070)
    9812   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,1962) * lu(k,3070)
    9813   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,1963) * lu(k,3070)
    9814   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,1964) * lu(k,3070)
    9815   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,1965) * lu(k,3070)
    9816   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,1966) * lu(k,3070)
    9817   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,1967) * lu(k,3070)
    9818   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,1968) * lu(k,3070)
    9819   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,1969) * lu(k,3070)
    9820   254840160 :          lu(k,3330) = lu(k,3330) - lu(k,1954) * lu(k,3329)
    9821   254840160 :          lu(k,3331) = lu(k,3331) - lu(k,1955) * lu(k,3329)
    9822   254840160 :          lu(k,3332) = lu(k,3332) - lu(k,1956) * lu(k,3329)
    9823   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1957) * lu(k,3329)
    9824   254840160 :          lu(k,3335) = lu(k,3335) - lu(k,1958) * lu(k,3329)
    9825   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1959) * lu(k,3329)
    9826   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1960) * lu(k,3329)
    9827   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,1961) * lu(k,3329)
    9828   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,1962) * lu(k,3329)
    9829   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,1963) * lu(k,3329)
    9830   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,1964) * lu(k,3329)
    9831   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,1965) * lu(k,3329)
    9832   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,1966) * lu(k,3329)
    9833   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,1967) * lu(k,3329)
    9834   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,1968) * lu(k,3329)
    9835   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,1969) * lu(k,3329)
    9836   254840160 :          lu(k,3424) = lu(k,3424) - lu(k,1954) * lu(k,3423)
    9837   254840160 :          lu(k,3425) = lu(k,3425) - lu(k,1955) * lu(k,3423)
    9838   254840160 :          lu(k,3426) = lu(k,3426) - lu(k,1956) * lu(k,3423)
    9839   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1957) * lu(k,3423)
    9840   254840160 :          lu(k,3429) = lu(k,3429) - lu(k,1958) * lu(k,3423)
    9841   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1959) * lu(k,3423)
    9842   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1960) * lu(k,3423)
    9843   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,1961) * lu(k,3423)
    9844   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,1962) * lu(k,3423)
    9845   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,1963) * lu(k,3423)
    9846   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,1964) * lu(k,3423)
    9847   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,1965) * lu(k,3423)
    9848   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,1966) * lu(k,3423)
    9849   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,1967) * lu(k,3423)
    9850   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,1968) * lu(k,3423)
    9851   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,1969) * lu(k,3423)
    9852   254840160 :          lu(k,3567) = lu(k,3567) - lu(k,1954) * lu(k,3566)
    9853   254840160 :          lu(k,3568) = lu(k,3568) - lu(k,1955) * lu(k,3566)
    9854   254840160 :          lu(k,3569) = lu(k,3569) - lu(k,1956) * lu(k,3566)
    9855   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1957) * lu(k,3566)
    9856   254840160 :          lu(k,3572) = lu(k,3572) - lu(k,1958) * lu(k,3566)
    9857   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1959) * lu(k,3566)
    9858   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1960) * lu(k,3566)
    9859   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,1961) * lu(k,3566)
    9860   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,1962) * lu(k,3566)
    9861   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,1963) * lu(k,3566)
    9862   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,1964) * lu(k,3566)
    9863   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,1965) * lu(k,3566)
    9864   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,1966) * lu(k,3566)
    9865   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,1967) * lu(k,3566)
    9866   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,1968) * lu(k,3566)
    9867   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,1969) * lu(k,3566)
    9868   254840160 :          lu(k,3723) = lu(k,3723) - lu(k,1954) * lu(k,3722)
    9869   254840160 :          lu(k,3724) = lu(k,3724) - lu(k,1955) * lu(k,3722)
    9870   254840160 :          lu(k,3725) = lu(k,3725) - lu(k,1956) * lu(k,3722)
    9871   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1957) * lu(k,3722)
    9872   254840160 :          lu(k,3728) = lu(k,3728) - lu(k,1958) * lu(k,3722)
    9873   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1959) * lu(k,3722)
    9874   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1960) * lu(k,3722)
    9875   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,1961) * lu(k,3722)
    9876   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,1962) * lu(k,3722)
    9877   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,1963) * lu(k,3722)
    9878   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,1964) * lu(k,3722)
    9879   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,1965) * lu(k,3722)
    9880   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,1966) * lu(k,3722)
    9881   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,1967) * lu(k,3722)
    9882   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,1968) * lu(k,3722)
    9883   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,1969) * lu(k,3722)
    9884   254840160 :          lu(k,4054) = lu(k,4054) - lu(k,1954) * lu(k,4053)
    9885   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,1955) * lu(k,4053)
    9886   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,1956) * lu(k,4053)
    9887   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1957) * lu(k,4053)
    9888   254840160 :          lu(k,4059) = lu(k,4059) - lu(k,1958) * lu(k,4053)
    9889   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1959) * lu(k,4053)
    9890   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1960) * lu(k,4053)
    9891   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,1961) * lu(k,4053)
    9892   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,1962) * lu(k,4053)
    9893   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,1963) * lu(k,4053)
    9894   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,1964) * lu(k,4053)
    9895   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,1965) * lu(k,4053)
    9896   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,1966) * lu(k,4053)
    9897   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,1967) * lu(k,4053)
    9898   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,1968) * lu(k,4053)
    9899   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,1969) * lu(k,4053)
    9900   254840160 :          lu(k,1991) = 1._r8 / lu(k,1991)
    9901   254840160 :          lu(k,1992) = lu(k,1992) * lu(k,1991)
    9902   254840160 :          lu(k,1993) = lu(k,1993) * lu(k,1991)
    9903   254840160 :          lu(k,1994) = lu(k,1994) * lu(k,1991)
    9904   254840160 :          lu(k,1995) = lu(k,1995) * lu(k,1991)
    9905   254840160 :          lu(k,1996) = lu(k,1996) * lu(k,1991)
    9906   254840160 :          lu(k,1997) = lu(k,1997) * lu(k,1991)
    9907   254840160 :          lu(k,1998) = lu(k,1998) * lu(k,1991)
    9908   254840160 :          lu(k,1999) = lu(k,1999) * lu(k,1991)
    9909   254840160 :          lu(k,2000) = lu(k,2000) * lu(k,1991)
    9910   254840160 :          lu(k,2001) = lu(k,2001) * lu(k,1991)
    9911   254840160 :          lu(k,2002) = lu(k,2002) * lu(k,1991)
    9912   254840160 :          lu(k,2003) = lu(k,2003) * lu(k,1991)
    9913   254840160 :          lu(k,2004) = lu(k,2004) * lu(k,1991)
    9914   254840160 :          lu(k,2005) = lu(k,2005) * lu(k,1991)
    9915   254840160 :          lu(k,2006) = lu(k,2006) * lu(k,1991)
    9916   254840160 :          lu(k,2007) = lu(k,2007) * lu(k,1991)
    9917   254840160 :          lu(k,2008) = lu(k,2008) * lu(k,1991)
    9918   254840160 :          lu(k,2883) = lu(k,2883) - lu(k,1992) * lu(k,2882)
    9919   254840160 :          lu(k,2884) = lu(k,2884) - lu(k,1993) * lu(k,2882)
    9920   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,1994) * lu(k,2882)
    9921   254840160 :          lu(k,2886) = lu(k,2886) - lu(k,1995) * lu(k,2882)
    9922   254840160 :          lu(k,2887) = lu(k,2887) - lu(k,1996) * lu(k,2882)
    9923   254840160 :          lu(k,2893) = lu(k,2893) - lu(k,1997) * lu(k,2882)
    9924   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,1998) * lu(k,2882)
    9925   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,1999) * lu(k,2882)
    9926   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2000) * lu(k,2882)
    9927   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2001) * lu(k,2882)
    9928   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2002) * lu(k,2882)
    9929   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2003) * lu(k,2882)
    9930   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2004) * lu(k,2882)
    9931   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2005) * lu(k,2882)
    9932   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2006) * lu(k,2882)
    9933   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2007) * lu(k,2882)
    9934   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2008) * lu(k,2882)
    9935   254840160 :          lu(k,3072) = lu(k,3072) - lu(k,1992) * lu(k,3071)
    9936   254840160 :          lu(k,3073) = lu(k,3073) - lu(k,1993) * lu(k,3071)
    9937   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,1994) * lu(k,3071)
    9938   254840160 :          lu(k,3075) = lu(k,3075) - lu(k,1995) * lu(k,3071)
    9939   254840160 :          lu(k,3076) = lu(k,3076) - lu(k,1996) * lu(k,3071)
    9940   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,1997) * lu(k,3071)
    9941   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,1998) * lu(k,3071)
    9942   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,1999) * lu(k,3071)
    9943   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2000) * lu(k,3071)
    9944   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2001) * lu(k,3071)
    9945   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2002) * lu(k,3071)
    9946   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2003) * lu(k,3071)
    9947   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2004) * lu(k,3071)
    9948   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2005) * lu(k,3071)
    9949   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2006) * lu(k,3071)
    9950   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2007) * lu(k,3071)
    9951   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2008) * lu(k,3071)
    9952   254840160 :          lu(k,3331) = lu(k,3331) - lu(k,1992) * lu(k,3330)
    9953   254840160 :          lu(k,3332) = lu(k,3332) - lu(k,1993) * lu(k,3330)
    9954   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,1994) * lu(k,3330)
    9955   254840160 :          lu(k,3334) = lu(k,3334) - lu(k,1995) * lu(k,3330)
    9956   254840160 :          lu(k,3335) = lu(k,3335) - lu(k,1996) * lu(k,3330)
    9957   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,1997) * lu(k,3330)
    9958   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,1998) * lu(k,3330)
    9959   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,1999) * lu(k,3330)
    9960   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2000) * lu(k,3330)
    9961   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2001) * lu(k,3330)
    9962   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2002) * lu(k,3330)
    9963   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2003) * lu(k,3330)
    9964   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2004) * lu(k,3330)
    9965   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2005) * lu(k,3330)
    9966   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2006) * lu(k,3330)
    9967   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2007) * lu(k,3330)
    9968   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2008) * lu(k,3330)
    9969   254840160 :          lu(k,3425) = lu(k,3425) - lu(k,1992) * lu(k,3424)
    9970   254840160 :          lu(k,3426) = lu(k,3426) - lu(k,1993) * lu(k,3424)
    9971   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,1994) * lu(k,3424)
    9972   254840160 :          lu(k,3428) = lu(k,3428) - lu(k,1995) * lu(k,3424)
    9973   254840160 :          lu(k,3429) = lu(k,3429) - lu(k,1996) * lu(k,3424)
    9974   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,1997) * lu(k,3424)
    9975   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,1998) * lu(k,3424)
    9976   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,1999) * lu(k,3424)
    9977   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2000) * lu(k,3424)
    9978   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2001) * lu(k,3424)
    9979   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2002) * lu(k,3424)
    9980   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2003) * lu(k,3424)
    9981   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2004) * lu(k,3424)
    9982   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2005) * lu(k,3424)
    9983   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2006) * lu(k,3424)
    9984   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2007) * lu(k,3424)
    9985   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2008) * lu(k,3424)
    9986   254840160 :          lu(k,3568) = lu(k,3568) - lu(k,1992) * lu(k,3567)
    9987   254840160 :          lu(k,3569) = lu(k,3569) - lu(k,1993) * lu(k,3567)
    9988   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,1994) * lu(k,3567)
    9989   254840160 :          lu(k,3571) = lu(k,3571) - lu(k,1995) * lu(k,3567)
    9990   254840160 :          lu(k,3572) = lu(k,3572) - lu(k,1996) * lu(k,3567)
    9991   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,1997) * lu(k,3567)
    9992   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,1998) * lu(k,3567)
    9993   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,1999) * lu(k,3567)
    9994   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2000) * lu(k,3567)
    9995   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2001) * lu(k,3567)
    9996   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2002) * lu(k,3567)
    9997   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2003) * lu(k,3567)
    9998   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2004) * lu(k,3567)
    9999   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2005) * lu(k,3567)
   10000   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2006) * lu(k,3567)
   10001   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2007) * lu(k,3567)
   10002   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2008) * lu(k,3567)
   10003   254840160 :          lu(k,3724) = lu(k,3724) - lu(k,1992) * lu(k,3723)
   10004   254840160 :          lu(k,3725) = lu(k,3725) - lu(k,1993) * lu(k,3723)
   10005   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,1994) * lu(k,3723)
   10006   254840160 :          lu(k,3727) = lu(k,3727) - lu(k,1995) * lu(k,3723)
   10007   254840160 :          lu(k,3728) = lu(k,3728) - lu(k,1996) * lu(k,3723)
   10008   254840160 :          lu(k,3734) = lu(k,3734) - lu(k,1997) * lu(k,3723)
   10009   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,1998) * lu(k,3723)
   10010   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,1999) * lu(k,3723)
   10011   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2000) * lu(k,3723)
   10012   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2001) * lu(k,3723)
   10013   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2002) * lu(k,3723)
   10014   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2003) * lu(k,3723)
   10015   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2004) * lu(k,3723)
   10016   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2005) * lu(k,3723)
   10017   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2006) * lu(k,3723)
   10018   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2007) * lu(k,3723)
   10019   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2008) * lu(k,3723)
   10020   254840160 :          lu(k,4055) = lu(k,4055) - lu(k,1992) * lu(k,4054)
   10021   254840160 :          lu(k,4056) = lu(k,4056) - lu(k,1993) * lu(k,4054)
   10022   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,1994) * lu(k,4054)
   10023   254840160 :          lu(k,4058) = lu(k,4058) - lu(k,1995) * lu(k,4054)
   10024   254840160 :          lu(k,4059) = lu(k,4059) - lu(k,1996) * lu(k,4054)
   10025   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,1997) * lu(k,4054)
   10026   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,1998) * lu(k,4054)
   10027   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,1999) * lu(k,4054)
   10028   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2000) * lu(k,4054)
   10029   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2001) * lu(k,4054)
   10030   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2002) * lu(k,4054)
   10031   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2003) * lu(k,4054)
   10032   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2004) * lu(k,4054)
   10033   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2005) * lu(k,4054)
   10034   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2006) * lu(k,4054)
   10035   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2007) * lu(k,4054)
   10036   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,2008) * lu(k,4054)
   10037             :       end do
   10038     8168963 :       end subroutine lu_fac42
   10039     8168963 :       subroutine lu_fac43( avec_len, lu )
   10040             :       use chem_mods, only : nzcnt
   10041             :       use shr_kind_mod, only : r8 => shr_kind_r8
   10042             :       implicit none
   10043             : !-----------------------------------------------------------------------
   10044             : ! ... dummy args
   10045             : !-----------------------------------------------------------------------
   10046             :       integer, intent(in) :: avec_len
   10047             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   10048             : !-----------------------------------------------------------------------
   10049             : ! ... local variables
   10050             : !-----------------------------------------------------------------------
   10051             :       integer :: k
   10052   263009123 :       do k = 1,avec_len
   10053   254840160 :          lu(k,2016) = 1._r8 / lu(k,2016)
   10054   254840160 :          lu(k,2017) = lu(k,2017) * lu(k,2016)
   10055   254840160 :          lu(k,2018) = lu(k,2018) * lu(k,2016)
   10056   254840160 :          lu(k,2019) = lu(k,2019) * lu(k,2016)
   10057   254840160 :          lu(k,2020) = lu(k,2020) * lu(k,2016)
   10058   254840160 :          lu(k,2021) = lu(k,2021) * lu(k,2016)
   10059   254840160 :          lu(k,2022) = lu(k,2022) * lu(k,2016)
   10060   254840160 :          lu(k,2023) = lu(k,2023) * lu(k,2016)
   10061   254840160 :          lu(k,2024) = lu(k,2024) * lu(k,2016)
   10062   254840160 :          lu(k,2025) = lu(k,2025) * lu(k,2016)
   10063   254840160 :          lu(k,2026) = lu(k,2026) * lu(k,2016)
   10064   254840160 :          lu(k,2027) = lu(k,2027) * lu(k,2016)
   10065   254840160 :          lu(k,2028) = lu(k,2028) * lu(k,2016)
   10066   254840160 :          lu(k,2029) = lu(k,2029) * lu(k,2016)
   10067   254840160 :          lu(k,2030) = lu(k,2030) * lu(k,2016)
   10068   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,2017) * lu(k,2174)
   10069   254840160 :          lu(k,2182) = - lu(k,2018) * lu(k,2174)
   10070   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,2019) * lu(k,2174)
   10071   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,2020) * lu(k,2174)
   10072   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,2021) * lu(k,2174)
   10073   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,2022) * lu(k,2174)
   10074   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,2023) * lu(k,2174)
   10075   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,2024) * lu(k,2174)
   10076   254840160 :          lu(k,2190) = lu(k,2190) - lu(k,2025) * lu(k,2174)
   10077   254840160 :          lu(k,2191) = lu(k,2191) - lu(k,2026) * lu(k,2174)
   10078   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,2027) * lu(k,2174)
   10079   254840160 :          lu(k,2193) = lu(k,2193) - lu(k,2028) * lu(k,2174)
   10080   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,2029) * lu(k,2174)
   10081   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,2030) * lu(k,2174)
   10082   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,2017) * lu(k,2883)
   10083   254840160 :          lu(k,2893) = lu(k,2893) - lu(k,2018) * lu(k,2883)
   10084   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2019) * lu(k,2883)
   10085   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2020) * lu(k,2883)
   10086   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2021) * lu(k,2883)
   10087   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2022) * lu(k,2883)
   10088   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2023) * lu(k,2883)
   10089   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2024) * lu(k,2883)
   10090   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2025) * lu(k,2883)
   10091   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2026) * lu(k,2883)
   10092   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2027) * lu(k,2883)
   10093   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2028) * lu(k,2883)
   10094   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2029) * lu(k,2883)
   10095   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2030) * lu(k,2883)
   10096   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,2017) * lu(k,3072)
   10097   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,2018) * lu(k,3072)
   10098   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2019) * lu(k,3072)
   10099   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2020) * lu(k,3072)
   10100   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2021) * lu(k,3072)
   10101   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2022) * lu(k,3072)
   10102   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2023) * lu(k,3072)
   10103   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2024) * lu(k,3072)
   10104   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2025) * lu(k,3072)
   10105   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2026) * lu(k,3072)
   10106   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2027) * lu(k,3072)
   10107   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2028) * lu(k,3072)
   10108   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2029) * lu(k,3072)
   10109   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2030) * lu(k,3072)
   10110   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,2017) * lu(k,3331)
   10111   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,2018) * lu(k,3331)
   10112   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2019) * lu(k,3331)
   10113   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2020) * lu(k,3331)
   10114   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2021) * lu(k,3331)
   10115   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2022) * lu(k,3331)
   10116   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2023) * lu(k,3331)
   10117   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2024) * lu(k,3331)
   10118   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2025) * lu(k,3331)
   10119   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2026) * lu(k,3331)
   10120   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2027) * lu(k,3331)
   10121   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2028) * lu(k,3331)
   10122   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2029) * lu(k,3331)
   10123   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2030) * lu(k,3331)
   10124   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,2017) * lu(k,3425)
   10125   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,2018) * lu(k,3425)
   10126   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2019) * lu(k,3425)
   10127   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2020) * lu(k,3425)
   10128   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2021) * lu(k,3425)
   10129   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2022) * lu(k,3425)
   10130   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2023) * lu(k,3425)
   10131   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2024) * lu(k,3425)
   10132   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2025) * lu(k,3425)
   10133   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2026) * lu(k,3425)
   10134   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2027) * lu(k,3425)
   10135   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2028) * lu(k,3425)
   10136   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2029) * lu(k,3425)
   10137   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2030) * lu(k,3425)
   10138   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,2017) * lu(k,3568)
   10139   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,2018) * lu(k,3568)
   10140   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2019) * lu(k,3568)
   10141   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2020) * lu(k,3568)
   10142   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2021) * lu(k,3568)
   10143   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2022) * lu(k,3568)
   10144   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2023) * lu(k,3568)
   10145   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2024) * lu(k,3568)
   10146   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2025) * lu(k,3568)
   10147   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2026) * lu(k,3568)
   10148   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2027) * lu(k,3568)
   10149   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2028) * lu(k,3568)
   10150   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2029) * lu(k,3568)
   10151   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2030) * lu(k,3568)
   10152   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,2017) * lu(k,3724)
   10153   254840160 :          lu(k,3734) = lu(k,3734) - lu(k,2018) * lu(k,3724)
   10154   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2019) * lu(k,3724)
   10155   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2020) * lu(k,3724)
   10156   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2021) * lu(k,3724)
   10157   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2022) * lu(k,3724)
   10158   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2023) * lu(k,3724)
   10159   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2024) * lu(k,3724)
   10160   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2025) * lu(k,3724)
   10161   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2026) * lu(k,3724)
   10162   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2027) * lu(k,3724)
   10163   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2028) * lu(k,3724)
   10164   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2029) * lu(k,3724)
   10165   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2030) * lu(k,3724)
   10166   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,2017) * lu(k,4055)
   10167   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,2018) * lu(k,4055)
   10168   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2019) * lu(k,4055)
   10169   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2020) * lu(k,4055)
   10170   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2021) * lu(k,4055)
   10171   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2022) * lu(k,4055)
   10172   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2023) * lu(k,4055)
   10173   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2024) * lu(k,4055)
   10174   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2025) * lu(k,4055)
   10175   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2026) * lu(k,4055)
   10176   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2027) * lu(k,4055)
   10177   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2028) * lu(k,4055)
   10178   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2029) * lu(k,4055)
   10179   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2030) * lu(k,4055)
   10180   254840160 :          lu(k,2041) = 1._r8 / lu(k,2041)
   10181   254840160 :          lu(k,2042) = lu(k,2042) * lu(k,2041)
   10182   254840160 :          lu(k,2043) = lu(k,2043) * lu(k,2041)
   10183   254840160 :          lu(k,2044) = lu(k,2044) * lu(k,2041)
   10184   254840160 :          lu(k,2045) = lu(k,2045) * lu(k,2041)
   10185   254840160 :          lu(k,2046) = lu(k,2046) * lu(k,2041)
   10186   254840160 :          lu(k,2047) = lu(k,2047) * lu(k,2041)
   10187   254840160 :          lu(k,2048) = lu(k,2048) * lu(k,2041)
   10188   254840160 :          lu(k,2049) = lu(k,2049) * lu(k,2041)
   10189   254840160 :          lu(k,2050) = lu(k,2050) * lu(k,2041)
   10190   254840160 :          lu(k,2051) = lu(k,2051) * lu(k,2041)
   10191   254840160 :          lu(k,2052) = lu(k,2052) * lu(k,2041)
   10192   254840160 :          lu(k,2053) = lu(k,2053) * lu(k,2041)
   10193   254840160 :          lu(k,2054) = lu(k,2054) * lu(k,2041)
   10194   254840160 :          lu(k,2055) = lu(k,2055) * lu(k,2041)
   10195   254840160 :          lu(k,2176) = lu(k,2176) - lu(k,2042) * lu(k,2175)
   10196   254840160 :          lu(k,2181) = - lu(k,2043) * lu(k,2175)
   10197   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,2044) * lu(k,2175)
   10198   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,2045) * lu(k,2175)
   10199   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,2046) * lu(k,2175)
   10200   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,2047) * lu(k,2175)
   10201   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,2048) * lu(k,2175)
   10202   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,2049) * lu(k,2175)
   10203   254840160 :          lu(k,2190) = lu(k,2190) - lu(k,2050) * lu(k,2175)
   10204   254840160 :          lu(k,2191) = lu(k,2191) - lu(k,2051) * lu(k,2175)
   10205   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,2052) * lu(k,2175)
   10206   254840160 :          lu(k,2193) = lu(k,2193) - lu(k,2053) * lu(k,2175)
   10207   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,2054) * lu(k,2175)
   10208   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,2055) * lu(k,2175)
   10209   254840160 :          lu(k,2885) = lu(k,2885) - lu(k,2042) * lu(k,2884)
   10210   254840160 :          lu(k,2892) = - lu(k,2043) * lu(k,2884)
   10211   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2044) * lu(k,2884)
   10212   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2045) * lu(k,2884)
   10213   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2046) * lu(k,2884)
   10214   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2047) * lu(k,2884)
   10215   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2048) * lu(k,2884)
   10216   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2049) * lu(k,2884)
   10217   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2050) * lu(k,2884)
   10218   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2051) * lu(k,2884)
   10219   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2052) * lu(k,2884)
   10220   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2053) * lu(k,2884)
   10221   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2054) * lu(k,2884)
   10222   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2055) * lu(k,2884)
   10223   254840160 :          lu(k,3074) = lu(k,3074) - lu(k,2042) * lu(k,3073)
   10224   254840160 :          lu(k,3082) = - lu(k,2043) * lu(k,3073)
   10225   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2044) * lu(k,3073)
   10226   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2045) * lu(k,3073)
   10227   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2046) * lu(k,3073)
   10228   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2047) * lu(k,3073)
   10229   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2048) * lu(k,3073)
   10230   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2049) * lu(k,3073)
   10231   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2050) * lu(k,3073)
   10232   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2051) * lu(k,3073)
   10233   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2052) * lu(k,3073)
   10234   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2053) * lu(k,3073)
   10235   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2054) * lu(k,3073)
   10236   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2055) * lu(k,3073)
   10237   254840160 :          lu(k,3333) = lu(k,3333) - lu(k,2042) * lu(k,3332)
   10238   254840160 :          lu(k,3341) = lu(k,3341) - lu(k,2043) * lu(k,3332)
   10239   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2044) * lu(k,3332)
   10240   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2045) * lu(k,3332)
   10241   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2046) * lu(k,3332)
   10242   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2047) * lu(k,3332)
   10243   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2048) * lu(k,3332)
   10244   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2049) * lu(k,3332)
   10245   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2050) * lu(k,3332)
   10246   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2051) * lu(k,3332)
   10247   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2052) * lu(k,3332)
   10248   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2053) * lu(k,3332)
   10249   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2054) * lu(k,3332)
   10250   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2055) * lu(k,3332)
   10251   254840160 :          lu(k,3427) = lu(k,3427) - lu(k,2042) * lu(k,3426)
   10252   254840160 :          lu(k,3434) = - lu(k,2043) * lu(k,3426)
   10253   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2044) * lu(k,3426)
   10254   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2045) * lu(k,3426)
   10255   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2046) * lu(k,3426)
   10256   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2047) * lu(k,3426)
   10257   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2048) * lu(k,3426)
   10258   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2049) * lu(k,3426)
   10259   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2050) * lu(k,3426)
   10260   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2051) * lu(k,3426)
   10261   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2052) * lu(k,3426)
   10262   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2053) * lu(k,3426)
   10263   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2054) * lu(k,3426)
   10264   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2055) * lu(k,3426)
   10265   254840160 :          lu(k,3570) = lu(k,3570) - lu(k,2042) * lu(k,3569)
   10266   254840160 :          lu(k,3578) = lu(k,3578) - lu(k,2043) * lu(k,3569)
   10267   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2044) * lu(k,3569)
   10268   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2045) * lu(k,3569)
   10269   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2046) * lu(k,3569)
   10270   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2047) * lu(k,3569)
   10271   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2048) * lu(k,3569)
   10272   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2049) * lu(k,3569)
   10273   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2050) * lu(k,3569)
   10274   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2051) * lu(k,3569)
   10275   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2052) * lu(k,3569)
   10276   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2053) * lu(k,3569)
   10277   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2054) * lu(k,3569)
   10278   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2055) * lu(k,3569)
   10279   254840160 :          lu(k,3726) = lu(k,3726) - lu(k,2042) * lu(k,3725)
   10280   254840160 :          lu(k,3733) = lu(k,3733) - lu(k,2043) * lu(k,3725)
   10281   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2044) * lu(k,3725)
   10282   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2045) * lu(k,3725)
   10283   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2046) * lu(k,3725)
   10284   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2047) * lu(k,3725)
   10285   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2048) * lu(k,3725)
   10286   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2049) * lu(k,3725)
   10287   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2050) * lu(k,3725)
   10288   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2051) * lu(k,3725)
   10289   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2052) * lu(k,3725)
   10290   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2053) * lu(k,3725)
   10291   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2054) * lu(k,3725)
   10292   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2055) * lu(k,3725)
   10293   254840160 :          lu(k,4057) = lu(k,4057) - lu(k,2042) * lu(k,4056)
   10294   254840160 :          lu(k,4064) = lu(k,4064) - lu(k,2043) * lu(k,4056)
   10295   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2044) * lu(k,4056)
   10296   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2045) * lu(k,4056)
   10297   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2046) * lu(k,4056)
   10298   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2047) * lu(k,4056)
   10299   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2048) * lu(k,4056)
   10300   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2049) * lu(k,4056)
   10301   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2050) * lu(k,4056)
   10302   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2051) * lu(k,4056)
   10303   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2052) * lu(k,4056)
   10304   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2053) * lu(k,4056)
   10305   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2054) * lu(k,4056)
   10306   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2055) * lu(k,4056)
   10307   254840160 :          lu(k,2057) = 1._r8 / lu(k,2057)
   10308   254840160 :          lu(k,2058) = lu(k,2058) * lu(k,2057)
   10309   254840160 :          lu(k,2059) = lu(k,2059) * lu(k,2057)
   10310   254840160 :          lu(k,2060) = lu(k,2060) * lu(k,2057)
   10311   254840160 :          lu(k,2084) = lu(k,2084) - lu(k,2058) * lu(k,2077)
   10312   254840160 :          lu(k,2086) = lu(k,2086) - lu(k,2059) * lu(k,2077)
   10313   254840160 :          lu(k,2091) = lu(k,2091) - lu(k,2060) * lu(k,2077)
   10314   254840160 :          lu(k,2116) = lu(k,2116) - lu(k,2058) * lu(k,2109)
   10315   254840160 :          lu(k,2118) = lu(k,2118) - lu(k,2059) * lu(k,2109)
   10316   254840160 :          lu(k,2123) = lu(k,2123) - lu(k,2060) * lu(k,2109)
   10317   254840160 :          lu(k,2145) = lu(k,2145) - lu(k,2058) * lu(k,2139)
   10318   254840160 :          lu(k,2147) = lu(k,2147) - lu(k,2059) * lu(k,2139)
   10319   254840160 :          lu(k,2152) = lu(k,2152) - lu(k,2060) * lu(k,2139)
   10320   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,2058) * lu(k,2176)
   10321   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,2059) * lu(k,2176)
   10322   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,2060) * lu(k,2176)
   10323   254840160 :          lu(k,2201) = lu(k,2201) - lu(k,2058) * lu(k,2198)
   10324   254840160 :          lu(k,2203) = lu(k,2203) - lu(k,2059) * lu(k,2198)
   10325   254840160 :          lu(k,2207) = lu(k,2207) - lu(k,2060) * lu(k,2198)
   10326   254840160 :          lu(k,2223) = lu(k,2223) - lu(k,2058) * lu(k,2212)
   10327   254840160 :          lu(k,2225) = lu(k,2225) - lu(k,2059) * lu(k,2212)
   10328   254840160 :          lu(k,2229) = lu(k,2229) - lu(k,2060) * lu(k,2212)
   10329   254840160 :          lu(k,2247) = lu(k,2247) - lu(k,2058) * lu(k,2234)
   10330   254840160 :          lu(k,2249) = lu(k,2249) - lu(k,2059) * lu(k,2234)
   10331   254840160 :          lu(k,2253) = lu(k,2253) - lu(k,2060) * lu(k,2234)
   10332   254840160 :          lu(k,2263) = lu(k,2263) - lu(k,2058) * lu(k,2258)
   10333   254840160 :          lu(k,2265) = lu(k,2265) - lu(k,2059) * lu(k,2258)
   10334   254840160 :          lu(k,2270) = lu(k,2270) - lu(k,2060) * lu(k,2258)
   10335   254840160 :          lu(k,2281) = - lu(k,2058) * lu(k,2276)
   10336   254840160 :          lu(k,2283) = lu(k,2283) - lu(k,2059) * lu(k,2276)
   10337   254840160 :          lu(k,2287) = lu(k,2287) - lu(k,2060) * lu(k,2276)
   10338   254840160 :          lu(k,2307) = lu(k,2307) - lu(k,2058) * lu(k,2295)
   10339   254840160 :          lu(k,2309) = lu(k,2309) - lu(k,2059) * lu(k,2295)
   10340   254840160 :          lu(k,2313) = lu(k,2313) - lu(k,2060) * lu(k,2295)
   10341   254840160 :          lu(k,2327) = - lu(k,2058) * lu(k,2319)
   10342   254840160 :          lu(k,2329) = lu(k,2329) - lu(k,2059) * lu(k,2319)
   10343   254840160 :          lu(k,2332) = lu(k,2332) - lu(k,2060) * lu(k,2319)
   10344   254840160 :          lu(k,2351) = lu(k,2351) - lu(k,2058) * lu(k,2337)
   10345   254840160 :          lu(k,2353) = lu(k,2353) - lu(k,2059) * lu(k,2337)
   10346   254840160 :          lu(k,2357) = lu(k,2357) - lu(k,2060) * lu(k,2337)
   10347   254840160 :          lu(k,2364) = - lu(k,2058) * lu(k,2358)
   10348   254840160 :          lu(k,2365) = lu(k,2365) - lu(k,2059) * lu(k,2358)
   10349   254840160 :          lu(k,2367) = lu(k,2367) - lu(k,2060) * lu(k,2358)
   10350   254840160 :          lu(k,2391) = lu(k,2391) - lu(k,2058) * lu(k,2376)
   10351   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,2059) * lu(k,2376)
   10352   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,2060) * lu(k,2376)
   10353   254840160 :          lu(k,2420) = lu(k,2420) - lu(k,2058) * lu(k,2405)
   10354   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,2059) * lu(k,2405)
   10355   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,2060) * lu(k,2405)
   10356   254840160 :          lu(k,2452) = lu(k,2452) - lu(k,2058) * lu(k,2437)
   10357   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,2059) * lu(k,2437)
   10358   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,2060) * lu(k,2437)
   10359   254840160 :          lu(k,2483) = lu(k,2483) - lu(k,2058) * lu(k,2467)
   10360   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,2059) * lu(k,2467)
   10361   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,2060) * lu(k,2467)
   10362   254840160 :          lu(k,2517) = lu(k,2517) - lu(k,2058) * lu(k,2503)
   10363   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,2059) * lu(k,2503)
   10364   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,2060) * lu(k,2503)
   10365   254840160 :          lu(k,2546) = lu(k,2546) - lu(k,2058) * lu(k,2534)
   10366   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,2059) * lu(k,2534)
   10367   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,2060) * lu(k,2534)
   10368   254840160 :          lu(k,2582) = lu(k,2582) - lu(k,2058) * lu(k,2566)
   10369   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,2059) * lu(k,2566)
   10370   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,2060) * lu(k,2566)
   10371   254840160 :          lu(k,2610) = lu(k,2610) - lu(k,2058) * lu(k,2597)
   10372   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,2059) * lu(k,2597)
   10373   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,2060) * lu(k,2597)
   10374   254840160 :          lu(k,2638) = lu(k,2638) - lu(k,2058) * lu(k,2627)
   10375   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,2059) * lu(k,2627)
   10376   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,2060) * lu(k,2627)
   10377   254840160 :          lu(k,2663) = lu(k,2663) - lu(k,2058) * lu(k,2652)
   10378   254840160 :          lu(k,2665) = lu(k,2665) - lu(k,2059) * lu(k,2652)
   10379   254840160 :          lu(k,2669) = lu(k,2669) - lu(k,2060) * lu(k,2652)
   10380   254840160 :          lu(k,2685) = lu(k,2685) - lu(k,2058) * lu(k,2674)
   10381   254840160 :          lu(k,2687) = lu(k,2687) - lu(k,2059) * lu(k,2674)
   10382   254840160 :          lu(k,2691) = lu(k,2691) - lu(k,2060) * lu(k,2674)
   10383   254840160 :          lu(k,2708) = lu(k,2708) - lu(k,2058) * lu(k,2695)
   10384   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,2059) * lu(k,2695)
   10385   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,2060) * lu(k,2695)
   10386   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2058) * lu(k,2725)
   10387   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2059) * lu(k,2725)
   10388   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2060) * lu(k,2725)
   10389   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2058) * lu(k,2771)
   10390   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2059) * lu(k,2771)
   10391   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2060) * lu(k,2771)
   10392   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2058) * lu(k,2818)
   10393   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2059) * lu(k,2818)
   10394   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2060) * lu(k,2818)
   10395   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2058) * lu(k,2885)
   10396   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2059) * lu(k,2885)
   10397   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2060) * lu(k,2885)
   10398   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2058) * lu(k,3074)
   10399   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2059) * lu(k,3074)
   10400   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2060) * lu(k,3074)
   10401   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,2058) * lu(k,3154)
   10402   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,2059) * lu(k,3154)
   10403   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,2060) * lu(k,3154)
   10404   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,2058) * lu(k,3180)
   10405   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,2059) * lu(k,3180)
   10406   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,2060) * lu(k,3180)
   10407   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2058) * lu(k,3333)
   10408   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2059) * lu(k,3333)
   10409   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2060) * lu(k,3333)
   10410   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2058) * lu(k,3427)
   10411   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2059) * lu(k,3427)
   10412   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2060) * lu(k,3427)
   10413   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2058) * lu(k,3570)
   10414   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2059) * lu(k,3570)
   10415   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2060) * lu(k,3570)
   10416   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2058) * lu(k,3644)
   10417   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2059) * lu(k,3644)
   10418   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2060) * lu(k,3644)
   10419   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2058) * lu(k,3726)
   10420   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2059) * lu(k,3726)
   10421   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2060) * lu(k,3726)
   10422   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,2058) * lu(k,3832)
   10423   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,2059) * lu(k,3832)
   10424   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,2060) * lu(k,3832)
   10425   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2058) * lu(k,4057)
   10426   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2059) * lu(k,4057)
   10427   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2060) * lu(k,4057)
   10428   254840160 :          lu(k,2078) = 1._r8 / lu(k,2078)
   10429   254840160 :          lu(k,2079) = lu(k,2079) * lu(k,2078)
   10430   254840160 :          lu(k,2080) = lu(k,2080) * lu(k,2078)
   10431   254840160 :          lu(k,2081) = lu(k,2081) * lu(k,2078)
   10432   254840160 :          lu(k,2082) = lu(k,2082) * lu(k,2078)
   10433   254840160 :          lu(k,2083) = lu(k,2083) * lu(k,2078)
   10434   254840160 :          lu(k,2084) = lu(k,2084) * lu(k,2078)
   10435   254840160 :          lu(k,2085) = lu(k,2085) * lu(k,2078)
   10436   254840160 :          lu(k,2086) = lu(k,2086) * lu(k,2078)
   10437   254840160 :          lu(k,2087) = lu(k,2087) * lu(k,2078)
   10438   254840160 :          lu(k,2088) = lu(k,2088) * lu(k,2078)
   10439   254840160 :          lu(k,2089) = lu(k,2089) * lu(k,2078)
   10440   254840160 :          lu(k,2090) = lu(k,2090) * lu(k,2078)
   10441   254840160 :          lu(k,2091) = lu(k,2091) * lu(k,2078)
   10442   254840160 :          lu(k,2092) = lu(k,2092) * lu(k,2078)
   10443   254840160 :          lu(k,2179) = lu(k,2179) - lu(k,2079) * lu(k,2177)
   10444   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,2080) * lu(k,2177)
   10445   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,2081) * lu(k,2177)
   10446   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,2082) * lu(k,2177)
   10447   254840160 :          lu(k,2186) = lu(k,2186) - lu(k,2083) * lu(k,2177)
   10448   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,2084) * lu(k,2177)
   10449   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,2085) * lu(k,2177)
   10450   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,2086) * lu(k,2177)
   10451   254840160 :          lu(k,2191) = lu(k,2191) - lu(k,2087) * lu(k,2177)
   10452   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,2088) * lu(k,2177)
   10453   254840160 :          lu(k,2193) = lu(k,2193) - lu(k,2089) * lu(k,2177)
   10454   254840160 :          lu(k,2194) = lu(k,2194) - lu(k,2090) * lu(k,2177)
   10455   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,2091) * lu(k,2177)
   10456   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,2092) * lu(k,2177)
   10457   254840160 :          lu(k,2888) = lu(k,2888) - lu(k,2079) * lu(k,2886)
   10458   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2080) * lu(k,2886)
   10459   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2081) * lu(k,2886)
   10460   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2082) * lu(k,2886)
   10461   254840160 :          lu(k,2917) = - lu(k,2083) * lu(k,2886)
   10462   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2084) * lu(k,2886)
   10463   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2085) * lu(k,2886)
   10464   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2086) * lu(k,2886)
   10465   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2087) * lu(k,2886)
   10466   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2088) * lu(k,2886)
   10467   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2089) * lu(k,2886)
   10468   254840160 :          lu(k,2926) = - lu(k,2090) * lu(k,2886)
   10469   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2091) * lu(k,2886)
   10470   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2092) * lu(k,2886)
   10471   254840160 :          lu(k,3077) = lu(k,3077) - lu(k,2079) * lu(k,3075)
   10472   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2080) * lu(k,3075)
   10473   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2081) * lu(k,3075)
   10474   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2082) * lu(k,3075)
   10475   254840160 :          lu(k,3107) = - lu(k,2083) * lu(k,3075)
   10476   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2084) * lu(k,3075)
   10477   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2085) * lu(k,3075)
   10478   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2086) * lu(k,3075)
   10479   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2087) * lu(k,3075)
   10480   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2088) * lu(k,3075)
   10481   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2089) * lu(k,3075)
   10482   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2090) * lu(k,3075)
   10483   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2091) * lu(k,3075)
   10484   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2092) * lu(k,3075)
   10485   254840160 :          lu(k,3336) = lu(k,3336) - lu(k,2079) * lu(k,3334)
   10486   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2080) * lu(k,3334)
   10487   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2081) * lu(k,3334)
   10488   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2082) * lu(k,3334)
   10489   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2083) * lu(k,3334)
   10490   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2084) * lu(k,3334)
   10491   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2085) * lu(k,3334)
   10492   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2086) * lu(k,3334)
   10493   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2087) * lu(k,3334)
   10494   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2088) * lu(k,3334)
   10495   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2089) * lu(k,3334)
   10496   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2090) * lu(k,3334)
   10497   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2091) * lu(k,3334)
   10498   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2092) * lu(k,3334)
   10499   254840160 :          lu(k,3430) = lu(k,3430) - lu(k,2079) * lu(k,3428)
   10500   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2080) * lu(k,3428)
   10501   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2081) * lu(k,3428)
   10502   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2082) * lu(k,3428)
   10503   254840160 :          lu(k,3459) = - lu(k,2083) * lu(k,3428)
   10504   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2084) * lu(k,3428)
   10505   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2085) * lu(k,3428)
   10506   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2086) * lu(k,3428)
   10507   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2087) * lu(k,3428)
   10508   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2088) * lu(k,3428)
   10509   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2089) * lu(k,3428)
   10510   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2090) * lu(k,3428)
   10511   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2091) * lu(k,3428)
   10512   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2092) * lu(k,3428)
   10513   254840160 :          lu(k,3573) = lu(k,3573) - lu(k,2079) * lu(k,3571)
   10514   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2080) * lu(k,3571)
   10515   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2081) * lu(k,3571)
   10516   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2082) * lu(k,3571)
   10517   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2083) * lu(k,3571)
   10518   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2084) * lu(k,3571)
   10519   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2085) * lu(k,3571)
   10520   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2086) * lu(k,3571)
   10521   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2087) * lu(k,3571)
   10522   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2088) * lu(k,3571)
   10523   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2089) * lu(k,3571)
   10524   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2090) * lu(k,3571)
   10525   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2091) * lu(k,3571)
   10526   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2092) * lu(k,3571)
   10527   254840160 :          lu(k,3729) = lu(k,3729) - lu(k,2079) * lu(k,3727)
   10528   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2080) * lu(k,3727)
   10529   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2081) * lu(k,3727)
   10530   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2082) * lu(k,3727)
   10531   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2083) * lu(k,3727)
   10532   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2084) * lu(k,3727)
   10533   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2085) * lu(k,3727)
   10534   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2086) * lu(k,3727)
   10535   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2087) * lu(k,3727)
   10536   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2088) * lu(k,3727)
   10537   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2089) * lu(k,3727)
   10538   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2090) * lu(k,3727)
   10539   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2091) * lu(k,3727)
   10540   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2092) * lu(k,3727)
   10541   254840160 :          lu(k,4060) = lu(k,4060) - lu(k,2079) * lu(k,4058)
   10542   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2080) * lu(k,4058)
   10543   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2081) * lu(k,4058)
   10544   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2082) * lu(k,4058)
   10545   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2083) * lu(k,4058)
   10546   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2084) * lu(k,4058)
   10547   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2085) * lu(k,4058)
   10548   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2086) * lu(k,4058)
   10549   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2087) * lu(k,4058)
   10550   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2088) * lu(k,4058)
   10551   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2089) * lu(k,4058)
   10552   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2090) * lu(k,4058)
   10553   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2091) * lu(k,4058)
   10554   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,2092) * lu(k,4058)
   10555             :       end do
   10556     8168963 :       end subroutine lu_fac43
   10557     8168963 :       subroutine lu_fac44( avec_len, lu )
   10558             :       use chem_mods, only : nzcnt
   10559             :       use shr_kind_mod, only : r8 => shr_kind_r8
   10560             :       implicit none
   10561             : !-----------------------------------------------------------------------
   10562             : ! ... dummy args
   10563             : !-----------------------------------------------------------------------
   10564             :       integer, intent(in) :: avec_len
   10565             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   10566             : !-----------------------------------------------------------------------
   10567             : ! ... local variables
   10568             : !-----------------------------------------------------------------------
   10569             :       integer :: k
   10570   263009123 :       do k = 1,avec_len
   10571   254840160 :          lu(k,2110) = 1._r8 / lu(k,2110)
   10572   254840160 :          lu(k,2111) = lu(k,2111) * lu(k,2110)
   10573   254840160 :          lu(k,2112) = lu(k,2112) * lu(k,2110)
   10574   254840160 :          lu(k,2113) = lu(k,2113) * lu(k,2110)
   10575   254840160 :          lu(k,2114) = lu(k,2114) * lu(k,2110)
   10576   254840160 :          lu(k,2115) = lu(k,2115) * lu(k,2110)
   10577   254840160 :          lu(k,2116) = lu(k,2116) * lu(k,2110)
   10578   254840160 :          lu(k,2117) = lu(k,2117) * lu(k,2110)
   10579   254840160 :          lu(k,2118) = lu(k,2118) * lu(k,2110)
   10580   254840160 :          lu(k,2119) = lu(k,2119) * lu(k,2110)
   10581   254840160 :          lu(k,2120) = lu(k,2120) * lu(k,2110)
   10582   254840160 :          lu(k,2121) = lu(k,2121) * lu(k,2110)
   10583   254840160 :          lu(k,2122) = lu(k,2122) * lu(k,2110)
   10584   254840160 :          lu(k,2123) = lu(k,2123) * lu(k,2110)
   10585   254840160 :          lu(k,2124) = lu(k,2124) * lu(k,2110)
   10586   254840160 :          lu(k,2179) = lu(k,2179) - lu(k,2111) * lu(k,2178)
   10587   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,2112) * lu(k,2178)
   10588   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,2113) * lu(k,2178)
   10589   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,2114) * lu(k,2178)
   10590   254840160 :          lu(k,2186) = lu(k,2186) - lu(k,2115) * lu(k,2178)
   10591   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,2116) * lu(k,2178)
   10592   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,2117) * lu(k,2178)
   10593   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,2118) * lu(k,2178)
   10594   254840160 :          lu(k,2191) = lu(k,2191) - lu(k,2119) * lu(k,2178)
   10595   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,2120) * lu(k,2178)
   10596   254840160 :          lu(k,2193) = lu(k,2193) - lu(k,2121) * lu(k,2178)
   10597   254840160 :          lu(k,2194) = lu(k,2194) - lu(k,2122) * lu(k,2178)
   10598   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,2123) * lu(k,2178)
   10599   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,2124) * lu(k,2178)
   10600   254840160 :          lu(k,2888) = lu(k,2888) - lu(k,2111) * lu(k,2887)
   10601   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2112) * lu(k,2887)
   10602   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2113) * lu(k,2887)
   10603   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2114) * lu(k,2887)
   10604   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2115) * lu(k,2887)
   10605   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2116) * lu(k,2887)
   10606   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2117) * lu(k,2887)
   10607   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2118) * lu(k,2887)
   10608   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2119) * lu(k,2887)
   10609   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2120) * lu(k,2887)
   10610   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2121) * lu(k,2887)
   10611   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2122) * lu(k,2887)
   10612   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2123) * lu(k,2887)
   10613   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2124) * lu(k,2887)
   10614   254840160 :          lu(k,3077) = lu(k,3077) - lu(k,2111) * lu(k,3076)
   10615   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2112) * lu(k,3076)
   10616   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2113) * lu(k,3076)
   10617   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2114) * lu(k,3076)
   10618   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2115) * lu(k,3076)
   10619   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2116) * lu(k,3076)
   10620   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2117) * lu(k,3076)
   10621   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2118) * lu(k,3076)
   10622   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2119) * lu(k,3076)
   10623   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2120) * lu(k,3076)
   10624   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2121) * lu(k,3076)
   10625   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2122) * lu(k,3076)
   10626   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2123) * lu(k,3076)
   10627   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2124) * lu(k,3076)
   10628   254840160 :          lu(k,3336) = lu(k,3336) - lu(k,2111) * lu(k,3335)
   10629   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2112) * lu(k,3335)
   10630   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2113) * lu(k,3335)
   10631   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2114) * lu(k,3335)
   10632   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2115) * lu(k,3335)
   10633   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2116) * lu(k,3335)
   10634   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2117) * lu(k,3335)
   10635   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2118) * lu(k,3335)
   10636   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2119) * lu(k,3335)
   10637   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2120) * lu(k,3335)
   10638   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2121) * lu(k,3335)
   10639   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2122) * lu(k,3335)
   10640   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2123) * lu(k,3335)
   10641   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2124) * lu(k,3335)
   10642   254840160 :          lu(k,3430) = lu(k,3430) - lu(k,2111) * lu(k,3429)
   10643   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2112) * lu(k,3429)
   10644   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2113) * lu(k,3429)
   10645   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2114) * lu(k,3429)
   10646   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2115) * lu(k,3429)
   10647   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2116) * lu(k,3429)
   10648   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2117) * lu(k,3429)
   10649   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2118) * lu(k,3429)
   10650   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2119) * lu(k,3429)
   10651   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2120) * lu(k,3429)
   10652   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2121) * lu(k,3429)
   10653   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2122) * lu(k,3429)
   10654   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2123) * lu(k,3429)
   10655   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2124) * lu(k,3429)
   10656   254840160 :          lu(k,3573) = lu(k,3573) - lu(k,2111) * lu(k,3572)
   10657   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2112) * lu(k,3572)
   10658   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2113) * lu(k,3572)
   10659   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2114) * lu(k,3572)
   10660   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2115) * lu(k,3572)
   10661   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2116) * lu(k,3572)
   10662   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2117) * lu(k,3572)
   10663   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2118) * lu(k,3572)
   10664   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2119) * lu(k,3572)
   10665   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2120) * lu(k,3572)
   10666   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2121) * lu(k,3572)
   10667   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2122) * lu(k,3572)
   10668   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2123) * lu(k,3572)
   10669   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2124) * lu(k,3572)
   10670   254840160 :          lu(k,3729) = lu(k,3729) - lu(k,2111) * lu(k,3728)
   10671   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2112) * lu(k,3728)
   10672   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2113) * lu(k,3728)
   10673   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2114) * lu(k,3728)
   10674   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2115) * lu(k,3728)
   10675   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2116) * lu(k,3728)
   10676   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2117) * lu(k,3728)
   10677   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2118) * lu(k,3728)
   10678   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2119) * lu(k,3728)
   10679   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2120) * lu(k,3728)
   10680   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2121) * lu(k,3728)
   10681   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2122) * lu(k,3728)
   10682   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2123) * lu(k,3728)
   10683   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2124) * lu(k,3728)
   10684   254840160 :          lu(k,4060) = lu(k,4060) - lu(k,2111) * lu(k,4059)
   10685   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2112) * lu(k,4059)
   10686   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2113) * lu(k,4059)
   10687   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2114) * lu(k,4059)
   10688   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2115) * lu(k,4059)
   10689   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2116) * lu(k,4059)
   10690   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2117) * lu(k,4059)
   10691   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2118) * lu(k,4059)
   10692   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2119) * lu(k,4059)
   10693   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2120) * lu(k,4059)
   10694   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2121) * lu(k,4059)
   10695   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2122) * lu(k,4059)
   10696   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2123) * lu(k,4059)
   10697   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2124) * lu(k,4059)
   10698   254840160 :          lu(k,2140) = 1._r8 / lu(k,2140)
   10699   254840160 :          lu(k,2141) = lu(k,2141) * lu(k,2140)
   10700   254840160 :          lu(k,2142) = lu(k,2142) * lu(k,2140)
   10701   254840160 :          lu(k,2143) = lu(k,2143) * lu(k,2140)
   10702   254840160 :          lu(k,2144) = lu(k,2144) * lu(k,2140)
   10703   254840160 :          lu(k,2145) = lu(k,2145) * lu(k,2140)
   10704   254840160 :          lu(k,2146) = lu(k,2146) * lu(k,2140)
   10705   254840160 :          lu(k,2147) = lu(k,2147) * lu(k,2140)
   10706   254840160 :          lu(k,2148) = lu(k,2148) * lu(k,2140)
   10707   254840160 :          lu(k,2149) = lu(k,2149) * lu(k,2140)
   10708   254840160 :          lu(k,2150) = lu(k,2150) * lu(k,2140)
   10709   254840160 :          lu(k,2151) = lu(k,2151) * lu(k,2140)
   10710   254840160 :          lu(k,2152) = lu(k,2152) * lu(k,2140)
   10711   254840160 :          lu(k,2153) = lu(k,2153) * lu(k,2140)
   10712   254840160 :          lu(k,2183) = lu(k,2183) - lu(k,2141) * lu(k,2179)
   10713   254840160 :          lu(k,2184) = lu(k,2184) - lu(k,2142) * lu(k,2179)
   10714   254840160 :          lu(k,2185) = lu(k,2185) - lu(k,2143) * lu(k,2179)
   10715   254840160 :          lu(k,2186) = lu(k,2186) - lu(k,2144) * lu(k,2179)
   10716   254840160 :          lu(k,2187) = lu(k,2187) - lu(k,2145) * lu(k,2179)
   10717   254840160 :          lu(k,2188) = lu(k,2188) - lu(k,2146) * lu(k,2179)
   10718   254840160 :          lu(k,2189) = lu(k,2189) - lu(k,2147) * lu(k,2179)
   10719   254840160 :          lu(k,2191) = lu(k,2191) - lu(k,2148) * lu(k,2179)
   10720   254840160 :          lu(k,2192) = lu(k,2192) - lu(k,2149) * lu(k,2179)
   10721   254840160 :          lu(k,2193) = lu(k,2193) - lu(k,2150) * lu(k,2179)
   10722   254840160 :          lu(k,2194) = lu(k,2194) - lu(k,2151) * lu(k,2179)
   10723   254840160 :          lu(k,2195) = lu(k,2195) - lu(k,2152) * lu(k,2179)
   10724   254840160 :          lu(k,2196) = lu(k,2196) - lu(k,2153) * lu(k,2179)
   10725   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2141) * lu(k,2888)
   10726   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2142) * lu(k,2888)
   10727   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2143) * lu(k,2888)
   10728   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2144) * lu(k,2888)
   10729   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2145) * lu(k,2888)
   10730   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2146) * lu(k,2888)
   10731   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2147) * lu(k,2888)
   10732   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2148) * lu(k,2888)
   10733   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2149) * lu(k,2888)
   10734   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2150) * lu(k,2888)
   10735   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2151) * lu(k,2888)
   10736   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2152) * lu(k,2888)
   10737   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2153) * lu(k,2888)
   10738   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2141) * lu(k,3077)
   10739   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2142) * lu(k,3077)
   10740   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2143) * lu(k,3077)
   10741   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2144) * lu(k,3077)
   10742   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2145) * lu(k,3077)
   10743   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2146) * lu(k,3077)
   10744   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2147) * lu(k,3077)
   10745   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2148) * lu(k,3077)
   10746   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2149) * lu(k,3077)
   10747   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2150) * lu(k,3077)
   10748   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2151) * lu(k,3077)
   10749   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2152) * lu(k,3077)
   10750   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2153) * lu(k,3077)
   10751   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2141) * lu(k,3336)
   10752   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2142) * lu(k,3336)
   10753   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2143) * lu(k,3336)
   10754   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2144) * lu(k,3336)
   10755   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2145) * lu(k,3336)
   10756   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2146) * lu(k,3336)
   10757   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2147) * lu(k,3336)
   10758   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2148) * lu(k,3336)
   10759   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2149) * lu(k,3336)
   10760   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2150) * lu(k,3336)
   10761   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2151) * lu(k,3336)
   10762   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2152) * lu(k,3336)
   10763   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2153) * lu(k,3336)
   10764   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2141) * lu(k,3430)
   10765   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2142) * lu(k,3430)
   10766   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2143) * lu(k,3430)
   10767   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2144) * lu(k,3430)
   10768   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2145) * lu(k,3430)
   10769   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2146) * lu(k,3430)
   10770   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2147) * lu(k,3430)
   10771   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2148) * lu(k,3430)
   10772   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2149) * lu(k,3430)
   10773   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2150) * lu(k,3430)
   10774   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2151) * lu(k,3430)
   10775   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2152) * lu(k,3430)
   10776   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2153) * lu(k,3430)
   10777   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2141) * lu(k,3573)
   10778   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2142) * lu(k,3573)
   10779   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2143) * lu(k,3573)
   10780   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2144) * lu(k,3573)
   10781   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2145) * lu(k,3573)
   10782   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2146) * lu(k,3573)
   10783   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2147) * lu(k,3573)
   10784   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2148) * lu(k,3573)
   10785   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2149) * lu(k,3573)
   10786   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2150) * lu(k,3573)
   10787   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2151) * lu(k,3573)
   10788   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2152) * lu(k,3573)
   10789   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2153) * lu(k,3573)
   10790   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2141) * lu(k,3729)
   10791   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2142) * lu(k,3729)
   10792   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2143) * lu(k,3729)
   10793   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2144) * lu(k,3729)
   10794   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2145) * lu(k,3729)
   10795   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2146) * lu(k,3729)
   10796   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2147) * lu(k,3729)
   10797   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2148) * lu(k,3729)
   10798   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2149) * lu(k,3729)
   10799   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2150) * lu(k,3729)
   10800   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2151) * lu(k,3729)
   10801   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2152) * lu(k,3729)
   10802   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2153) * lu(k,3729)
   10803   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2141) * lu(k,4060)
   10804   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2142) * lu(k,4060)
   10805   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2143) * lu(k,4060)
   10806   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2144) * lu(k,4060)
   10807   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2145) * lu(k,4060)
   10808   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2146) * lu(k,4060)
   10809   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2147) * lu(k,4060)
   10810   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2148) * lu(k,4060)
   10811   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2149) * lu(k,4060)
   10812   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2150) * lu(k,4060)
   10813   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2151) * lu(k,4060)
   10814   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2152) * lu(k,4060)
   10815   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2153) * lu(k,4060)
   10816   254840160 :          lu(k,2180) = 1._r8 / lu(k,2180)
   10817   254840160 :          lu(k,2181) = lu(k,2181) * lu(k,2180)
   10818   254840160 :          lu(k,2182) = lu(k,2182) * lu(k,2180)
   10819   254840160 :          lu(k,2183) = lu(k,2183) * lu(k,2180)
   10820   254840160 :          lu(k,2184) = lu(k,2184) * lu(k,2180)
   10821   254840160 :          lu(k,2185) = lu(k,2185) * lu(k,2180)
   10822   254840160 :          lu(k,2186) = lu(k,2186) * lu(k,2180)
   10823   254840160 :          lu(k,2187) = lu(k,2187) * lu(k,2180)
   10824   254840160 :          lu(k,2188) = lu(k,2188) * lu(k,2180)
   10825   254840160 :          lu(k,2189) = lu(k,2189) * lu(k,2180)
   10826   254840160 :          lu(k,2190) = lu(k,2190) * lu(k,2180)
   10827   254840160 :          lu(k,2191) = lu(k,2191) * lu(k,2180)
   10828   254840160 :          lu(k,2192) = lu(k,2192) * lu(k,2180)
   10829   254840160 :          lu(k,2193) = lu(k,2193) * lu(k,2180)
   10830   254840160 :          lu(k,2194) = lu(k,2194) * lu(k,2180)
   10831   254840160 :          lu(k,2195) = lu(k,2195) * lu(k,2180)
   10832   254840160 :          lu(k,2196) = lu(k,2196) * lu(k,2180)
   10833   254840160 :          lu(k,2892) = lu(k,2892) - lu(k,2181) * lu(k,2889)
   10834   254840160 :          lu(k,2893) = lu(k,2893) - lu(k,2182) * lu(k,2889)
   10835   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2183) * lu(k,2889)
   10836   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2184) * lu(k,2889)
   10837   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2185) * lu(k,2889)
   10838   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2186) * lu(k,2889)
   10839   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2187) * lu(k,2889)
   10840   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2188) * lu(k,2889)
   10841   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2189) * lu(k,2889)
   10842   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2190) * lu(k,2889)
   10843   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2191) * lu(k,2889)
   10844   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2192) * lu(k,2889)
   10845   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2193) * lu(k,2889)
   10846   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2194) * lu(k,2889)
   10847   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2195) * lu(k,2889)
   10848   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2196) * lu(k,2889)
   10849   254840160 :          lu(k,3082) = lu(k,3082) - lu(k,2181) * lu(k,3078)
   10850   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,2182) * lu(k,3078)
   10851   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2183) * lu(k,3078)
   10852   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2184) * lu(k,3078)
   10853   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2185) * lu(k,3078)
   10854   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2186) * lu(k,3078)
   10855   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2187) * lu(k,3078)
   10856   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2188) * lu(k,3078)
   10857   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2189) * lu(k,3078)
   10858   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2190) * lu(k,3078)
   10859   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2191) * lu(k,3078)
   10860   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2192) * lu(k,3078)
   10861   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2193) * lu(k,3078)
   10862   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2194) * lu(k,3078)
   10863   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2195) * lu(k,3078)
   10864   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2196) * lu(k,3078)
   10865   254840160 :          lu(k,3341) = lu(k,3341) - lu(k,2181) * lu(k,3337)
   10866   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,2182) * lu(k,3337)
   10867   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2183) * lu(k,3337)
   10868   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2184) * lu(k,3337)
   10869   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2185) * lu(k,3337)
   10870   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2186) * lu(k,3337)
   10871   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2187) * lu(k,3337)
   10872   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2188) * lu(k,3337)
   10873   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2189) * lu(k,3337)
   10874   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2190) * lu(k,3337)
   10875   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2191) * lu(k,3337)
   10876   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2192) * lu(k,3337)
   10877   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2193) * lu(k,3337)
   10878   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2194) * lu(k,3337)
   10879   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2195) * lu(k,3337)
   10880   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2196) * lu(k,3337)
   10881   254840160 :          lu(k,3434) = lu(k,3434) - lu(k,2181) * lu(k,3431)
   10882   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,2182) * lu(k,3431)
   10883   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2183) * lu(k,3431)
   10884   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2184) * lu(k,3431)
   10885   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2185) * lu(k,3431)
   10886   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2186) * lu(k,3431)
   10887   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2187) * lu(k,3431)
   10888   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2188) * lu(k,3431)
   10889   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2189) * lu(k,3431)
   10890   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2190) * lu(k,3431)
   10891   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2191) * lu(k,3431)
   10892   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2192) * lu(k,3431)
   10893   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2193) * lu(k,3431)
   10894   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2194) * lu(k,3431)
   10895   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2195) * lu(k,3431)
   10896   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2196) * lu(k,3431)
   10897   254840160 :          lu(k,3578) = lu(k,3578) - lu(k,2181) * lu(k,3574)
   10898   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,2182) * lu(k,3574)
   10899   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2183) * lu(k,3574)
   10900   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2184) * lu(k,3574)
   10901   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2185) * lu(k,3574)
   10902   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2186) * lu(k,3574)
   10903   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2187) * lu(k,3574)
   10904   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2188) * lu(k,3574)
   10905   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2189) * lu(k,3574)
   10906   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2190) * lu(k,3574)
   10907   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2191) * lu(k,3574)
   10908   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2192) * lu(k,3574)
   10909   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2193) * lu(k,3574)
   10910   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2194) * lu(k,3574)
   10911   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2195) * lu(k,3574)
   10912   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2196) * lu(k,3574)
   10913   254840160 :          lu(k,3733) = lu(k,3733) - lu(k,2181) * lu(k,3730)
   10914   254840160 :          lu(k,3734) = lu(k,3734) - lu(k,2182) * lu(k,3730)
   10915   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2183) * lu(k,3730)
   10916   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2184) * lu(k,3730)
   10917   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2185) * lu(k,3730)
   10918   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2186) * lu(k,3730)
   10919   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2187) * lu(k,3730)
   10920   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2188) * lu(k,3730)
   10921   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2189) * lu(k,3730)
   10922   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2190) * lu(k,3730)
   10923   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2191) * lu(k,3730)
   10924   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2192) * lu(k,3730)
   10925   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2193) * lu(k,3730)
   10926   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2194) * lu(k,3730)
   10927   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2195) * lu(k,3730)
   10928   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2196) * lu(k,3730)
   10929   254840160 :          lu(k,4064) = lu(k,4064) - lu(k,2181) * lu(k,4061)
   10930   254840160 :          lu(k,4065) = lu(k,4065) - lu(k,2182) * lu(k,4061)
   10931   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2183) * lu(k,4061)
   10932   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2184) * lu(k,4061)
   10933   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2185) * lu(k,4061)
   10934   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2186) * lu(k,4061)
   10935   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2187) * lu(k,4061)
   10936   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2188) * lu(k,4061)
   10937   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2189) * lu(k,4061)
   10938   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2190) * lu(k,4061)
   10939   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2191) * lu(k,4061)
   10940   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2192) * lu(k,4061)
   10941   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2193) * lu(k,4061)
   10942   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2194) * lu(k,4061)
   10943   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2195) * lu(k,4061)
   10944   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2196) * lu(k,4061)
   10945   254840160 :          lu(k,2199) = 1._r8 / lu(k,2199)
   10946   254840160 :          lu(k,2200) = lu(k,2200) * lu(k,2199)
   10947   254840160 :          lu(k,2201) = lu(k,2201) * lu(k,2199)
   10948   254840160 :          lu(k,2202) = lu(k,2202) * lu(k,2199)
   10949   254840160 :          lu(k,2203) = lu(k,2203) * lu(k,2199)
   10950   254840160 :          lu(k,2204) = lu(k,2204) * lu(k,2199)
   10951   254840160 :          lu(k,2205) = lu(k,2205) * lu(k,2199)
   10952   254840160 :          lu(k,2206) = lu(k,2206) * lu(k,2199)
   10953   254840160 :          lu(k,2207) = lu(k,2207) * lu(k,2199)
   10954   254840160 :          lu(k,2208) = lu(k,2208) * lu(k,2199)
   10955   254840160 :          lu(k,3104) = lu(k,3104) - lu(k,2200) * lu(k,3079)
   10956   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2201) * lu(k,3079)
   10957   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2202) * lu(k,3079)
   10958   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2203) * lu(k,3079)
   10959   254840160 :          lu(k,3112) = lu(k,3112) - lu(k,2204) * lu(k,3079)
   10960   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2205) * lu(k,3079)
   10961   254840160 :          lu(k,3117) = lu(k,3117) - lu(k,2206) * lu(k,3079)
   10962   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2207) * lu(k,3079)
   10963   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2208) * lu(k,3079)
   10964   254840160 :          lu(k,3127) = lu(k,3127) - lu(k,2200) * lu(k,3126)
   10965   254840160 :          lu(k,3130) = lu(k,3130) - lu(k,2201) * lu(k,3126)
   10966   254840160 :          lu(k,3131) = - lu(k,2202) * lu(k,3126)
   10967   254840160 :          lu(k,3132) = - lu(k,2203) * lu(k,3126)
   10968   254840160 :          lu(k,3134) = lu(k,3134) - lu(k,2204) * lu(k,3126)
   10969   254840160 :          lu(k,3138) = - lu(k,2205) * lu(k,3126)
   10970   254840160 :          lu(k,3139) = lu(k,3139) - lu(k,2206) * lu(k,3126)
   10971   254840160 :          lu(k,3141) = lu(k,3141) - lu(k,2207) * lu(k,3126)
   10972   254840160 :          lu(k,3142) = lu(k,3142) - lu(k,2208) * lu(k,3126)
   10973   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,2200) * lu(k,3155)
   10974   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,2201) * lu(k,3155)
   10975   254840160 :          lu(k,3162) = lu(k,3162) - lu(k,2202) * lu(k,3155)
   10976   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,2203) * lu(k,3155)
   10977   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,2204) * lu(k,3155)
   10978   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,2205) * lu(k,3155)
   10979   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,2206) * lu(k,3155)
   10980   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,2207) * lu(k,3155)
   10981   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,2208) * lu(k,3155)
   10982   254840160 :          lu(k,3183) = lu(k,3183) - lu(k,2200) * lu(k,3181)
   10983   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,2201) * lu(k,3181)
   10984   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,2202) * lu(k,3181)
   10985   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,2203) * lu(k,3181)
   10986   254840160 :          lu(k,3191) = lu(k,3191) - lu(k,2204) * lu(k,3181)
   10987   254840160 :          lu(k,3195) = - lu(k,2205) * lu(k,3181)
   10988   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,2206) * lu(k,3181)
   10989   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,2207) * lu(k,3181)
   10990   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,2208) * lu(k,3181)
   10991   254840160 :          lu(k,3363) = lu(k,3363) - lu(k,2200) * lu(k,3338)
   10992   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2201) * lu(k,3338)
   10993   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2202) * lu(k,3338)
   10994   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2203) * lu(k,3338)
   10995   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,2204) * lu(k,3338)
   10996   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2205) * lu(k,3338)
   10997   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,2206) * lu(k,3338)
   10998   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2207) * lu(k,3338)
   10999   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2208) * lu(k,3338)
   11000   254840160 :          lu(k,3480) = lu(k,3480) - lu(k,2200) * lu(k,3479)
   11001   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,2201) * lu(k,3479)
   11002   254840160 :          lu(k,3485) = - lu(k,2202) * lu(k,3479)
   11003   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,2203) * lu(k,3479)
   11004   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,2204) * lu(k,3479)
   11005   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,2205) * lu(k,3479)
   11006   254840160 :          lu(k,3493) = - lu(k,2206) * lu(k,3479)
   11007   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,2207) * lu(k,3479)
   11008   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,2208) * lu(k,3479)
   11009   254840160 :          lu(k,3506) = lu(k,3506) - lu(k,2200) * lu(k,3505)
   11010   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,2201) * lu(k,3505)
   11011   254840160 :          lu(k,3511) = lu(k,3511) - lu(k,2202) * lu(k,3505)
   11012   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,2203) * lu(k,3505)
   11013   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,2204) * lu(k,3505)
   11014   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,2205) * lu(k,3505)
   11015   254840160 :          lu(k,3519) = - lu(k,2206) * lu(k,3505)
   11016   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,2207) * lu(k,3505)
   11017   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,2208) * lu(k,3505)
   11018   254840160 :          lu(k,3600) = lu(k,3600) - lu(k,2200) * lu(k,3575)
   11019   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2201) * lu(k,3575)
   11020   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2202) * lu(k,3575)
   11021   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2203) * lu(k,3575)
   11022   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,2204) * lu(k,3575)
   11023   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2205) * lu(k,3575)
   11024   254840160 :          lu(k,3613) = - lu(k,2206) * lu(k,3575)
   11025   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2207) * lu(k,3575)
   11026   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2208) * lu(k,3575)
   11027   254840160 :          lu(k,3652) = lu(k,3652) - lu(k,2200) * lu(k,3645)
   11028   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2201) * lu(k,3645)
   11029   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2202) * lu(k,3645)
   11030   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2203) * lu(k,3645)
   11031   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,2204) * lu(k,3645)
   11032   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2205) * lu(k,3645)
   11033   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,2206) * lu(k,3645)
   11034   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2207) * lu(k,3645)
   11035   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2208) * lu(k,3645)
   11036   254840160 :          lu(k,3754) = lu(k,3754) - lu(k,2200) * lu(k,3731)
   11037   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2201) * lu(k,3731)
   11038   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2202) * lu(k,3731)
   11039   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2203) * lu(k,3731)
   11040   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,2204) * lu(k,3731)
   11041   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2205) * lu(k,3731)
   11042   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,2206) * lu(k,3731)
   11043   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2207) * lu(k,3731)
   11044   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2208) * lu(k,3731)
   11045   254840160 :          lu(k,3795) = lu(k,3795) - lu(k,2200) * lu(k,3793)
   11046   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,2201) * lu(k,3793)
   11047   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,2202) * lu(k,3793)
   11048   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,2203) * lu(k,3793)
   11049   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,2204) * lu(k,3793)
   11050   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,2205) * lu(k,3793)
   11051   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,2206) * lu(k,3793)
   11052   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,2207) * lu(k,3793)
   11053   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,2208) * lu(k,3793)
   11054   254840160 :          lu(k,3836) = lu(k,3836) - lu(k,2200) * lu(k,3833)
   11055   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,2201) * lu(k,3833)
   11056   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,2202) * lu(k,3833)
   11057   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,2203) * lu(k,3833)
   11058   254840160 :          lu(k,3844) = - lu(k,2204) * lu(k,3833)
   11059   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,2205) * lu(k,3833)
   11060   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,2206) * lu(k,3833)
   11061   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,2207) * lu(k,3833)
   11062   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,2208) * lu(k,3833)
   11063   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,2200) * lu(k,4062)
   11064   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2201) * lu(k,4062)
   11065   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2202) * lu(k,4062)
   11066   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2203) * lu(k,4062)
   11067   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,2204) * lu(k,4062)
   11068   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2205) * lu(k,4062)
   11069   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,2206) * lu(k,4062)
   11070   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2207) * lu(k,4062)
   11071   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2208) * lu(k,4062)
   11072   254840160 :          lu(k,4112) = lu(k,4112) - lu(k,2200) * lu(k,4110)
   11073   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,2201) * lu(k,4110)
   11074   254840160 :          lu(k,4117) = - lu(k,2202) * lu(k,4110)
   11075   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,2203) * lu(k,4110)
   11076   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,2204) * lu(k,4110)
   11077   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,2205) * lu(k,4110)
   11078   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,2206) * lu(k,4110)
   11079   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,2207) * lu(k,4110)
   11080   263009123 :          lu(k,4128) = lu(k,4128) - lu(k,2208) * lu(k,4110)
   11081             :       end do
   11082     8168963 :       end subroutine lu_fac44
   11083     8168963 :       subroutine lu_fac45( avec_len, lu )
   11084             :       use chem_mods, only : nzcnt
   11085             :       use shr_kind_mod, only : r8 => shr_kind_r8
   11086             :       implicit none
   11087             : !-----------------------------------------------------------------------
   11088             : ! ... dummy args
   11089             : !-----------------------------------------------------------------------
   11090             :       integer, intent(in) :: avec_len
   11091             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   11092             : !-----------------------------------------------------------------------
   11093             : ! ... local variables
   11094             : !-----------------------------------------------------------------------
   11095             :       integer :: k
   11096   263009123 :       do k = 1,avec_len
   11097   254840160 :          lu(k,2213) = 1._r8 / lu(k,2213)
   11098   254840160 :          lu(k,2214) = lu(k,2214) * lu(k,2213)
   11099   254840160 :          lu(k,2215) = lu(k,2215) * lu(k,2213)
   11100   254840160 :          lu(k,2216) = lu(k,2216) * lu(k,2213)
   11101   254840160 :          lu(k,2217) = lu(k,2217) * lu(k,2213)
   11102   254840160 :          lu(k,2218) = lu(k,2218) * lu(k,2213)
   11103   254840160 :          lu(k,2219) = lu(k,2219) * lu(k,2213)
   11104   254840160 :          lu(k,2220) = lu(k,2220) * lu(k,2213)
   11105   254840160 :          lu(k,2221) = lu(k,2221) * lu(k,2213)
   11106   254840160 :          lu(k,2222) = lu(k,2222) * lu(k,2213)
   11107   254840160 :          lu(k,2223) = lu(k,2223) * lu(k,2213)
   11108   254840160 :          lu(k,2224) = lu(k,2224) * lu(k,2213)
   11109   254840160 :          lu(k,2225) = lu(k,2225) * lu(k,2213)
   11110   254840160 :          lu(k,2226) = lu(k,2226) * lu(k,2213)
   11111   254840160 :          lu(k,2227) = lu(k,2227) * lu(k,2213)
   11112   254840160 :          lu(k,2228) = lu(k,2228) * lu(k,2213)
   11113   254840160 :          lu(k,2229) = lu(k,2229) * lu(k,2213)
   11114   254840160 :          lu(k,2740) = lu(k,2740) - lu(k,2214) * lu(k,2726)
   11115   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2215) * lu(k,2726)
   11116   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2216) * lu(k,2726)
   11117   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2217) * lu(k,2726)
   11118   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2218) * lu(k,2726)
   11119   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2219) * lu(k,2726)
   11120   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2220) * lu(k,2726)
   11121   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2221) * lu(k,2726)
   11122   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2222) * lu(k,2726)
   11123   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2223) * lu(k,2726)
   11124   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2224) * lu(k,2726)
   11125   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2225) * lu(k,2726)
   11126   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2226) * lu(k,2726)
   11127   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2227) * lu(k,2726)
   11128   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2228) * lu(k,2726)
   11129   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2229) * lu(k,2726)
   11130   254840160 :          lu(k,2786) = lu(k,2786) - lu(k,2214) * lu(k,2772)
   11131   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2215) * lu(k,2772)
   11132   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2216) * lu(k,2772)
   11133   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2217) * lu(k,2772)
   11134   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2218) * lu(k,2772)
   11135   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2219) * lu(k,2772)
   11136   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2220) * lu(k,2772)
   11137   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2221) * lu(k,2772)
   11138   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2222) * lu(k,2772)
   11139   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2223) * lu(k,2772)
   11140   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2224) * lu(k,2772)
   11141   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2225) * lu(k,2772)
   11142   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2226) * lu(k,2772)
   11143   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2227) * lu(k,2772)
   11144   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2228) * lu(k,2772)
   11145   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2229) * lu(k,2772)
   11146   254840160 :          lu(k,2833) = lu(k,2833) - lu(k,2214) * lu(k,2819)
   11147   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2215) * lu(k,2819)
   11148   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2216) * lu(k,2819)
   11149   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2217) * lu(k,2819)
   11150   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2218) * lu(k,2819)
   11151   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2219) * lu(k,2819)
   11152   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2220) * lu(k,2819)
   11153   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2221) * lu(k,2819)
   11154   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2222) * lu(k,2819)
   11155   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2223) * lu(k,2819)
   11156   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2224) * lu(k,2819)
   11157   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2225) * lu(k,2819)
   11158   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2226) * lu(k,2819)
   11159   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2227) * lu(k,2819)
   11160   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2228) * lu(k,2819)
   11161   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2229) * lu(k,2819)
   11162   254840160 :          lu(k,2905) = lu(k,2905) - lu(k,2214) * lu(k,2890)
   11163   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2215) * lu(k,2890)
   11164   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2216) * lu(k,2890)
   11165   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2217) * lu(k,2890)
   11166   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2218) * lu(k,2890)
   11167   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2219) * lu(k,2890)
   11168   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2220) * lu(k,2890)
   11169   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2221) * lu(k,2890)
   11170   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2222) * lu(k,2890)
   11171   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2223) * lu(k,2890)
   11172   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2224) * lu(k,2890)
   11173   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2225) * lu(k,2890)
   11174   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2226) * lu(k,2890)
   11175   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2227) * lu(k,2890)
   11176   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2228) * lu(k,2890)
   11177   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2229) * lu(k,2890)
   11178   254840160 :          lu(k,3095) = lu(k,3095) - lu(k,2214) * lu(k,3080)
   11179   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2215) * lu(k,3080)
   11180   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2216) * lu(k,3080)
   11181   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2217) * lu(k,3080)
   11182   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2218) * lu(k,3080)
   11183   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2219) * lu(k,3080)
   11184   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2220) * lu(k,3080)
   11185   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2221) * lu(k,3080)
   11186   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2222) * lu(k,3080)
   11187   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2223) * lu(k,3080)
   11188   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2224) * lu(k,3080)
   11189   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2225) * lu(k,3080)
   11190   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2226) * lu(k,3080)
   11191   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2227) * lu(k,3080)
   11192   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2228) * lu(k,3080)
   11193   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2229) * lu(k,3080)
   11194   254840160 :          lu(k,3354) = lu(k,3354) - lu(k,2214) * lu(k,3339)
   11195   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2215) * lu(k,3339)
   11196   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2216) * lu(k,3339)
   11197   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2217) * lu(k,3339)
   11198   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2218) * lu(k,3339)
   11199   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2219) * lu(k,3339)
   11200   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2220) * lu(k,3339)
   11201   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2221) * lu(k,3339)
   11202   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2222) * lu(k,3339)
   11203   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2223) * lu(k,3339)
   11204   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2224) * lu(k,3339)
   11205   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2225) * lu(k,3339)
   11206   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2226) * lu(k,3339)
   11207   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2227) * lu(k,3339)
   11208   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2228) * lu(k,3339)
   11209   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2229) * lu(k,3339)
   11210   254840160 :          lu(k,3447) = lu(k,3447) - lu(k,2214) * lu(k,3432)
   11211   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2215) * lu(k,3432)
   11212   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2216) * lu(k,3432)
   11213   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2217) * lu(k,3432)
   11214   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2218) * lu(k,3432)
   11215   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2219) * lu(k,3432)
   11216   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2220) * lu(k,3432)
   11217   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2221) * lu(k,3432)
   11218   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2222) * lu(k,3432)
   11219   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2223) * lu(k,3432)
   11220   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2224) * lu(k,3432)
   11221   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2225) * lu(k,3432)
   11222   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2226) * lu(k,3432)
   11223   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2227) * lu(k,3432)
   11224   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2228) * lu(k,3432)
   11225   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2229) * lu(k,3432)
   11226   254840160 :          lu(k,3591) = lu(k,3591) - lu(k,2214) * lu(k,3576)
   11227   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2215) * lu(k,3576)
   11228   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2216) * lu(k,3576)
   11229   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2217) * lu(k,3576)
   11230   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2218) * lu(k,3576)
   11231   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2219) * lu(k,3576)
   11232   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2220) * lu(k,3576)
   11233   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2221) * lu(k,3576)
   11234   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2222) * lu(k,3576)
   11235   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2223) * lu(k,3576)
   11236   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2224) * lu(k,3576)
   11237   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2225) * lu(k,3576)
   11238   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2226) * lu(k,3576)
   11239   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2227) * lu(k,3576)
   11240   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2228) * lu(k,3576)
   11241   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2229) * lu(k,3576)
   11242   254840160 :          lu(k,3745) = lu(k,3745) - lu(k,2214) * lu(k,3732)
   11243   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2215) * lu(k,3732)
   11244   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2216) * lu(k,3732)
   11245   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2217) * lu(k,3732)
   11246   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2218) * lu(k,3732)
   11247   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2219) * lu(k,3732)
   11248   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2220) * lu(k,3732)
   11249   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2221) * lu(k,3732)
   11250   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2222) * lu(k,3732)
   11251   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2223) * lu(k,3732)
   11252   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2224) * lu(k,3732)
   11253   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2225) * lu(k,3732)
   11254   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2226) * lu(k,3732)
   11255   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2227) * lu(k,3732)
   11256   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2228) * lu(k,3732)
   11257   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2229) * lu(k,3732)
   11258   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,2214) * lu(k,4063)
   11259   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2215) * lu(k,4063)
   11260   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2216) * lu(k,4063)
   11261   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2217) * lu(k,4063)
   11262   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2218) * lu(k,4063)
   11263   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2219) * lu(k,4063)
   11264   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2220) * lu(k,4063)
   11265   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2221) * lu(k,4063)
   11266   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2222) * lu(k,4063)
   11267   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2223) * lu(k,4063)
   11268   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2224) * lu(k,4063)
   11269   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2225) * lu(k,4063)
   11270   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2226) * lu(k,4063)
   11271   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2227) * lu(k,4063)
   11272   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2228) * lu(k,4063)
   11273   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2229) * lu(k,4063)
   11274   254840160 :          lu(k,2235) = 1._r8 / lu(k,2235)
   11275   254840160 :          lu(k,2236) = lu(k,2236) * lu(k,2235)
   11276   254840160 :          lu(k,2237) = lu(k,2237) * lu(k,2235)
   11277   254840160 :          lu(k,2238) = lu(k,2238) * lu(k,2235)
   11278   254840160 :          lu(k,2239) = lu(k,2239) * lu(k,2235)
   11279   254840160 :          lu(k,2240) = lu(k,2240) * lu(k,2235)
   11280   254840160 :          lu(k,2241) = lu(k,2241) * lu(k,2235)
   11281   254840160 :          lu(k,2242) = lu(k,2242) * lu(k,2235)
   11282   254840160 :          lu(k,2243) = lu(k,2243) * lu(k,2235)
   11283   254840160 :          lu(k,2244) = lu(k,2244) * lu(k,2235)
   11284   254840160 :          lu(k,2245) = lu(k,2245) * lu(k,2235)
   11285   254840160 :          lu(k,2246) = lu(k,2246) * lu(k,2235)
   11286   254840160 :          lu(k,2247) = lu(k,2247) * lu(k,2235)
   11287   254840160 :          lu(k,2248) = lu(k,2248) * lu(k,2235)
   11288   254840160 :          lu(k,2249) = lu(k,2249) * lu(k,2235)
   11289   254840160 :          lu(k,2250) = lu(k,2250) * lu(k,2235)
   11290   254840160 :          lu(k,2251) = lu(k,2251) * lu(k,2235)
   11291   254840160 :          lu(k,2252) = lu(k,2252) * lu(k,2235)
   11292   254840160 :          lu(k,2253) = lu(k,2253) * lu(k,2235)
   11293   254840160 :          lu(k,2697) = - lu(k,2236) * lu(k,2696)
   11294   254840160 :          lu(k,2698) = lu(k,2698) - lu(k,2237) * lu(k,2696)
   11295   254840160 :          lu(k,2699) = lu(k,2699) - lu(k,2238) * lu(k,2696)
   11296   254840160 :          lu(k,2700) = lu(k,2700) - lu(k,2239) * lu(k,2696)
   11297   254840160 :          lu(k,2701) = lu(k,2701) - lu(k,2240) * lu(k,2696)
   11298   254840160 :          lu(k,2702) = lu(k,2702) - lu(k,2241) * lu(k,2696)
   11299   254840160 :          lu(k,2703) = lu(k,2703) - lu(k,2242) * lu(k,2696)
   11300   254840160 :          lu(k,2704) = lu(k,2704) - lu(k,2243) * lu(k,2696)
   11301   254840160 :          lu(k,2705) = lu(k,2705) - lu(k,2244) * lu(k,2696)
   11302   254840160 :          lu(k,2706) = lu(k,2706) - lu(k,2245) * lu(k,2696)
   11303   254840160 :          lu(k,2707) = lu(k,2707) - lu(k,2246) * lu(k,2696)
   11304   254840160 :          lu(k,2708) = lu(k,2708) - lu(k,2247) * lu(k,2696)
   11305   254840160 :          lu(k,2709) = lu(k,2709) - lu(k,2248) * lu(k,2696)
   11306   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,2249) * lu(k,2696)
   11307   254840160 :          lu(k,2711) = lu(k,2711) - lu(k,2250) * lu(k,2696)
   11308   254840160 :          lu(k,2712) = lu(k,2712) - lu(k,2251) * lu(k,2696)
   11309   254840160 :          lu(k,2713) = lu(k,2713) - lu(k,2252) * lu(k,2696)
   11310   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,2253) * lu(k,2696)
   11311   254840160 :          lu(k,2728) = lu(k,2728) - lu(k,2236) * lu(k,2727)
   11312   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,2237) * lu(k,2727)
   11313   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2238) * lu(k,2727)
   11314   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2239) * lu(k,2727)
   11315   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2240) * lu(k,2727)
   11316   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2241) * lu(k,2727)
   11317   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2242) * lu(k,2727)
   11318   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2243) * lu(k,2727)
   11319   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2244) * lu(k,2727)
   11320   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2245) * lu(k,2727)
   11321   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2246) * lu(k,2727)
   11322   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2247) * lu(k,2727)
   11323   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2248) * lu(k,2727)
   11324   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2249) * lu(k,2727)
   11325   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2250) * lu(k,2727)
   11326   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2251) * lu(k,2727)
   11327   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2252) * lu(k,2727)
   11328   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2253) * lu(k,2727)
   11329   254840160 :          lu(k,2774) = lu(k,2774) - lu(k,2236) * lu(k,2773)
   11330   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,2237) * lu(k,2773)
   11331   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2238) * lu(k,2773)
   11332   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2239) * lu(k,2773)
   11333   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2240) * lu(k,2773)
   11334   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2241) * lu(k,2773)
   11335   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2242) * lu(k,2773)
   11336   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2243) * lu(k,2773)
   11337   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2244) * lu(k,2773)
   11338   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2245) * lu(k,2773)
   11339   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2246) * lu(k,2773)
   11340   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2247) * lu(k,2773)
   11341   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2248) * lu(k,2773)
   11342   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2249) * lu(k,2773)
   11343   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2250) * lu(k,2773)
   11344   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2251) * lu(k,2773)
   11345   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2252) * lu(k,2773)
   11346   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2253) * lu(k,2773)
   11347   254840160 :          lu(k,2821) = lu(k,2821) - lu(k,2236) * lu(k,2820)
   11348   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,2237) * lu(k,2820)
   11349   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2238) * lu(k,2820)
   11350   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2239) * lu(k,2820)
   11351   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2240) * lu(k,2820)
   11352   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2241) * lu(k,2820)
   11353   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2242) * lu(k,2820)
   11354   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2243) * lu(k,2820)
   11355   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2244) * lu(k,2820)
   11356   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2245) * lu(k,2820)
   11357   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2246) * lu(k,2820)
   11358   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2247) * lu(k,2820)
   11359   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2248) * lu(k,2820)
   11360   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2249) * lu(k,2820)
   11361   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2250) * lu(k,2820)
   11362   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2251) * lu(k,2820)
   11363   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2252) * lu(k,2820)
   11364   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2253) * lu(k,2820)
   11365   254840160 :          lu(k,2893) = lu(k,2893) - lu(k,2236) * lu(k,2891)
   11366   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,2237) * lu(k,2891)
   11367   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2238) * lu(k,2891)
   11368   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2239) * lu(k,2891)
   11369   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2240) * lu(k,2891)
   11370   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2241) * lu(k,2891)
   11371   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2242) * lu(k,2891)
   11372   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2243) * lu(k,2891)
   11373   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2244) * lu(k,2891)
   11374   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2245) * lu(k,2891)
   11375   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2246) * lu(k,2891)
   11376   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2247) * lu(k,2891)
   11377   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2248) * lu(k,2891)
   11378   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2249) * lu(k,2891)
   11379   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2250) * lu(k,2891)
   11380   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2251) * lu(k,2891)
   11381   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2252) * lu(k,2891)
   11382   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2253) * lu(k,2891)
   11383   254840160 :          lu(k,3083) = lu(k,3083) - lu(k,2236) * lu(k,3081)
   11384   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,2237) * lu(k,3081)
   11385   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2238) * lu(k,3081)
   11386   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2239) * lu(k,3081)
   11387   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2240) * lu(k,3081)
   11388   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2241) * lu(k,3081)
   11389   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2242) * lu(k,3081)
   11390   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2243) * lu(k,3081)
   11391   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2244) * lu(k,3081)
   11392   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2245) * lu(k,3081)
   11393   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2246) * lu(k,3081)
   11394   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2247) * lu(k,3081)
   11395   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2248) * lu(k,3081)
   11396   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2249) * lu(k,3081)
   11397   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2250) * lu(k,3081)
   11398   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2251) * lu(k,3081)
   11399   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2252) * lu(k,3081)
   11400   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2253) * lu(k,3081)
   11401   254840160 :          lu(k,3342) = lu(k,3342) - lu(k,2236) * lu(k,3340)
   11402   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,2237) * lu(k,3340)
   11403   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2238) * lu(k,3340)
   11404   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2239) * lu(k,3340)
   11405   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2240) * lu(k,3340)
   11406   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2241) * lu(k,3340)
   11407   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2242) * lu(k,3340)
   11408   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2243) * lu(k,3340)
   11409   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2244) * lu(k,3340)
   11410   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2245) * lu(k,3340)
   11411   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2246) * lu(k,3340)
   11412   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2247) * lu(k,3340)
   11413   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2248) * lu(k,3340)
   11414   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2249) * lu(k,3340)
   11415   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2250) * lu(k,3340)
   11416   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2251) * lu(k,3340)
   11417   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2252) * lu(k,3340)
   11418   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2253) * lu(k,3340)
   11419   254840160 :          lu(k,3435) = lu(k,3435) - lu(k,2236) * lu(k,3433)
   11420   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,2237) * lu(k,3433)
   11421   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2238) * lu(k,3433)
   11422   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2239) * lu(k,3433)
   11423   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2240) * lu(k,3433)
   11424   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2241) * lu(k,3433)
   11425   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2242) * lu(k,3433)
   11426   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2243) * lu(k,3433)
   11427   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2244) * lu(k,3433)
   11428   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2245) * lu(k,3433)
   11429   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2246) * lu(k,3433)
   11430   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2247) * lu(k,3433)
   11431   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2248) * lu(k,3433)
   11432   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2249) * lu(k,3433)
   11433   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2250) * lu(k,3433)
   11434   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2251) * lu(k,3433)
   11435   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2252) * lu(k,3433)
   11436   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2253) * lu(k,3433)
   11437   254840160 :          lu(k,3579) = lu(k,3579) - lu(k,2236) * lu(k,3577)
   11438   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,2237) * lu(k,3577)
   11439   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2238) * lu(k,3577)
   11440   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2239) * lu(k,3577)
   11441   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2240) * lu(k,3577)
   11442   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2241) * lu(k,3577)
   11443   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2242) * lu(k,3577)
   11444   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2243) * lu(k,3577)
   11445   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2244) * lu(k,3577)
   11446   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2245) * lu(k,3577)
   11447   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2246) * lu(k,3577)
   11448   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2247) * lu(k,3577)
   11449   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2248) * lu(k,3577)
   11450   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2249) * lu(k,3577)
   11451   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2250) * lu(k,3577)
   11452   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2251) * lu(k,3577)
   11453   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2252) * lu(k,3577)
   11454   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2253) * lu(k,3577)
   11455   254840160 :          lu(k,2259) = 1._r8 / lu(k,2259)
   11456   254840160 :          lu(k,2260) = lu(k,2260) * lu(k,2259)
   11457   254840160 :          lu(k,2261) = lu(k,2261) * lu(k,2259)
   11458   254840160 :          lu(k,2262) = lu(k,2262) * lu(k,2259)
   11459   254840160 :          lu(k,2263) = lu(k,2263) * lu(k,2259)
   11460   254840160 :          lu(k,2264) = lu(k,2264) * lu(k,2259)
   11461   254840160 :          lu(k,2265) = lu(k,2265) * lu(k,2259)
   11462   254840160 :          lu(k,2266) = lu(k,2266) * lu(k,2259)
   11463   254840160 :          lu(k,2267) = lu(k,2267) * lu(k,2259)
   11464   254840160 :          lu(k,2268) = lu(k,2268) * lu(k,2259)
   11465   254840160 :          lu(k,2269) = lu(k,2269) * lu(k,2259)
   11466   254840160 :          lu(k,2270) = lu(k,2270) * lu(k,2259)
   11467   254840160 :          lu(k,2271) = lu(k,2271) * lu(k,2259)
   11468   254840160 :          lu(k,2914) = - lu(k,2260) * lu(k,2892)
   11469   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2261) * lu(k,2892)
   11470   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2262) * lu(k,2892)
   11471   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2263) * lu(k,2892)
   11472   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2264) * lu(k,2892)
   11473   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2265) * lu(k,2892)
   11474   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2266) * lu(k,2892)
   11475   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2267) * lu(k,2892)
   11476   254840160 :          lu(k,2925) = - lu(k,2268) * lu(k,2892)
   11477   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2269) * lu(k,2892)
   11478   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2270) * lu(k,2892)
   11479   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2271) * lu(k,2892)
   11480   254840160 :          lu(k,2931) = lu(k,2931) - lu(k,2260) * lu(k,2930)
   11481   254840160 :          lu(k,2932) = lu(k,2932) - lu(k,2261) * lu(k,2930)
   11482   254840160 :          lu(k,2933) = lu(k,2933) - lu(k,2262) * lu(k,2930)
   11483   254840160 :          lu(k,2934) = lu(k,2934) - lu(k,2263) * lu(k,2930)
   11484   254840160 :          lu(k,2935) = - lu(k,2264) * lu(k,2930)
   11485   254840160 :          lu(k,2936) = lu(k,2936) - lu(k,2265) * lu(k,2930)
   11486   254840160 :          lu(k,2937) = lu(k,2937) - lu(k,2266) * lu(k,2930)
   11487   254840160 :          lu(k,2938) = lu(k,2938) - lu(k,2267) * lu(k,2930)
   11488   254840160 :          lu(k,2940) = lu(k,2940) - lu(k,2268) * lu(k,2930)
   11489   254840160 :          lu(k,2941) = lu(k,2941) - lu(k,2269) * lu(k,2930)
   11490   254840160 :          lu(k,2942) = lu(k,2942) - lu(k,2270) * lu(k,2930)
   11491   254840160 :          lu(k,2943) = lu(k,2943) - lu(k,2271) * lu(k,2930)
   11492   254840160 :          lu(k,2948) = lu(k,2948) - lu(k,2260) * lu(k,2947)
   11493   254840160 :          lu(k,2949) = lu(k,2949) - lu(k,2261) * lu(k,2947)
   11494   254840160 :          lu(k,2950) = lu(k,2950) - lu(k,2262) * lu(k,2947)
   11495   254840160 :          lu(k,2951) = lu(k,2951) - lu(k,2263) * lu(k,2947)
   11496   254840160 :          lu(k,2952) = - lu(k,2264) * lu(k,2947)
   11497   254840160 :          lu(k,2953) = - lu(k,2265) * lu(k,2947)
   11498   254840160 :          lu(k,2954) = lu(k,2954) - lu(k,2266) * lu(k,2947)
   11499   254840160 :          lu(k,2955) = lu(k,2955) - lu(k,2267) * lu(k,2947)
   11500   254840160 :          lu(k,2958) = lu(k,2958) - lu(k,2268) * lu(k,2947)
   11501   254840160 :          lu(k,2959) = lu(k,2959) - lu(k,2269) * lu(k,2947)
   11502   254840160 :          lu(k,2960) = lu(k,2960) - lu(k,2270) * lu(k,2947)
   11503   254840160 :          lu(k,2961) = lu(k,2961) - lu(k,2271) * lu(k,2947)
   11504   254840160 :          lu(k,3104) = lu(k,3104) - lu(k,2260) * lu(k,3082)
   11505   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2261) * lu(k,3082)
   11506   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2262) * lu(k,3082)
   11507   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2263) * lu(k,3082)
   11508   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2264) * lu(k,3082)
   11509   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2265) * lu(k,3082)
   11510   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2266) * lu(k,3082)
   11511   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2267) * lu(k,3082)
   11512   254840160 :          lu(k,3117) = lu(k,3117) - lu(k,2268) * lu(k,3082)
   11513   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2269) * lu(k,3082)
   11514   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2270) * lu(k,3082)
   11515   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2271) * lu(k,3082)
   11516   254840160 :          lu(k,3157) = lu(k,3157) - lu(k,2260) * lu(k,3156)
   11517   254840160 :          lu(k,3158) = lu(k,3158) - lu(k,2261) * lu(k,3156)
   11518   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,2262) * lu(k,3156)
   11519   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,2263) * lu(k,3156)
   11520   254840160 :          lu(k,3162) = lu(k,3162) - lu(k,2264) * lu(k,3156)
   11521   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,2265) * lu(k,3156)
   11522   254840160 :          lu(k,3164) = lu(k,3164) - lu(k,2266) * lu(k,3156)
   11523   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,2267) * lu(k,3156)
   11524   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,2268) * lu(k,3156)
   11525   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,2269) * lu(k,3156)
   11526   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,2270) * lu(k,3156)
   11527   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,2271) * lu(k,3156)
   11528   254840160 :          lu(k,3183) = lu(k,3183) - lu(k,2260) * lu(k,3182)
   11529   254840160 :          lu(k,3184) = lu(k,3184) - lu(k,2261) * lu(k,3182)
   11530   254840160 :          lu(k,3186) = lu(k,3186) - lu(k,2262) * lu(k,3182)
   11531   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,2263) * lu(k,3182)
   11532   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,2264) * lu(k,3182)
   11533   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,2265) * lu(k,3182)
   11534   254840160 :          lu(k,3190) = lu(k,3190) - lu(k,2266) * lu(k,3182)
   11535   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,2267) * lu(k,3182)
   11536   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,2268) * lu(k,3182)
   11537   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,2269) * lu(k,3182)
   11538   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,2270) * lu(k,3182)
   11539   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,2271) * lu(k,3182)
   11540   254840160 :          lu(k,3363) = lu(k,3363) - lu(k,2260) * lu(k,3341)
   11541   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2261) * lu(k,3341)
   11542   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2262) * lu(k,3341)
   11543   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2263) * lu(k,3341)
   11544   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2264) * lu(k,3341)
   11545   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2265) * lu(k,3341)
   11546   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2266) * lu(k,3341)
   11547   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2267) * lu(k,3341)
   11548   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,2268) * lu(k,3341)
   11549   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2269) * lu(k,3341)
   11550   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2270) * lu(k,3341)
   11551   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2271) * lu(k,3341)
   11552   254840160 :          lu(k,3456) = lu(k,3456) - lu(k,2260) * lu(k,3434)
   11553   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2261) * lu(k,3434)
   11554   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2262) * lu(k,3434)
   11555   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2263) * lu(k,3434)
   11556   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2264) * lu(k,3434)
   11557   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2265) * lu(k,3434)
   11558   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2266) * lu(k,3434)
   11559   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2267) * lu(k,3434)
   11560   254840160 :          lu(k,3469) = - lu(k,2268) * lu(k,3434)
   11561   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2269) * lu(k,3434)
   11562   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2270) * lu(k,3434)
   11563   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2271) * lu(k,3434)
   11564   254840160 :          lu(k,3600) = lu(k,3600) - lu(k,2260) * lu(k,3578)
   11565   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2261) * lu(k,3578)
   11566   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2262) * lu(k,3578)
   11567   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2263) * lu(k,3578)
   11568   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2264) * lu(k,3578)
   11569   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2265) * lu(k,3578)
   11570   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2266) * lu(k,3578)
   11571   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2267) * lu(k,3578)
   11572   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,2268) * lu(k,3578)
   11573   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2269) * lu(k,3578)
   11574   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2270) * lu(k,3578)
   11575   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2271) * lu(k,3578)
   11576   254840160 :          lu(k,3754) = lu(k,3754) - lu(k,2260) * lu(k,3733)
   11577   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2261) * lu(k,3733)
   11578   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2262) * lu(k,3733)
   11579   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2263) * lu(k,3733)
   11580   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2264) * lu(k,3733)
   11581   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2265) * lu(k,3733)
   11582   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2266) * lu(k,3733)
   11583   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2267) * lu(k,3733)
   11584   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,2268) * lu(k,3733)
   11585   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2269) * lu(k,3733)
   11586   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2270) * lu(k,3733)
   11587   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2271) * lu(k,3733)
   11588   254840160 :          lu(k,3795) = lu(k,3795) - lu(k,2260) * lu(k,3794)
   11589   254840160 :          lu(k,3796) = lu(k,3796) - lu(k,2261) * lu(k,3794)
   11590   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,2262) * lu(k,3794)
   11591   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,2263) * lu(k,3794)
   11592   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,2264) * lu(k,3794)
   11593   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,2265) * lu(k,3794)
   11594   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,2266) * lu(k,3794)
   11595   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,2267) * lu(k,3794)
   11596   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,2268) * lu(k,3794)
   11597   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,2269) * lu(k,3794)
   11598   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,2270) * lu(k,3794)
   11599   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,2271) * lu(k,3794)
   11600   254840160 :          lu(k,3836) = lu(k,3836) - lu(k,2260) * lu(k,3834)
   11601   254840160 :          lu(k,3837) = lu(k,3837) - lu(k,2261) * lu(k,3834)
   11602   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,2262) * lu(k,3834)
   11603   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,2263) * lu(k,3834)
   11604   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,2264) * lu(k,3834)
   11605   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,2265) * lu(k,3834)
   11606   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,2266) * lu(k,3834)
   11607   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,2267) * lu(k,3834)
   11608   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,2268) * lu(k,3834)
   11609   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,2269) * lu(k,3834)
   11610   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,2270) * lu(k,3834)
   11611   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,2271) * lu(k,3834)
   11612   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,2260) * lu(k,4064)
   11613   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2261) * lu(k,4064)
   11614   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2262) * lu(k,4064)
   11615   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2263) * lu(k,4064)
   11616   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2264) * lu(k,4064)
   11617   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2265) * lu(k,4064)
   11618   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2266) * lu(k,4064)
   11619   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2267) * lu(k,4064)
   11620   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,2268) * lu(k,4064)
   11621   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2269) * lu(k,4064)
   11622   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2270) * lu(k,4064)
   11623   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2271) * lu(k,4064)
   11624   254840160 :          lu(k,4112) = lu(k,4112) - lu(k,2260) * lu(k,4111)
   11625   254840160 :          lu(k,4113) = lu(k,4113) - lu(k,2261) * lu(k,4111)
   11626   254840160 :          lu(k,4115) = lu(k,4115) - lu(k,2262) * lu(k,4111)
   11627   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,2263) * lu(k,4111)
   11628   254840160 :          lu(k,4117) = lu(k,4117) - lu(k,2264) * lu(k,4111)
   11629   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,2265) * lu(k,4111)
   11630   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,2266) * lu(k,4111)
   11631   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,2267) * lu(k,4111)
   11632   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,2268) * lu(k,4111)
   11633   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,2269) * lu(k,4111)
   11634   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,2270) * lu(k,4111)
   11635   263009123 :          lu(k,4128) = lu(k,4128) - lu(k,2271) * lu(k,4111)
   11636             :       end do
   11637     8168963 :       end subroutine lu_fac45
   11638     8168963 :       subroutine lu_fac46( avec_len, lu )
   11639             :       use chem_mods, only : nzcnt
   11640             :       use shr_kind_mod, only : r8 => shr_kind_r8
   11641             :       implicit none
   11642             : !-----------------------------------------------------------------------
   11643             : ! ... dummy args
   11644             : !-----------------------------------------------------------------------
   11645             :       integer, intent(in) :: avec_len
   11646             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   11647             : !-----------------------------------------------------------------------
   11648             : ! ... local variables
   11649             : !-----------------------------------------------------------------------
   11650             :       integer :: k
   11651   263009123 :       do k = 1,avec_len
   11652   254840160 :          lu(k,2277) = 1._r8 / lu(k,2277)
   11653   254840160 :          lu(k,2278) = lu(k,2278) * lu(k,2277)
   11654   254840160 :          lu(k,2279) = lu(k,2279) * lu(k,2277)
   11655   254840160 :          lu(k,2280) = lu(k,2280) * lu(k,2277)
   11656   254840160 :          lu(k,2281) = lu(k,2281) * lu(k,2277)
   11657   254840160 :          lu(k,2282) = lu(k,2282) * lu(k,2277)
   11658   254840160 :          lu(k,2283) = lu(k,2283) * lu(k,2277)
   11659   254840160 :          lu(k,2284) = lu(k,2284) * lu(k,2277)
   11660   254840160 :          lu(k,2285) = lu(k,2285) * lu(k,2277)
   11661   254840160 :          lu(k,2286) = lu(k,2286) * lu(k,2277)
   11662   254840160 :          lu(k,2287) = lu(k,2287) * lu(k,2277)
   11663   254840160 :          lu(k,2288) = lu(k,2288) * lu(k,2277)
   11664   254840160 :          lu(k,2388) = lu(k,2388) - lu(k,2278) * lu(k,2377)
   11665   254840160 :          lu(k,2389) = lu(k,2389) - lu(k,2279) * lu(k,2377)
   11666   254840160 :          lu(k,2390) = lu(k,2390) - lu(k,2280) * lu(k,2377)
   11667   254840160 :          lu(k,2391) = lu(k,2391) - lu(k,2281) * lu(k,2377)
   11668   254840160 :          lu(k,2392) = lu(k,2392) - lu(k,2282) * lu(k,2377)
   11669   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,2283) * lu(k,2377)
   11670   254840160 :          lu(k,2394) = lu(k,2394) - lu(k,2284) * lu(k,2377)
   11671   254840160 :          lu(k,2395) = lu(k,2395) - lu(k,2285) * lu(k,2377)
   11672   254840160 :          lu(k,2396) = lu(k,2396) - lu(k,2286) * lu(k,2377)
   11673   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,2287) * lu(k,2377)
   11674   254840160 :          lu(k,2398) = - lu(k,2288) * lu(k,2377)
   11675   254840160 :          lu(k,2449) = lu(k,2449) - lu(k,2278) * lu(k,2438)
   11676   254840160 :          lu(k,2450) = lu(k,2450) - lu(k,2279) * lu(k,2438)
   11677   254840160 :          lu(k,2451) = lu(k,2451) - lu(k,2280) * lu(k,2438)
   11678   254840160 :          lu(k,2452) = lu(k,2452) - lu(k,2281) * lu(k,2438)
   11679   254840160 :          lu(k,2453) = lu(k,2453) - lu(k,2282) * lu(k,2438)
   11680   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,2283) * lu(k,2438)
   11681   254840160 :          lu(k,2455) = lu(k,2455) - lu(k,2284) * lu(k,2438)
   11682   254840160 :          lu(k,2456) = lu(k,2456) - lu(k,2285) * lu(k,2438)
   11683   254840160 :          lu(k,2457) = lu(k,2457) - lu(k,2286) * lu(k,2438)
   11684   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,2287) * lu(k,2438)
   11685   254840160 :          lu(k,2459) = - lu(k,2288) * lu(k,2438)
   11686   254840160 :          lu(k,2480) = lu(k,2480) - lu(k,2278) * lu(k,2468)
   11687   254840160 :          lu(k,2481) = lu(k,2481) - lu(k,2279) * lu(k,2468)
   11688   254840160 :          lu(k,2482) = lu(k,2482) - lu(k,2280) * lu(k,2468)
   11689   254840160 :          lu(k,2483) = lu(k,2483) - lu(k,2281) * lu(k,2468)
   11690   254840160 :          lu(k,2484) = lu(k,2484) - lu(k,2282) * lu(k,2468)
   11691   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,2283) * lu(k,2468)
   11692   254840160 :          lu(k,2486) = lu(k,2486) - lu(k,2284) * lu(k,2468)
   11693   254840160 :          lu(k,2487) = lu(k,2487) - lu(k,2285) * lu(k,2468)
   11694   254840160 :          lu(k,2488) = lu(k,2488) - lu(k,2286) * lu(k,2468)
   11695   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,2287) * lu(k,2468)
   11696   254840160 :          lu(k,2490) = - lu(k,2288) * lu(k,2468)
   11697   254840160 :          lu(k,2579) = lu(k,2579) - lu(k,2278) * lu(k,2567)
   11698   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,2279) * lu(k,2567)
   11699   254840160 :          lu(k,2581) = lu(k,2581) - lu(k,2280) * lu(k,2567)
   11700   254840160 :          lu(k,2582) = lu(k,2582) - lu(k,2281) * lu(k,2567)
   11701   254840160 :          lu(k,2583) = lu(k,2583) - lu(k,2282) * lu(k,2567)
   11702   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,2283) * lu(k,2567)
   11703   254840160 :          lu(k,2585) = lu(k,2585) - lu(k,2284) * lu(k,2567)
   11704   254840160 :          lu(k,2586) = lu(k,2586) - lu(k,2285) * lu(k,2567)
   11705   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,2286) * lu(k,2567)
   11706   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,2287) * lu(k,2567)
   11707   254840160 :          lu(k,2589) = lu(k,2589) - lu(k,2288) * lu(k,2567)
   11708   254840160 :          lu(k,2705) = lu(k,2705) - lu(k,2278) * lu(k,2697)
   11709   254840160 :          lu(k,2706) = lu(k,2706) - lu(k,2279) * lu(k,2697)
   11710   254840160 :          lu(k,2707) = lu(k,2707) - lu(k,2280) * lu(k,2697)
   11711   254840160 :          lu(k,2708) = lu(k,2708) - lu(k,2281) * lu(k,2697)
   11712   254840160 :          lu(k,2709) = lu(k,2709) - lu(k,2282) * lu(k,2697)
   11713   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,2283) * lu(k,2697)
   11714   254840160 :          lu(k,2711) = lu(k,2711) - lu(k,2284) * lu(k,2697)
   11715   254840160 :          lu(k,2712) = lu(k,2712) - lu(k,2285) * lu(k,2697)
   11716   254840160 :          lu(k,2713) = lu(k,2713) - lu(k,2286) * lu(k,2697)
   11717   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,2287) * lu(k,2697)
   11718   254840160 :          lu(k,2715) = - lu(k,2288) * lu(k,2697)
   11719   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2278) * lu(k,2728)
   11720   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2279) * lu(k,2728)
   11721   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2280) * lu(k,2728)
   11722   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2281) * lu(k,2728)
   11723   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2282) * lu(k,2728)
   11724   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2283) * lu(k,2728)
   11725   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2284) * lu(k,2728)
   11726   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2285) * lu(k,2728)
   11727   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2286) * lu(k,2728)
   11728   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2287) * lu(k,2728)
   11729   254840160 :          lu(k,2761) = - lu(k,2288) * lu(k,2728)
   11730   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2278) * lu(k,2774)
   11731   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2279) * lu(k,2774)
   11732   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2280) * lu(k,2774)
   11733   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2281) * lu(k,2774)
   11734   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2282) * lu(k,2774)
   11735   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2283) * lu(k,2774)
   11736   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2284) * lu(k,2774)
   11737   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2285) * lu(k,2774)
   11738   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2286) * lu(k,2774)
   11739   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2287) * lu(k,2774)
   11740   254840160 :          lu(k,2807) = - lu(k,2288) * lu(k,2774)
   11741   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2278) * lu(k,2821)
   11742   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2279) * lu(k,2821)
   11743   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2280) * lu(k,2821)
   11744   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2281) * lu(k,2821)
   11745   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2282) * lu(k,2821)
   11746   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2283) * lu(k,2821)
   11747   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2284) * lu(k,2821)
   11748   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2285) * lu(k,2821)
   11749   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2286) * lu(k,2821)
   11750   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2287) * lu(k,2821)
   11751   254840160 :          lu(k,2854) = - lu(k,2288) * lu(k,2821)
   11752   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2278) * lu(k,2893)
   11753   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2279) * lu(k,2893)
   11754   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2280) * lu(k,2893)
   11755   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2281) * lu(k,2893)
   11756   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2282) * lu(k,2893)
   11757   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2283) * lu(k,2893)
   11758   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2284) * lu(k,2893)
   11759   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2285) * lu(k,2893)
   11760   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2286) * lu(k,2893)
   11761   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2287) * lu(k,2893)
   11762   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2288) * lu(k,2893)
   11763   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2278) * lu(k,3083)
   11764   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2279) * lu(k,3083)
   11765   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2280) * lu(k,3083)
   11766   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2281) * lu(k,3083)
   11767   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2282) * lu(k,3083)
   11768   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2283) * lu(k,3083)
   11769   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2284) * lu(k,3083)
   11770   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2285) * lu(k,3083)
   11771   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2286) * lu(k,3083)
   11772   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2287) * lu(k,3083)
   11773   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2288) * lu(k,3083)
   11774   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2278) * lu(k,3342)
   11775   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2279) * lu(k,3342)
   11776   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2280) * lu(k,3342)
   11777   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2281) * lu(k,3342)
   11778   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2282) * lu(k,3342)
   11779   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2283) * lu(k,3342)
   11780   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2284) * lu(k,3342)
   11781   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2285) * lu(k,3342)
   11782   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2286) * lu(k,3342)
   11783   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2287) * lu(k,3342)
   11784   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2288) * lu(k,3342)
   11785   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2278) * lu(k,3435)
   11786   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2279) * lu(k,3435)
   11787   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2280) * lu(k,3435)
   11788   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2281) * lu(k,3435)
   11789   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2282) * lu(k,3435)
   11790   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2283) * lu(k,3435)
   11791   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2284) * lu(k,3435)
   11792   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2285) * lu(k,3435)
   11793   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2286) * lu(k,3435)
   11794   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2287) * lu(k,3435)
   11795   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2288) * lu(k,3435)
   11796   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2278) * lu(k,3579)
   11797   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2279) * lu(k,3579)
   11798   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2280) * lu(k,3579)
   11799   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2281) * lu(k,3579)
   11800   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2282) * lu(k,3579)
   11801   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2283) * lu(k,3579)
   11802   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2284) * lu(k,3579)
   11803   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2285) * lu(k,3579)
   11804   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2286) * lu(k,3579)
   11805   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2287) * lu(k,3579)
   11806   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2288) * lu(k,3579)
   11807   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,2278) * lu(k,3646)
   11808   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2279) * lu(k,3646)
   11809   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,2280) * lu(k,3646)
   11810   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2281) * lu(k,3646)
   11811   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2282) * lu(k,3646)
   11812   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2283) * lu(k,3646)
   11813   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2284) * lu(k,3646)
   11814   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2285) * lu(k,3646)
   11815   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2286) * lu(k,3646)
   11816   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2287) * lu(k,3646)
   11817   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2288) * lu(k,3646)
   11818   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2278) * lu(k,3734)
   11819   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2279) * lu(k,3734)
   11820   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2280) * lu(k,3734)
   11821   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2281) * lu(k,3734)
   11822   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2282) * lu(k,3734)
   11823   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2283) * lu(k,3734)
   11824   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2284) * lu(k,3734)
   11825   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2285) * lu(k,3734)
   11826   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2286) * lu(k,3734)
   11827   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2287) * lu(k,3734)
   11828   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2288) * lu(k,3734)
   11829   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2278) * lu(k,4065)
   11830   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2279) * lu(k,4065)
   11831   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2280) * lu(k,4065)
   11832   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2281) * lu(k,4065)
   11833   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2282) * lu(k,4065)
   11834   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2283) * lu(k,4065)
   11835   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2284) * lu(k,4065)
   11836   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2285) * lu(k,4065)
   11837   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2286) * lu(k,4065)
   11838   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2287) * lu(k,4065)
   11839   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2288) * lu(k,4065)
   11840   254840160 :          lu(k,2296) = 1._r8 / lu(k,2296)
   11841   254840160 :          lu(k,2297) = lu(k,2297) * lu(k,2296)
   11842   254840160 :          lu(k,2298) = lu(k,2298) * lu(k,2296)
   11843   254840160 :          lu(k,2299) = lu(k,2299) * lu(k,2296)
   11844   254840160 :          lu(k,2300) = lu(k,2300) * lu(k,2296)
   11845   254840160 :          lu(k,2301) = lu(k,2301) * lu(k,2296)
   11846   254840160 :          lu(k,2302) = lu(k,2302) * lu(k,2296)
   11847   254840160 :          lu(k,2303) = lu(k,2303) * lu(k,2296)
   11848   254840160 :          lu(k,2304) = lu(k,2304) * lu(k,2296)
   11849   254840160 :          lu(k,2305) = lu(k,2305) * lu(k,2296)
   11850   254840160 :          lu(k,2306) = lu(k,2306) * lu(k,2296)
   11851   254840160 :          lu(k,2307) = lu(k,2307) * lu(k,2296)
   11852   254840160 :          lu(k,2308) = lu(k,2308) * lu(k,2296)
   11853   254840160 :          lu(k,2309) = lu(k,2309) * lu(k,2296)
   11854   254840160 :          lu(k,2310) = lu(k,2310) * lu(k,2296)
   11855   254840160 :          lu(k,2311) = lu(k,2311) * lu(k,2296)
   11856   254840160 :          lu(k,2312) = lu(k,2312) * lu(k,2296)
   11857   254840160 :          lu(k,2313) = lu(k,2313) * lu(k,2296)
   11858   254840160 :          lu(k,2314) = lu(k,2314) * lu(k,2296)
   11859   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,2297) * lu(k,2729)
   11860   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2298) * lu(k,2729)
   11861   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2299) * lu(k,2729)
   11862   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2300) * lu(k,2729)
   11863   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2301) * lu(k,2729)
   11864   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2302) * lu(k,2729)
   11865   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2303) * lu(k,2729)
   11866   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2304) * lu(k,2729)
   11867   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2305) * lu(k,2729)
   11868   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2306) * lu(k,2729)
   11869   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2307) * lu(k,2729)
   11870   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2308) * lu(k,2729)
   11871   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2309) * lu(k,2729)
   11872   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2310) * lu(k,2729)
   11873   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2311) * lu(k,2729)
   11874   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2312) * lu(k,2729)
   11875   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2313) * lu(k,2729)
   11876   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2314) * lu(k,2729)
   11877   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,2297) * lu(k,2775)
   11878   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2298) * lu(k,2775)
   11879   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2299) * lu(k,2775)
   11880   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2300) * lu(k,2775)
   11881   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2301) * lu(k,2775)
   11882   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2302) * lu(k,2775)
   11883   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2303) * lu(k,2775)
   11884   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2304) * lu(k,2775)
   11885   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2305) * lu(k,2775)
   11886   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2306) * lu(k,2775)
   11887   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2307) * lu(k,2775)
   11888   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2308) * lu(k,2775)
   11889   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2309) * lu(k,2775)
   11890   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2310) * lu(k,2775)
   11891   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2311) * lu(k,2775)
   11892   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2312) * lu(k,2775)
   11893   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2313) * lu(k,2775)
   11894   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2314) * lu(k,2775)
   11895   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,2297) * lu(k,2822)
   11896   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2298) * lu(k,2822)
   11897   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2299) * lu(k,2822)
   11898   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2300) * lu(k,2822)
   11899   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2301) * lu(k,2822)
   11900   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2302) * lu(k,2822)
   11901   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2303) * lu(k,2822)
   11902   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2304) * lu(k,2822)
   11903   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2305) * lu(k,2822)
   11904   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2306) * lu(k,2822)
   11905   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2307) * lu(k,2822)
   11906   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2308) * lu(k,2822)
   11907   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2309) * lu(k,2822)
   11908   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2310) * lu(k,2822)
   11909   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2311) * lu(k,2822)
   11910   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2312) * lu(k,2822)
   11911   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2313) * lu(k,2822)
   11912   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2314) * lu(k,2822)
   11913   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,2297) * lu(k,2894)
   11914   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2298) * lu(k,2894)
   11915   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2299) * lu(k,2894)
   11916   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2300) * lu(k,2894)
   11917   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2301) * lu(k,2894)
   11918   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2302) * lu(k,2894)
   11919   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2303) * lu(k,2894)
   11920   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2304) * lu(k,2894)
   11921   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2305) * lu(k,2894)
   11922   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2306) * lu(k,2894)
   11923   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2307) * lu(k,2894)
   11924   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2308) * lu(k,2894)
   11925   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2309) * lu(k,2894)
   11926   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2310) * lu(k,2894)
   11927   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2311) * lu(k,2894)
   11928   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2312) * lu(k,2894)
   11929   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2313) * lu(k,2894)
   11930   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2314) * lu(k,2894)
   11931   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,2297) * lu(k,3084)
   11932   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2298) * lu(k,3084)
   11933   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2299) * lu(k,3084)
   11934   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2300) * lu(k,3084)
   11935   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2301) * lu(k,3084)
   11936   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2302) * lu(k,3084)
   11937   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2303) * lu(k,3084)
   11938   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2304) * lu(k,3084)
   11939   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2305) * lu(k,3084)
   11940   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2306) * lu(k,3084)
   11941   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2307) * lu(k,3084)
   11942   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2308) * lu(k,3084)
   11943   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2309) * lu(k,3084)
   11944   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2310) * lu(k,3084)
   11945   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2311) * lu(k,3084)
   11946   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2312) * lu(k,3084)
   11947   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2313) * lu(k,3084)
   11948   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2314) * lu(k,3084)
   11949   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,2297) * lu(k,3343)
   11950   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2298) * lu(k,3343)
   11951   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2299) * lu(k,3343)
   11952   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2300) * lu(k,3343)
   11953   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2301) * lu(k,3343)
   11954   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2302) * lu(k,3343)
   11955   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2303) * lu(k,3343)
   11956   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2304) * lu(k,3343)
   11957   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2305) * lu(k,3343)
   11958   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2306) * lu(k,3343)
   11959   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2307) * lu(k,3343)
   11960   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2308) * lu(k,3343)
   11961   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2309) * lu(k,3343)
   11962   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2310) * lu(k,3343)
   11963   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2311) * lu(k,3343)
   11964   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2312) * lu(k,3343)
   11965   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2313) * lu(k,3343)
   11966   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2314) * lu(k,3343)
   11967   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,2297) * lu(k,3436)
   11968   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2298) * lu(k,3436)
   11969   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2299) * lu(k,3436)
   11970   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2300) * lu(k,3436)
   11971   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2301) * lu(k,3436)
   11972   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2302) * lu(k,3436)
   11973   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2303) * lu(k,3436)
   11974   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2304) * lu(k,3436)
   11975   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2305) * lu(k,3436)
   11976   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2306) * lu(k,3436)
   11977   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2307) * lu(k,3436)
   11978   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2308) * lu(k,3436)
   11979   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2309) * lu(k,3436)
   11980   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2310) * lu(k,3436)
   11981   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2311) * lu(k,3436)
   11982   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2312) * lu(k,3436)
   11983   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2313) * lu(k,3436)
   11984   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2314) * lu(k,3436)
   11985   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,2297) * lu(k,3580)
   11986   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2298) * lu(k,3580)
   11987   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2299) * lu(k,3580)
   11988   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2300) * lu(k,3580)
   11989   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2301) * lu(k,3580)
   11990   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2302) * lu(k,3580)
   11991   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2303) * lu(k,3580)
   11992   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2304) * lu(k,3580)
   11993   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2305) * lu(k,3580)
   11994   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2306) * lu(k,3580)
   11995   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2307) * lu(k,3580)
   11996   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2308) * lu(k,3580)
   11997   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2309) * lu(k,3580)
   11998   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2310) * lu(k,3580)
   11999   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2311) * lu(k,3580)
   12000   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2312) * lu(k,3580)
   12001   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2313) * lu(k,3580)
   12002   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2314) * lu(k,3580)
   12003   254840160 :          lu(k,3737) = lu(k,3737) - lu(k,2297) * lu(k,3735)
   12004   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2298) * lu(k,3735)
   12005   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2299) * lu(k,3735)
   12006   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2300) * lu(k,3735)
   12007   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2301) * lu(k,3735)
   12008   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2302) * lu(k,3735)
   12009   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2303) * lu(k,3735)
   12010   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2304) * lu(k,3735)
   12011   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2305) * lu(k,3735)
   12012   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2306) * lu(k,3735)
   12013   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2307) * lu(k,3735)
   12014   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2308) * lu(k,3735)
   12015   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2309) * lu(k,3735)
   12016   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2310) * lu(k,3735)
   12017   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2311) * lu(k,3735)
   12018   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2312) * lu(k,3735)
   12019   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2313) * lu(k,3735)
   12020   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2314) * lu(k,3735)
   12021   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,2297) * lu(k,4066)
   12022   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2298) * lu(k,4066)
   12023   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2299) * lu(k,4066)
   12024   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2300) * lu(k,4066)
   12025   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2301) * lu(k,4066)
   12026   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2302) * lu(k,4066)
   12027   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2303) * lu(k,4066)
   12028   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2304) * lu(k,4066)
   12029   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2305) * lu(k,4066)
   12030   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2306) * lu(k,4066)
   12031   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2307) * lu(k,4066)
   12032   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2308) * lu(k,4066)
   12033   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2309) * lu(k,4066)
   12034   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2310) * lu(k,4066)
   12035   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2311) * lu(k,4066)
   12036   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2312) * lu(k,4066)
   12037   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2313) * lu(k,4066)
   12038   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2314) * lu(k,4066)
   12039   254840160 :          lu(k,2320) = 1._r8 / lu(k,2320)
   12040   254840160 :          lu(k,2321) = lu(k,2321) * lu(k,2320)
   12041   254840160 :          lu(k,2322) = lu(k,2322) * lu(k,2320)
   12042   254840160 :          lu(k,2323) = lu(k,2323) * lu(k,2320)
   12043   254840160 :          lu(k,2324) = lu(k,2324) * lu(k,2320)
   12044   254840160 :          lu(k,2325) = lu(k,2325) * lu(k,2320)
   12045   254840160 :          lu(k,2326) = lu(k,2326) * lu(k,2320)
   12046   254840160 :          lu(k,2327) = lu(k,2327) * lu(k,2320)
   12047   254840160 :          lu(k,2328) = lu(k,2328) * lu(k,2320)
   12048   254840160 :          lu(k,2329) = lu(k,2329) * lu(k,2320)
   12049   254840160 :          lu(k,2330) = lu(k,2330) * lu(k,2320)
   12050   254840160 :          lu(k,2331) = lu(k,2331) * lu(k,2320)
   12051   254840160 :          lu(k,2332) = lu(k,2332) * lu(k,2320)
   12052   254840160 :          lu(k,2340) = lu(k,2340) - lu(k,2321) * lu(k,2338)
   12053   254840160 :          lu(k,2341) = lu(k,2341) - lu(k,2322) * lu(k,2338)
   12054   254840160 :          lu(k,2343) = lu(k,2343) - lu(k,2323) * lu(k,2338)
   12055   254840160 :          lu(k,2346) = lu(k,2346) - lu(k,2324) * lu(k,2338)
   12056   254840160 :          lu(k,2349) = lu(k,2349) - lu(k,2325) * lu(k,2338)
   12057   254840160 :          lu(k,2350) = lu(k,2350) - lu(k,2326) * lu(k,2338)
   12058   254840160 :          lu(k,2351) = lu(k,2351) - lu(k,2327) * lu(k,2338)
   12059   254840160 :          lu(k,2352) = lu(k,2352) - lu(k,2328) * lu(k,2338)
   12060   254840160 :          lu(k,2353) = lu(k,2353) - lu(k,2329) * lu(k,2338)
   12061   254840160 :          lu(k,2355) = lu(k,2355) - lu(k,2330) * lu(k,2338)
   12062   254840160 :          lu(k,2356) = lu(k,2356) - lu(k,2331) * lu(k,2338)
   12063   254840160 :          lu(k,2357) = lu(k,2357) - lu(k,2332) * lu(k,2338)
   12064   254840160 :          lu(k,2379) = lu(k,2379) - lu(k,2321) * lu(k,2378)
   12065   254840160 :          lu(k,2381) = lu(k,2381) - lu(k,2322) * lu(k,2378)
   12066   254840160 :          lu(k,2383) = lu(k,2383) - lu(k,2323) * lu(k,2378)
   12067   254840160 :          lu(k,2386) = lu(k,2386) - lu(k,2324) * lu(k,2378)
   12068   254840160 :          lu(k,2389) = lu(k,2389) - lu(k,2325) * lu(k,2378)
   12069   254840160 :          lu(k,2390) = lu(k,2390) - lu(k,2326) * lu(k,2378)
   12070   254840160 :          lu(k,2391) = lu(k,2391) - lu(k,2327) * lu(k,2378)
   12071   254840160 :          lu(k,2392) = lu(k,2392) - lu(k,2328) * lu(k,2378)
   12072   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,2329) * lu(k,2378)
   12073   254840160 :          lu(k,2395) = lu(k,2395) - lu(k,2330) * lu(k,2378)
   12074   254840160 :          lu(k,2396) = lu(k,2396) - lu(k,2331) * lu(k,2378)
   12075   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,2332) * lu(k,2378)
   12076   254840160 :          lu(k,2407) = lu(k,2407) - lu(k,2321) * lu(k,2406)
   12077   254840160 :          lu(k,2410) = - lu(k,2322) * lu(k,2406)
   12078   254840160 :          lu(k,2412) = lu(k,2412) - lu(k,2323) * lu(k,2406)
   12079   254840160 :          lu(k,2415) = lu(k,2415) - lu(k,2324) * lu(k,2406)
   12080   254840160 :          lu(k,2418) = - lu(k,2325) * lu(k,2406)
   12081   254840160 :          lu(k,2419) = lu(k,2419) - lu(k,2326) * lu(k,2406)
   12082   254840160 :          lu(k,2420) = lu(k,2420) - lu(k,2327) * lu(k,2406)
   12083   254840160 :          lu(k,2421) = lu(k,2421) - lu(k,2328) * lu(k,2406)
   12084   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,2329) * lu(k,2406)
   12085   254840160 :          lu(k,2424) = lu(k,2424) - lu(k,2330) * lu(k,2406)
   12086   254840160 :          lu(k,2425) = lu(k,2425) - lu(k,2331) * lu(k,2406)
   12087   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,2332) * lu(k,2406)
   12088   254840160 :          lu(k,2440) = lu(k,2440) - lu(k,2321) * lu(k,2439)
   12089   254840160 :          lu(k,2442) = lu(k,2442) - lu(k,2322) * lu(k,2439)
   12090   254840160 :          lu(k,2444) = lu(k,2444) - lu(k,2323) * lu(k,2439)
   12091   254840160 :          lu(k,2447) = lu(k,2447) - lu(k,2324) * lu(k,2439)
   12092   254840160 :          lu(k,2450) = lu(k,2450) - lu(k,2325) * lu(k,2439)
   12093   254840160 :          lu(k,2451) = lu(k,2451) - lu(k,2326) * lu(k,2439)
   12094   254840160 :          lu(k,2452) = lu(k,2452) - lu(k,2327) * lu(k,2439)
   12095   254840160 :          lu(k,2453) = lu(k,2453) - lu(k,2328) * lu(k,2439)
   12096   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,2329) * lu(k,2439)
   12097   254840160 :          lu(k,2456) = lu(k,2456) - lu(k,2330) * lu(k,2439)
   12098   254840160 :          lu(k,2457) = lu(k,2457) - lu(k,2331) * lu(k,2439)
   12099   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,2332) * lu(k,2439)
   12100   254840160 :          lu(k,2470) = lu(k,2470) - lu(k,2321) * lu(k,2469)
   12101   254840160 :          lu(k,2473) = lu(k,2473) - lu(k,2322) * lu(k,2469)
   12102   254840160 :          lu(k,2475) = lu(k,2475) - lu(k,2323) * lu(k,2469)
   12103   254840160 :          lu(k,2478) = lu(k,2478) - lu(k,2324) * lu(k,2469)
   12104   254840160 :          lu(k,2481) = lu(k,2481) - lu(k,2325) * lu(k,2469)
   12105   254840160 :          lu(k,2482) = lu(k,2482) - lu(k,2326) * lu(k,2469)
   12106   254840160 :          lu(k,2483) = lu(k,2483) - lu(k,2327) * lu(k,2469)
   12107   254840160 :          lu(k,2484) = lu(k,2484) - lu(k,2328) * lu(k,2469)
   12108   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,2329) * lu(k,2469)
   12109   254840160 :          lu(k,2487) = lu(k,2487) - lu(k,2330) * lu(k,2469)
   12110   254840160 :          lu(k,2488) = lu(k,2488) - lu(k,2331) * lu(k,2469)
   12111   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,2332) * lu(k,2469)
   12112   254840160 :          lu(k,2599) = lu(k,2599) - lu(k,2321) * lu(k,2598)
   12113   254840160 :          lu(k,2601) = lu(k,2601) - lu(k,2322) * lu(k,2598)
   12114   254840160 :          lu(k,2603) = - lu(k,2323) * lu(k,2598)
   12115   254840160 :          lu(k,2605) = - lu(k,2324) * lu(k,2598)
   12116   254840160 :          lu(k,2607) = lu(k,2607) - lu(k,2325) * lu(k,2598)
   12117   254840160 :          lu(k,2608) = lu(k,2608) - lu(k,2326) * lu(k,2598)
   12118   254840160 :          lu(k,2610) = lu(k,2610) - lu(k,2327) * lu(k,2598)
   12119   254840160 :          lu(k,2611) = lu(k,2611) - lu(k,2328) * lu(k,2598)
   12120   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,2329) * lu(k,2598)
   12121   254840160 :          lu(k,2613) = lu(k,2613) - lu(k,2330) * lu(k,2598)
   12122   254840160 :          lu(k,2614) = lu(k,2614) - lu(k,2331) * lu(k,2598)
   12123   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,2332) * lu(k,2598)
   12124   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,2321) * lu(k,2730)
   12125   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2322) * lu(k,2730)
   12126   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2323) * lu(k,2730)
   12127   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2324) * lu(k,2730)
   12128   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2325) * lu(k,2730)
   12129   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2326) * lu(k,2730)
   12130   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2327) * lu(k,2730)
   12131   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2328) * lu(k,2730)
   12132   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2329) * lu(k,2730)
   12133   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2330) * lu(k,2730)
   12134   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2331) * lu(k,2730)
   12135   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2332) * lu(k,2730)
   12136   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,2321) * lu(k,2776)
   12137   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2322) * lu(k,2776)
   12138   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2323) * lu(k,2776)
   12139   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2324) * lu(k,2776)
   12140   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2325) * lu(k,2776)
   12141   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2326) * lu(k,2776)
   12142   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2327) * lu(k,2776)
   12143   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2328) * lu(k,2776)
   12144   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2329) * lu(k,2776)
   12145   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2330) * lu(k,2776)
   12146   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2331) * lu(k,2776)
   12147   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2332) * lu(k,2776)
   12148   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,2321) * lu(k,2823)
   12149   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2322) * lu(k,2823)
   12150   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2323) * lu(k,2823)
   12151   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2324) * lu(k,2823)
   12152   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2325) * lu(k,2823)
   12153   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2326) * lu(k,2823)
   12154   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2327) * lu(k,2823)
   12155   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2328) * lu(k,2823)
   12156   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2329) * lu(k,2823)
   12157   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2330) * lu(k,2823)
   12158   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2331) * lu(k,2823)
   12159   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2332) * lu(k,2823)
   12160   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,2321) * lu(k,2895)
   12161   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2322) * lu(k,2895)
   12162   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2323) * lu(k,2895)
   12163   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2324) * lu(k,2895)
   12164   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2325) * lu(k,2895)
   12165   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2326) * lu(k,2895)
   12166   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2327) * lu(k,2895)
   12167   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2328) * lu(k,2895)
   12168   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2329) * lu(k,2895)
   12169   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2330) * lu(k,2895)
   12170   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2331) * lu(k,2895)
   12171   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2332) * lu(k,2895)
   12172   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,2321) * lu(k,3085)
   12173   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2322) * lu(k,3085)
   12174   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2323) * lu(k,3085)
   12175   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2324) * lu(k,3085)
   12176   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2325) * lu(k,3085)
   12177   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2326) * lu(k,3085)
   12178   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2327) * lu(k,3085)
   12179   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2328) * lu(k,3085)
   12180   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2329) * lu(k,3085)
   12181   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2330) * lu(k,3085)
   12182   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2331) * lu(k,3085)
   12183   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2332) * lu(k,3085)
   12184   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,2321) * lu(k,3344)
   12185   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2322) * lu(k,3344)
   12186   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2323) * lu(k,3344)
   12187   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2324) * lu(k,3344)
   12188   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2325) * lu(k,3344)
   12189   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2326) * lu(k,3344)
   12190   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2327) * lu(k,3344)
   12191   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2328) * lu(k,3344)
   12192   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2329) * lu(k,3344)
   12193   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2330) * lu(k,3344)
   12194   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2331) * lu(k,3344)
   12195   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2332) * lu(k,3344)
   12196   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,2321) * lu(k,3437)
   12197   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2322) * lu(k,3437)
   12198   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2323) * lu(k,3437)
   12199   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2324) * lu(k,3437)
   12200   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2325) * lu(k,3437)
   12201   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2326) * lu(k,3437)
   12202   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2327) * lu(k,3437)
   12203   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2328) * lu(k,3437)
   12204   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2329) * lu(k,3437)
   12205   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2330) * lu(k,3437)
   12206   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2331) * lu(k,3437)
   12207   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2332) * lu(k,3437)
   12208   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,2321) * lu(k,3581)
   12209   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2322) * lu(k,3581)
   12210   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2323) * lu(k,3581)
   12211   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2324) * lu(k,3581)
   12212   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2325) * lu(k,3581)
   12213   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2326) * lu(k,3581)
   12214   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2327) * lu(k,3581)
   12215   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2328) * lu(k,3581)
   12216   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2329) * lu(k,3581)
   12217   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2330) * lu(k,3581)
   12218   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2331) * lu(k,3581)
   12219   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2332) * lu(k,3581)
   12220   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,2321) * lu(k,4067)
   12221   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2322) * lu(k,4067)
   12222   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2323) * lu(k,4067)
   12223   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2324) * lu(k,4067)
   12224   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2325) * lu(k,4067)
   12225   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2326) * lu(k,4067)
   12226   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2327) * lu(k,4067)
   12227   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2328) * lu(k,4067)
   12228   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2329) * lu(k,4067)
   12229   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2330) * lu(k,4067)
   12230   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2331) * lu(k,4067)
   12231   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,2332) * lu(k,4067)
   12232             :       end do
   12233     8168963 :       end subroutine lu_fac46
   12234     8168963 :       subroutine lu_fac47( avec_len, lu )
   12235             :       use chem_mods, only : nzcnt
   12236             :       use shr_kind_mod, only : r8 => shr_kind_r8
   12237             :       implicit none
   12238             : !-----------------------------------------------------------------------
   12239             : ! ... dummy args
   12240             : !-----------------------------------------------------------------------
   12241             :       integer, intent(in) :: avec_len
   12242             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   12243             : !-----------------------------------------------------------------------
   12244             : ! ... local variables
   12245             : !-----------------------------------------------------------------------
   12246             :       integer :: k
   12247   263009123 :       do k = 1,avec_len
   12248   254840160 :          lu(k,2339) = 1._r8 / lu(k,2339)
   12249   254840160 :          lu(k,2340) = lu(k,2340) * lu(k,2339)
   12250   254840160 :          lu(k,2341) = lu(k,2341) * lu(k,2339)
   12251   254840160 :          lu(k,2342) = lu(k,2342) * lu(k,2339)
   12252   254840160 :          lu(k,2343) = lu(k,2343) * lu(k,2339)
   12253   254840160 :          lu(k,2344) = lu(k,2344) * lu(k,2339)
   12254   254840160 :          lu(k,2345) = lu(k,2345) * lu(k,2339)
   12255   254840160 :          lu(k,2346) = lu(k,2346) * lu(k,2339)
   12256   254840160 :          lu(k,2347) = lu(k,2347) * lu(k,2339)
   12257   254840160 :          lu(k,2348) = lu(k,2348) * lu(k,2339)
   12258   254840160 :          lu(k,2349) = lu(k,2349) * lu(k,2339)
   12259   254840160 :          lu(k,2350) = lu(k,2350) * lu(k,2339)
   12260   254840160 :          lu(k,2351) = lu(k,2351) * lu(k,2339)
   12261   254840160 :          lu(k,2352) = lu(k,2352) * lu(k,2339)
   12262   254840160 :          lu(k,2353) = lu(k,2353) * lu(k,2339)
   12263   254840160 :          lu(k,2354) = lu(k,2354) * lu(k,2339)
   12264   254840160 :          lu(k,2355) = lu(k,2355) * lu(k,2339)
   12265   254840160 :          lu(k,2356) = lu(k,2356) * lu(k,2339)
   12266   254840160 :          lu(k,2357) = lu(k,2357) * lu(k,2339)
   12267   254840160 :          lu(k,2732) = lu(k,2732) - lu(k,2340) * lu(k,2731)
   12268   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2341) * lu(k,2731)
   12269   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2342) * lu(k,2731)
   12270   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2343) * lu(k,2731)
   12271   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2344) * lu(k,2731)
   12272   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2345) * lu(k,2731)
   12273   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2346) * lu(k,2731)
   12274   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2347) * lu(k,2731)
   12275   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2348) * lu(k,2731)
   12276   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2349) * lu(k,2731)
   12277   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2350) * lu(k,2731)
   12278   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2351) * lu(k,2731)
   12279   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2352) * lu(k,2731)
   12280   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2353) * lu(k,2731)
   12281   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2354) * lu(k,2731)
   12282   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2355) * lu(k,2731)
   12283   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2356) * lu(k,2731)
   12284   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2357) * lu(k,2731)
   12285   254840160 :          lu(k,2778) = lu(k,2778) - lu(k,2340) * lu(k,2777)
   12286   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2341) * lu(k,2777)
   12287   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2342) * lu(k,2777)
   12288   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2343) * lu(k,2777)
   12289   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2344) * lu(k,2777)
   12290   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2345) * lu(k,2777)
   12291   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2346) * lu(k,2777)
   12292   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2347) * lu(k,2777)
   12293   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2348) * lu(k,2777)
   12294   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2349) * lu(k,2777)
   12295   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2350) * lu(k,2777)
   12296   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2351) * lu(k,2777)
   12297   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2352) * lu(k,2777)
   12298   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2353) * lu(k,2777)
   12299   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2354) * lu(k,2777)
   12300   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2355) * lu(k,2777)
   12301   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2356) * lu(k,2777)
   12302   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2357) * lu(k,2777)
   12303   254840160 :          lu(k,2825) = lu(k,2825) - lu(k,2340) * lu(k,2824)
   12304   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2341) * lu(k,2824)
   12305   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2342) * lu(k,2824)
   12306   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2343) * lu(k,2824)
   12307   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2344) * lu(k,2824)
   12308   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2345) * lu(k,2824)
   12309   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2346) * lu(k,2824)
   12310   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2347) * lu(k,2824)
   12311   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2348) * lu(k,2824)
   12312   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2349) * lu(k,2824)
   12313   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2350) * lu(k,2824)
   12314   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2351) * lu(k,2824)
   12315   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2352) * lu(k,2824)
   12316   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2353) * lu(k,2824)
   12317   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2354) * lu(k,2824)
   12318   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2355) * lu(k,2824)
   12319   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2356) * lu(k,2824)
   12320   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2357) * lu(k,2824)
   12321   254840160 :          lu(k,2897) = lu(k,2897) - lu(k,2340) * lu(k,2896)
   12322   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2341) * lu(k,2896)
   12323   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2342) * lu(k,2896)
   12324   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2343) * lu(k,2896)
   12325   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2344) * lu(k,2896)
   12326   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2345) * lu(k,2896)
   12327   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2346) * lu(k,2896)
   12328   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2347) * lu(k,2896)
   12329   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2348) * lu(k,2896)
   12330   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2349) * lu(k,2896)
   12331   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2350) * lu(k,2896)
   12332   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2351) * lu(k,2896)
   12333   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2352) * lu(k,2896)
   12334   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2353) * lu(k,2896)
   12335   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2354) * lu(k,2896)
   12336   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2355) * lu(k,2896)
   12337   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2356) * lu(k,2896)
   12338   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2357) * lu(k,2896)
   12339   254840160 :          lu(k,3087) = lu(k,3087) - lu(k,2340) * lu(k,3086)
   12340   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2341) * lu(k,3086)
   12341   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2342) * lu(k,3086)
   12342   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2343) * lu(k,3086)
   12343   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2344) * lu(k,3086)
   12344   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2345) * lu(k,3086)
   12345   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2346) * lu(k,3086)
   12346   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2347) * lu(k,3086)
   12347   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2348) * lu(k,3086)
   12348   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2349) * lu(k,3086)
   12349   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2350) * lu(k,3086)
   12350   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2351) * lu(k,3086)
   12351   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2352) * lu(k,3086)
   12352   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2353) * lu(k,3086)
   12353   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2354) * lu(k,3086)
   12354   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2355) * lu(k,3086)
   12355   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2356) * lu(k,3086)
   12356   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2357) * lu(k,3086)
   12357   254840160 :          lu(k,3346) = lu(k,3346) - lu(k,2340) * lu(k,3345)
   12358   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2341) * lu(k,3345)
   12359   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2342) * lu(k,3345)
   12360   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2343) * lu(k,3345)
   12361   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2344) * lu(k,3345)
   12362   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2345) * lu(k,3345)
   12363   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2346) * lu(k,3345)
   12364   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2347) * lu(k,3345)
   12365   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2348) * lu(k,3345)
   12366   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2349) * lu(k,3345)
   12367   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2350) * lu(k,3345)
   12368   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2351) * lu(k,3345)
   12369   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2352) * lu(k,3345)
   12370   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2353) * lu(k,3345)
   12371   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2354) * lu(k,3345)
   12372   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2355) * lu(k,3345)
   12373   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2356) * lu(k,3345)
   12374   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2357) * lu(k,3345)
   12375   254840160 :          lu(k,3439) = lu(k,3439) - lu(k,2340) * lu(k,3438)
   12376   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2341) * lu(k,3438)
   12377   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2342) * lu(k,3438)
   12378   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2343) * lu(k,3438)
   12379   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2344) * lu(k,3438)
   12380   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2345) * lu(k,3438)
   12381   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2346) * lu(k,3438)
   12382   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2347) * lu(k,3438)
   12383   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2348) * lu(k,3438)
   12384   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2349) * lu(k,3438)
   12385   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2350) * lu(k,3438)
   12386   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2351) * lu(k,3438)
   12387   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2352) * lu(k,3438)
   12388   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2353) * lu(k,3438)
   12389   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2354) * lu(k,3438)
   12390   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2355) * lu(k,3438)
   12391   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2356) * lu(k,3438)
   12392   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2357) * lu(k,3438)
   12393   254840160 :          lu(k,3583) = lu(k,3583) - lu(k,2340) * lu(k,3582)
   12394   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2341) * lu(k,3582)
   12395   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2342) * lu(k,3582)
   12396   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2343) * lu(k,3582)
   12397   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2344) * lu(k,3582)
   12398   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2345) * lu(k,3582)
   12399   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2346) * lu(k,3582)
   12400   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2347) * lu(k,3582)
   12401   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2348) * lu(k,3582)
   12402   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2349) * lu(k,3582)
   12403   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2350) * lu(k,3582)
   12404   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2351) * lu(k,3582)
   12405   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2352) * lu(k,3582)
   12406   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2353) * lu(k,3582)
   12407   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2354) * lu(k,3582)
   12408   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2355) * lu(k,3582)
   12409   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2356) * lu(k,3582)
   12410   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2357) * lu(k,3582)
   12411   254840160 :          lu(k,3737) = lu(k,3737) - lu(k,2340) * lu(k,3736)
   12412   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2341) * lu(k,3736)
   12413   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2342) * lu(k,3736)
   12414   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2343) * lu(k,3736)
   12415   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2344) * lu(k,3736)
   12416   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2345) * lu(k,3736)
   12417   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2346) * lu(k,3736)
   12418   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2347) * lu(k,3736)
   12419   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2348) * lu(k,3736)
   12420   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2349) * lu(k,3736)
   12421   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2350) * lu(k,3736)
   12422   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2351) * lu(k,3736)
   12423   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2352) * lu(k,3736)
   12424   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2353) * lu(k,3736)
   12425   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2354) * lu(k,3736)
   12426   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2355) * lu(k,3736)
   12427   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2356) * lu(k,3736)
   12428   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2357) * lu(k,3736)
   12429   254840160 :          lu(k,4069) = lu(k,4069) - lu(k,2340) * lu(k,4068)
   12430   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2341) * lu(k,4068)
   12431   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2342) * lu(k,4068)
   12432   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2343) * lu(k,4068)
   12433   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2344) * lu(k,4068)
   12434   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2345) * lu(k,4068)
   12435   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2346) * lu(k,4068)
   12436   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2347) * lu(k,4068)
   12437   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2348) * lu(k,4068)
   12438   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2349) * lu(k,4068)
   12439   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2350) * lu(k,4068)
   12440   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2351) * lu(k,4068)
   12441   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2352) * lu(k,4068)
   12442   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2353) * lu(k,4068)
   12443   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2354) * lu(k,4068)
   12444   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2355) * lu(k,4068)
   12445   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2356) * lu(k,4068)
   12446   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2357) * lu(k,4068)
   12447   254840160 :          lu(k,2359) = 1._r8 / lu(k,2359)
   12448   254840160 :          lu(k,2360) = lu(k,2360) * lu(k,2359)
   12449   254840160 :          lu(k,2361) = lu(k,2361) * lu(k,2359)
   12450   254840160 :          lu(k,2362) = lu(k,2362) * lu(k,2359)
   12451   254840160 :          lu(k,2363) = lu(k,2363) * lu(k,2359)
   12452   254840160 :          lu(k,2364) = lu(k,2364) * lu(k,2359)
   12453   254840160 :          lu(k,2365) = lu(k,2365) * lu(k,2359)
   12454   254840160 :          lu(k,2366) = lu(k,2366) * lu(k,2359)
   12455   254840160 :          lu(k,2367) = lu(k,2367) * lu(k,2359)
   12456   254840160 :          lu(k,2382) = lu(k,2382) - lu(k,2360) * lu(k,2379)
   12457   254840160 :          lu(k,2384) = lu(k,2384) - lu(k,2361) * lu(k,2379)
   12458   254840160 :          lu(k,2387) = lu(k,2387) - lu(k,2362) * lu(k,2379)
   12459   254840160 :          lu(k,2389) = lu(k,2389) - lu(k,2363) * lu(k,2379)
   12460   254840160 :          lu(k,2391) = lu(k,2391) - lu(k,2364) * lu(k,2379)
   12461   254840160 :          lu(k,2393) = lu(k,2393) - lu(k,2365) * lu(k,2379)
   12462   254840160 :          lu(k,2395) = lu(k,2395) - lu(k,2366) * lu(k,2379)
   12463   254840160 :          lu(k,2397) = lu(k,2397) - lu(k,2367) * lu(k,2379)
   12464   254840160 :          lu(k,2411) = lu(k,2411) - lu(k,2360) * lu(k,2407)
   12465   254840160 :          lu(k,2413) = lu(k,2413) - lu(k,2361) * lu(k,2407)
   12466   254840160 :          lu(k,2416) = lu(k,2416) - lu(k,2362) * lu(k,2407)
   12467   254840160 :          lu(k,2418) = lu(k,2418) - lu(k,2363) * lu(k,2407)
   12468   254840160 :          lu(k,2420) = lu(k,2420) - lu(k,2364) * lu(k,2407)
   12469   254840160 :          lu(k,2422) = lu(k,2422) - lu(k,2365) * lu(k,2407)
   12470   254840160 :          lu(k,2424) = lu(k,2424) - lu(k,2366) * lu(k,2407)
   12471   254840160 :          lu(k,2426) = lu(k,2426) - lu(k,2367) * lu(k,2407)
   12472   254840160 :          lu(k,2443) = lu(k,2443) - lu(k,2360) * lu(k,2440)
   12473   254840160 :          lu(k,2445) = lu(k,2445) - lu(k,2361) * lu(k,2440)
   12474   254840160 :          lu(k,2448) = lu(k,2448) - lu(k,2362) * lu(k,2440)
   12475   254840160 :          lu(k,2450) = lu(k,2450) - lu(k,2363) * lu(k,2440)
   12476   254840160 :          lu(k,2452) = lu(k,2452) - lu(k,2364) * lu(k,2440)
   12477   254840160 :          lu(k,2454) = lu(k,2454) - lu(k,2365) * lu(k,2440)
   12478   254840160 :          lu(k,2456) = lu(k,2456) - lu(k,2366) * lu(k,2440)
   12479   254840160 :          lu(k,2458) = lu(k,2458) - lu(k,2367) * lu(k,2440)
   12480   254840160 :          lu(k,2474) = lu(k,2474) - lu(k,2360) * lu(k,2470)
   12481   254840160 :          lu(k,2476) = lu(k,2476) - lu(k,2361) * lu(k,2470)
   12482   254840160 :          lu(k,2479) = lu(k,2479) - lu(k,2362) * lu(k,2470)
   12483   254840160 :          lu(k,2481) = lu(k,2481) - lu(k,2363) * lu(k,2470)
   12484   254840160 :          lu(k,2483) = lu(k,2483) - lu(k,2364) * lu(k,2470)
   12485   254840160 :          lu(k,2485) = lu(k,2485) - lu(k,2365) * lu(k,2470)
   12486   254840160 :          lu(k,2487) = lu(k,2487) - lu(k,2366) * lu(k,2470)
   12487   254840160 :          lu(k,2489) = lu(k,2489) - lu(k,2367) * lu(k,2470)
   12488   254840160 :          lu(k,2508) = lu(k,2508) - lu(k,2360) * lu(k,2504)
   12489   254840160 :          lu(k,2510) = lu(k,2510) - lu(k,2361) * lu(k,2504)
   12490   254840160 :          lu(k,2513) = lu(k,2513) - lu(k,2362) * lu(k,2504)
   12491   254840160 :          lu(k,2515) = lu(k,2515) - lu(k,2363) * lu(k,2504)
   12492   254840160 :          lu(k,2517) = lu(k,2517) - lu(k,2364) * lu(k,2504)
   12493   254840160 :          lu(k,2519) = lu(k,2519) - lu(k,2365) * lu(k,2504)
   12494   254840160 :          lu(k,2521) = lu(k,2521) - lu(k,2366) * lu(k,2504)
   12495   254840160 :          lu(k,2523) = lu(k,2523) - lu(k,2367) * lu(k,2504)
   12496   254840160 :          lu(k,2537) = lu(k,2537) - lu(k,2360) * lu(k,2535)
   12497   254840160 :          lu(k,2539) = lu(k,2539) - lu(k,2361) * lu(k,2535)
   12498   254840160 :          lu(k,2542) = lu(k,2542) - lu(k,2362) * lu(k,2535)
   12499   254840160 :          lu(k,2544) = lu(k,2544) - lu(k,2363) * lu(k,2535)
   12500   254840160 :          lu(k,2546) = lu(k,2546) - lu(k,2364) * lu(k,2535)
   12501   254840160 :          lu(k,2548) = lu(k,2548) - lu(k,2365) * lu(k,2535)
   12502   254840160 :          lu(k,2550) = lu(k,2550) - lu(k,2366) * lu(k,2535)
   12503   254840160 :          lu(k,2552) = lu(k,2552) - lu(k,2367) * lu(k,2535)
   12504   254840160 :          lu(k,2573) = lu(k,2573) - lu(k,2360) * lu(k,2568)
   12505   254840160 :          lu(k,2575) = lu(k,2575) - lu(k,2361) * lu(k,2568)
   12506   254840160 :          lu(k,2578) = lu(k,2578) - lu(k,2362) * lu(k,2568)
   12507   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,2363) * lu(k,2568)
   12508   254840160 :          lu(k,2582) = lu(k,2582) - lu(k,2364) * lu(k,2568)
   12509   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,2365) * lu(k,2568)
   12510   254840160 :          lu(k,2586) = lu(k,2586) - lu(k,2366) * lu(k,2568)
   12511   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,2367) * lu(k,2568)
   12512   254840160 :          lu(k,2602) = - lu(k,2360) * lu(k,2599)
   12513   254840160 :          lu(k,2604) = - lu(k,2361) * lu(k,2599)
   12514   254840160 :          lu(k,2606) = - lu(k,2362) * lu(k,2599)
   12515   254840160 :          lu(k,2607) = lu(k,2607) - lu(k,2363) * lu(k,2599)
   12516   254840160 :          lu(k,2610) = lu(k,2610) - lu(k,2364) * lu(k,2599)
   12517   254840160 :          lu(k,2612) = lu(k,2612) - lu(k,2365) * lu(k,2599)
   12518   254840160 :          lu(k,2613) = lu(k,2613) - lu(k,2366) * lu(k,2599)
   12519   254840160 :          lu(k,2617) = lu(k,2617) - lu(k,2367) * lu(k,2599)
   12520   254840160 :          lu(k,2630) = - lu(k,2360) * lu(k,2628)
   12521   254840160 :          lu(k,2632) = - lu(k,2361) * lu(k,2628)
   12522   254840160 :          lu(k,2634) = - lu(k,2362) * lu(k,2628)
   12523   254840160 :          lu(k,2635) = lu(k,2635) - lu(k,2363) * lu(k,2628)
   12524   254840160 :          lu(k,2638) = lu(k,2638) - lu(k,2364) * lu(k,2628)
   12525   254840160 :          lu(k,2640) = lu(k,2640) - lu(k,2365) * lu(k,2628)
   12526   254840160 :          lu(k,2641) = lu(k,2641) - lu(k,2366) * lu(k,2628)
   12527   254840160 :          lu(k,2645) = lu(k,2645) - lu(k,2367) * lu(k,2628)
   12528   254840160 :          lu(k,2654) = lu(k,2654) - lu(k,2360) * lu(k,2653)
   12529   254840160 :          lu(k,2656) = lu(k,2656) - lu(k,2361) * lu(k,2653)
   12530   254840160 :          lu(k,2659) = lu(k,2659) - lu(k,2362) * lu(k,2653)
   12531   254840160 :          lu(k,2661) = lu(k,2661) - lu(k,2363) * lu(k,2653)
   12532   254840160 :          lu(k,2663) = lu(k,2663) - lu(k,2364) * lu(k,2653)
   12533   254840160 :          lu(k,2665) = lu(k,2665) - lu(k,2365) * lu(k,2653)
   12534   254840160 :          lu(k,2667) = lu(k,2667) - lu(k,2366) * lu(k,2653)
   12535   254840160 :          lu(k,2669) = lu(k,2669) - lu(k,2367) * lu(k,2653)
   12536   254840160 :          lu(k,2676) = lu(k,2676) - lu(k,2360) * lu(k,2675)
   12537   254840160 :          lu(k,2678) = lu(k,2678) - lu(k,2361) * lu(k,2675)
   12538   254840160 :          lu(k,2681) = lu(k,2681) - lu(k,2362) * lu(k,2675)
   12539   254840160 :          lu(k,2683) = lu(k,2683) - lu(k,2363) * lu(k,2675)
   12540   254840160 :          lu(k,2685) = lu(k,2685) - lu(k,2364) * lu(k,2675)
   12541   254840160 :          lu(k,2687) = lu(k,2687) - lu(k,2365) * lu(k,2675)
   12542   254840160 :          lu(k,2689) = lu(k,2689) - lu(k,2366) * lu(k,2675)
   12543   254840160 :          lu(k,2691) = lu(k,2691) - lu(k,2367) * lu(k,2675)
   12544   254840160 :          lu(k,2699) = lu(k,2699) - lu(k,2360) * lu(k,2698)
   12545   254840160 :          lu(k,2701) = lu(k,2701) - lu(k,2361) * lu(k,2698)
   12546   254840160 :          lu(k,2704) = lu(k,2704) - lu(k,2362) * lu(k,2698)
   12547   254840160 :          lu(k,2706) = lu(k,2706) - lu(k,2363) * lu(k,2698)
   12548   254840160 :          lu(k,2708) = lu(k,2708) - lu(k,2364) * lu(k,2698)
   12549   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,2365) * lu(k,2698)
   12550   254840160 :          lu(k,2712) = lu(k,2712) - lu(k,2366) * lu(k,2698)
   12551   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,2367) * lu(k,2698)
   12552   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2360) * lu(k,2732)
   12553   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2361) * lu(k,2732)
   12554   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2362) * lu(k,2732)
   12555   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2363) * lu(k,2732)
   12556   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2364) * lu(k,2732)
   12557   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2365) * lu(k,2732)
   12558   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2366) * lu(k,2732)
   12559   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2367) * lu(k,2732)
   12560   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2360) * lu(k,2778)
   12561   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2361) * lu(k,2778)
   12562   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2362) * lu(k,2778)
   12563   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2363) * lu(k,2778)
   12564   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2364) * lu(k,2778)
   12565   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2365) * lu(k,2778)
   12566   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2366) * lu(k,2778)
   12567   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2367) * lu(k,2778)
   12568   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2360) * lu(k,2825)
   12569   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2361) * lu(k,2825)
   12570   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2362) * lu(k,2825)
   12571   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2363) * lu(k,2825)
   12572   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2364) * lu(k,2825)
   12573   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2365) * lu(k,2825)
   12574   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2366) * lu(k,2825)
   12575   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2367) * lu(k,2825)
   12576   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2360) * lu(k,2897)
   12577   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2361) * lu(k,2897)
   12578   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2362) * lu(k,2897)
   12579   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2363) * lu(k,2897)
   12580   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2364) * lu(k,2897)
   12581   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2365) * lu(k,2897)
   12582   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2366) * lu(k,2897)
   12583   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2367) * lu(k,2897)
   12584   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2360) * lu(k,3087)
   12585   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2361) * lu(k,3087)
   12586   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2362) * lu(k,3087)
   12587   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2363) * lu(k,3087)
   12588   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2364) * lu(k,3087)
   12589   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2365) * lu(k,3087)
   12590   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2366) * lu(k,3087)
   12591   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2367) * lu(k,3087)
   12592   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2360) * lu(k,3346)
   12593   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2361) * lu(k,3346)
   12594   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2362) * lu(k,3346)
   12595   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2363) * lu(k,3346)
   12596   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2364) * lu(k,3346)
   12597   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2365) * lu(k,3346)
   12598   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2366) * lu(k,3346)
   12599   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2367) * lu(k,3346)
   12600   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2360) * lu(k,3439)
   12601   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2361) * lu(k,3439)
   12602   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2362) * lu(k,3439)
   12603   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2363) * lu(k,3439)
   12604   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2364) * lu(k,3439)
   12605   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2365) * lu(k,3439)
   12606   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2366) * lu(k,3439)
   12607   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2367) * lu(k,3439)
   12608   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2360) * lu(k,3583)
   12609   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2361) * lu(k,3583)
   12610   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2362) * lu(k,3583)
   12611   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2363) * lu(k,3583)
   12612   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2364) * lu(k,3583)
   12613   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2365) * lu(k,3583)
   12614   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2366) * lu(k,3583)
   12615   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2367) * lu(k,3583)
   12616   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2360) * lu(k,3737)
   12617   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2361) * lu(k,3737)
   12618   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2362) * lu(k,3737)
   12619   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2363) * lu(k,3737)
   12620   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2364) * lu(k,3737)
   12621   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2365) * lu(k,3737)
   12622   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2366) * lu(k,3737)
   12623   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2367) * lu(k,3737)
   12624   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2360) * lu(k,4069)
   12625   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2361) * lu(k,4069)
   12626   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2362) * lu(k,4069)
   12627   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2363) * lu(k,4069)
   12628   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2364) * lu(k,4069)
   12629   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2365) * lu(k,4069)
   12630   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2366) * lu(k,4069)
   12631   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2367) * lu(k,4069)
   12632   254840160 :          lu(k,2380) = 1._r8 / lu(k,2380)
   12633   254840160 :          lu(k,2381) = lu(k,2381) * lu(k,2380)
   12634   254840160 :          lu(k,2382) = lu(k,2382) * lu(k,2380)
   12635   254840160 :          lu(k,2383) = lu(k,2383) * lu(k,2380)
   12636   254840160 :          lu(k,2384) = lu(k,2384) * lu(k,2380)
   12637   254840160 :          lu(k,2385) = lu(k,2385) * lu(k,2380)
   12638   254840160 :          lu(k,2386) = lu(k,2386) * lu(k,2380)
   12639   254840160 :          lu(k,2387) = lu(k,2387) * lu(k,2380)
   12640   254840160 :          lu(k,2388) = lu(k,2388) * lu(k,2380)
   12641   254840160 :          lu(k,2389) = lu(k,2389) * lu(k,2380)
   12642   254840160 :          lu(k,2390) = lu(k,2390) * lu(k,2380)
   12643   254840160 :          lu(k,2391) = lu(k,2391) * lu(k,2380)
   12644   254840160 :          lu(k,2392) = lu(k,2392) * lu(k,2380)
   12645   254840160 :          lu(k,2393) = lu(k,2393) * lu(k,2380)
   12646   254840160 :          lu(k,2394) = lu(k,2394) * lu(k,2380)
   12647   254840160 :          lu(k,2395) = lu(k,2395) * lu(k,2380)
   12648   254840160 :          lu(k,2396) = lu(k,2396) * lu(k,2380)
   12649   254840160 :          lu(k,2397) = lu(k,2397) * lu(k,2380)
   12650   254840160 :          lu(k,2398) = lu(k,2398) * lu(k,2380)
   12651   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2381) * lu(k,2733)
   12652   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2382) * lu(k,2733)
   12653   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2383) * lu(k,2733)
   12654   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2384) * lu(k,2733)
   12655   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2385) * lu(k,2733)
   12656   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2386) * lu(k,2733)
   12657   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2387) * lu(k,2733)
   12658   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2388) * lu(k,2733)
   12659   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2389) * lu(k,2733)
   12660   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2390) * lu(k,2733)
   12661   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2391) * lu(k,2733)
   12662   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2392) * lu(k,2733)
   12663   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2393) * lu(k,2733)
   12664   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2394) * lu(k,2733)
   12665   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2395) * lu(k,2733)
   12666   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2396) * lu(k,2733)
   12667   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2397) * lu(k,2733)
   12668   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2398) * lu(k,2733)
   12669   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2381) * lu(k,2779)
   12670   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2382) * lu(k,2779)
   12671   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2383) * lu(k,2779)
   12672   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2384) * lu(k,2779)
   12673   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2385) * lu(k,2779)
   12674   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2386) * lu(k,2779)
   12675   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2387) * lu(k,2779)
   12676   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2388) * lu(k,2779)
   12677   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2389) * lu(k,2779)
   12678   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2390) * lu(k,2779)
   12679   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2391) * lu(k,2779)
   12680   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2392) * lu(k,2779)
   12681   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2393) * lu(k,2779)
   12682   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2394) * lu(k,2779)
   12683   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2395) * lu(k,2779)
   12684   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2396) * lu(k,2779)
   12685   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2397) * lu(k,2779)
   12686   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2398) * lu(k,2779)
   12687   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2381) * lu(k,2826)
   12688   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2382) * lu(k,2826)
   12689   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2383) * lu(k,2826)
   12690   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2384) * lu(k,2826)
   12691   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2385) * lu(k,2826)
   12692   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2386) * lu(k,2826)
   12693   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2387) * lu(k,2826)
   12694   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2388) * lu(k,2826)
   12695   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2389) * lu(k,2826)
   12696   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2390) * lu(k,2826)
   12697   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2391) * lu(k,2826)
   12698   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2392) * lu(k,2826)
   12699   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2393) * lu(k,2826)
   12700   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2394) * lu(k,2826)
   12701   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2395) * lu(k,2826)
   12702   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2396) * lu(k,2826)
   12703   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2397) * lu(k,2826)
   12704   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2398) * lu(k,2826)
   12705   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2381) * lu(k,2898)
   12706   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2382) * lu(k,2898)
   12707   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2383) * lu(k,2898)
   12708   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2384) * lu(k,2898)
   12709   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2385) * lu(k,2898)
   12710   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2386) * lu(k,2898)
   12711   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2387) * lu(k,2898)
   12712   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2388) * lu(k,2898)
   12713   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2389) * lu(k,2898)
   12714   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2390) * lu(k,2898)
   12715   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2391) * lu(k,2898)
   12716   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2392) * lu(k,2898)
   12717   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2393) * lu(k,2898)
   12718   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2394) * lu(k,2898)
   12719   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2395) * lu(k,2898)
   12720   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2396) * lu(k,2898)
   12721   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2397) * lu(k,2898)
   12722   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2398) * lu(k,2898)
   12723   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2381) * lu(k,3088)
   12724   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2382) * lu(k,3088)
   12725   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2383) * lu(k,3088)
   12726   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2384) * lu(k,3088)
   12727   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2385) * lu(k,3088)
   12728   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2386) * lu(k,3088)
   12729   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2387) * lu(k,3088)
   12730   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2388) * lu(k,3088)
   12731   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2389) * lu(k,3088)
   12732   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2390) * lu(k,3088)
   12733   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2391) * lu(k,3088)
   12734   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2392) * lu(k,3088)
   12735   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2393) * lu(k,3088)
   12736   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2394) * lu(k,3088)
   12737   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2395) * lu(k,3088)
   12738   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2396) * lu(k,3088)
   12739   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2397) * lu(k,3088)
   12740   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2398) * lu(k,3088)
   12741   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2381) * lu(k,3347)
   12742   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2382) * lu(k,3347)
   12743   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2383) * lu(k,3347)
   12744   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2384) * lu(k,3347)
   12745   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2385) * lu(k,3347)
   12746   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2386) * lu(k,3347)
   12747   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2387) * lu(k,3347)
   12748   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2388) * lu(k,3347)
   12749   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2389) * lu(k,3347)
   12750   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2390) * lu(k,3347)
   12751   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2391) * lu(k,3347)
   12752   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2392) * lu(k,3347)
   12753   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2393) * lu(k,3347)
   12754   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2394) * lu(k,3347)
   12755   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2395) * lu(k,3347)
   12756   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2396) * lu(k,3347)
   12757   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2397) * lu(k,3347)
   12758   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2398) * lu(k,3347)
   12759   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2381) * lu(k,3440)
   12760   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2382) * lu(k,3440)
   12761   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2383) * lu(k,3440)
   12762   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2384) * lu(k,3440)
   12763   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2385) * lu(k,3440)
   12764   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2386) * lu(k,3440)
   12765   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2387) * lu(k,3440)
   12766   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2388) * lu(k,3440)
   12767   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2389) * lu(k,3440)
   12768   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2390) * lu(k,3440)
   12769   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2391) * lu(k,3440)
   12770   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2392) * lu(k,3440)
   12771   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2393) * lu(k,3440)
   12772   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2394) * lu(k,3440)
   12773   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2395) * lu(k,3440)
   12774   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2396) * lu(k,3440)
   12775   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2397) * lu(k,3440)
   12776   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2398) * lu(k,3440)
   12777   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2381) * lu(k,3584)
   12778   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2382) * lu(k,3584)
   12779   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2383) * lu(k,3584)
   12780   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2384) * lu(k,3584)
   12781   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2385) * lu(k,3584)
   12782   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2386) * lu(k,3584)
   12783   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2387) * lu(k,3584)
   12784   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2388) * lu(k,3584)
   12785   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2389) * lu(k,3584)
   12786   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2390) * lu(k,3584)
   12787   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2391) * lu(k,3584)
   12788   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2392) * lu(k,3584)
   12789   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2393) * lu(k,3584)
   12790   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2394) * lu(k,3584)
   12791   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2395) * lu(k,3584)
   12792   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2396) * lu(k,3584)
   12793   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2397) * lu(k,3584)
   12794   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2398) * lu(k,3584)
   12795   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2381) * lu(k,3738)
   12796   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2382) * lu(k,3738)
   12797   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2383) * lu(k,3738)
   12798   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2384) * lu(k,3738)
   12799   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2385) * lu(k,3738)
   12800   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2386) * lu(k,3738)
   12801   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2387) * lu(k,3738)
   12802   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2388) * lu(k,3738)
   12803   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2389) * lu(k,3738)
   12804   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2390) * lu(k,3738)
   12805   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2391) * lu(k,3738)
   12806   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2392) * lu(k,3738)
   12807   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2393) * lu(k,3738)
   12808   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2394) * lu(k,3738)
   12809   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2395) * lu(k,3738)
   12810   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2396) * lu(k,3738)
   12811   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2397) * lu(k,3738)
   12812   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2398) * lu(k,3738)
   12813   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2381) * lu(k,4070)
   12814   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2382) * lu(k,4070)
   12815   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2383) * lu(k,4070)
   12816   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2384) * lu(k,4070)
   12817   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2385) * lu(k,4070)
   12818   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2386) * lu(k,4070)
   12819   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2387) * lu(k,4070)
   12820   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2388) * lu(k,4070)
   12821   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2389) * lu(k,4070)
   12822   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2390) * lu(k,4070)
   12823   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2391) * lu(k,4070)
   12824   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2392) * lu(k,4070)
   12825   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2393) * lu(k,4070)
   12826   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2394) * lu(k,4070)
   12827   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2395) * lu(k,4070)
   12828   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2396) * lu(k,4070)
   12829   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2397) * lu(k,4070)
   12830   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,2398) * lu(k,4070)
   12831             :       end do
   12832     8168963 :       end subroutine lu_fac47
   12833     8168963 :       subroutine lu_fac48( avec_len, lu )
   12834             :       use chem_mods, only : nzcnt
   12835             :       use shr_kind_mod, only : r8 => shr_kind_r8
   12836             :       implicit none
   12837             : !-----------------------------------------------------------------------
   12838             : ! ... dummy args
   12839             : !-----------------------------------------------------------------------
   12840             :       integer, intent(in) :: avec_len
   12841             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   12842             : !-----------------------------------------------------------------------
   12843             : ! ... local variables
   12844             : !-----------------------------------------------------------------------
   12845             :       integer :: k
   12846   263009123 :       do k = 1,avec_len
   12847   254840160 :          lu(k,2408) = 1._r8 / lu(k,2408)
   12848   254840160 :          lu(k,2409) = lu(k,2409) * lu(k,2408)
   12849   254840160 :          lu(k,2410) = lu(k,2410) * lu(k,2408)
   12850   254840160 :          lu(k,2411) = lu(k,2411) * lu(k,2408)
   12851   254840160 :          lu(k,2412) = lu(k,2412) * lu(k,2408)
   12852   254840160 :          lu(k,2413) = lu(k,2413) * lu(k,2408)
   12853   254840160 :          lu(k,2414) = lu(k,2414) * lu(k,2408)
   12854   254840160 :          lu(k,2415) = lu(k,2415) * lu(k,2408)
   12855   254840160 :          lu(k,2416) = lu(k,2416) * lu(k,2408)
   12856   254840160 :          lu(k,2417) = lu(k,2417) * lu(k,2408)
   12857   254840160 :          lu(k,2418) = lu(k,2418) * lu(k,2408)
   12858   254840160 :          lu(k,2419) = lu(k,2419) * lu(k,2408)
   12859   254840160 :          lu(k,2420) = lu(k,2420) * lu(k,2408)
   12860   254840160 :          lu(k,2421) = lu(k,2421) * lu(k,2408)
   12861   254840160 :          lu(k,2422) = lu(k,2422) * lu(k,2408)
   12862   254840160 :          lu(k,2423) = lu(k,2423) * lu(k,2408)
   12863   254840160 :          lu(k,2424) = lu(k,2424) * lu(k,2408)
   12864   254840160 :          lu(k,2425) = lu(k,2425) * lu(k,2408)
   12865   254840160 :          lu(k,2426) = lu(k,2426) * lu(k,2408)
   12866   254840160 :          lu(k,2740) = lu(k,2740) - lu(k,2409) * lu(k,2734)
   12867   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2410) * lu(k,2734)
   12868   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2411) * lu(k,2734)
   12869   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2412) * lu(k,2734)
   12870   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2413) * lu(k,2734)
   12871   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2414) * lu(k,2734)
   12872   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2415) * lu(k,2734)
   12873   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2416) * lu(k,2734)
   12874   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2417) * lu(k,2734)
   12875   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2418) * lu(k,2734)
   12876   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2419) * lu(k,2734)
   12877   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2420) * lu(k,2734)
   12878   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2421) * lu(k,2734)
   12879   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2422) * lu(k,2734)
   12880   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2423) * lu(k,2734)
   12881   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2424) * lu(k,2734)
   12882   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2425) * lu(k,2734)
   12883   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2426) * lu(k,2734)
   12884   254840160 :          lu(k,2786) = lu(k,2786) - lu(k,2409) * lu(k,2780)
   12885   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2410) * lu(k,2780)
   12886   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2411) * lu(k,2780)
   12887   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2412) * lu(k,2780)
   12888   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2413) * lu(k,2780)
   12889   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2414) * lu(k,2780)
   12890   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2415) * lu(k,2780)
   12891   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2416) * lu(k,2780)
   12892   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2417) * lu(k,2780)
   12893   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2418) * lu(k,2780)
   12894   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2419) * lu(k,2780)
   12895   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2420) * lu(k,2780)
   12896   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2421) * lu(k,2780)
   12897   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2422) * lu(k,2780)
   12898   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2423) * lu(k,2780)
   12899   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2424) * lu(k,2780)
   12900   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2425) * lu(k,2780)
   12901   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2426) * lu(k,2780)
   12902   254840160 :          lu(k,2833) = lu(k,2833) - lu(k,2409) * lu(k,2827)
   12903   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2410) * lu(k,2827)
   12904   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2411) * lu(k,2827)
   12905   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2412) * lu(k,2827)
   12906   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2413) * lu(k,2827)
   12907   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2414) * lu(k,2827)
   12908   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2415) * lu(k,2827)
   12909   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2416) * lu(k,2827)
   12910   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2417) * lu(k,2827)
   12911   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2418) * lu(k,2827)
   12912   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2419) * lu(k,2827)
   12913   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2420) * lu(k,2827)
   12914   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2421) * lu(k,2827)
   12915   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2422) * lu(k,2827)
   12916   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2423) * lu(k,2827)
   12917   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2424) * lu(k,2827)
   12918   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2425) * lu(k,2827)
   12919   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2426) * lu(k,2827)
   12920   254840160 :          lu(k,2905) = lu(k,2905) - lu(k,2409) * lu(k,2899)
   12921   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2410) * lu(k,2899)
   12922   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2411) * lu(k,2899)
   12923   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2412) * lu(k,2899)
   12924   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2413) * lu(k,2899)
   12925   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2414) * lu(k,2899)
   12926   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2415) * lu(k,2899)
   12927   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2416) * lu(k,2899)
   12928   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2417) * lu(k,2899)
   12929   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2418) * lu(k,2899)
   12930   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2419) * lu(k,2899)
   12931   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2420) * lu(k,2899)
   12932   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2421) * lu(k,2899)
   12933   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2422) * lu(k,2899)
   12934   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2423) * lu(k,2899)
   12935   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2424) * lu(k,2899)
   12936   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2425) * lu(k,2899)
   12937   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2426) * lu(k,2899)
   12938   254840160 :          lu(k,3095) = lu(k,3095) - lu(k,2409) * lu(k,3089)
   12939   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2410) * lu(k,3089)
   12940   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2411) * lu(k,3089)
   12941   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2412) * lu(k,3089)
   12942   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2413) * lu(k,3089)
   12943   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2414) * lu(k,3089)
   12944   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2415) * lu(k,3089)
   12945   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2416) * lu(k,3089)
   12946   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2417) * lu(k,3089)
   12947   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2418) * lu(k,3089)
   12948   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2419) * lu(k,3089)
   12949   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2420) * lu(k,3089)
   12950   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2421) * lu(k,3089)
   12951   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2422) * lu(k,3089)
   12952   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2423) * lu(k,3089)
   12953   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2424) * lu(k,3089)
   12954   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2425) * lu(k,3089)
   12955   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2426) * lu(k,3089)
   12956   254840160 :          lu(k,3354) = lu(k,3354) - lu(k,2409) * lu(k,3348)
   12957   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2410) * lu(k,3348)
   12958   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2411) * lu(k,3348)
   12959   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2412) * lu(k,3348)
   12960   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2413) * lu(k,3348)
   12961   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2414) * lu(k,3348)
   12962   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2415) * lu(k,3348)
   12963   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2416) * lu(k,3348)
   12964   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2417) * lu(k,3348)
   12965   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2418) * lu(k,3348)
   12966   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2419) * lu(k,3348)
   12967   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2420) * lu(k,3348)
   12968   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2421) * lu(k,3348)
   12969   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2422) * lu(k,3348)
   12970   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2423) * lu(k,3348)
   12971   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2424) * lu(k,3348)
   12972   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2425) * lu(k,3348)
   12973   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2426) * lu(k,3348)
   12974   254840160 :          lu(k,3447) = lu(k,3447) - lu(k,2409) * lu(k,3441)
   12975   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2410) * lu(k,3441)
   12976   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2411) * lu(k,3441)
   12977   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2412) * lu(k,3441)
   12978   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2413) * lu(k,3441)
   12979   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2414) * lu(k,3441)
   12980   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2415) * lu(k,3441)
   12981   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2416) * lu(k,3441)
   12982   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2417) * lu(k,3441)
   12983   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2418) * lu(k,3441)
   12984   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2419) * lu(k,3441)
   12985   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2420) * lu(k,3441)
   12986   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2421) * lu(k,3441)
   12987   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2422) * lu(k,3441)
   12988   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2423) * lu(k,3441)
   12989   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2424) * lu(k,3441)
   12990   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2425) * lu(k,3441)
   12991   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2426) * lu(k,3441)
   12992   254840160 :          lu(k,3591) = lu(k,3591) - lu(k,2409) * lu(k,3585)
   12993   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2410) * lu(k,3585)
   12994   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2411) * lu(k,3585)
   12995   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2412) * lu(k,3585)
   12996   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2413) * lu(k,3585)
   12997   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2414) * lu(k,3585)
   12998   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2415) * lu(k,3585)
   12999   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2416) * lu(k,3585)
   13000   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2417) * lu(k,3585)
   13001   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2418) * lu(k,3585)
   13002   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2419) * lu(k,3585)
   13003   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2420) * lu(k,3585)
   13004   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2421) * lu(k,3585)
   13005   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2422) * lu(k,3585)
   13006   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2423) * lu(k,3585)
   13007   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2424) * lu(k,3585)
   13008   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2425) * lu(k,3585)
   13009   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2426) * lu(k,3585)
   13010   254840160 :          lu(k,3745) = lu(k,3745) - lu(k,2409) * lu(k,3739)
   13011   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2410) * lu(k,3739)
   13012   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2411) * lu(k,3739)
   13013   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2412) * lu(k,3739)
   13014   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2413) * lu(k,3739)
   13015   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2414) * lu(k,3739)
   13016   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2415) * lu(k,3739)
   13017   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2416) * lu(k,3739)
   13018   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2417) * lu(k,3739)
   13019   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2418) * lu(k,3739)
   13020   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2419) * lu(k,3739)
   13021   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2420) * lu(k,3739)
   13022   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2421) * lu(k,3739)
   13023   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2422) * lu(k,3739)
   13024   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2423) * lu(k,3739)
   13025   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2424) * lu(k,3739)
   13026   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2425) * lu(k,3739)
   13027   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2426) * lu(k,3739)
   13028   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,2409) * lu(k,4071)
   13029   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2410) * lu(k,4071)
   13030   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2411) * lu(k,4071)
   13031   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2412) * lu(k,4071)
   13032   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2413) * lu(k,4071)
   13033   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2414) * lu(k,4071)
   13034   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2415) * lu(k,4071)
   13035   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2416) * lu(k,4071)
   13036   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2417) * lu(k,4071)
   13037   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2418) * lu(k,4071)
   13038   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2419) * lu(k,4071)
   13039   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2420) * lu(k,4071)
   13040   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2421) * lu(k,4071)
   13041   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2422) * lu(k,4071)
   13042   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2423) * lu(k,4071)
   13043   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2424) * lu(k,4071)
   13044   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2425) * lu(k,4071)
   13045   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2426) * lu(k,4071)
   13046   254840160 :          lu(k,2441) = 1._r8 / lu(k,2441)
   13047   254840160 :          lu(k,2442) = lu(k,2442) * lu(k,2441)
   13048   254840160 :          lu(k,2443) = lu(k,2443) * lu(k,2441)
   13049   254840160 :          lu(k,2444) = lu(k,2444) * lu(k,2441)
   13050   254840160 :          lu(k,2445) = lu(k,2445) * lu(k,2441)
   13051   254840160 :          lu(k,2446) = lu(k,2446) * lu(k,2441)
   13052   254840160 :          lu(k,2447) = lu(k,2447) * lu(k,2441)
   13053   254840160 :          lu(k,2448) = lu(k,2448) * lu(k,2441)
   13054   254840160 :          lu(k,2449) = lu(k,2449) * lu(k,2441)
   13055   254840160 :          lu(k,2450) = lu(k,2450) * lu(k,2441)
   13056   254840160 :          lu(k,2451) = lu(k,2451) * lu(k,2441)
   13057   254840160 :          lu(k,2452) = lu(k,2452) * lu(k,2441)
   13058   254840160 :          lu(k,2453) = lu(k,2453) * lu(k,2441)
   13059   254840160 :          lu(k,2454) = lu(k,2454) * lu(k,2441)
   13060   254840160 :          lu(k,2455) = lu(k,2455) * lu(k,2441)
   13061   254840160 :          lu(k,2456) = lu(k,2456) * lu(k,2441)
   13062   254840160 :          lu(k,2457) = lu(k,2457) * lu(k,2441)
   13063   254840160 :          lu(k,2458) = lu(k,2458) * lu(k,2441)
   13064   254840160 :          lu(k,2459) = lu(k,2459) * lu(k,2441)
   13065   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2442) * lu(k,2735)
   13066   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2443) * lu(k,2735)
   13067   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2444) * lu(k,2735)
   13068   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2445) * lu(k,2735)
   13069   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2446) * lu(k,2735)
   13070   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2447) * lu(k,2735)
   13071   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2448) * lu(k,2735)
   13072   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2449) * lu(k,2735)
   13073   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2450) * lu(k,2735)
   13074   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2451) * lu(k,2735)
   13075   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2452) * lu(k,2735)
   13076   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2453) * lu(k,2735)
   13077   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2454) * lu(k,2735)
   13078   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2455) * lu(k,2735)
   13079   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2456) * lu(k,2735)
   13080   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2457) * lu(k,2735)
   13081   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2458) * lu(k,2735)
   13082   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2459) * lu(k,2735)
   13083   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2442) * lu(k,2781)
   13084   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2443) * lu(k,2781)
   13085   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2444) * lu(k,2781)
   13086   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2445) * lu(k,2781)
   13087   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2446) * lu(k,2781)
   13088   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2447) * lu(k,2781)
   13089   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2448) * lu(k,2781)
   13090   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2449) * lu(k,2781)
   13091   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2450) * lu(k,2781)
   13092   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2451) * lu(k,2781)
   13093   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2452) * lu(k,2781)
   13094   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2453) * lu(k,2781)
   13095   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2454) * lu(k,2781)
   13096   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2455) * lu(k,2781)
   13097   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2456) * lu(k,2781)
   13098   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2457) * lu(k,2781)
   13099   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2458) * lu(k,2781)
   13100   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2459) * lu(k,2781)
   13101   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2442) * lu(k,2828)
   13102   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2443) * lu(k,2828)
   13103   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2444) * lu(k,2828)
   13104   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2445) * lu(k,2828)
   13105   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2446) * lu(k,2828)
   13106   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2447) * lu(k,2828)
   13107   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2448) * lu(k,2828)
   13108   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2449) * lu(k,2828)
   13109   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2450) * lu(k,2828)
   13110   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2451) * lu(k,2828)
   13111   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2452) * lu(k,2828)
   13112   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2453) * lu(k,2828)
   13113   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2454) * lu(k,2828)
   13114   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2455) * lu(k,2828)
   13115   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2456) * lu(k,2828)
   13116   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2457) * lu(k,2828)
   13117   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2458) * lu(k,2828)
   13118   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2459) * lu(k,2828)
   13119   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2442) * lu(k,2900)
   13120   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2443) * lu(k,2900)
   13121   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2444) * lu(k,2900)
   13122   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2445) * lu(k,2900)
   13123   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2446) * lu(k,2900)
   13124   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2447) * lu(k,2900)
   13125   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2448) * lu(k,2900)
   13126   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2449) * lu(k,2900)
   13127   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2450) * lu(k,2900)
   13128   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2451) * lu(k,2900)
   13129   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2452) * lu(k,2900)
   13130   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2453) * lu(k,2900)
   13131   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2454) * lu(k,2900)
   13132   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2455) * lu(k,2900)
   13133   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2456) * lu(k,2900)
   13134   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2457) * lu(k,2900)
   13135   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2458) * lu(k,2900)
   13136   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2459) * lu(k,2900)
   13137   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2442) * lu(k,3090)
   13138   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2443) * lu(k,3090)
   13139   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2444) * lu(k,3090)
   13140   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2445) * lu(k,3090)
   13141   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2446) * lu(k,3090)
   13142   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2447) * lu(k,3090)
   13143   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2448) * lu(k,3090)
   13144   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2449) * lu(k,3090)
   13145   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2450) * lu(k,3090)
   13146   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2451) * lu(k,3090)
   13147   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2452) * lu(k,3090)
   13148   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2453) * lu(k,3090)
   13149   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2454) * lu(k,3090)
   13150   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2455) * lu(k,3090)
   13151   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2456) * lu(k,3090)
   13152   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2457) * lu(k,3090)
   13153   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2458) * lu(k,3090)
   13154   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2459) * lu(k,3090)
   13155   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2442) * lu(k,3349)
   13156   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2443) * lu(k,3349)
   13157   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2444) * lu(k,3349)
   13158   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2445) * lu(k,3349)
   13159   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2446) * lu(k,3349)
   13160   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2447) * lu(k,3349)
   13161   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2448) * lu(k,3349)
   13162   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2449) * lu(k,3349)
   13163   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2450) * lu(k,3349)
   13164   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2451) * lu(k,3349)
   13165   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2452) * lu(k,3349)
   13166   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2453) * lu(k,3349)
   13167   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2454) * lu(k,3349)
   13168   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2455) * lu(k,3349)
   13169   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2456) * lu(k,3349)
   13170   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2457) * lu(k,3349)
   13171   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2458) * lu(k,3349)
   13172   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2459) * lu(k,3349)
   13173   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2442) * lu(k,3442)
   13174   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2443) * lu(k,3442)
   13175   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2444) * lu(k,3442)
   13176   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2445) * lu(k,3442)
   13177   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2446) * lu(k,3442)
   13178   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2447) * lu(k,3442)
   13179   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2448) * lu(k,3442)
   13180   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2449) * lu(k,3442)
   13181   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2450) * lu(k,3442)
   13182   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2451) * lu(k,3442)
   13183   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2452) * lu(k,3442)
   13184   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2453) * lu(k,3442)
   13185   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2454) * lu(k,3442)
   13186   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2455) * lu(k,3442)
   13187   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2456) * lu(k,3442)
   13188   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2457) * lu(k,3442)
   13189   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2458) * lu(k,3442)
   13190   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2459) * lu(k,3442)
   13191   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2442) * lu(k,3586)
   13192   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2443) * lu(k,3586)
   13193   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2444) * lu(k,3586)
   13194   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2445) * lu(k,3586)
   13195   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2446) * lu(k,3586)
   13196   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2447) * lu(k,3586)
   13197   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2448) * lu(k,3586)
   13198   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2449) * lu(k,3586)
   13199   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2450) * lu(k,3586)
   13200   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2451) * lu(k,3586)
   13201   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2452) * lu(k,3586)
   13202   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2453) * lu(k,3586)
   13203   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2454) * lu(k,3586)
   13204   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2455) * lu(k,3586)
   13205   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2456) * lu(k,3586)
   13206   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2457) * lu(k,3586)
   13207   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2458) * lu(k,3586)
   13208   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2459) * lu(k,3586)
   13209   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2442) * lu(k,3740)
   13210   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2443) * lu(k,3740)
   13211   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2444) * lu(k,3740)
   13212   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2445) * lu(k,3740)
   13213   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2446) * lu(k,3740)
   13214   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2447) * lu(k,3740)
   13215   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2448) * lu(k,3740)
   13216   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2449) * lu(k,3740)
   13217   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2450) * lu(k,3740)
   13218   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2451) * lu(k,3740)
   13219   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2452) * lu(k,3740)
   13220   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2453) * lu(k,3740)
   13221   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2454) * lu(k,3740)
   13222   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2455) * lu(k,3740)
   13223   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2456) * lu(k,3740)
   13224   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2457) * lu(k,3740)
   13225   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2458) * lu(k,3740)
   13226   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2459) * lu(k,3740)
   13227   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2442) * lu(k,4072)
   13228   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2443) * lu(k,4072)
   13229   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2444) * lu(k,4072)
   13230   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2445) * lu(k,4072)
   13231   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2446) * lu(k,4072)
   13232   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2447) * lu(k,4072)
   13233   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2448) * lu(k,4072)
   13234   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2449) * lu(k,4072)
   13235   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2450) * lu(k,4072)
   13236   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2451) * lu(k,4072)
   13237   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2452) * lu(k,4072)
   13238   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2453) * lu(k,4072)
   13239   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2454) * lu(k,4072)
   13240   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2455) * lu(k,4072)
   13241   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2456) * lu(k,4072)
   13242   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2457) * lu(k,4072)
   13243   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2458) * lu(k,4072)
   13244   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2459) * lu(k,4072)
   13245   254840160 :          lu(k,2471) = 1._r8 / lu(k,2471)
   13246   254840160 :          lu(k,2472) = lu(k,2472) * lu(k,2471)
   13247   254840160 :          lu(k,2473) = lu(k,2473) * lu(k,2471)
   13248   254840160 :          lu(k,2474) = lu(k,2474) * lu(k,2471)
   13249   254840160 :          lu(k,2475) = lu(k,2475) * lu(k,2471)
   13250   254840160 :          lu(k,2476) = lu(k,2476) * lu(k,2471)
   13251   254840160 :          lu(k,2477) = lu(k,2477) * lu(k,2471)
   13252   254840160 :          lu(k,2478) = lu(k,2478) * lu(k,2471)
   13253   254840160 :          lu(k,2479) = lu(k,2479) * lu(k,2471)
   13254   254840160 :          lu(k,2480) = lu(k,2480) * lu(k,2471)
   13255   254840160 :          lu(k,2481) = lu(k,2481) * lu(k,2471)
   13256   254840160 :          lu(k,2482) = lu(k,2482) * lu(k,2471)
   13257   254840160 :          lu(k,2483) = lu(k,2483) * lu(k,2471)
   13258   254840160 :          lu(k,2484) = lu(k,2484) * lu(k,2471)
   13259   254840160 :          lu(k,2485) = lu(k,2485) * lu(k,2471)
   13260   254840160 :          lu(k,2486) = lu(k,2486) * lu(k,2471)
   13261   254840160 :          lu(k,2487) = lu(k,2487) * lu(k,2471)
   13262   254840160 :          lu(k,2488) = lu(k,2488) * lu(k,2471)
   13263   254840160 :          lu(k,2489) = lu(k,2489) * lu(k,2471)
   13264   254840160 :          lu(k,2490) = lu(k,2490) * lu(k,2471)
   13265   254840160 :          lu(k,2740) = lu(k,2740) - lu(k,2472) * lu(k,2736)
   13266   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2473) * lu(k,2736)
   13267   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2474) * lu(k,2736)
   13268   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2475) * lu(k,2736)
   13269   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2476) * lu(k,2736)
   13270   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2477) * lu(k,2736)
   13271   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2478) * lu(k,2736)
   13272   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2479) * lu(k,2736)
   13273   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2480) * lu(k,2736)
   13274   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2481) * lu(k,2736)
   13275   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2482) * lu(k,2736)
   13276   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2483) * lu(k,2736)
   13277   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2484) * lu(k,2736)
   13278   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2485) * lu(k,2736)
   13279   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2486) * lu(k,2736)
   13280   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2487) * lu(k,2736)
   13281   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2488) * lu(k,2736)
   13282   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2489) * lu(k,2736)
   13283   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2490) * lu(k,2736)
   13284   254840160 :          lu(k,2786) = lu(k,2786) - lu(k,2472) * lu(k,2782)
   13285   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2473) * lu(k,2782)
   13286   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2474) * lu(k,2782)
   13287   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2475) * lu(k,2782)
   13288   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2476) * lu(k,2782)
   13289   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2477) * lu(k,2782)
   13290   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2478) * lu(k,2782)
   13291   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2479) * lu(k,2782)
   13292   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2480) * lu(k,2782)
   13293   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2481) * lu(k,2782)
   13294   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2482) * lu(k,2782)
   13295   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2483) * lu(k,2782)
   13296   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2484) * lu(k,2782)
   13297   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2485) * lu(k,2782)
   13298   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2486) * lu(k,2782)
   13299   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2487) * lu(k,2782)
   13300   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2488) * lu(k,2782)
   13301   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2489) * lu(k,2782)
   13302   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2490) * lu(k,2782)
   13303   254840160 :          lu(k,2833) = lu(k,2833) - lu(k,2472) * lu(k,2829)
   13304   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2473) * lu(k,2829)
   13305   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2474) * lu(k,2829)
   13306   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2475) * lu(k,2829)
   13307   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2476) * lu(k,2829)
   13308   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2477) * lu(k,2829)
   13309   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2478) * lu(k,2829)
   13310   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2479) * lu(k,2829)
   13311   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2480) * lu(k,2829)
   13312   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2481) * lu(k,2829)
   13313   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2482) * lu(k,2829)
   13314   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2483) * lu(k,2829)
   13315   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2484) * lu(k,2829)
   13316   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2485) * lu(k,2829)
   13317   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2486) * lu(k,2829)
   13318   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2487) * lu(k,2829)
   13319   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2488) * lu(k,2829)
   13320   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2489) * lu(k,2829)
   13321   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2490) * lu(k,2829)
   13322   254840160 :          lu(k,2905) = lu(k,2905) - lu(k,2472) * lu(k,2901)
   13323   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2473) * lu(k,2901)
   13324   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2474) * lu(k,2901)
   13325   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2475) * lu(k,2901)
   13326   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2476) * lu(k,2901)
   13327   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2477) * lu(k,2901)
   13328   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2478) * lu(k,2901)
   13329   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2479) * lu(k,2901)
   13330   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2480) * lu(k,2901)
   13331   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2481) * lu(k,2901)
   13332   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2482) * lu(k,2901)
   13333   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2483) * lu(k,2901)
   13334   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2484) * lu(k,2901)
   13335   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2485) * lu(k,2901)
   13336   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2486) * lu(k,2901)
   13337   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2487) * lu(k,2901)
   13338   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2488) * lu(k,2901)
   13339   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2489) * lu(k,2901)
   13340   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2490) * lu(k,2901)
   13341   254840160 :          lu(k,3095) = lu(k,3095) - lu(k,2472) * lu(k,3091)
   13342   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2473) * lu(k,3091)
   13343   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2474) * lu(k,3091)
   13344   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2475) * lu(k,3091)
   13345   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2476) * lu(k,3091)
   13346   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2477) * lu(k,3091)
   13347   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2478) * lu(k,3091)
   13348   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2479) * lu(k,3091)
   13349   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2480) * lu(k,3091)
   13350   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2481) * lu(k,3091)
   13351   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2482) * lu(k,3091)
   13352   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2483) * lu(k,3091)
   13353   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2484) * lu(k,3091)
   13354   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2485) * lu(k,3091)
   13355   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2486) * lu(k,3091)
   13356   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2487) * lu(k,3091)
   13357   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2488) * lu(k,3091)
   13358   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2489) * lu(k,3091)
   13359   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2490) * lu(k,3091)
   13360   254840160 :          lu(k,3354) = lu(k,3354) - lu(k,2472) * lu(k,3350)
   13361   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2473) * lu(k,3350)
   13362   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2474) * lu(k,3350)
   13363   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2475) * lu(k,3350)
   13364   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2476) * lu(k,3350)
   13365   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2477) * lu(k,3350)
   13366   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2478) * lu(k,3350)
   13367   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2479) * lu(k,3350)
   13368   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2480) * lu(k,3350)
   13369   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2481) * lu(k,3350)
   13370   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2482) * lu(k,3350)
   13371   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2483) * lu(k,3350)
   13372   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2484) * lu(k,3350)
   13373   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2485) * lu(k,3350)
   13374   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2486) * lu(k,3350)
   13375   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2487) * lu(k,3350)
   13376   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2488) * lu(k,3350)
   13377   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2489) * lu(k,3350)
   13378   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2490) * lu(k,3350)
   13379   254840160 :          lu(k,3447) = lu(k,3447) - lu(k,2472) * lu(k,3443)
   13380   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2473) * lu(k,3443)
   13381   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2474) * lu(k,3443)
   13382   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2475) * lu(k,3443)
   13383   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2476) * lu(k,3443)
   13384   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2477) * lu(k,3443)
   13385   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2478) * lu(k,3443)
   13386   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2479) * lu(k,3443)
   13387   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2480) * lu(k,3443)
   13388   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2481) * lu(k,3443)
   13389   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2482) * lu(k,3443)
   13390   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2483) * lu(k,3443)
   13391   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2484) * lu(k,3443)
   13392   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2485) * lu(k,3443)
   13393   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2486) * lu(k,3443)
   13394   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2487) * lu(k,3443)
   13395   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2488) * lu(k,3443)
   13396   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2489) * lu(k,3443)
   13397   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2490) * lu(k,3443)
   13398   254840160 :          lu(k,3591) = lu(k,3591) - lu(k,2472) * lu(k,3587)
   13399   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2473) * lu(k,3587)
   13400   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2474) * lu(k,3587)
   13401   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2475) * lu(k,3587)
   13402   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2476) * lu(k,3587)
   13403   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2477) * lu(k,3587)
   13404   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2478) * lu(k,3587)
   13405   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2479) * lu(k,3587)
   13406   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2480) * lu(k,3587)
   13407   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2481) * lu(k,3587)
   13408   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2482) * lu(k,3587)
   13409   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2483) * lu(k,3587)
   13410   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2484) * lu(k,3587)
   13411   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2485) * lu(k,3587)
   13412   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2486) * lu(k,3587)
   13413   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2487) * lu(k,3587)
   13414   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2488) * lu(k,3587)
   13415   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2489) * lu(k,3587)
   13416   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2490) * lu(k,3587)
   13417   254840160 :          lu(k,3745) = lu(k,3745) - lu(k,2472) * lu(k,3741)
   13418   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2473) * lu(k,3741)
   13419   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2474) * lu(k,3741)
   13420   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2475) * lu(k,3741)
   13421   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2476) * lu(k,3741)
   13422   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2477) * lu(k,3741)
   13423   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2478) * lu(k,3741)
   13424   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2479) * lu(k,3741)
   13425   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2480) * lu(k,3741)
   13426   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2481) * lu(k,3741)
   13427   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2482) * lu(k,3741)
   13428   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2483) * lu(k,3741)
   13429   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2484) * lu(k,3741)
   13430   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2485) * lu(k,3741)
   13431   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2486) * lu(k,3741)
   13432   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2487) * lu(k,3741)
   13433   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2488) * lu(k,3741)
   13434   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2489) * lu(k,3741)
   13435   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2490) * lu(k,3741)
   13436   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,2472) * lu(k,4073)
   13437   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2473) * lu(k,4073)
   13438   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2474) * lu(k,4073)
   13439   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2475) * lu(k,4073)
   13440   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2476) * lu(k,4073)
   13441   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2477) * lu(k,4073)
   13442   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2478) * lu(k,4073)
   13443   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2479) * lu(k,4073)
   13444   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2480) * lu(k,4073)
   13445   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2481) * lu(k,4073)
   13446   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2482) * lu(k,4073)
   13447   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2483) * lu(k,4073)
   13448   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2484) * lu(k,4073)
   13449   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2485) * lu(k,4073)
   13450   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2486) * lu(k,4073)
   13451   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2487) * lu(k,4073)
   13452   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2488) * lu(k,4073)
   13453   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2489) * lu(k,4073)
   13454   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,2490) * lu(k,4073)
   13455             :       end do
   13456     8168963 :       end subroutine lu_fac48
   13457     8168963 :       subroutine lu_fac49( avec_len, lu )
   13458             :       use chem_mods, only : nzcnt
   13459             :       use shr_kind_mod, only : r8 => shr_kind_r8
   13460             :       implicit none
   13461             : !-----------------------------------------------------------------------
   13462             : ! ... dummy args
   13463             : !-----------------------------------------------------------------------
   13464             :       integer, intent(in) :: avec_len
   13465             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   13466             : !-----------------------------------------------------------------------
   13467             : ! ... local variables
   13468             : !-----------------------------------------------------------------------
   13469             :       integer :: k
   13470   263009123 :       do k = 1,avec_len
   13471   254840160 :          lu(k,2505) = 1._r8 / lu(k,2505)
   13472   254840160 :          lu(k,2506) = lu(k,2506) * lu(k,2505)
   13473   254840160 :          lu(k,2507) = lu(k,2507) * lu(k,2505)
   13474   254840160 :          lu(k,2508) = lu(k,2508) * lu(k,2505)
   13475   254840160 :          lu(k,2509) = lu(k,2509) * lu(k,2505)
   13476   254840160 :          lu(k,2510) = lu(k,2510) * lu(k,2505)
   13477   254840160 :          lu(k,2511) = lu(k,2511) * lu(k,2505)
   13478   254840160 :          lu(k,2512) = lu(k,2512) * lu(k,2505)
   13479   254840160 :          lu(k,2513) = lu(k,2513) * lu(k,2505)
   13480   254840160 :          lu(k,2514) = lu(k,2514) * lu(k,2505)
   13481   254840160 :          lu(k,2515) = lu(k,2515) * lu(k,2505)
   13482   254840160 :          lu(k,2516) = lu(k,2516) * lu(k,2505)
   13483   254840160 :          lu(k,2517) = lu(k,2517) * lu(k,2505)
   13484   254840160 :          lu(k,2518) = lu(k,2518) * lu(k,2505)
   13485   254840160 :          lu(k,2519) = lu(k,2519) * lu(k,2505)
   13486   254840160 :          lu(k,2520) = lu(k,2520) * lu(k,2505)
   13487   254840160 :          lu(k,2521) = lu(k,2521) * lu(k,2505)
   13488   254840160 :          lu(k,2522) = lu(k,2522) * lu(k,2505)
   13489   254840160 :          lu(k,2523) = lu(k,2523) * lu(k,2505)
   13490   254840160 :          lu(k,2524) = lu(k,2524) * lu(k,2505)
   13491   254840160 :          lu(k,2738) = lu(k,2738) - lu(k,2506) * lu(k,2737)
   13492   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2507) * lu(k,2737)
   13493   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2508) * lu(k,2737)
   13494   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2509) * lu(k,2737)
   13495   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2510) * lu(k,2737)
   13496   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2511) * lu(k,2737)
   13497   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2512) * lu(k,2737)
   13498   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2513) * lu(k,2737)
   13499   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2514) * lu(k,2737)
   13500   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2515) * lu(k,2737)
   13501   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2516) * lu(k,2737)
   13502   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2517) * lu(k,2737)
   13503   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2518) * lu(k,2737)
   13504   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2519) * lu(k,2737)
   13505   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2520) * lu(k,2737)
   13506   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2521) * lu(k,2737)
   13507   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2522) * lu(k,2737)
   13508   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2523) * lu(k,2737)
   13509   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2524) * lu(k,2737)
   13510   254840160 :          lu(k,2784) = lu(k,2784) - lu(k,2506) * lu(k,2783)
   13511   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2507) * lu(k,2783)
   13512   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2508) * lu(k,2783)
   13513   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2509) * lu(k,2783)
   13514   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2510) * lu(k,2783)
   13515   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2511) * lu(k,2783)
   13516   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2512) * lu(k,2783)
   13517   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2513) * lu(k,2783)
   13518   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2514) * lu(k,2783)
   13519   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2515) * lu(k,2783)
   13520   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2516) * lu(k,2783)
   13521   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2517) * lu(k,2783)
   13522   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2518) * lu(k,2783)
   13523   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2519) * lu(k,2783)
   13524   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2520) * lu(k,2783)
   13525   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2521) * lu(k,2783)
   13526   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2522) * lu(k,2783)
   13527   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2523) * lu(k,2783)
   13528   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2524) * lu(k,2783)
   13529   254840160 :          lu(k,2831) = lu(k,2831) - lu(k,2506) * lu(k,2830)
   13530   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2507) * lu(k,2830)
   13531   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2508) * lu(k,2830)
   13532   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2509) * lu(k,2830)
   13533   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2510) * lu(k,2830)
   13534   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2511) * lu(k,2830)
   13535   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2512) * lu(k,2830)
   13536   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2513) * lu(k,2830)
   13537   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2514) * lu(k,2830)
   13538   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2515) * lu(k,2830)
   13539   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2516) * lu(k,2830)
   13540   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2517) * lu(k,2830)
   13541   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2518) * lu(k,2830)
   13542   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2519) * lu(k,2830)
   13543   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2520) * lu(k,2830)
   13544   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2521) * lu(k,2830)
   13545   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2522) * lu(k,2830)
   13546   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2523) * lu(k,2830)
   13547   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2524) * lu(k,2830)
   13548   254840160 :          lu(k,2903) = lu(k,2903) - lu(k,2506) * lu(k,2902)
   13549   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2507) * lu(k,2902)
   13550   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2508) * lu(k,2902)
   13551   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2509) * lu(k,2902)
   13552   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2510) * lu(k,2902)
   13553   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2511) * lu(k,2902)
   13554   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2512) * lu(k,2902)
   13555   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2513) * lu(k,2902)
   13556   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2514) * lu(k,2902)
   13557   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2515) * lu(k,2902)
   13558   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2516) * lu(k,2902)
   13559   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2517) * lu(k,2902)
   13560   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2518) * lu(k,2902)
   13561   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2519) * lu(k,2902)
   13562   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2520) * lu(k,2902)
   13563   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2521) * lu(k,2902)
   13564   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2522) * lu(k,2902)
   13565   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2523) * lu(k,2902)
   13566   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2524) * lu(k,2902)
   13567   254840160 :          lu(k,3093) = lu(k,3093) - lu(k,2506) * lu(k,3092)
   13568   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2507) * lu(k,3092)
   13569   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2508) * lu(k,3092)
   13570   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2509) * lu(k,3092)
   13571   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2510) * lu(k,3092)
   13572   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2511) * lu(k,3092)
   13573   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2512) * lu(k,3092)
   13574   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2513) * lu(k,3092)
   13575   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2514) * lu(k,3092)
   13576   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2515) * lu(k,3092)
   13577   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2516) * lu(k,3092)
   13578   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2517) * lu(k,3092)
   13579   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2518) * lu(k,3092)
   13580   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2519) * lu(k,3092)
   13581   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2520) * lu(k,3092)
   13582   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2521) * lu(k,3092)
   13583   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2522) * lu(k,3092)
   13584   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2523) * lu(k,3092)
   13585   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2524) * lu(k,3092)
   13586   254840160 :          lu(k,3352) = lu(k,3352) - lu(k,2506) * lu(k,3351)
   13587   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2507) * lu(k,3351)
   13588   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2508) * lu(k,3351)
   13589   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2509) * lu(k,3351)
   13590   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2510) * lu(k,3351)
   13591   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2511) * lu(k,3351)
   13592   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2512) * lu(k,3351)
   13593   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2513) * lu(k,3351)
   13594   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2514) * lu(k,3351)
   13595   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2515) * lu(k,3351)
   13596   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2516) * lu(k,3351)
   13597   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2517) * lu(k,3351)
   13598   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2518) * lu(k,3351)
   13599   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2519) * lu(k,3351)
   13600   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2520) * lu(k,3351)
   13601   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2521) * lu(k,3351)
   13602   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2522) * lu(k,3351)
   13603   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2523) * lu(k,3351)
   13604   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2524) * lu(k,3351)
   13605   254840160 :          lu(k,3445) = lu(k,3445) - lu(k,2506) * lu(k,3444)
   13606   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2507) * lu(k,3444)
   13607   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2508) * lu(k,3444)
   13608   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2509) * lu(k,3444)
   13609   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2510) * lu(k,3444)
   13610   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2511) * lu(k,3444)
   13611   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2512) * lu(k,3444)
   13612   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2513) * lu(k,3444)
   13613   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2514) * lu(k,3444)
   13614   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2515) * lu(k,3444)
   13615   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2516) * lu(k,3444)
   13616   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2517) * lu(k,3444)
   13617   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2518) * lu(k,3444)
   13618   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2519) * lu(k,3444)
   13619   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2520) * lu(k,3444)
   13620   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2521) * lu(k,3444)
   13621   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2522) * lu(k,3444)
   13622   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2523) * lu(k,3444)
   13623   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2524) * lu(k,3444)
   13624   254840160 :          lu(k,3589) = lu(k,3589) - lu(k,2506) * lu(k,3588)
   13625   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2507) * lu(k,3588)
   13626   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2508) * lu(k,3588)
   13627   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2509) * lu(k,3588)
   13628   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2510) * lu(k,3588)
   13629   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2511) * lu(k,3588)
   13630   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2512) * lu(k,3588)
   13631   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2513) * lu(k,3588)
   13632   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2514) * lu(k,3588)
   13633   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2515) * lu(k,3588)
   13634   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2516) * lu(k,3588)
   13635   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2517) * lu(k,3588)
   13636   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2518) * lu(k,3588)
   13637   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2519) * lu(k,3588)
   13638   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2520) * lu(k,3588)
   13639   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2521) * lu(k,3588)
   13640   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2522) * lu(k,3588)
   13641   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2523) * lu(k,3588)
   13642   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2524) * lu(k,3588)
   13643   254840160 :          lu(k,3743) = lu(k,3743) - lu(k,2506) * lu(k,3742)
   13644   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2507) * lu(k,3742)
   13645   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2508) * lu(k,3742)
   13646   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2509) * lu(k,3742)
   13647   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2510) * lu(k,3742)
   13648   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2511) * lu(k,3742)
   13649   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2512) * lu(k,3742)
   13650   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2513) * lu(k,3742)
   13651   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2514) * lu(k,3742)
   13652   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2515) * lu(k,3742)
   13653   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2516) * lu(k,3742)
   13654   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2517) * lu(k,3742)
   13655   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2518) * lu(k,3742)
   13656   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2519) * lu(k,3742)
   13657   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2520) * lu(k,3742)
   13658   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2521) * lu(k,3742)
   13659   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2522) * lu(k,3742)
   13660   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2523) * lu(k,3742)
   13661   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2524) * lu(k,3742)
   13662   254840160 :          lu(k,4075) = lu(k,4075) - lu(k,2506) * lu(k,4074)
   13663   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2507) * lu(k,4074)
   13664   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2508) * lu(k,4074)
   13665   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2509) * lu(k,4074)
   13666   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2510) * lu(k,4074)
   13667   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2511) * lu(k,4074)
   13668   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2512) * lu(k,4074)
   13669   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2513) * lu(k,4074)
   13670   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2514) * lu(k,4074)
   13671   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2515) * lu(k,4074)
   13672   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2516) * lu(k,4074)
   13673   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2517) * lu(k,4074)
   13674   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2518) * lu(k,4074)
   13675   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2519) * lu(k,4074)
   13676   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2520) * lu(k,4074)
   13677   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2521) * lu(k,4074)
   13678   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2522) * lu(k,4074)
   13679   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2523) * lu(k,4074)
   13680   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2524) * lu(k,4074)
   13681   254840160 :          lu(k,2536) = 1._r8 / lu(k,2536)
   13682   254840160 :          lu(k,2537) = lu(k,2537) * lu(k,2536)
   13683   254840160 :          lu(k,2538) = lu(k,2538) * lu(k,2536)
   13684   254840160 :          lu(k,2539) = lu(k,2539) * lu(k,2536)
   13685   254840160 :          lu(k,2540) = lu(k,2540) * lu(k,2536)
   13686   254840160 :          lu(k,2541) = lu(k,2541) * lu(k,2536)
   13687   254840160 :          lu(k,2542) = lu(k,2542) * lu(k,2536)
   13688   254840160 :          lu(k,2543) = lu(k,2543) * lu(k,2536)
   13689   254840160 :          lu(k,2544) = lu(k,2544) * lu(k,2536)
   13690   254840160 :          lu(k,2545) = lu(k,2545) * lu(k,2536)
   13691   254840160 :          lu(k,2546) = lu(k,2546) * lu(k,2536)
   13692   254840160 :          lu(k,2547) = lu(k,2547) * lu(k,2536)
   13693   254840160 :          lu(k,2548) = lu(k,2548) * lu(k,2536)
   13694   254840160 :          lu(k,2549) = lu(k,2549) * lu(k,2536)
   13695   254840160 :          lu(k,2550) = lu(k,2550) * lu(k,2536)
   13696   254840160 :          lu(k,2551) = lu(k,2551) * lu(k,2536)
   13697   254840160 :          lu(k,2552) = lu(k,2552) * lu(k,2536)
   13698   254840160 :          lu(k,2553) = lu(k,2553) * lu(k,2536)
   13699   254840160 :          lu(k,2573) = lu(k,2573) - lu(k,2537) * lu(k,2569)
   13700   254840160 :          lu(k,2574) = lu(k,2574) - lu(k,2538) * lu(k,2569)
   13701   254840160 :          lu(k,2575) = lu(k,2575) - lu(k,2539) * lu(k,2569)
   13702   254840160 :          lu(k,2576) = lu(k,2576) - lu(k,2540) * lu(k,2569)
   13703   254840160 :          lu(k,2577) = lu(k,2577) - lu(k,2541) * lu(k,2569)
   13704   254840160 :          lu(k,2578) = lu(k,2578) - lu(k,2542) * lu(k,2569)
   13705   254840160 :          lu(k,2579) = lu(k,2579) - lu(k,2543) * lu(k,2569)
   13706   254840160 :          lu(k,2580) = lu(k,2580) - lu(k,2544) * lu(k,2569)
   13707   254840160 :          lu(k,2581) = lu(k,2581) - lu(k,2545) * lu(k,2569)
   13708   254840160 :          lu(k,2582) = lu(k,2582) - lu(k,2546) * lu(k,2569)
   13709   254840160 :          lu(k,2583) = lu(k,2583) - lu(k,2547) * lu(k,2569)
   13710   254840160 :          lu(k,2584) = lu(k,2584) - lu(k,2548) * lu(k,2569)
   13711   254840160 :          lu(k,2585) = lu(k,2585) - lu(k,2549) * lu(k,2569)
   13712   254840160 :          lu(k,2586) = lu(k,2586) - lu(k,2550) * lu(k,2569)
   13713   254840160 :          lu(k,2587) = lu(k,2587) - lu(k,2551) * lu(k,2569)
   13714   254840160 :          lu(k,2588) = lu(k,2588) - lu(k,2552) * lu(k,2569)
   13715   254840160 :          lu(k,2589) = lu(k,2589) - lu(k,2553) * lu(k,2569)
   13716   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2537) * lu(k,2738)
   13717   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2538) * lu(k,2738)
   13718   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2539) * lu(k,2738)
   13719   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2540) * lu(k,2738)
   13720   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2541) * lu(k,2738)
   13721   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2542) * lu(k,2738)
   13722   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2543) * lu(k,2738)
   13723   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2544) * lu(k,2738)
   13724   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2545) * lu(k,2738)
   13725   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2546) * lu(k,2738)
   13726   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2547) * lu(k,2738)
   13727   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2548) * lu(k,2738)
   13728   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2549) * lu(k,2738)
   13729   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2550) * lu(k,2738)
   13730   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2551) * lu(k,2738)
   13731   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2552) * lu(k,2738)
   13732   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2553) * lu(k,2738)
   13733   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2537) * lu(k,2784)
   13734   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2538) * lu(k,2784)
   13735   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2539) * lu(k,2784)
   13736   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2540) * lu(k,2784)
   13737   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2541) * lu(k,2784)
   13738   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2542) * lu(k,2784)
   13739   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2543) * lu(k,2784)
   13740   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2544) * lu(k,2784)
   13741   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2545) * lu(k,2784)
   13742   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2546) * lu(k,2784)
   13743   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2547) * lu(k,2784)
   13744   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2548) * lu(k,2784)
   13745   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2549) * lu(k,2784)
   13746   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2550) * lu(k,2784)
   13747   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2551) * lu(k,2784)
   13748   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2552) * lu(k,2784)
   13749   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2553) * lu(k,2784)
   13750   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2537) * lu(k,2831)
   13751   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2538) * lu(k,2831)
   13752   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2539) * lu(k,2831)
   13753   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2540) * lu(k,2831)
   13754   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2541) * lu(k,2831)
   13755   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2542) * lu(k,2831)
   13756   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2543) * lu(k,2831)
   13757   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2544) * lu(k,2831)
   13758   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2545) * lu(k,2831)
   13759   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2546) * lu(k,2831)
   13760   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2547) * lu(k,2831)
   13761   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2548) * lu(k,2831)
   13762   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2549) * lu(k,2831)
   13763   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2550) * lu(k,2831)
   13764   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2551) * lu(k,2831)
   13765   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2552) * lu(k,2831)
   13766   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2553) * lu(k,2831)
   13767   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2537) * lu(k,2903)
   13768   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2538) * lu(k,2903)
   13769   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2539) * lu(k,2903)
   13770   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2540) * lu(k,2903)
   13771   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2541) * lu(k,2903)
   13772   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2542) * lu(k,2903)
   13773   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2543) * lu(k,2903)
   13774   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2544) * lu(k,2903)
   13775   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2545) * lu(k,2903)
   13776   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2546) * lu(k,2903)
   13777   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2547) * lu(k,2903)
   13778   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2548) * lu(k,2903)
   13779   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2549) * lu(k,2903)
   13780   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2550) * lu(k,2903)
   13781   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2551) * lu(k,2903)
   13782   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2552) * lu(k,2903)
   13783   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2553) * lu(k,2903)
   13784   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2537) * lu(k,3093)
   13785   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2538) * lu(k,3093)
   13786   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2539) * lu(k,3093)
   13787   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2540) * lu(k,3093)
   13788   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2541) * lu(k,3093)
   13789   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2542) * lu(k,3093)
   13790   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2543) * lu(k,3093)
   13791   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2544) * lu(k,3093)
   13792   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2545) * lu(k,3093)
   13793   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2546) * lu(k,3093)
   13794   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2547) * lu(k,3093)
   13795   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2548) * lu(k,3093)
   13796   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2549) * lu(k,3093)
   13797   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2550) * lu(k,3093)
   13798   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2551) * lu(k,3093)
   13799   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2552) * lu(k,3093)
   13800   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2553) * lu(k,3093)
   13801   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2537) * lu(k,3352)
   13802   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2538) * lu(k,3352)
   13803   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2539) * lu(k,3352)
   13804   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2540) * lu(k,3352)
   13805   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2541) * lu(k,3352)
   13806   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2542) * lu(k,3352)
   13807   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2543) * lu(k,3352)
   13808   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2544) * lu(k,3352)
   13809   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2545) * lu(k,3352)
   13810   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2546) * lu(k,3352)
   13811   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2547) * lu(k,3352)
   13812   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2548) * lu(k,3352)
   13813   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2549) * lu(k,3352)
   13814   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2550) * lu(k,3352)
   13815   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2551) * lu(k,3352)
   13816   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2552) * lu(k,3352)
   13817   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2553) * lu(k,3352)
   13818   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2537) * lu(k,3445)
   13819   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2538) * lu(k,3445)
   13820   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2539) * lu(k,3445)
   13821   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2540) * lu(k,3445)
   13822   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2541) * lu(k,3445)
   13823   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2542) * lu(k,3445)
   13824   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2543) * lu(k,3445)
   13825   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2544) * lu(k,3445)
   13826   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2545) * lu(k,3445)
   13827   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2546) * lu(k,3445)
   13828   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2547) * lu(k,3445)
   13829   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2548) * lu(k,3445)
   13830   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2549) * lu(k,3445)
   13831   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2550) * lu(k,3445)
   13832   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2551) * lu(k,3445)
   13833   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2552) * lu(k,3445)
   13834   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2553) * lu(k,3445)
   13835   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2537) * lu(k,3589)
   13836   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2538) * lu(k,3589)
   13837   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2539) * lu(k,3589)
   13838   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2540) * lu(k,3589)
   13839   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2541) * lu(k,3589)
   13840   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2542) * lu(k,3589)
   13841   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2543) * lu(k,3589)
   13842   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2544) * lu(k,3589)
   13843   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2545) * lu(k,3589)
   13844   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2546) * lu(k,3589)
   13845   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2547) * lu(k,3589)
   13846   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2548) * lu(k,3589)
   13847   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2549) * lu(k,3589)
   13848   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2550) * lu(k,3589)
   13849   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2551) * lu(k,3589)
   13850   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2552) * lu(k,3589)
   13851   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2553) * lu(k,3589)
   13852   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2537) * lu(k,3743)
   13853   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2538) * lu(k,3743)
   13854   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2539) * lu(k,3743)
   13855   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2540) * lu(k,3743)
   13856   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2541) * lu(k,3743)
   13857   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2542) * lu(k,3743)
   13858   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2543) * lu(k,3743)
   13859   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2544) * lu(k,3743)
   13860   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2545) * lu(k,3743)
   13861   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2546) * lu(k,3743)
   13862   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2547) * lu(k,3743)
   13863   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2548) * lu(k,3743)
   13864   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2549) * lu(k,3743)
   13865   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2550) * lu(k,3743)
   13866   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2551) * lu(k,3743)
   13867   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2552) * lu(k,3743)
   13868   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2553) * lu(k,3743)
   13869   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2537) * lu(k,4075)
   13870   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2538) * lu(k,4075)
   13871   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2539) * lu(k,4075)
   13872   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2540) * lu(k,4075)
   13873   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2541) * lu(k,4075)
   13874   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2542) * lu(k,4075)
   13875   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2543) * lu(k,4075)
   13876   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2544) * lu(k,4075)
   13877   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2545) * lu(k,4075)
   13878   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2546) * lu(k,4075)
   13879   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2547) * lu(k,4075)
   13880   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2548) * lu(k,4075)
   13881   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2549) * lu(k,4075)
   13882   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2550) * lu(k,4075)
   13883   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2551) * lu(k,4075)
   13884   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2552) * lu(k,4075)
   13885   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2553) * lu(k,4075)
   13886   254840160 :          lu(k,2570) = 1._r8 / lu(k,2570)
   13887   254840160 :          lu(k,2571) = lu(k,2571) * lu(k,2570)
   13888   254840160 :          lu(k,2572) = lu(k,2572) * lu(k,2570)
   13889   254840160 :          lu(k,2573) = lu(k,2573) * lu(k,2570)
   13890   254840160 :          lu(k,2574) = lu(k,2574) * lu(k,2570)
   13891   254840160 :          lu(k,2575) = lu(k,2575) * lu(k,2570)
   13892   254840160 :          lu(k,2576) = lu(k,2576) * lu(k,2570)
   13893   254840160 :          lu(k,2577) = lu(k,2577) * lu(k,2570)
   13894   254840160 :          lu(k,2578) = lu(k,2578) * lu(k,2570)
   13895   254840160 :          lu(k,2579) = lu(k,2579) * lu(k,2570)
   13896   254840160 :          lu(k,2580) = lu(k,2580) * lu(k,2570)
   13897   254840160 :          lu(k,2581) = lu(k,2581) * lu(k,2570)
   13898   254840160 :          lu(k,2582) = lu(k,2582) * lu(k,2570)
   13899   254840160 :          lu(k,2583) = lu(k,2583) * lu(k,2570)
   13900   254840160 :          lu(k,2584) = lu(k,2584) * lu(k,2570)
   13901   254840160 :          lu(k,2585) = lu(k,2585) * lu(k,2570)
   13902   254840160 :          lu(k,2586) = lu(k,2586) * lu(k,2570)
   13903   254840160 :          lu(k,2587) = lu(k,2587) * lu(k,2570)
   13904   254840160 :          lu(k,2588) = lu(k,2588) * lu(k,2570)
   13905   254840160 :          lu(k,2589) = lu(k,2589) * lu(k,2570)
   13906   254840160 :          lu(k,2740) = lu(k,2740) - lu(k,2571) * lu(k,2739)
   13907   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2572) * lu(k,2739)
   13908   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2573) * lu(k,2739)
   13909   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2574) * lu(k,2739)
   13910   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2575) * lu(k,2739)
   13911   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2576) * lu(k,2739)
   13912   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2577) * lu(k,2739)
   13913   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2578) * lu(k,2739)
   13914   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2579) * lu(k,2739)
   13915   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2580) * lu(k,2739)
   13916   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2581) * lu(k,2739)
   13917   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2582) * lu(k,2739)
   13918   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2583) * lu(k,2739)
   13919   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2584) * lu(k,2739)
   13920   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2585) * lu(k,2739)
   13921   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2586) * lu(k,2739)
   13922   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2587) * lu(k,2739)
   13923   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2588) * lu(k,2739)
   13924   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2589) * lu(k,2739)
   13925   254840160 :          lu(k,2786) = lu(k,2786) - lu(k,2571) * lu(k,2785)
   13926   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2572) * lu(k,2785)
   13927   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2573) * lu(k,2785)
   13928   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2574) * lu(k,2785)
   13929   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2575) * lu(k,2785)
   13930   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2576) * lu(k,2785)
   13931   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2577) * lu(k,2785)
   13932   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2578) * lu(k,2785)
   13933   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2579) * lu(k,2785)
   13934   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2580) * lu(k,2785)
   13935   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2581) * lu(k,2785)
   13936   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2582) * lu(k,2785)
   13937   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2583) * lu(k,2785)
   13938   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2584) * lu(k,2785)
   13939   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2585) * lu(k,2785)
   13940   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2586) * lu(k,2785)
   13941   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2587) * lu(k,2785)
   13942   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2588) * lu(k,2785)
   13943   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2589) * lu(k,2785)
   13944   254840160 :          lu(k,2833) = lu(k,2833) - lu(k,2571) * lu(k,2832)
   13945   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2572) * lu(k,2832)
   13946   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2573) * lu(k,2832)
   13947   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2574) * lu(k,2832)
   13948   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2575) * lu(k,2832)
   13949   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2576) * lu(k,2832)
   13950   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2577) * lu(k,2832)
   13951   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2578) * lu(k,2832)
   13952   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2579) * lu(k,2832)
   13953   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2580) * lu(k,2832)
   13954   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2581) * lu(k,2832)
   13955   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2582) * lu(k,2832)
   13956   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2583) * lu(k,2832)
   13957   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2584) * lu(k,2832)
   13958   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2585) * lu(k,2832)
   13959   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2586) * lu(k,2832)
   13960   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2587) * lu(k,2832)
   13961   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2588) * lu(k,2832)
   13962   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2589) * lu(k,2832)
   13963   254840160 :          lu(k,2905) = lu(k,2905) - lu(k,2571) * lu(k,2904)
   13964   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2572) * lu(k,2904)
   13965   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2573) * lu(k,2904)
   13966   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2574) * lu(k,2904)
   13967   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2575) * lu(k,2904)
   13968   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2576) * lu(k,2904)
   13969   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2577) * lu(k,2904)
   13970   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2578) * lu(k,2904)
   13971   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2579) * lu(k,2904)
   13972   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2580) * lu(k,2904)
   13973   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2581) * lu(k,2904)
   13974   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2582) * lu(k,2904)
   13975   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2583) * lu(k,2904)
   13976   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2584) * lu(k,2904)
   13977   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2585) * lu(k,2904)
   13978   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2586) * lu(k,2904)
   13979   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2587) * lu(k,2904)
   13980   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2588) * lu(k,2904)
   13981   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2589) * lu(k,2904)
   13982   254840160 :          lu(k,3095) = lu(k,3095) - lu(k,2571) * lu(k,3094)
   13983   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2572) * lu(k,3094)
   13984   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2573) * lu(k,3094)
   13985   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2574) * lu(k,3094)
   13986   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2575) * lu(k,3094)
   13987   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2576) * lu(k,3094)
   13988   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2577) * lu(k,3094)
   13989   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2578) * lu(k,3094)
   13990   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2579) * lu(k,3094)
   13991   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2580) * lu(k,3094)
   13992   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2581) * lu(k,3094)
   13993   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2582) * lu(k,3094)
   13994   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2583) * lu(k,3094)
   13995   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2584) * lu(k,3094)
   13996   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2585) * lu(k,3094)
   13997   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2586) * lu(k,3094)
   13998   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2587) * lu(k,3094)
   13999   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2588) * lu(k,3094)
   14000   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2589) * lu(k,3094)
   14001   254840160 :          lu(k,3354) = lu(k,3354) - lu(k,2571) * lu(k,3353)
   14002   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2572) * lu(k,3353)
   14003   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2573) * lu(k,3353)
   14004   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2574) * lu(k,3353)
   14005   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2575) * lu(k,3353)
   14006   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2576) * lu(k,3353)
   14007   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2577) * lu(k,3353)
   14008   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2578) * lu(k,3353)
   14009   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2579) * lu(k,3353)
   14010   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2580) * lu(k,3353)
   14011   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2581) * lu(k,3353)
   14012   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2582) * lu(k,3353)
   14013   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2583) * lu(k,3353)
   14014   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2584) * lu(k,3353)
   14015   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2585) * lu(k,3353)
   14016   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2586) * lu(k,3353)
   14017   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2587) * lu(k,3353)
   14018   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2588) * lu(k,3353)
   14019   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2589) * lu(k,3353)
   14020   254840160 :          lu(k,3447) = lu(k,3447) - lu(k,2571) * lu(k,3446)
   14021   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2572) * lu(k,3446)
   14022   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2573) * lu(k,3446)
   14023   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2574) * lu(k,3446)
   14024   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2575) * lu(k,3446)
   14025   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2576) * lu(k,3446)
   14026   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2577) * lu(k,3446)
   14027   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2578) * lu(k,3446)
   14028   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2579) * lu(k,3446)
   14029   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2580) * lu(k,3446)
   14030   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2581) * lu(k,3446)
   14031   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2582) * lu(k,3446)
   14032   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2583) * lu(k,3446)
   14033   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2584) * lu(k,3446)
   14034   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2585) * lu(k,3446)
   14035   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2586) * lu(k,3446)
   14036   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2587) * lu(k,3446)
   14037   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2588) * lu(k,3446)
   14038   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2589) * lu(k,3446)
   14039   254840160 :          lu(k,3591) = lu(k,3591) - lu(k,2571) * lu(k,3590)
   14040   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2572) * lu(k,3590)
   14041   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2573) * lu(k,3590)
   14042   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2574) * lu(k,3590)
   14043   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2575) * lu(k,3590)
   14044   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2576) * lu(k,3590)
   14045   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2577) * lu(k,3590)
   14046   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2578) * lu(k,3590)
   14047   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2579) * lu(k,3590)
   14048   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2580) * lu(k,3590)
   14049   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2581) * lu(k,3590)
   14050   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2582) * lu(k,3590)
   14051   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2583) * lu(k,3590)
   14052   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2584) * lu(k,3590)
   14053   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2585) * lu(k,3590)
   14054   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2586) * lu(k,3590)
   14055   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2587) * lu(k,3590)
   14056   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2588) * lu(k,3590)
   14057   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2589) * lu(k,3590)
   14058   254840160 :          lu(k,3745) = lu(k,3745) - lu(k,2571) * lu(k,3744)
   14059   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2572) * lu(k,3744)
   14060   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2573) * lu(k,3744)
   14061   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2574) * lu(k,3744)
   14062   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2575) * lu(k,3744)
   14063   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2576) * lu(k,3744)
   14064   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2577) * lu(k,3744)
   14065   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2578) * lu(k,3744)
   14066   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2579) * lu(k,3744)
   14067   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2580) * lu(k,3744)
   14068   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2581) * lu(k,3744)
   14069   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2582) * lu(k,3744)
   14070   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2583) * lu(k,3744)
   14071   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2584) * lu(k,3744)
   14072   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2585) * lu(k,3744)
   14073   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2586) * lu(k,3744)
   14074   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2587) * lu(k,3744)
   14075   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2588) * lu(k,3744)
   14076   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2589) * lu(k,3744)
   14077   254840160 :          lu(k,4077) = lu(k,4077) - lu(k,2571) * lu(k,4076)
   14078   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2572) * lu(k,4076)
   14079   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2573) * lu(k,4076)
   14080   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2574) * lu(k,4076)
   14081   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2575) * lu(k,4076)
   14082   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2576) * lu(k,4076)
   14083   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2577) * lu(k,4076)
   14084   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2578) * lu(k,4076)
   14085   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2579) * lu(k,4076)
   14086   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2580) * lu(k,4076)
   14087   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2581) * lu(k,4076)
   14088   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2582) * lu(k,4076)
   14089   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2583) * lu(k,4076)
   14090   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2584) * lu(k,4076)
   14091   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2585) * lu(k,4076)
   14092   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2586) * lu(k,4076)
   14093   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2587) * lu(k,4076)
   14094   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2588) * lu(k,4076)
   14095   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,2589) * lu(k,4076)
   14096             :       end do
   14097     8168963 :       end subroutine lu_fac49
   14098     8168963 :       subroutine lu_fac50( avec_len, lu )
   14099             :       use chem_mods, only : nzcnt
   14100             :       use shr_kind_mod, only : r8 => shr_kind_r8
   14101             :       implicit none
   14102             : !-----------------------------------------------------------------------
   14103             : ! ... dummy args
   14104             : !-----------------------------------------------------------------------
   14105             :       integer, intent(in) :: avec_len
   14106             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   14107             : !-----------------------------------------------------------------------
   14108             : ! ... local variables
   14109             : !-----------------------------------------------------------------------
   14110             :       integer :: k
   14111   263009123 :       do k = 1,avec_len
   14112   254840160 :          lu(k,2600) = 1._r8 / lu(k,2600)
   14113   254840160 :          lu(k,2601) = lu(k,2601) * lu(k,2600)
   14114   254840160 :          lu(k,2602) = lu(k,2602) * lu(k,2600)
   14115   254840160 :          lu(k,2603) = lu(k,2603) * lu(k,2600)
   14116   254840160 :          lu(k,2604) = lu(k,2604) * lu(k,2600)
   14117   254840160 :          lu(k,2605) = lu(k,2605) * lu(k,2600)
   14118   254840160 :          lu(k,2606) = lu(k,2606) * lu(k,2600)
   14119   254840160 :          lu(k,2607) = lu(k,2607) * lu(k,2600)
   14120   254840160 :          lu(k,2608) = lu(k,2608) * lu(k,2600)
   14121   254840160 :          lu(k,2609) = lu(k,2609) * lu(k,2600)
   14122   254840160 :          lu(k,2610) = lu(k,2610) * lu(k,2600)
   14123   254840160 :          lu(k,2611) = lu(k,2611) * lu(k,2600)
   14124   254840160 :          lu(k,2612) = lu(k,2612) * lu(k,2600)
   14125   254840160 :          lu(k,2613) = lu(k,2613) * lu(k,2600)
   14126   254840160 :          lu(k,2614) = lu(k,2614) * lu(k,2600)
   14127   254840160 :          lu(k,2615) = lu(k,2615) * lu(k,2600)
   14128   254840160 :          lu(k,2616) = lu(k,2616) * lu(k,2600)
   14129   254840160 :          lu(k,2617) = lu(k,2617) * lu(k,2600)
   14130   254840160 :          lu(k,2618) = lu(k,2618) * lu(k,2600)
   14131   254840160 :          lu(k,2741) = lu(k,2741) - lu(k,2601) * lu(k,2740)
   14132   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2602) * lu(k,2740)
   14133   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2603) * lu(k,2740)
   14134   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2604) * lu(k,2740)
   14135   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2605) * lu(k,2740)
   14136   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2606) * lu(k,2740)
   14137   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2607) * lu(k,2740)
   14138   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2608) * lu(k,2740)
   14139   254840160 :          lu(k,2751) = - lu(k,2609) * lu(k,2740)
   14140   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2610) * lu(k,2740)
   14141   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2611) * lu(k,2740)
   14142   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2612) * lu(k,2740)
   14143   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2613) * lu(k,2740)
   14144   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2614) * lu(k,2740)
   14145   254840160 :          lu(k,2758) = lu(k,2758) - lu(k,2615) * lu(k,2740)
   14146   254840160 :          lu(k,2759) = - lu(k,2616) * lu(k,2740)
   14147   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2617) * lu(k,2740)
   14148   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2618) * lu(k,2740)
   14149   254840160 :          lu(k,2787) = lu(k,2787) - lu(k,2601) * lu(k,2786)
   14150   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2602) * lu(k,2786)
   14151   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2603) * lu(k,2786)
   14152   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2604) * lu(k,2786)
   14153   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2605) * lu(k,2786)
   14154   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2606) * lu(k,2786)
   14155   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2607) * lu(k,2786)
   14156   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2608) * lu(k,2786)
   14157   254840160 :          lu(k,2797) = - lu(k,2609) * lu(k,2786)
   14158   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2610) * lu(k,2786)
   14159   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2611) * lu(k,2786)
   14160   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2612) * lu(k,2786)
   14161   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2613) * lu(k,2786)
   14162   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2614) * lu(k,2786)
   14163   254840160 :          lu(k,2804) = lu(k,2804) - lu(k,2615) * lu(k,2786)
   14164   254840160 :          lu(k,2805) = - lu(k,2616) * lu(k,2786)
   14165   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2617) * lu(k,2786)
   14166   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2618) * lu(k,2786)
   14167   254840160 :          lu(k,2834) = lu(k,2834) - lu(k,2601) * lu(k,2833)
   14168   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2602) * lu(k,2833)
   14169   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2603) * lu(k,2833)
   14170   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2604) * lu(k,2833)
   14171   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2605) * lu(k,2833)
   14172   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2606) * lu(k,2833)
   14173   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2607) * lu(k,2833)
   14174   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2608) * lu(k,2833)
   14175   254840160 :          lu(k,2844) = - lu(k,2609) * lu(k,2833)
   14176   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2610) * lu(k,2833)
   14177   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2611) * lu(k,2833)
   14178   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2612) * lu(k,2833)
   14179   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2613) * lu(k,2833)
   14180   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2614) * lu(k,2833)
   14181   254840160 :          lu(k,2851) = lu(k,2851) - lu(k,2615) * lu(k,2833)
   14182   254840160 :          lu(k,2852) = - lu(k,2616) * lu(k,2833)
   14183   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2617) * lu(k,2833)
   14184   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2618) * lu(k,2833)
   14185   254840160 :          lu(k,2906) = lu(k,2906) - lu(k,2601) * lu(k,2905)
   14186   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2602) * lu(k,2905)
   14187   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2603) * lu(k,2905)
   14188   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2604) * lu(k,2905)
   14189   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2605) * lu(k,2905)
   14190   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2606) * lu(k,2905)
   14191   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2607) * lu(k,2905)
   14192   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2608) * lu(k,2905)
   14193   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2609) * lu(k,2905)
   14194   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2610) * lu(k,2905)
   14195   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2611) * lu(k,2905)
   14196   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2612) * lu(k,2905)
   14197   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2613) * lu(k,2905)
   14198   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2614) * lu(k,2905)
   14199   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2615) * lu(k,2905)
   14200   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2616) * lu(k,2905)
   14201   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2617) * lu(k,2905)
   14202   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2618) * lu(k,2905)
   14203   254840160 :          lu(k,3096) = lu(k,3096) - lu(k,2601) * lu(k,3095)
   14204   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2602) * lu(k,3095)
   14205   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2603) * lu(k,3095)
   14206   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2604) * lu(k,3095)
   14207   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2605) * lu(k,3095)
   14208   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2606) * lu(k,3095)
   14209   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2607) * lu(k,3095)
   14210   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2608) * lu(k,3095)
   14211   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2609) * lu(k,3095)
   14212   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2610) * lu(k,3095)
   14213   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2611) * lu(k,3095)
   14214   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2612) * lu(k,3095)
   14215   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2613) * lu(k,3095)
   14216   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2614) * lu(k,3095)
   14217   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2615) * lu(k,3095)
   14218   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2616) * lu(k,3095)
   14219   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2617) * lu(k,3095)
   14220   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2618) * lu(k,3095)
   14221   254840160 :          lu(k,3355) = lu(k,3355) - lu(k,2601) * lu(k,3354)
   14222   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2602) * lu(k,3354)
   14223   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2603) * lu(k,3354)
   14224   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2604) * lu(k,3354)
   14225   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2605) * lu(k,3354)
   14226   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2606) * lu(k,3354)
   14227   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2607) * lu(k,3354)
   14228   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2608) * lu(k,3354)
   14229   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2609) * lu(k,3354)
   14230   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2610) * lu(k,3354)
   14231   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2611) * lu(k,3354)
   14232   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2612) * lu(k,3354)
   14233   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2613) * lu(k,3354)
   14234   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2614) * lu(k,3354)
   14235   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2615) * lu(k,3354)
   14236   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2616) * lu(k,3354)
   14237   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2617) * lu(k,3354)
   14238   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2618) * lu(k,3354)
   14239   254840160 :          lu(k,3448) = lu(k,3448) - lu(k,2601) * lu(k,3447)
   14240   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2602) * lu(k,3447)
   14241   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2603) * lu(k,3447)
   14242   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2604) * lu(k,3447)
   14243   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2605) * lu(k,3447)
   14244   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2606) * lu(k,3447)
   14245   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2607) * lu(k,3447)
   14246   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2608) * lu(k,3447)
   14247   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2609) * lu(k,3447)
   14248   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2610) * lu(k,3447)
   14249   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2611) * lu(k,3447)
   14250   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2612) * lu(k,3447)
   14251   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2613) * lu(k,3447)
   14252   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2614) * lu(k,3447)
   14253   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2615) * lu(k,3447)
   14254   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2616) * lu(k,3447)
   14255   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2617) * lu(k,3447)
   14256   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2618) * lu(k,3447)
   14257   254840160 :          lu(k,3592) = lu(k,3592) - lu(k,2601) * lu(k,3591)
   14258   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2602) * lu(k,3591)
   14259   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2603) * lu(k,3591)
   14260   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2604) * lu(k,3591)
   14261   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2605) * lu(k,3591)
   14262   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2606) * lu(k,3591)
   14263   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2607) * lu(k,3591)
   14264   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2608) * lu(k,3591)
   14265   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2609) * lu(k,3591)
   14266   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2610) * lu(k,3591)
   14267   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2611) * lu(k,3591)
   14268   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2612) * lu(k,3591)
   14269   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2613) * lu(k,3591)
   14270   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2614) * lu(k,3591)
   14271   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2615) * lu(k,3591)
   14272   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2616) * lu(k,3591)
   14273   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2617) * lu(k,3591)
   14274   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2618) * lu(k,3591)
   14275   254840160 :          lu(k,3746) = lu(k,3746) - lu(k,2601) * lu(k,3745)
   14276   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2602) * lu(k,3745)
   14277   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2603) * lu(k,3745)
   14278   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2604) * lu(k,3745)
   14279   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2605) * lu(k,3745)
   14280   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2606) * lu(k,3745)
   14281   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2607) * lu(k,3745)
   14282   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2608) * lu(k,3745)
   14283   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2609) * lu(k,3745)
   14284   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2610) * lu(k,3745)
   14285   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2611) * lu(k,3745)
   14286   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2612) * lu(k,3745)
   14287   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2613) * lu(k,3745)
   14288   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2614) * lu(k,3745)
   14289   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2615) * lu(k,3745)
   14290   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2616) * lu(k,3745)
   14291   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2617) * lu(k,3745)
   14292   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2618) * lu(k,3745)
   14293   254840160 :          lu(k,4078) = lu(k,4078) - lu(k,2601) * lu(k,4077)
   14294   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2602) * lu(k,4077)
   14295   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2603) * lu(k,4077)
   14296   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2604) * lu(k,4077)
   14297   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2605) * lu(k,4077)
   14298   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2606) * lu(k,4077)
   14299   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2607) * lu(k,4077)
   14300   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2608) * lu(k,4077)
   14301   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2609) * lu(k,4077)
   14302   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2610) * lu(k,4077)
   14303   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2611) * lu(k,4077)
   14304   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2612) * lu(k,4077)
   14305   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2613) * lu(k,4077)
   14306   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2614) * lu(k,4077)
   14307   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2615) * lu(k,4077)
   14308   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2616) * lu(k,4077)
   14309   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2617) * lu(k,4077)
   14310   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2618) * lu(k,4077)
   14311   254840160 :          lu(k,2629) = 1._r8 / lu(k,2629)
   14312   254840160 :          lu(k,2630) = lu(k,2630) * lu(k,2629)
   14313   254840160 :          lu(k,2631) = lu(k,2631) * lu(k,2629)
   14314   254840160 :          lu(k,2632) = lu(k,2632) * lu(k,2629)
   14315   254840160 :          lu(k,2633) = lu(k,2633) * lu(k,2629)
   14316   254840160 :          lu(k,2634) = lu(k,2634) * lu(k,2629)
   14317   254840160 :          lu(k,2635) = lu(k,2635) * lu(k,2629)
   14318   254840160 :          lu(k,2636) = lu(k,2636) * lu(k,2629)
   14319   254840160 :          lu(k,2637) = lu(k,2637) * lu(k,2629)
   14320   254840160 :          lu(k,2638) = lu(k,2638) * lu(k,2629)
   14321   254840160 :          lu(k,2639) = lu(k,2639) * lu(k,2629)
   14322   254840160 :          lu(k,2640) = lu(k,2640) * lu(k,2629)
   14323   254840160 :          lu(k,2641) = lu(k,2641) * lu(k,2629)
   14324   254840160 :          lu(k,2642) = lu(k,2642) * lu(k,2629)
   14325   254840160 :          lu(k,2643) = lu(k,2643) * lu(k,2629)
   14326   254840160 :          lu(k,2644) = lu(k,2644) * lu(k,2629)
   14327   254840160 :          lu(k,2645) = lu(k,2645) * lu(k,2629)
   14328   254840160 :          lu(k,2646) = lu(k,2646) * lu(k,2629)
   14329   254840160 :          lu(k,2742) = lu(k,2742) - lu(k,2630) * lu(k,2741)
   14330   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2631) * lu(k,2741)
   14331   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2632) * lu(k,2741)
   14332   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2633) * lu(k,2741)
   14333   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2634) * lu(k,2741)
   14334   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2635) * lu(k,2741)
   14335   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2636) * lu(k,2741)
   14336   254840160 :          lu(k,2751) = lu(k,2751) - lu(k,2637) * lu(k,2741)
   14337   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2638) * lu(k,2741)
   14338   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2639) * lu(k,2741)
   14339   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2640) * lu(k,2741)
   14340   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2641) * lu(k,2741)
   14341   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2642) * lu(k,2741)
   14342   254840160 :          lu(k,2758) = lu(k,2758) - lu(k,2643) * lu(k,2741)
   14343   254840160 :          lu(k,2759) = lu(k,2759) - lu(k,2644) * lu(k,2741)
   14344   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2645) * lu(k,2741)
   14345   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2646) * lu(k,2741)
   14346   254840160 :          lu(k,2788) = lu(k,2788) - lu(k,2630) * lu(k,2787)
   14347   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2631) * lu(k,2787)
   14348   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2632) * lu(k,2787)
   14349   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2633) * lu(k,2787)
   14350   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2634) * lu(k,2787)
   14351   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2635) * lu(k,2787)
   14352   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2636) * lu(k,2787)
   14353   254840160 :          lu(k,2797) = lu(k,2797) - lu(k,2637) * lu(k,2787)
   14354   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2638) * lu(k,2787)
   14355   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2639) * lu(k,2787)
   14356   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2640) * lu(k,2787)
   14357   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2641) * lu(k,2787)
   14358   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2642) * lu(k,2787)
   14359   254840160 :          lu(k,2804) = lu(k,2804) - lu(k,2643) * lu(k,2787)
   14360   254840160 :          lu(k,2805) = lu(k,2805) - lu(k,2644) * lu(k,2787)
   14361   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2645) * lu(k,2787)
   14362   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2646) * lu(k,2787)
   14363   254840160 :          lu(k,2835) = lu(k,2835) - lu(k,2630) * lu(k,2834)
   14364   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2631) * lu(k,2834)
   14365   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2632) * lu(k,2834)
   14366   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2633) * lu(k,2834)
   14367   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2634) * lu(k,2834)
   14368   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2635) * lu(k,2834)
   14369   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2636) * lu(k,2834)
   14370   254840160 :          lu(k,2844) = lu(k,2844) - lu(k,2637) * lu(k,2834)
   14371   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2638) * lu(k,2834)
   14372   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2639) * lu(k,2834)
   14373   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2640) * lu(k,2834)
   14374   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2641) * lu(k,2834)
   14375   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2642) * lu(k,2834)
   14376   254840160 :          lu(k,2851) = lu(k,2851) - lu(k,2643) * lu(k,2834)
   14377   254840160 :          lu(k,2852) = lu(k,2852) - lu(k,2644) * lu(k,2834)
   14378   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2645) * lu(k,2834)
   14379   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2646) * lu(k,2834)
   14380   254840160 :          lu(k,2907) = lu(k,2907) - lu(k,2630) * lu(k,2906)
   14381   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2631) * lu(k,2906)
   14382   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2632) * lu(k,2906)
   14383   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2633) * lu(k,2906)
   14384   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2634) * lu(k,2906)
   14385   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2635) * lu(k,2906)
   14386   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2636) * lu(k,2906)
   14387   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2637) * lu(k,2906)
   14388   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2638) * lu(k,2906)
   14389   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2639) * lu(k,2906)
   14390   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2640) * lu(k,2906)
   14391   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2641) * lu(k,2906)
   14392   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2642) * lu(k,2906)
   14393   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2643) * lu(k,2906)
   14394   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2644) * lu(k,2906)
   14395   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2645) * lu(k,2906)
   14396   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2646) * lu(k,2906)
   14397   254840160 :          lu(k,3097) = lu(k,3097) - lu(k,2630) * lu(k,3096)
   14398   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2631) * lu(k,3096)
   14399   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2632) * lu(k,3096)
   14400   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2633) * lu(k,3096)
   14401   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2634) * lu(k,3096)
   14402   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2635) * lu(k,3096)
   14403   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2636) * lu(k,3096)
   14404   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2637) * lu(k,3096)
   14405   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2638) * lu(k,3096)
   14406   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2639) * lu(k,3096)
   14407   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2640) * lu(k,3096)
   14408   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2641) * lu(k,3096)
   14409   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2642) * lu(k,3096)
   14410   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2643) * lu(k,3096)
   14411   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2644) * lu(k,3096)
   14412   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2645) * lu(k,3096)
   14413   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2646) * lu(k,3096)
   14414   254840160 :          lu(k,3356) = lu(k,3356) - lu(k,2630) * lu(k,3355)
   14415   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2631) * lu(k,3355)
   14416   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2632) * lu(k,3355)
   14417   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2633) * lu(k,3355)
   14418   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2634) * lu(k,3355)
   14419   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2635) * lu(k,3355)
   14420   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2636) * lu(k,3355)
   14421   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2637) * lu(k,3355)
   14422   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2638) * lu(k,3355)
   14423   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2639) * lu(k,3355)
   14424   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2640) * lu(k,3355)
   14425   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2641) * lu(k,3355)
   14426   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2642) * lu(k,3355)
   14427   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2643) * lu(k,3355)
   14428   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2644) * lu(k,3355)
   14429   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2645) * lu(k,3355)
   14430   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2646) * lu(k,3355)
   14431   254840160 :          lu(k,3449) = lu(k,3449) - lu(k,2630) * lu(k,3448)
   14432   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2631) * lu(k,3448)
   14433   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2632) * lu(k,3448)
   14434   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2633) * lu(k,3448)
   14435   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2634) * lu(k,3448)
   14436   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2635) * lu(k,3448)
   14437   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2636) * lu(k,3448)
   14438   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2637) * lu(k,3448)
   14439   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2638) * lu(k,3448)
   14440   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2639) * lu(k,3448)
   14441   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2640) * lu(k,3448)
   14442   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2641) * lu(k,3448)
   14443   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2642) * lu(k,3448)
   14444   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2643) * lu(k,3448)
   14445   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2644) * lu(k,3448)
   14446   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2645) * lu(k,3448)
   14447   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2646) * lu(k,3448)
   14448   254840160 :          lu(k,3593) = lu(k,3593) - lu(k,2630) * lu(k,3592)
   14449   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2631) * lu(k,3592)
   14450   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2632) * lu(k,3592)
   14451   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2633) * lu(k,3592)
   14452   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2634) * lu(k,3592)
   14453   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2635) * lu(k,3592)
   14454   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2636) * lu(k,3592)
   14455   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2637) * lu(k,3592)
   14456   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2638) * lu(k,3592)
   14457   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2639) * lu(k,3592)
   14458   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2640) * lu(k,3592)
   14459   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2641) * lu(k,3592)
   14460   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2642) * lu(k,3592)
   14461   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2643) * lu(k,3592)
   14462   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2644) * lu(k,3592)
   14463   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2645) * lu(k,3592)
   14464   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2646) * lu(k,3592)
   14465   254840160 :          lu(k,3747) = lu(k,3747) - lu(k,2630) * lu(k,3746)
   14466   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2631) * lu(k,3746)
   14467   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2632) * lu(k,3746)
   14468   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2633) * lu(k,3746)
   14469   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2634) * lu(k,3746)
   14470   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2635) * lu(k,3746)
   14471   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2636) * lu(k,3746)
   14472   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2637) * lu(k,3746)
   14473   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2638) * lu(k,3746)
   14474   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2639) * lu(k,3746)
   14475   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2640) * lu(k,3746)
   14476   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2641) * lu(k,3746)
   14477   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2642) * lu(k,3746)
   14478   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2643) * lu(k,3746)
   14479   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2644) * lu(k,3746)
   14480   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2645) * lu(k,3746)
   14481   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2646) * lu(k,3746)
   14482   254840160 :          lu(k,4079) = lu(k,4079) - lu(k,2630) * lu(k,4078)
   14483   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2631) * lu(k,4078)
   14484   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2632) * lu(k,4078)
   14485   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2633) * lu(k,4078)
   14486   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2634) * lu(k,4078)
   14487   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2635) * lu(k,4078)
   14488   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2636) * lu(k,4078)
   14489   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2637) * lu(k,4078)
   14490   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2638) * lu(k,4078)
   14491   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2639) * lu(k,4078)
   14492   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2640) * lu(k,4078)
   14493   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2641) * lu(k,4078)
   14494   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2642) * lu(k,4078)
   14495   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2643) * lu(k,4078)
   14496   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2644) * lu(k,4078)
   14497   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2645) * lu(k,4078)
   14498   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2646) * lu(k,4078)
   14499   254840160 :          lu(k,2654) = 1._r8 / lu(k,2654)
   14500   254840160 :          lu(k,2655) = lu(k,2655) * lu(k,2654)
   14501   254840160 :          lu(k,2656) = lu(k,2656) * lu(k,2654)
   14502   254840160 :          lu(k,2657) = lu(k,2657) * lu(k,2654)
   14503   254840160 :          lu(k,2658) = lu(k,2658) * lu(k,2654)
   14504   254840160 :          lu(k,2659) = lu(k,2659) * lu(k,2654)
   14505   254840160 :          lu(k,2660) = lu(k,2660) * lu(k,2654)
   14506   254840160 :          lu(k,2661) = lu(k,2661) * lu(k,2654)
   14507   254840160 :          lu(k,2662) = lu(k,2662) * lu(k,2654)
   14508   254840160 :          lu(k,2663) = lu(k,2663) * lu(k,2654)
   14509   254840160 :          lu(k,2664) = lu(k,2664) * lu(k,2654)
   14510   254840160 :          lu(k,2665) = lu(k,2665) * lu(k,2654)
   14511   254840160 :          lu(k,2666) = lu(k,2666) * lu(k,2654)
   14512   254840160 :          lu(k,2667) = lu(k,2667) * lu(k,2654)
   14513   254840160 :          lu(k,2668) = lu(k,2668) * lu(k,2654)
   14514   254840160 :          lu(k,2669) = lu(k,2669) * lu(k,2654)
   14515   254840160 :          lu(k,2677) = lu(k,2677) - lu(k,2655) * lu(k,2676)
   14516   254840160 :          lu(k,2678) = lu(k,2678) - lu(k,2656) * lu(k,2676)
   14517   254840160 :          lu(k,2679) = lu(k,2679) - lu(k,2657) * lu(k,2676)
   14518   254840160 :          lu(k,2680) = lu(k,2680) - lu(k,2658) * lu(k,2676)
   14519   254840160 :          lu(k,2681) = lu(k,2681) - lu(k,2659) * lu(k,2676)
   14520   254840160 :          lu(k,2682) = lu(k,2682) - lu(k,2660) * lu(k,2676)
   14521   254840160 :          lu(k,2683) = lu(k,2683) - lu(k,2661) * lu(k,2676)
   14522   254840160 :          lu(k,2684) = lu(k,2684) - lu(k,2662) * lu(k,2676)
   14523   254840160 :          lu(k,2685) = lu(k,2685) - lu(k,2663) * lu(k,2676)
   14524   254840160 :          lu(k,2686) = lu(k,2686) - lu(k,2664) * lu(k,2676)
   14525   254840160 :          lu(k,2687) = lu(k,2687) - lu(k,2665) * lu(k,2676)
   14526   254840160 :          lu(k,2688) = lu(k,2688) - lu(k,2666) * lu(k,2676)
   14527   254840160 :          lu(k,2689) = lu(k,2689) - lu(k,2667) * lu(k,2676)
   14528   254840160 :          lu(k,2690) = lu(k,2690) - lu(k,2668) * lu(k,2676)
   14529   254840160 :          lu(k,2691) = lu(k,2691) - lu(k,2669) * lu(k,2676)
   14530   254840160 :          lu(k,2700) = lu(k,2700) - lu(k,2655) * lu(k,2699)
   14531   254840160 :          lu(k,2701) = lu(k,2701) - lu(k,2656) * lu(k,2699)
   14532   254840160 :          lu(k,2702) = lu(k,2702) - lu(k,2657) * lu(k,2699)
   14533   254840160 :          lu(k,2703) = lu(k,2703) - lu(k,2658) * lu(k,2699)
   14534   254840160 :          lu(k,2704) = lu(k,2704) - lu(k,2659) * lu(k,2699)
   14535   254840160 :          lu(k,2705) = lu(k,2705) - lu(k,2660) * lu(k,2699)
   14536   254840160 :          lu(k,2706) = lu(k,2706) - lu(k,2661) * lu(k,2699)
   14537   254840160 :          lu(k,2707) = lu(k,2707) - lu(k,2662) * lu(k,2699)
   14538   254840160 :          lu(k,2708) = lu(k,2708) - lu(k,2663) * lu(k,2699)
   14539   254840160 :          lu(k,2709) = lu(k,2709) - lu(k,2664) * lu(k,2699)
   14540   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,2665) * lu(k,2699)
   14541   254840160 :          lu(k,2711) = lu(k,2711) - lu(k,2666) * lu(k,2699)
   14542   254840160 :          lu(k,2712) = lu(k,2712) - lu(k,2667) * lu(k,2699)
   14543   254840160 :          lu(k,2713) = lu(k,2713) - lu(k,2668) * lu(k,2699)
   14544   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,2669) * lu(k,2699)
   14545   254840160 :          lu(k,2743) = lu(k,2743) - lu(k,2655) * lu(k,2742)
   14546   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2656) * lu(k,2742)
   14547   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2657) * lu(k,2742)
   14548   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2658) * lu(k,2742)
   14549   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2659) * lu(k,2742)
   14550   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2660) * lu(k,2742)
   14551   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2661) * lu(k,2742)
   14552   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2662) * lu(k,2742)
   14553   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2663) * lu(k,2742)
   14554   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2664) * lu(k,2742)
   14555   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2665) * lu(k,2742)
   14556   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2666) * lu(k,2742)
   14557   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2667) * lu(k,2742)
   14558   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2668) * lu(k,2742)
   14559   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2669) * lu(k,2742)
   14560   254840160 :          lu(k,2789) = lu(k,2789) - lu(k,2655) * lu(k,2788)
   14561   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2656) * lu(k,2788)
   14562   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2657) * lu(k,2788)
   14563   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2658) * lu(k,2788)
   14564   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2659) * lu(k,2788)
   14565   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2660) * lu(k,2788)
   14566   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2661) * lu(k,2788)
   14567   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2662) * lu(k,2788)
   14568   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2663) * lu(k,2788)
   14569   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2664) * lu(k,2788)
   14570   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2665) * lu(k,2788)
   14571   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2666) * lu(k,2788)
   14572   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2667) * lu(k,2788)
   14573   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2668) * lu(k,2788)
   14574   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2669) * lu(k,2788)
   14575   254840160 :          lu(k,2836) = lu(k,2836) - lu(k,2655) * lu(k,2835)
   14576   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2656) * lu(k,2835)
   14577   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2657) * lu(k,2835)
   14578   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2658) * lu(k,2835)
   14579   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2659) * lu(k,2835)
   14580   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2660) * lu(k,2835)
   14581   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2661) * lu(k,2835)
   14582   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2662) * lu(k,2835)
   14583   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2663) * lu(k,2835)
   14584   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2664) * lu(k,2835)
   14585   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2665) * lu(k,2835)
   14586   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2666) * lu(k,2835)
   14587   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2667) * lu(k,2835)
   14588   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2668) * lu(k,2835)
   14589   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2669) * lu(k,2835)
   14590   254840160 :          lu(k,2908) = lu(k,2908) - lu(k,2655) * lu(k,2907)
   14591   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2656) * lu(k,2907)
   14592   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2657) * lu(k,2907)
   14593   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2658) * lu(k,2907)
   14594   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2659) * lu(k,2907)
   14595   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2660) * lu(k,2907)
   14596   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2661) * lu(k,2907)
   14597   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2662) * lu(k,2907)
   14598   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2663) * lu(k,2907)
   14599   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2664) * lu(k,2907)
   14600   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2665) * lu(k,2907)
   14601   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2666) * lu(k,2907)
   14602   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2667) * lu(k,2907)
   14603   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2668) * lu(k,2907)
   14604   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2669) * lu(k,2907)
   14605   254840160 :          lu(k,3098) = lu(k,3098) - lu(k,2655) * lu(k,3097)
   14606   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2656) * lu(k,3097)
   14607   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2657) * lu(k,3097)
   14608   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2658) * lu(k,3097)
   14609   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2659) * lu(k,3097)
   14610   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2660) * lu(k,3097)
   14611   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2661) * lu(k,3097)
   14612   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2662) * lu(k,3097)
   14613   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2663) * lu(k,3097)
   14614   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2664) * lu(k,3097)
   14615   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2665) * lu(k,3097)
   14616   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2666) * lu(k,3097)
   14617   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2667) * lu(k,3097)
   14618   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2668) * lu(k,3097)
   14619   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2669) * lu(k,3097)
   14620   254840160 :          lu(k,3357) = lu(k,3357) - lu(k,2655) * lu(k,3356)
   14621   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2656) * lu(k,3356)
   14622   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2657) * lu(k,3356)
   14623   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2658) * lu(k,3356)
   14624   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2659) * lu(k,3356)
   14625   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2660) * lu(k,3356)
   14626   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2661) * lu(k,3356)
   14627   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2662) * lu(k,3356)
   14628   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2663) * lu(k,3356)
   14629   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2664) * lu(k,3356)
   14630   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2665) * lu(k,3356)
   14631   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2666) * lu(k,3356)
   14632   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2667) * lu(k,3356)
   14633   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2668) * lu(k,3356)
   14634   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2669) * lu(k,3356)
   14635   254840160 :          lu(k,3450) = lu(k,3450) - lu(k,2655) * lu(k,3449)
   14636   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2656) * lu(k,3449)
   14637   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2657) * lu(k,3449)
   14638   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2658) * lu(k,3449)
   14639   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2659) * lu(k,3449)
   14640   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2660) * lu(k,3449)
   14641   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2661) * lu(k,3449)
   14642   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2662) * lu(k,3449)
   14643   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2663) * lu(k,3449)
   14644   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2664) * lu(k,3449)
   14645   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2665) * lu(k,3449)
   14646   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2666) * lu(k,3449)
   14647   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2667) * lu(k,3449)
   14648   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2668) * lu(k,3449)
   14649   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2669) * lu(k,3449)
   14650   254840160 :          lu(k,3594) = lu(k,3594) - lu(k,2655) * lu(k,3593)
   14651   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2656) * lu(k,3593)
   14652   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2657) * lu(k,3593)
   14653   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2658) * lu(k,3593)
   14654   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2659) * lu(k,3593)
   14655   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2660) * lu(k,3593)
   14656   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2661) * lu(k,3593)
   14657   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2662) * lu(k,3593)
   14658   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2663) * lu(k,3593)
   14659   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2664) * lu(k,3593)
   14660   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2665) * lu(k,3593)
   14661   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2666) * lu(k,3593)
   14662   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2667) * lu(k,3593)
   14663   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2668) * lu(k,3593)
   14664   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2669) * lu(k,3593)
   14665   254840160 :          lu(k,3748) = lu(k,3748) - lu(k,2655) * lu(k,3747)
   14666   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2656) * lu(k,3747)
   14667   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2657) * lu(k,3747)
   14668   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2658) * lu(k,3747)
   14669   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2659) * lu(k,3747)
   14670   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2660) * lu(k,3747)
   14671   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2661) * lu(k,3747)
   14672   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2662) * lu(k,3747)
   14673   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2663) * lu(k,3747)
   14674   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2664) * lu(k,3747)
   14675   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2665) * lu(k,3747)
   14676   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2666) * lu(k,3747)
   14677   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2667) * lu(k,3747)
   14678   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2668) * lu(k,3747)
   14679   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2669) * lu(k,3747)
   14680   254840160 :          lu(k,4080) = lu(k,4080) - lu(k,2655) * lu(k,4079)
   14681   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2656) * lu(k,4079)
   14682   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2657) * lu(k,4079)
   14683   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2658) * lu(k,4079)
   14684   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2659) * lu(k,4079)
   14685   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2660) * lu(k,4079)
   14686   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2661) * lu(k,4079)
   14687   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2662) * lu(k,4079)
   14688   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2663) * lu(k,4079)
   14689   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2664) * lu(k,4079)
   14690   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2665) * lu(k,4079)
   14691   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2666) * lu(k,4079)
   14692   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2667) * lu(k,4079)
   14693   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2668) * lu(k,4079)
   14694   263009123 :          lu(k,4101) = lu(k,4101) - lu(k,2669) * lu(k,4079)
   14695             :       end do
   14696     8168963 :       end subroutine lu_fac50
   14697     8168963 :       subroutine lu_fac51( avec_len, lu )
   14698             :       use chem_mods, only : nzcnt
   14699             :       use shr_kind_mod, only : r8 => shr_kind_r8
   14700             :       implicit none
   14701             : !-----------------------------------------------------------------------
   14702             : ! ... dummy args
   14703             : !-----------------------------------------------------------------------
   14704             :       integer, intent(in) :: avec_len
   14705             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   14706             : !-----------------------------------------------------------------------
   14707             : ! ... local variables
   14708             : !-----------------------------------------------------------------------
   14709             :       integer :: k
   14710   263009123 :       do k = 1,avec_len
   14711   254840160 :          lu(k,2677) = 1._r8 / lu(k,2677)
   14712   254840160 :          lu(k,2678) = lu(k,2678) * lu(k,2677)
   14713   254840160 :          lu(k,2679) = lu(k,2679) * lu(k,2677)
   14714   254840160 :          lu(k,2680) = lu(k,2680) * lu(k,2677)
   14715   254840160 :          lu(k,2681) = lu(k,2681) * lu(k,2677)
   14716   254840160 :          lu(k,2682) = lu(k,2682) * lu(k,2677)
   14717   254840160 :          lu(k,2683) = lu(k,2683) * lu(k,2677)
   14718   254840160 :          lu(k,2684) = lu(k,2684) * lu(k,2677)
   14719   254840160 :          lu(k,2685) = lu(k,2685) * lu(k,2677)
   14720   254840160 :          lu(k,2686) = lu(k,2686) * lu(k,2677)
   14721   254840160 :          lu(k,2687) = lu(k,2687) * lu(k,2677)
   14722   254840160 :          lu(k,2688) = lu(k,2688) * lu(k,2677)
   14723   254840160 :          lu(k,2689) = lu(k,2689) * lu(k,2677)
   14724   254840160 :          lu(k,2690) = lu(k,2690) * lu(k,2677)
   14725   254840160 :          lu(k,2691) = lu(k,2691) * lu(k,2677)
   14726   254840160 :          lu(k,2701) = lu(k,2701) - lu(k,2678) * lu(k,2700)
   14727   254840160 :          lu(k,2702) = lu(k,2702) - lu(k,2679) * lu(k,2700)
   14728   254840160 :          lu(k,2703) = lu(k,2703) - lu(k,2680) * lu(k,2700)
   14729   254840160 :          lu(k,2704) = lu(k,2704) - lu(k,2681) * lu(k,2700)
   14730   254840160 :          lu(k,2705) = lu(k,2705) - lu(k,2682) * lu(k,2700)
   14731   254840160 :          lu(k,2706) = lu(k,2706) - lu(k,2683) * lu(k,2700)
   14732   254840160 :          lu(k,2707) = lu(k,2707) - lu(k,2684) * lu(k,2700)
   14733   254840160 :          lu(k,2708) = lu(k,2708) - lu(k,2685) * lu(k,2700)
   14734   254840160 :          lu(k,2709) = lu(k,2709) - lu(k,2686) * lu(k,2700)
   14735   254840160 :          lu(k,2710) = lu(k,2710) - lu(k,2687) * lu(k,2700)
   14736   254840160 :          lu(k,2711) = lu(k,2711) - lu(k,2688) * lu(k,2700)
   14737   254840160 :          lu(k,2712) = lu(k,2712) - lu(k,2689) * lu(k,2700)
   14738   254840160 :          lu(k,2713) = lu(k,2713) - lu(k,2690) * lu(k,2700)
   14739   254840160 :          lu(k,2714) = lu(k,2714) - lu(k,2691) * lu(k,2700)
   14740   254840160 :          lu(k,2744) = lu(k,2744) - lu(k,2678) * lu(k,2743)
   14741   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2679) * lu(k,2743)
   14742   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2680) * lu(k,2743)
   14743   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2681) * lu(k,2743)
   14744   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2682) * lu(k,2743)
   14745   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2683) * lu(k,2743)
   14746   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2684) * lu(k,2743)
   14747   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2685) * lu(k,2743)
   14748   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2686) * lu(k,2743)
   14749   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2687) * lu(k,2743)
   14750   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2688) * lu(k,2743)
   14751   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2689) * lu(k,2743)
   14752   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2690) * lu(k,2743)
   14753   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2691) * lu(k,2743)
   14754   254840160 :          lu(k,2790) = lu(k,2790) - lu(k,2678) * lu(k,2789)
   14755   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2679) * lu(k,2789)
   14756   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2680) * lu(k,2789)
   14757   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2681) * lu(k,2789)
   14758   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2682) * lu(k,2789)
   14759   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2683) * lu(k,2789)
   14760   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2684) * lu(k,2789)
   14761   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2685) * lu(k,2789)
   14762   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2686) * lu(k,2789)
   14763   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2687) * lu(k,2789)
   14764   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2688) * lu(k,2789)
   14765   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2689) * lu(k,2789)
   14766   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2690) * lu(k,2789)
   14767   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2691) * lu(k,2789)
   14768   254840160 :          lu(k,2837) = lu(k,2837) - lu(k,2678) * lu(k,2836)
   14769   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2679) * lu(k,2836)
   14770   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2680) * lu(k,2836)
   14771   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2681) * lu(k,2836)
   14772   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2682) * lu(k,2836)
   14773   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2683) * lu(k,2836)
   14774   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2684) * lu(k,2836)
   14775   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2685) * lu(k,2836)
   14776   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2686) * lu(k,2836)
   14777   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2687) * lu(k,2836)
   14778   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2688) * lu(k,2836)
   14779   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2689) * lu(k,2836)
   14780   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2690) * lu(k,2836)
   14781   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2691) * lu(k,2836)
   14782   254840160 :          lu(k,2909) = lu(k,2909) - lu(k,2678) * lu(k,2908)
   14783   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2679) * lu(k,2908)
   14784   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2680) * lu(k,2908)
   14785   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2681) * lu(k,2908)
   14786   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2682) * lu(k,2908)
   14787   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2683) * lu(k,2908)
   14788   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2684) * lu(k,2908)
   14789   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2685) * lu(k,2908)
   14790   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2686) * lu(k,2908)
   14791   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2687) * lu(k,2908)
   14792   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2688) * lu(k,2908)
   14793   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2689) * lu(k,2908)
   14794   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2690) * lu(k,2908)
   14795   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2691) * lu(k,2908)
   14796   254840160 :          lu(k,3099) = lu(k,3099) - lu(k,2678) * lu(k,3098)
   14797   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2679) * lu(k,3098)
   14798   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2680) * lu(k,3098)
   14799   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2681) * lu(k,3098)
   14800   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2682) * lu(k,3098)
   14801   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2683) * lu(k,3098)
   14802   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2684) * lu(k,3098)
   14803   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2685) * lu(k,3098)
   14804   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2686) * lu(k,3098)
   14805   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2687) * lu(k,3098)
   14806   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2688) * lu(k,3098)
   14807   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2689) * lu(k,3098)
   14808   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2690) * lu(k,3098)
   14809   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2691) * lu(k,3098)
   14810   254840160 :          lu(k,3358) = lu(k,3358) - lu(k,2678) * lu(k,3357)
   14811   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2679) * lu(k,3357)
   14812   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2680) * lu(k,3357)
   14813   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2681) * lu(k,3357)
   14814   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2682) * lu(k,3357)
   14815   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2683) * lu(k,3357)
   14816   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2684) * lu(k,3357)
   14817   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2685) * lu(k,3357)
   14818   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2686) * lu(k,3357)
   14819   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2687) * lu(k,3357)
   14820   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2688) * lu(k,3357)
   14821   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2689) * lu(k,3357)
   14822   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2690) * lu(k,3357)
   14823   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2691) * lu(k,3357)
   14824   254840160 :          lu(k,3451) = lu(k,3451) - lu(k,2678) * lu(k,3450)
   14825   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2679) * lu(k,3450)
   14826   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2680) * lu(k,3450)
   14827   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2681) * lu(k,3450)
   14828   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2682) * lu(k,3450)
   14829   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2683) * lu(k,3450)
   14830   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2684) * lu(k,3450)
   14831   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2685) * lu(k,3450)
   14832   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2686) * lu(k,3450)
   14833   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2687) * lu(k,3450)
   14834   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2688) * lu(k,3450)
   14835   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2689) * lu(k,3450)
   14836   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2690) * lu(k,3450)
   14837   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2691) * lu(k,3450)
   14838   254840160 :          lu(k,3595) = lu(k,3595) - lu(k,2678) * lu(k,3594)
   14839   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2679) * lu(k,3594)
   14840   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2680) * lu(k,3594)
   14841   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2681) * lu(k,3594)
   14842   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2682) * lu(k,3594)
   14843   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2683) * lu(k,3594)
   14844   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2684) * lu(k,3594)
   14845   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2685) * lu(k,3594)
   14846   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2686) * lu(k,3594)
   14847   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2687) * lu(k,3594)
   14848   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2688) * lu(k,3594)
   14849   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2689) * lu(k,3594)
   14850   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2690) * lu(k,3594)
   14851   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2691) * lu(k,3594)
   14852   254840160 :          lu(k,3749) = lu(k,3749) - lu(k,2678) * lu(k,3748)
   14853   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2679) * lu(k,3748)
   14854   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2680) * lu(k,3748)
   14855   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2681) * lu(k,3748)
   14856   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2682) * lu(k,3748)
   14857   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2683) * lu(k,3748)
   14858   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2684) * lu(k,3748)
   14859   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2685) * lu(k,3748)
   14860   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2686) * lu(k,3748)
   14861   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2687) * lu(k,3748)
   14862   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2688) * lu(k,3748)
   14863   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2689) * lu(k,3748)
   14864   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2690) * lu(k,3748)
   14865   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2691) * lu(k,3748)
   14866   254840160 :          lu(k,4081) = lu(k,4081) - lu(k,2678) * lu(k,4080)
   14867   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2679) * lu(k,4080)
   14868   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2680) * lu(k,4080)
   14869   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2681) * lu(k,4080)
   14870   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2682) * lu(k,4080)
   14871   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2683) * lu(k,4080)
   14872   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2684) * lu(k,4080)
   14873   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2685) * lu(k,4080)
   14874   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2686) * lu(k,4080)
   14875   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2687) * lu(k,4080)
   14876   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2688) * lu(k,4080)
   14877   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2689) * lu(k,4080)
   14878   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2690) * lu(k,4080)
   14879   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2691) * lu(k,4080)
   14880   254840160 :          lu(k,2701) = 1._r8 / lu(k,2701)
   14881   254840160 :          lu(k,2702) = lu(k,2702) * lu(k,2701)
   14882   254840160 :          lu(k,2703) = lu(k,2703) * lu(k,2701)
   14883   254840160 :          lu(k,2704) = lu(k,2704) * lu(k,2701)
   14884   254840160 :          lu(k,2705) = lu(k,2705) * lu(k,2701)
   14885   254840160 :          lu(k,2706) = lu(k,2706) * lu(k,2701)
   14886   254840160 :          lu(k,2707) = lu(k,2707) * lu(k,2701)
   14887   254840160 :          lu(k,2708) = lu(k,2708) * lu(k,2701)
   14888   254840160 :          lu(k,2709) = lu(k,2709) * lu(k,2701)
   14889   254840160 :          lu(k,2710) = lu(k,2710) * lu(k,2701)
   14890   254840160 :          lu(k,2711) = lu(k,2711) * lu(k,2701)
   14891   254840160 :          lu(k,2712) = lu(k,2712) * lu(k,2701)
   14892   254840160 :          lu(k,2713) = lu(k,2713) * lu(k,2701)
   14893   254840160 :          lu(k,2714) = lu(k,2714) * lu(k,2701)
   14894   254840160 :          lu(k,2715) = lu(k,2715) * lu(k,2701)
   14895   254840160 :          lu(k,2745) = lu(k,2745) - lu(k,2702) * lu(k,2744)
   14896   254840160 :          lu(k,2746) = lu(k,2746) - lu(k,2703) * lu(k,2744)
   14897   254840160 :          lu(k,2747) = lu(k,2747) - lu(k,2704) * lu(k,2744)
   14898   254840160 :          lu(k,2748) = lu(k,2748) - lu(k,2705) * lu(k,2744)
   14899   254840160 :          lu(k,2749) = lu(k,2749) - lu(k,2706) * lu(k,2744)
   14900   254840160 :          lu(k,2750) = lu(k,2750) - lu(k,2707) * lu(k,2744)
   14901   254840160 :          lu(k,2752) = lu(k,2752) - lu(k,2708) * lu(k,2744)
   14902   254840160 :          lu(k,2753) = lu(k,2753) - lu(k,2709) * lu(k,2744)
   14903   254840160 :          lu(k,2754) = lu(k,2754) - lu(k,2710) * lu(k,2744)
   14904   254840160 :          lu(k,2755) = lu(k,2755) - lu(k,2711) * lu(k,2744)
   14905   254840160 :          lu(k,2756) = lu(k,2756) - lu(k,2712) * lu(k,2744)
   14906   254840160 :          lu(k,2757) = lu(k,2757) - lu(k,2713) * lu(k,2744)
   14907   254840160 :          lu(k,2760) = lu(k,2760) - lu(k,2714) * lu(k,2744)
   14908   254840160 :          lu(k,2761) = lu(k,2761) - lu(k,2715) * lu(k,2744)
   14909   254840160 :          lu(k,2791) = lu(k,2791) - lu(k,2702) * lu(k,2790)
   14910   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2703) * lu(k,2790)
   14911   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2704) * lu(k,2790)
   14912   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2705) * lu(k,2790)
   14913   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2706) * lu(k,2790)
   14914   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2707) * lu(k,2790)
   14915   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2708) * lu(k,2790)
   14916   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2709) * lu(k,2790)
   14917   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2710) * lu(k,2790)
   14918   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2711) * lu(k,2790)
   14919   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2712) * lu(k,2790)
   14920   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2713) * lu(k,2790)
   14921   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2714) * lu(k,2790)
   14922   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2715) * lu(k,2790)
   14923   254840160 :          lu(k,2838) = lu(k,2838) - lu(k,2702) * lu(k,2837)
   14924   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2703) * lu(k,2837)
   14925   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2704) * lu(k,2837)
   14926   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2705) * lu(k,2837)
   14927   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2706) * lu(k,2837)
   14928   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2707) * lu(k,2837)
   14929   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2708) * lu(k,2837)
   14930   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2709) * lu(k,2837)
   14931   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2710) * lu(k,2837)
   14932   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2711) * lu(k,2837)
   14933   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2712) * lu(k,2837)
   14934   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2713) * lu(k,2837)
   14935   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2714) * lu(k,2837)
   14936   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2715) * lu(k,2837)
   14937   254840160 :          lu(k,2910) = lu(k,2910) - lu(k,2702) * lu(k,2909)
   14938   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2703) * lu(k,2909)
   14939   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2704) * lu(k,2909)
   14940   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2705) * lu(k,2909)
   14941   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2706) * lu(k,2909)
   14942   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2707) * lu(k,2909)
   14943   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2708) * lu(k,2909)
   14944   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2709) * lu(k,2909)
   14945   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2710) * lu(k,2909)
   14946   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2711) * lu(k,2909)
   14947   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2712) * lu(k,2909)
   14948   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2713) * lu(k,2909)
   14949   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2714) * lu(k,2909)
   14950   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2715) * lu(k,2909)
   14951   254840160 :          lu(k,3100) = lu(k,3100) - lu(k,2702) * lu(k,3099)
   14952   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2703) * lu(k,3099)
   14953   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2704) * lu(k,3099)
   14954   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2705) * lu(k,3099)
   14955   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2706) * lu(k,3099)
   14956   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2707) * lu(k,3099)
   14957   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2708) * lu(k,3099)
   14958   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2709) * lu(k,3099)
   14959   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2710) * lu(k,3099)
   14960   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2711) * lu(k,3099)
   14961   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2712) * lu(k,3099)
   14962   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2713) * lu(k,3099)
   14963   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2714) * lu(k,3099)
   14964   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2715) * lu(k,3099)
   14965   254840160 :          lu(k,3359) = lu(k,3359) - lu(k,2702) * lu(k,3358)
   14966   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2703) * lu(k,3358)
   14967   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2704) * lu(k,3358)
   14968   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2705) * lu(k,3358)
   14969   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2706) * lu(k,3358)
   14970   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2707) * lu(k,3358)
   14971   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2708) * lu(k,3358)
   14972   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2709) * lu(k,3358)
   14973   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2710) * lu(k,3358)
   14974   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2711) * lu(k,3358)
   14975   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2712) * lu(k,3358)
   14976   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2713) * lu(k,3358)
   14977   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2714) * lu(k,3358)
   14978   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2715) * lu(k,3358)
   14979   254840160 :          lu(k,3452) = lu(k,3452) - lu(k,2702) * lu(k,3451)
   14980   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2703) * lu(k,3451)
   14981   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2704) * lu(k,3451)
   14982   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2705) * lu(k,3451)
   14983   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2706) * lu(k,3451)
   14984   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2707) * lu(k,3451)
   14985   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2708) * lu(k,3451)
   14986   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2709) * lu(k,3451)
   14987   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2710) * lu(k,3451)
   14988   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2711) * lu(k,3451)
   14989   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2712) * lu(k,3451)
   14990   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2713) * lu(k,3451)
   14991   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2714) * lu(k,3451)
   14992   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2715) * lu(k,3451)
   14993   254840160 :          lu(k,3596) = lu(k,3596) - lu(k,2702) * lu(k,3595)
   14994   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2703) * lu(k,3595)
   14995   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2704) * lu(k,3595)
   14996   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2705) * lu(k,3595)
   14997   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2706) * lu(k,3595)
   14998   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2707) * lu(k,3595)
   14999   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2708) * lu(k,3595)
   15000   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2709) * lu(k,3595)
   15001   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2710) * lu(k,3595)
   15002   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2711) * lu(k,3595)
   15003   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2712) * lu(k,3595)
   15004   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2713) * lu(k,3595)
   15005   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2714) * lu(k,3595)
   15006   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2715) * lu(k,3595)
   15007   254840160 :          lu(k,3648) = lu(k,3648) - lu(k,2702) * lu(k,3647)
   15008   254840160 :          lu(k,3649) = lu(k,3649) - lu(k,2703) * lu(k,3647)
   15009   254840160 :          lu(k,3650) = lu(k,3650) - lu(k,2704) * lu(k,3647)
   15010   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,2705) * lu(k,3647)
   15011   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2706) * lu(k,3647)
   15012   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,2707) * lu(k,3647)
   15013   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2708) * lu(k,3647)
   15014   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2709) * lu(k,3647)
   15015   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2710) * lu(k,3647)
   15016   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2711) * lu(k,3647)
   15017   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2712) * lu(k,3647)
   15018   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2713) * lu(k,3647)
   15019   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2714) * lu(k,3647)
   15020   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2715) * lu(k,3647)
   15021   254840160 :          lu(k,3750) = lu(k,3750) - lu(k,2702) * lu(k,3749)
   15022   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2703) * lu(k,3749)
   15023   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2704) * lu(k,3749)
   15024   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2705) * lu(k,3749)
   15025   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2706) * lu(k,3749)
   15026   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2707) * lu(k,3749)
   15027   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2708) * lu(k,3749)
   15028   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2709) * lu(k,3749)
   15029   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2710) * lu(k,3749)
   15030   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2711) * lu(k,3749)
   15031   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2712) * lu(k,3749)
   15032   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2713) * lu(k,3749)
   15033   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2714) * lu(k,3749)
   15034   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2715) * lu(k,3749)
   15035   254840160 :          lu(k,4082) = lu(k,4082) - lu(k,2702) * lu(k,4081)
   15036   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2703) * lu(k,4081)
   15037   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2704) * lu(k,4081)
   15038   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2705) * lu(k,4081)
   15039   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2706) * lu(k,4081)
   15040   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2707) * lu(k,4081)
   15041   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2708) * lu(k,4081)
   15042   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2709) * lu(k,4081)
   15043   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2710) * lu(k,4081)
   15044   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2711) * lu(k,4081)
   15045   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2712) * lu(k,4081)
   15046   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2713) * lu(k,4081)
   15047   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2714) * lu(k,4081)
   15048   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2715) * lu(k,4081)
   15049   254840160 :          lu(k,2745) = 1._r8 / lu(k,2745)
   15050   254840160 :          lu(k,2746) = lu(k,2746) * lu(k,2745)
   15051   254840160 :          lu(k,2747) = lu(k,2747) * lu(k,2745)
   15052   254840160 :          lu(k,2748) = lu(k,2748) * lu(k,2745)
   15053   254840160 :          lu(k,2749) = lu(k,2749) * lu(k,2745)
   15054   254840160 :          lu(k,2750) = lu(k,2750) * lu(k,2745)
   15055   254840160 :          lu(k,2751) = lu(k,2751) * lu(k,2745)
   15056   254840160 :          lu(k,2752) = lu(k,2752) * lu(k,2745)
   15057   254840160 :          lu(k,2753) = lu(k,2753) * lu(k,2745)
   15058   254840160 :          lu(k,2754) = lu(k,2754) * lu(k,2745)
   15059   254840160 :          lu(k,2755) = lu(k,2755) * lu(k,2745)
   15060   254840160 :          lu(k,2756) = lu(k,2756) * lu(k,2745)
   15061   254840160 :          lu(k,2757) = lu(k,2757) * lu(k,2745)
   15062   254840160 :          lu(k,2758) = lu(k,2758) * lu(k,2745)
   15063   254840160 :          lu(k,2759) = lu(k,2759) * lu(k,2745)
   15064   254840160 :          lu(k,2760) = lu(k,2760) * lu(k,2745)
   15065   254840160 :          lu(k,2761) = lu(k,2761) * lu(k,2745)
   15066   254840160 :          lu(k,2792) = lu(k,2792) - lu(k,2746) * lu(k,2791)
   15067   254840160 :          lu(k,2793) = lu(k,2793) - lu(k,2747) * lu(k,2791)
   15068   254840160 :          lu(k,2794) = lu(k,2794) - lu(k,2748) * lu(k,2791)
   15069   254840160 :          lu(k,2795) = lu(k,2795) - lu(k,2749) * lu(k,2791)
   15070   254840160 :          lu(k,2796) = lu(k,2796) - lu(k,2750) * lu(k,2791)
   15071   254840160 :          lu(k,2797) = lu(k,2797) - lu(k,2751) * lu(k,2791)
   15072   254840160 :          lu(k,2798) = lu(k,2798) - lu(k,2752) * lu(k,2791)
   15073   254840160 :          lu(k,2799) = lu(k,2799) - lu(k,2753) * lu(k,2791)
   15074   254840160 :          lu(k,2800) = lu(k,2800) - lu(k,2754) * lu(k,2791)
   15075   254840160 :          lu(k,2801) = lu(k,2801) - lu(k,2755) * lu(k,2791)
   15076   254840160 :          lu(k,2802) = lu(k,2802) - lu(k,2756) * lu(k,2791)
   15077   254840160 :          lu(k,2803) = lu(k,2803) - lu(k,2757) * lu(k,2791)
   15078   254840160 :          lu(k,2804) = lu(k,2804) - lu(k,2758) * lu(k,2791)
   15079   254840160 :          lu(k,2805) = lu(k,2805) - lu(k,2759) * lu(k,2791)
   15080   254840160 :          lu(k,2806) = lu(k,2806) - lu(k,2760) * lu(k,2791)
   15081   254840160 :          lu(k,2807) = lu(k,2807) - lu(k,2761) * lu(k,2791)
   15082   254840160 :          lu(k,2839) = lu(k,2839) - lu(k,2746) * lu(k,2838)
   15083   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2747) * lu(k,2838)
   15084   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2748) * lu(k,2838)
   15085   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2749) * lu(k,2838)
   15086   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2750) * lu(k,2838)
   15087   254840160 :          lu(k,2844) = lu(k,2844) - lu(k,2751) * lu(k,2838)
   15088   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2752) * lu(k,2838)
   15089   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2753) * lu(k,2838)
   15090   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2754) * lu(k,2838)
   15091   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2755) * lu(k,2838)
   15092   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2756) * lu(k,2838)
   15093   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2757) * lu(k,2838)
   15094   254840160 :          lu(k,2851) = lu(k,2851) - lu(k,2758) * lu(k,2838)
   15095   254840160 :          lu(k,2852) = lu(k,2852) - lu(k,2759) * lu(k,2838)
   15096   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2760) * lu(k,2838)
   15097   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2761) * lu(k,2838)
   15098   254840160 :          lu(k,2911) = lu(k,2911) - lu(k,2746) * lu(k,2910)
   15099   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2747) * lu(k,2910)
   15100   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2748) * lu(k,2910)
   15101   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2749) * lu(k,2910)
   15102   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2750) * lu(k,2910)
   15103   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2751) * lu(k,2910)
   15104   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2752) * lu(k,2910)
   15105   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2753) * lu(k,2910)
   15106   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2754) * lu(k,2910)
   15107   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2755) * lu(k,2910)
   15108   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2756) * lu(k,2910)
   15109   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2757) * lu(k,2910)
   15110   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2758) * lu(k,2910)
   15111   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2759) * lu(k,2910)
   15112   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2760) * lu(k,2910)
   15113   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2761) * lu(k,2910)
   15114   254840160 :          lu(k,3101) = lu(k,3101) - lu(k,2746) * lu(k,3100)
   15115   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2747) * lu(k,3100)
   15116   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2748) * lu(k,3100)
   15117   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2749) * lu(k,3100)
   15118   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2750) * lu(k,3100)
   15119   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2751) * lu(k,3100)
   15120   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2752) * lu(k,3100)
   15121   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2753) * lu(k,3100)
   15122   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2754) * lu(k,3100)
   15123   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2755) * lu(k,3100)
   15124   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2756) * lu(k,3100)
   15125   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2757) * lu(k,3100)
   15126   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2758) * lu(k,3100)
   15127   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2759) * lu(k,3100)
   15128   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2760) * lu(k,3100)
   15129   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2761) * lu(k,3100)
   15130   254840160 :          lu(k,3360) = lu(k,3360) - lu(k,2746) * lu(k,3359)
   15131   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2747) * lu(k,3359)
   15132   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2748) * lu(k,3359)
   15133   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2749) * lu(k,3359)
   15134   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2750) * lu(k,3359)
   15135   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2751) * lu(k,3359)
   15136   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2752) * lu(k,3359)
   15137   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2753) * lu(k,3359)
   15138   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2754) * lu(k,3359)
   15139   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2755) * lu(k,3359)
   15140   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2756) * lu(k,3359)
   15141   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2757) * lu(k,3359)
   15142   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2758) * lu(k,3359)
   15143   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2759) * lu(k,3359)
   15144   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2760) * lu(k,3359)
   15145   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2761) * lu(k,3359)
   15146   254840160 :          lu(k,3453) = lu(k,3453) - lu(k,2746) * lu(k,3452)
   15147   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2747) * lu(k,3452)
   15148   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2748) * lu(k,3452)
   15149   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2749) * lu(k,3452)
   15150   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2750) * lu(k,3452)
   15151   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2751) * lu(k,3452)
   15152   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2752) * lu(k,3452)
   15153   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2753) * lu(k,3452)
   15154   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2754) * lu(k,3452)
   15155   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2755) * lu(k,3452)
   15156   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2756) * lu(k,3452)
   15157   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2757) * lu(k,3452)
   15158   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2758) * lu(k,3452)
   15159   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2759) * lu(k,3452)
   15160   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2760) * lu(k,3452)
   15161   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2761) * lu(k,3452)
   15162   254840160 :          lu(k,3597) = lu(k,3597) - lu(k,2746) * lu(k,3596)
   15163   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2747) * lu(k,3596)
   15164   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2748) * lu(k,3596)
   15165   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2749) * lu(k,3596)
   15166   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2750) * lu(k,3596)
   15167   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2751) * lu(k,3596)
   15168   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2752) * lu(k,3596)
   15169   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2753) * lu(k,3596)
   15170   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2754) * lu(k,3596)
   15171   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2755) * lu(k,3596)
   15172   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2756) * lu(k,3596)
   15173   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2757) * lu(k,3596)
   15174   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2758) * lu(k,3596)
   15175   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2759) * lu(k,3596)
   15176   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2760) * lu(k,3596)
   15177   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2761) * lu(k,3596)
   15178   254840160 :          lu(k,3649) = lu(k,3649) - lu(k,2746) * lu(k,3648)
   15179   254840160 :          lu(k,3650) = lu(k,3650) - lu(k,2747) * lu(k,3648)
   15180   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,2748) * lu(k,3648)
   15181   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2749) * lu(k,3648)
   15182   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,2750) * lu(k,3648)
   15183   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,2751) * lu(k,3648)
   15184   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2752) * lu(k,3648)
   15185   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2753) * lu(k,3648)
   15186   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2754) * lu(k,3648)
   15187   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2755) * lu(k,3648)
   15188   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2756) * lu(k,3648)
   15189   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2757) * lu(k,3648)
   15190   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2758) * lu(k,3648)
   15191   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,2759) * lu(k,3648)
   15192   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2760) * lu(k,3648)
   15193   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2761) * lu(k,3648)
   15194   254840160 :          lu(k,3751) = lu(k,3751) - lu(k,2746) * lu(k,3750)
   15195   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2747) * lu(k,3750)
   15196   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2748) * lu(k,3750)
   15197   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2749) * lu(k,3750)
   15198   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2750) * lu(k,3750)
   15199   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2751) * lu(k,3750)
   15200   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2752) * lu(k,3750)
   15201   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2753) * lu(k,3750)
   15202   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2754) * lu(k,3750)
   15203   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2755) * lu(k,3750)
   15204   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2756) * lu(k,3750)
   15205   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2757) * lu(k,3750)
   15206   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2758) * lu(k,3750)
   15207   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2759) * lu(k,3750)
   15208   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2760) * lu(k,3750)
   15209   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2761) * lu(k,3750)
   15210   254840160 :          lu(k,4083) = lu(k,4083) - lu(k,2746) * lu(k,4082)
   15211   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2747) * lu(k,4082)
   15212   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2748) * lu(k,4082)
   15213   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2749) * lu(k,4082)
   15214   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2750) * lu(k,4082)
   15215   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2751) * lu(k,4082)
   15216   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2752) * lu(k,4082)
   15217   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2753) * lu(k,4082)
   15218   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2754) * lu(k,4082)
   15219   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2755) * lu(k,4082)
   15220   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2756) * lu(k,4082)
   15221   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2757) * lu(k,4082)
   15222   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2758) * lu(k,4082)
   15223   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2759) * lu(k,4082)
   15224   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2760) * lu(k,4082)
   15225   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2761) * lu(k,4082)
   15226   254840160 :          lu(k,2792) = 1._r8 / lu(k,2792)
   15227   254840160 :          lu(k,2793) = lu(k,2793) * lu(k,2792)
   15228   254840160 :          lu(k,2794) = lu(k,2794) * lu(k,2792)
   15229   254840160 :          lu(k,2795) = lu(k,2795) * lu(k,2792)
   15230   254840160 :          lu(k,2796) = lu(k,2796) * lu(k,2792)
   15231   254840160 :          lu(k,2797) = lu(k,2797) * lu(k,2792)
   15232   254840160 :          lu(k,2798) = lu(k,2798) * lu(k,2792)
   15233   254840160 :          lu(k,2799) = lu(k,2799) * lu(k,2792)
   15234   254840160 :          lu(k,2800) = lu(k,2800) * lu(k,2792)
   15235   254840160 :          lu(k,2801) = lu(k,2801) * lu(k,2792)
   15236   254840160 :          lu(k,2802) = lu(k,2802) * lu(k,2792)
   15237   254840160 :          lu(k,2803) = lu(k,2803) * lu(k,2792)
   15238   254840160 :          lu(k,2804) = lu(k,2804) * lu(k,2792)
   15239   254840160 :          lu(k,2805) = lu(k,2805) * lu(k,2792)
   15240   254840160 :          lu(k,2806) = lu(k,2806) * lu(k,2792)
   15241   254840160 :          lu(k,2807) = lu(k,2807) * lu(k,2792)
   15242   254840160 :          lu(k,2840) = lu(k,2840) - lu(k,2793) * lu(k,2839)
   15243   254840160 :          lu(k,2841) = lu(k,2841) - lu(k,2794) * lu(k,2839)
   15244   254840160 :          lu(k,2842) = lu(k,2842) - lu(k,2795) * lu(k,2839)
   15245   254840160 :          lu(k,2843) = lu(k,2843) - lu(k,2796) * lu(k,2839)
   15246   254840160 :          lu(k,2844) = lu(k,2844) - lu(k,2797) * lu(k,2839)
   15247   254840160 :          lu(k,2845) = lu(k,2845) - lu(k,2798) * lu(k,2839)
   15248   254840160 :          lu(k,2846) = lu(k,2846) - lu(k,2799) * lu(k,2839)
   15249   254840160 :          lu(k,2847) = lu(k,2847) - lu(k,2800) * lu(k,2839)
   15250   254840160 :          lu(k,2848) = lu(k,2848) - lu(k,2801) * lu(k,2839)
   15251   254840160 :          lu(k,2849) = lu(k,2849) - lu(k,2802) * lu(k,2839)
   15252   254840160 :          lu(k,2850) = lu(k,2850) - lu(k,2803) * lu(k,2839)
   15253   254840160 :          lu(k,2851) = lu(k,2851) - lu(k,2804) * lu(k,2839)
   15254   254840160 :          lu(k,2852) = lu(k,2852) - lu(k,2805) * lu(k,2839)
   15255   254840160 :          lu(k,2853) = lu(k,2853) - lu(k,2806) * lu(k,2839)
   15256   254840160 :          lu(k,2854) = lu(k,2854) - lu(k,2807) * lu(k,2839)
   15257   254840160 :          lu(k,2912) = lu(k,2912) - lu(k,2793) * lu(k,2911)
   15258   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2794) * lu(k,2911)
   15259   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2795) * lu(k,2911)
   15260   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2796) * lu(k,2911)
   15261   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2797) * lu(k,2911)
   15262   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2798) * lu(k,2911)
   15263   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2799) * lu(k,2911)
   15264   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2800) * lu(k,2911)
   15265   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2801) * lu(k,2911)
   15266   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2802) * lu(k,2911)
   15267   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2803) * lu(k,2911)
   15268   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2804) * lu(k,2911)
   15269   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2805) * lu(k,2911)
   15270   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2806) * lu(k,2911)
   15271   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2807) * lu(k,2911)
   15272   254840160 :          lu(k,3102) = lu(k,3102) - lu(k,2793) * lu(k,3101)
   15273   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2794) * lu(k,3101)
   15274   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2795) * lu(k,3101)
   15275   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2796) * lu(k,3101)
   15276   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2797) * lu(k,3101)
   15277   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2798) * lu(k,3101)
   15278   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2799) * lu(k,3101)
   15279   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2800) * lu(k,3101)
   15280   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2801) * lu(k,3101)
   15281   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2802) * lu(k,3101)
   15282   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2803) * lu(k,3101)
   15283   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2804) * lu(k,3101)
   15284   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2805) * lu(k,3101)
   15285   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2806) * lu(k,3101)
   15286   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2807) * lu(k,3101)
   15287   254840160 :          lu(k,3361) = lu(k,3361) - lu(k,2793) * lu(k,3360)
   15288   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2794) * lu(k,3360)
   15289   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2795) * lu(k,3360)
   15290   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2796) * lu(k,3360)
   15291   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2797) * lu(k,3360)
   15292   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2798) * lu(k,3360)
   15293   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2799) * lu(k,3360)
   15294   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2800) * lu(k,3360)
   15295   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2801) * lu(k,3360)
   15296   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2802) * lu(k,3360)
   15297   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2803) * lu(k,3360)
   15298   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2804) * lu(k,3360)
   15299   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2805) * lu(k,3360)
   15300   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2806) * lu(k,3360)
   15301   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2807) * lu(k,3360)
   15302   254840160 :          lu(k,3454) = lu(k,3454) - lu(k,2793) * lu(k,3453)
   15303   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2794) * lu(k,3453)
   15304   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2795) * lu(k,3453)
   15305   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2796) * lu(k,3453)
   15306   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2797) * lu(k,3453)
   15307   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2798) * lu(k,3453)
   15308   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2799) * lu(k,3453)
   15309   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2800) * lu(k,3453)
   15310   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2801) * lu(k,3453)
   15311   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2802) * lu(k,3453)
   15312   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2803) * lu(k,3453)
   15313   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2804) * lu(k,3453)
   15314   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2805) * lu(k,3453)
   15315   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2806) * lu(k,3453)
   15316   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2807) * lu(k,3453)
   15317   254840160 :          lu(k,3598) = lu(k,3598) - lu(k,2793) * lu(k,3597)
   15318   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2794) * lu(k,3597)
   15319   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2795) * lu(k,3597)
   15320   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2796) * lu(k,3597)
   15321   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2797) * lu(k,3597)
   15322   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2798) * lu(k,3597)
   15323   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2799) * lu(k,3597)
   15324   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2800) * lu(k,3597)
   15325   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2801) * lu(k,3597)
   15326   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2802) * lu(k,3597)
   15327   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2803) * lu(k,3597)
   15328   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2804) * lu(k,3597)
   15329   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2805) * lu(k,3597)
   15330   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2806) * lu(k,3597)
   15331   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2807) * lu(k,3597)
   15332   254840160 :          lu(k,3650) = lu(k,3650) - lu(k,2793) * lu(k,3649)
   15333   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,2794) * lu(k,3649)
   15334   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2795) * lu(k,3649)
   15335   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,2796) * lu(k,3649)
   15336   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,2797) * lu(k,3649)
   15337   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2798) * lu(k,3649)
   15338   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2799) * lu(k,3649)
   15339   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2800) * lu(k,3649)
   15340   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2801) * lu(k,3649)
   15341   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2802) * lu(k,3649)
   15342   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2803) * lu(k,3649)
   15343   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2804) * lu(k,3649)
   15344   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,2805) * lu(k,3649)
   15345   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2806) * lu(k,3649)
   15346   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2807) * lu(k,3649)
   15347   254840160 :          lu(k,3752) = lu(k,3752) - lu(k,2793) * lu(k,3751)
   15348   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2794) * lu(k,3751)
   15349   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2795) * lu(k,3751)
   15350   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2796) * lu(k,3751)
   15351   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2797) * lu(k,3751)
   15352   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2798) * lu(k,3751)
   15353   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2799) * lu(k,3751)
   15354   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2800) * lu(k,3751)
   15355   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2801) * lu(k,3751)
   15356   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2802) * lu(k,3751)
   15357   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2803) * lu(k,3751)
   15358   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2804) * lu(k,3751)
   15359   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2805) * lu(k,3751)
   15360   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2806) * lu(k,3751)
   15361   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2807) * lu(k,3751)
   15362   254840160 :          lu(k,4084) = lu(k,4084) - lu(k,2793) * lu(k,4083)
   15363   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2794) * lu(k,4083)
   15364   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2795) * lu(k,4083)
   15365   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2796) * lu(k,4083)
   15366   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2797) * lu(k,4083)
   15367   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2798) * lu(k,4083)
   15368   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2799) * lu(k,4083)
   15369   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2800) * lu(k,4083)
   15370   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2801) * lu(k,4083)
   15371   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2802) * lu(k,4083)
   15372   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2803) * lu(k,4083)
   15373   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2804) * lu(k,4083)
   15374   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2805) * lu(k,4083)
   15375   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2806) * lu(k,4083)
   15376   263009123 :          lu(k,4102) = lu(k,4102) - lu(k,2807) * lu(k,4083)
   15377             :       end do
   15378     8168963 :       end subroutine lu_fac51
   15379     8168963 :       subroutine lu_fac52( avec_len, lu )
   15380             :       use chem_mods, only : nzcnt
   15381             :       use shr_kind_mod, only : r8 => shr_kind_r8
   15382             :       implicit none
   15383             : !-----------------------------------------------------------------------
   15384             : ! ... dummy args
   15385             : !-----------------------------------------------------------------------
   15386             :       integer, intent(in) :: avec_len
   15387             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   15388             : !-----------------------------------------------------------------------
   15389             : ! ... local variables
   15390             : !-----------------------------------------------------------------------
   15391             :       integer :: k
   15392   263009123 :       do k = 1,avec_len
   15393   254840160 :          lu(k,2840) = 1._r8 / lu(k,2840)
   15394   254840160 :          lu(k,2841) = lu(k,2841) * lu(k,2840)
   15395   254840160 :          lu(k,2842) = lu(k,2842) * lu(k,2840)
   15396   254840160 :          lu(k,2843) = lu(k,2843) * lu(k,2840)
   15397   254840160 :          lu(k,2844) = lu(k,2844) * lu(k,2840)
   15398   254840160 :          lu(k,2845) = lu(k,2845) * lu(k,2840)
   15399   254840160 :          lu(k,2846) = lu(k,2846) * lu(k,2840)
   15400   254840160 :          lu(k,2847) = lu(k,2847) * lu(k,2840)
   15401   254840160 :          lu(k,2848) = lu(k,2848) * lu(k,2840)
   15402   254840160 :          lu(k,2849) = lu(k,2849) * lu(k,2840)
   15403   254840160 :          lu(k,2850) = lu(k,2850) * lu(k,2840)
   15404   254840160 :          lu(k,2851) = lu(k,2851) * lu(k,2840)
   15405   254840160 :          lu(k,2852) = lu(k,2852) * lu(k,2840)
   15406   254840160 :          lu(k,2853) = lu(k,2853) * lu(k,2840)
   15407   254840160 :          lu(k,2854) = lu(k,2854) * lu(k,2840)
   15408   254840160 :          lu(k,2913) = lu(k,2913) - lu(k,2841) * lu(k,2912)
   15409   254840160 :          lu(k,2915) = lu(k,2915) - lu(k,2842) * lu(k,2912)
   15410   254840160 :          lu(k,2916) = lu(k,2916) - lu(k,2843) * lu(k,2912)
   15411   254840160 :          lu(k,2917) = lu(k,2917) - lu(k,2844) * lu(k,2912)
   15412   254840160 :          lu(k,2918) = lu(k,2918) - lu(k,2845) * lu(k,2912)
   15413   254840160 :          lu(k,2919) = lu(k,2919) - lu(k,2846) * lu(k,2912)
   15414   254840160 :          lu(k,2920) = lu(k,2920) - lu(k,2847) * lu(k,2912)
   15415   254840160 :          lu(k,2921) = lu(k,2921) - lu(k,2848) * lu(k,2912)
   15416   254840160 :          lu(k,2922) = lu(k,2922) - lu(k,2849) * lu(k,2912)
   15417   254840160 :          lu(k,2923) = lu(k,2923) - lu(k,2850) * lu(k,2912)
   15418   254840160 :          lu(k,2924) = lu(k,2924) - lu(k,2851) * lu(k,2912)
   15419   254840160 :          lu(k,2926) = lu(k,2926) - lu(k,2852) * lu(k,2912)
   15420   254840160 :          lu(k,2927) = lu(k,2927) - lu(k,2853) * lu(k,2912)
   15421   254840160 :          lu(k,2928) = lu(k,2928) - lu(k,2854) * lu(k,2912)
   15422   254840160 :          lu(k,3103) = lu(k,3103) - lu(k,2841) * lu(k,3102)
   15423   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2842) * lu(k,3102)
   15424   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2843) * lu(k,3102)
   15425   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2844) * lu(k,3102)
   15426   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2845) * lu(k,3102)
   15427   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2846) * lu(k,3102)
   15428   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2847) * lu(k,3102)
   15429   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2848) * lu(k,3102)
   15430   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2849) * lu(k,3102)
   15431   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2850) * lu(k,3102)
   15432   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2851) * lu(k,3102)
   15433   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2852) * lu(k,3102)
   15434   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2853) * lu(k,3102)
   15435   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2854) * lu(k,3102)
   15436   254840160 :          lu(k,3362) = lu(k,3362) - lu(k,2841) * lu(k,3361)
   15437   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2842) * lu(k,3361)
   15438   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2843) * lu(k,3361)
   15439   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2844) * lu(k,3361)
   15440   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2845) * lu(k,3361)
   15441   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2846) * lu(k,3361)
   15442   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2847) * lu(k,3361)
   15443   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2848) * lu(k,3361)
   15444   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2849) * lu(k,3361)
   15445   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2850) * lu(k,3361)
   15446   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2851) * lu(k,3361)
   15447   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2852) * lu(k,3361)
   15448   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2853) * lu(k,3361)
   15449   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2854) * lu(k,3361)
   15450   254840160 :          lu(k,3455) = lu(k,3455) - lu(k,2841) * lu(k,3454)
   15451   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2842) * lu(k,3454)
   15452   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2843) * lu(k,3454)
   15453   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2844) * lu(k,3454)
   15454   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2845) * lu(k,3454)
   15455   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2846) * lu(k,3454)
   15456   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2847) * lu(k,3454)
   15457   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2848) * lu(k,3454)
   15458   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2849) * lu(k,3454)
   15459   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2850) * lu(k,3454)
   15460   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2851) * lu(k,3454)
   15461   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2852) * lu(k,3454)
   15462   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2853) * lu(k,3454)
   15463   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2854) * lu(k,3454)
   15464   254840160 :          lu(k,3599) = lu(k,3599) - lu(k,2841) * lu(k,3598)
   15465   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2842) * lu(k,3598)
   15466   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2843) * lu(k,3598)
   15467   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2844) * lu(k,3598)
   15468   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2845) * lu(k,3598)
   15469   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2846) * lu(k,3598)
   15470   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2847) * lu(k,3598)
   15471   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2848) * lu(k,3598)
   15472   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2849) * lu(k,3598)
   15473   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2850) * lu(k,3598)
   15474   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2851) * lu(k,3598)
   15475   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2852) * lu(k,3598)
   15476   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2853) * lu(k,3598)
   15477   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2854) * lu(k,3598)
   15478   254840160 :          lu(k,3651) = lu(k,3651) - lu(k,2841) * lu(k,3650)
   15479   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2842) * lu(k,3650)
   15480   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,2843) * lu(k,3650)
   15481   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,2844) * lu(k,3650)
   15482   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2845) * lu(k,3650)
   15483   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2846) * lu(k,3650)
   15484   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2847) * lu(k,3650)
   15485   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2848) * lu(k,3650)
   15486   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2849) * lu(k,3650)
   15487   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2850) * lu(k,3650)
   15488   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2851) * lu(k,3650)
   15489   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,2852) * lu(k,3650)
   15490   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2853) * lu(k,3650)
   15491   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2854) * lu(k,3650)
   15492   254840160 :          lu(k,3753) = lu(k,3753) - lu(k,2841) * lu(k,3752)
   15493   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2842) * lu(k,3752)
   15494   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2843) * lu(k,3752)
   15495   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2844) * lu(k,3752)
   15496   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2845) * lu(k,3752)
   15497   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2846) * lu(k,3752)
   15498   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2847) * lu(k,3752)
   15499   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2848) * lu(k,3752)
   15500   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2849) * lu(k,3752)
   15501   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2850) * lu(k,3752)
   15502   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2851) * lu(k,3752)
   15503   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2852) * lu(k,3752)
   15504   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2853) * lu(k,3752)
   15505   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2854) * lu(k,3752)
   15506   254840160 :          lu(k,4085) = lu(k,4085) - lu(k,2841) * lu(k,4084)
   15507   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2842) * lu(k,4084)
   15508   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2843) * lu(k,4084)
   15509   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2844) * lu(k,4084)
   15510   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2845) * lu(k,4084)
   15511   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2846) * lu(k,4084)
   15512   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2847) * lu(k,4084)
   15513   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2848) * lu(k,4084)
   15514   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2849) * lu(k,4084)
   15515   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2850) * lu(k,4084)
   15516   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2851) * lu(k,4084)
   15517   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2852) * lu(k,4084)
   15518   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2853) * lu(k,4084)
   15519   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2854) * lu(k,4084)
   15520   254840160 :          lu(k,2913) = 1._r8 / lu(k,2913)
   15521   254840160 :          lu(k,2914) = lu(k,2914) * lu(k,2913)
   15522   254840160 :          lu(k,2915) = lu(k,2915) * lu(k,2913)
   15523   254840160 :          lu(k,2916) = lu(k,2916) * lu(k,2913)
   15524   254840160 :          lu(k,2917) = lu(k,2917) * lu(k,2913)
   15525   254840160 :          lu(k,2918) = lu(k,2918) * lu(k,2913)
   15526   254840160 :          lu(k,2919) = lu(k,2919) * lu(k,2913)
   15527   254840160 :          lu(k,2920) = lu(k,2920) * lu(k,2913)
   15528   254840160 :          lu(k,2921) = lu(k,2921) * lu(k,2913)
   15529   254840160 :          lu(k,2922) = lu(k,2922) * lu(k,2913)
   15530   254840160 :          lu(k,2923) = lu(k,2923) * lu(k,2913)
   15531   254840160 :          lu(k,2924) = lu(k,2924) * lu(k,2913)
   15532   254840160 :          lu(k,2925) = lu(k,2925) * lu(k,2913)
   15533   254840160 :          lu(k,2926) = lu(k,2926) * lu(k,2913)
   15534   254840160 :          lu(k,2927) = lu(k,2927) * lu(k,2913)
   15535   254840160 :          lu(k,2928) = lu(k,2928) * lu(k,2913)
   15536   254840160 :          lu(k,3104) = lu(k,3104) - lu(k,2914) * lu(k,3103)
   15537   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2915) * lu(k,3103)
   15538   254840160 :          lu(k,3106) = lu(k,3106) - lu(k,2916) * lu(k,3103)
   15539   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2917) * lu(k,3103)
   15540   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2918) * lu(k,3103)
   15541   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2919) * lu(k,3103)
   15542   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2920) * lu(k,3103)
   15543   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2921) * lu(k,3103)
   15544   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2922) * lu(k,3103)
   15545   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2923) * lu(k,3103)
   15546   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2924) * lu(k,3103)
   15547   254840160 :          lu(k,3117) = lu(k,3117) - lu(k,2925) * lu(k,3103)
   15548   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2926) * lu(k,3103)
   15549   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2927) * lu(k,3103)
   15550   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2928) * lu(k,3103)
   15551   254840160 :          lu(k,3363) = lu(k,3363) - lu(k,2914) * lu(k,3362)
   15552   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2915) * lu(k,3362)
   15553   254840160 :          lu(k,3365) = lu(k,3365) - lu(k,2916) * lu(k,3362)
   15554   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2917) * lu(k,3362)
   15555   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2918) * lu(k,3362)
   15556   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2919) * lu(k,3362)
   15557   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2920) * lu(k,3362)
   15558   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2921) * lu(k,3362)
   15559   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2922) * lu(k,3362)
   15560   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2923) * lu(k,3362)
   15561   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2924) * lu(k,3362)
   15562   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,2925) * lu(k,3362)
   15563   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2926) * lu(k,3362)
   15564   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2927) * lu(k,3362)
   15565   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2928) * lu(k,3362)
   15566   254840160 :          lu(k,3456) = lu(k,3456) - lu(k,2914) * lu(k,3455)
   15567   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2915) * lu(k,3455)
   15568   254840160 :          lu(k,3458) = lu(k,3458) - lu(k,2916) * lu(k,3455)
   15569   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2917) * lu(k,3455)
   15570   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2918) * lu(k,3455)
   15571   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2919) * lu(k,3455)
   15572   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2920) * lu(k,3455)
   15573   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2921) * lu(k,3455)
   15574   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2922) * lu(k,3455)
   15575   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2923) * lu(k,3455)
   15576   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2924) * lu(k,3455)
   15577   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,2925) * lu(k,3455)
   15578   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2926) * lu(k,3455)
   15579   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2927) * lu(k,3455)
   15580   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2928) * lu(k,3455)
   15581   254840160 :          lu(k,3600) = lu(k,3600) - lu(k,2914) * lu(k,3599)
   15582   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2915) * lu(k,3599)
   15583   254840160 :          lu(k,3602) = lu(k,3602) - lu(k,2916) * lu(k,3599)
   15584   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2917) * lu(k,3599)
   15585   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2918) * lu(k,3599)
   15586   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2919) * lu(k,3599)
   15587   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2920) * lu(k,3599)
   15588   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2921) * lu(k,3599)
   15589   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2922) * lu(k,3599)
   15590   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2923) * lu(k,3599)
   15591   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2924) * lu(k,3599)
   15592   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,2925) * lu(k,3599)
   15593   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2926) * lu(k,3599)
   15594   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2927) * lu(k,3599)
   15595   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2928) * lu(k,3599)
   15596   254840160 :          lu(k,3652) = lu(k,3652) - lu(k,2914) * lu(k,3651)
   15597   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2915) * lu(k,3651)
   15598   254840160 :          lu(k,3654) = lu(k,3654) - lu(k,2916) * lu(k,3651)
   15599   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,2917) * lu(k,3651)
   15600   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2918) * lu(k,3651)
   15601   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2919) * lu(k,3651)
   15602   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2920) * lu(k,3651)
   15603   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2921) * lu(k,3651)
   15604   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2922) * lu(k,3651)
   15605   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2923) * lu(k,3651)
   15606   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2924) * lu(k,3651)
   15607   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,2925) * lu(k,3651)
   15608   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,2926) * lu(k,3651)
   15609   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2927) * lu(k,3651)
   15610   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2928) * lu(k,3651)
   15611   254840160 :          lu(k,3754) = lu(k,3754) - lu(k,2914) * lu(k,3753)
   15612   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2915) * lu(k,3753)
   15613   254840160 :          lu(k,3756) = lu(k,3756) - lu(k,2916) * lu(k,3753)
   15614   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2917) * lu(k,3753)
   15615   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2918) * lu(k,3753)
   15616   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2919) * lu(k,3753)
   15617   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2920) * lu(k,3753)
   15618   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2921) * lu(k,3753)
   15619   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2922) * lu(k,3753)
   15620   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2923) * lu(k,3753)
   15621   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2924) * lu(k,3753)
   15622   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,2925) * lu(k,3753)
   15623   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2926) * lu(k,3753)
   15624   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2927) * lu(k,3753)
   15625   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2928) * lu(k,3753)
   15626   254840160 :          lu(k,3836) = lu(k,3836) - lu(k,2914) * lu(k,3835)
   15627   254840160 :          lu(k,3837) = lu(k,3837) - lu(k,2915) * lu(k,3835)
   15628   254840160 :          lu(k,3838) = lu(k,3838) - lu(k,2916) * lu(k,3835)
   15629   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,2917) * lu(k,3835)
   15630   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,2918) * lu(k,3835)
   15631   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,2919) * lu(k,3835)
   15632   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,2920) * lu(k,3835)
   15633   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,2921) * lu(k,3835)
   15634   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,2922) * lu(k,3835)
   15635   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,2923) * lu(k,3835)
   15636   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,2924) * lu(k,3835)
   15637   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,2925) * lu(k,3835)
   15638   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,2926) * lu(k,3835)
   15639   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,2927) * lu(k,3835)
   15640   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,2928) * lu(k,3835)
   15641   254840160 :          lu(k,4086) = lu(k,4086) - lu(k,2914) * lu(k,4085)
   15642   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2915) * lu(k,4085)
   15643   254840160 :          lu(k,4088) = lu(k,4088) - lu(k,2916) * lu(k,4085)
   15644   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2917) * lu(k,4085)
   15645   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2918) * lu(k,4085)
   15646   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2919) * lu(k,4085)
   15647   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2920) * lu(k,4085)
   15648   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2921) * lu(k,4085)
   15649   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2922) * lu(k,4085)
   15650   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2923) * lu(k,4085)
   15651   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2924) * lu(k,4085)
   15652   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,2925) * lu(k,4085)
   15653   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2926) * lu(k,4085)
   15654   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2927) * lu(k,4085)
   15655   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2928) * lu(k,4085)
   15656   254840160 :          lu(k,2931) = 1._r8 / lu(k,2931)
   15657   254840160 :          lu(k,2932) = lu(k,2932) * lu(k,2931)
   15658   254840160 :          lu(k,2933) = lu(k,2933) * lu(k,2931)
   15659   254840160 :          lu(k,2934) = lu(k,2934) * lu(k,2931)
   15660   254840160 :          lu(k,2935) = lu(k,2935) * lu(k,2931)
   15661   254840160 :          lu(k,2936) = lu(k,2936) * lu(k,2931)
   15662   254840160 :          lu(k,2937) = lu(k,2937) * lu(k,2931)
   15663   254840160 :          lu(k,2938) = lu(k,2938) * lu(k,2931)
   15664   254840160 :          lu(k,2939) = lu(k,2939) * lu(k,2931)
   15665   254840160 :          lu(k,2940) = lu(k,2940) * lu(k,2931)
   15666   254840160 :          lu(k,2941) = lu(k,2941) * lu(k,2931)
   15667   254840160 :          lu(k,2942) = lu(k,2942) * lu(k,2931)
   15668   254840160 :          lu(k,2943) = lu(k,2943) * lu(k,2931)
   15669   254840160 :          lu(k,2949) = lu(k,2949) - lu(k,2932) * lu(k,2948)
   15670   254840160 :          lu(k,2950) = lu(k,2950) - lu(k,2933) * lu(k,2948)
   15671   254840160 :          lu(k,2951) = lu(k,2951) - lu(k,2934) * lu(k,2948)
   15672   254840160 :          lu(k,2952) = lu(k,2952) - lu(k,2935) * lu(k,2948)
   15673   254840160 :          lu(k,2953) = lu(k,2953) - lu(k,2936) * lu(k,2948)
   15674   254840160 :          lu(k,2954) = lu(k,2954) - lu(k,2937) * lu(k,2948)
   15675   254840160 :          lu(k,2955) = lu(k,2955) - lu(k,2938) * lu(k,2948)
   15676   254840160 :          lu(k,2957) = - lu(k,2939) * lu(k,2948)
   15677   254840160 :          lu(k,2958) = lu(k,2958) - lu(k,2940) * lu(k,2948)
   15678   254840160 :          lu(k,2959) = lu(k,2959) - lu(k,2941) * lu(k,2948)
   15679   254840160 :          lu(k,2960) = lu(k,2960) - lu(k,2942) * lu(k,2948)
   15680   254840160 :          lu(k,2961) = lu(k,2961) - lu(k,2943) * lu(k,2948)
   15681   254840160 :          lu(k,3105) = lu(k,3105) - lu(k,2932) * lu(k,3104)
   15682   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2933) * lu(k,3104)
   15683   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2934) * lu(k,3104)
   15684   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2935) * lu(k,3104)
   15685   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2936) * lu(k,3104)
   15686   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2937) * lu(k,3104)
   15687   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2938) * lu(k,3104)
   15688   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2939) * lu(k,3104)
   15689   254840160 :          lu(k,3117) = lu(k,3117) - lu(k,2940) * lu(k,3104)
   15690   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2941) * lu(k,3104)
   15691   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2942) * lu(k,3104)
   15692   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2943) * lu(k,3104)
   15693   254840160 :          lu(k,3128) = lu(k,3128) - lu(k,2932) * lu(k,3127)
   15694   254840160 :          lu(k,3129) = lu(k,3129) - lu(k,2933) * lu(k,3127)
   15695   254840160 :          lu(k,3130) = lu(k,3130) - lu(k,2934) * lu(k,3127)
   15696   254840160 :          lu(k,3131) = lu(k,3131) - lu(k,2935) * lu(k,3127)
   15697   254840160 :          lu(k,3132) = lu(k,3132) - lu(k,2936) * lu(k,3127)
   15698   254840160 :          lu(k,3133) = - lu(k,2937) * lu(k,3127)
   15699   254840160 :          lu(k,3136) = lu(k,3136) - lu(k,2938) * lu(k,3127)
   15700   254840160 :          lu(k,3138) = lu(k,3138) - lu(k,2939) * lu(k,3127)
   15701   254840160 :          lu(k,3139) = lu(k,3139) - lu(k,2940) * lu(k,3127)
   15702   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,2941) * lu(k,3127)
   15703   254840160 :          lu(k,3141) = lu(k,3141) - lu(k,2942) * lu(k,3127)
   15704   254840160 :          lu(k,3142) = lu(k,3142) - lu(k,2943) * lu(k,3127)
   15705   254840160 :          lu(k,3158) = lu(k,3158) - lu(k,2932) * lu(k,3157)
   15706   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,2933) * lu(k,3157)
   15707   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,2934) * lu(k,3157)
   15708   254840160 :          lu(k,3162) = lu(k,3162) - lu(k,2935) * lu(k,3157)
   15709   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,2936) * lu(k,3157)
   15710   254840160 :          lu(k,3164) = lu(k,3164) - lu(k,2937) * lu(k,3157)
   15711   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,2938) * lu(k,3157)
   15712   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,2939) * lu(k,3157)
   15713   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,2940) * lu(k,3157)
   15714   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,2941) * lu(k,3157)
   15715   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,2942) * lu(k,3157)
   15716   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,2943) * lu(k,3157)
   15717   254840160 :          lu(k,3184) = lu(k,3184) - lu(k,2932) * lu(k,3183)
   15718   254840160 :          lu(k,3186) = lu(k,3186) - lu(k,2933) * lu(k,3183)
   15719   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,2934) * lu(k,3183)
   15720   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,2935) * lu(k,3183)
   15721   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,2936) * lu(k,3183)
   15722   254840160 :          lu(k,3190) = lu(k,3190) - lu(k,2937) * lu(k,3183)
   15723   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,2938) * lu(k,3183)
   15724   254840160 :          lu(k,3195) = lu(k,3195) - lu(k,2939) * lu(k,3183)
   15725   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,2940) * lu(k,3183)
   15726   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,2941) * lu(k,3183)
   15727   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,2942) * lu(k,3183)
   15728   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,2943) * lu(k,3183)
   15729   254840160 :          lu(k,3364) = lu(k,3364) - lu(k,2932) * lu(k,3363)
   15730   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2933) * lu(k,3363)
   15731   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2934) * lu(k,3363)
   15732   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2935) * lu(k,3363)
   15733   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2936) * lu(k,3363)
   15734   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2937) * lu(k,3363)
   15735   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2938) * lu(k,3363)
   15736   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2939) * lu(k,3363)
   15737   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,2940) * lu(k,3363)
   15738   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2941) * lu(k,3363)
   15739   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2942) * lu(k,3363)
   15740   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2943) * lu(k,3363)
   15741   254840160 :          lu(k,3457) = lu(k,3457) - lu(k,2932) * lu(k,3456)
   15742   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2933) * lu(k,3456)
   15743   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2934) * lu(k,3456)
   15744   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2935) * lu(k,3456)
   15745   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2936) * lu(k,3456)
   15746   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2937) * lu(k,3456)
   15747   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2938) * lu(k,3456)
   15748   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2939) * lu(k,3456)
   15749   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,2940) * lu(k,3456)
   15750   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2941) * lu(k,3456)
   15751   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2942) * lu(k,3456)
   15752   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2943) * lu(k,3456)
   15753   254840160 :          lu(k,3481) = lu(k,3481) - lu(k,2932) * lu(k,3480)
   15754   254840160 :          lu(k,3483) = lu(k,3483) - lu(k,2933) * lu(k,3480)
   15755   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,2934) * lu(k,3480)
   15756   254840160 :          lu(k,3485) = lu(k,3485) - lu(k,2935) * lu(k,3480)
   15757   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,2936) * lu(k,3480)
   15758   254840160 :          lu(k,3487) = - lu(k,2937) * lu(k,3480)
   15759   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,2938) * lu(k,3480)
   15760   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,2939) * lu(k,3480)
   15761   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,2940) * lu(k,3480)
   15762   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,2941) * lu(k,3480)
   15763   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,2942) * lu(k,3480)
   15764   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,2943) * lu(k,3480)
   15765   254840160 :          lu(k,3507) = lu(k,3507) - lu(k,2932) * lu(k,3506)
   15766   254840160 :          lu(k,3509) = lu(k,3509) - lu(k,2933) * lu(k,3506)
   15767   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,2934) * lu(k,3506)
   15768   254840160 :          lu(k,3511) = lu(k,3511) - lu(k,2935) * lu(k,3506)
   15769   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,2936) * lu(k,3506)
   15770   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,2937) * lu(k,3506)
   15771   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,2938) * lu(k,3506)
   15772   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,2939) * lu(k,3506)
   15773   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,2940) * lu(k,3506)
   15774   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,2941) * lu(k,3506)
   15775   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,2942) * lu(k,3506)
   15776   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,2943) * lu(k,3506)
   15777   254840160 :          lu(k,3601) = lu(k,3601) - lu(k,2932) * lu(k,3600)
   15778   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2933) * lu(k,3600)
   15779   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2934) * lu(k,3600)
   15780   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2935) * lu(k,3600)
   15781   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2936) * lu(k,3600)
   15782   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2937) * lu(k,3600)
   15783   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2938) * lu(k,3600)
   15784   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2939) * lu(k,3600)
   15785   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,2940) * lu(k,3600)
   15786   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2941) * lu(k,3600)
   15787   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2942) * lu(k,3600)
   15788   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2943) * lu(k,3600)
   15789   254840160 :          lu(k,3653) = lu(k,3653) - lu(k,2932) * lu(k,3652)
   15790   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,2933) * lu(k,3652)
   15791   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2934) * lu(k,3652)
   15792   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2935) * lu(k,3652)
   15793   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2936) * lu(k,3652)
   15794   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2937) * lu(k,3652)
   15795   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2938) * lu(k,3652)
   15796   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2939) * lu(k,3652)
   15797   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,2940) * lu(k,3652)
   15798   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,2941) * lu(k,3652)
   15799   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2942) * lu(k,3652)
   15800   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2943) * lu(k,3652)
   15801   254840160 :          lu(k,3755) = lu(k,3755) - lu(k,2932) * lu(k,3754)
   15802   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2933) * lu(k,3754)
   15803   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2934) * lu(k,3754)
   15804   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2935) * lu(k,3754)
   15805   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2936) * lu(k,3754)
   15806   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2937) * lu(k,3754)
   15807   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2938) * lu(k,3754)
   15808   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2939) * lu(k,3754)
   15809   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,2940) * lu(k,3754)
   15810   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2941) * lu(k,3754)
   15811   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2942) * lu(k,3754)
   15812   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2943) * lu(k,3754)
   15813   254840160 :          lu(k,3796) = lu(k,3796) - lu(k,2932) * lu(k,3795)
   15814   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,2933) * lu(k,3795)
   15815   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,2934) * lu(k,3795)
   15816   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,2935) * lu(k,3795)
   15817   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,2936) * lu(k,3795)
   15818   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,2937) * lu(k,3795)
   15819   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,2938) * lu(k,3795)
   15820   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,2939) * lu(k,3795)
   15821   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,2940) * lu(k,3795)
   15822   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,2941) * lu(k,3795)
   15823   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,2942) * lu(k,3795)
   15824   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,2943) * lu(k,3795)
   15825   254840160 :          lu(k,3837) = lu(k,3837) - lu(k,2932) * lu(k,3836)
   15826   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,2933) * lu(k,3836)
   15827   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,2934) * lu(k,3836)
   15828   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,2935) * lu(k,3836)
   15829   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,2936) * lu(k,3836)
   15830   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,2937) * lu(k,3836)
   15831   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,2938) * lu(k,3836)
   15832   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,2939) * lu(k,3836)
   15833   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,2940) * lu(k,3836)
   15834   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,2941) * lu(k,3836)
   15835   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,2942) * lu(k,3836)
   15836   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,2943) * lu(k,3836)
   15837   254840160 :          lu(k,4087) = lu(k,4087) - lu(k,2932) * lu(k,4086)
   15838   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2933) * lu(k,4086)
   15839   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2934) * lu(k,4086)
   15840   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2935) * lu(k,4086)
   15841   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2936) * lu(k,4086)
   15842   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2937) * lu(k,4086)
   15843   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2938) * lu(k,4086)
   15844   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2939) * lu(k,4086)
   15845   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,2940) * lu(k,4086)
   15846   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2941) * lu(k,4086)
   15847   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2942) * lu(k,4086)
   15848   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2943) * lu(k,4086)
   15849   254840160 :          lu(k,4113) = lu(k,4113) - lu(k,2932) * lu(k,4112)
   15850   254840160 :          lu(k,4115) = lu(k,4115) - lu(k,2933) * lu(k,4112)
   15851   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,2934) * lu(k,4112)
   15852   254840160 :          lu(k,4117) = lu(k,4117) - lu(k,2935) * lu(k,4112)
   15853   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,2936) * lu(k,4112)
   15854   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,2937) * lu(k,4112)
   15855   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,2938) * lu(k,4112)
   15856   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,2939) * lu(k,4112)
   15857   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,2940) * lu(k,4112)
   15858   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,2941) * lu(k,4112)
   15859   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,2942) * lu(k,4112)
   15860   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,2943) * lu(k,4112)
   15861   254840160 :          lu(k,2949) = 1._r8 / lu(k,2949)
   15862   254840160 :          lu(k,2950) = lu(k,2950) * lu(k,2949)
   15863   254840160 :          lu(k,2951) = lu(k,2951) * lu(k,2949)
   15864   254840160 :          lu(k,2952) = lu(k,2952) * lu(k,2949)
   15865   254840160 :          lu(k,2953) = lu(k,2953) * lu(k,2949)
   15866   254840160 :          lu(k,2954) = lu(k,2954) * lu(k,2949)
   15867   254840160 :          lu(k,2955) = lu(k,2955) * lu(k,2949)
   15868   254840160 :          lu(k,2956) = lu(k,2956) * lu(k,2949)
   15869   254840160 :          lu(k,2957) = lu(k,2957) * lu(k,2949)
   15870   254840160 :          lu(k,2958) = lu(k,2958) * lu(k,2949)
   15871   254840160 :          lu(k,2959) = lu(k,2959) * lu(k,2949)
   15872   254840160 :          lu(k,2960) = lu(k,2960) * lu(k,2949)
   15873   254840160 :          lu(k,2961) = lu(k,2961) * lu(k,2949)
   15874   254840160 :          lu(k,3107) = lu(k,3107) - lu(k,2950) * lu(k,3105)
   15875   254840160 :          lu(k,3108) = lu(k,3108) - lu(k,2951) * lu(k,3105)
   15876   254840160 :          lu(k,3109) = lu(k,3109) - lu(k,2952) * lu(k,3105)
   15877   254840160 :          lu(k,3110) = lu(k,3110) - lu(k,2953) * lu(k,3105)
   15878   254840160 :          lu(k,3111) = lu(k,3111) - lu(k,2954) * lu(k,3105)
   15879   254840160 :          lu(k,3114) = lu(k,3114) - lu(k,2955) * lu(k,3105)
   15880   254840160 :          lu(k,3115) = lu(k,3115) - lu(k,2956) * lu(k,3105)
   15881   254840160 :          lu(k,3116) = lu(k,3116) - lu(k,2957) * lu(k,3105)
   15882   254840160 :          lu(k,3117) = lu(k,3117) - lu(k,2958) * lu(k,3105)
   15883   254840160 :          lu(k,3118) = lu(k,3118) - lu(k,2959) * lu(k,3105)
   15884   254840160 :          lu(k,3119) = lu(k,3119) - lu(k,2960) * lu(k,3105)
   15885   254840160 :          lu(k,3120) = lu(k,3120) - lu(k,2961) * lu(k,3105)
   15886   254840160 :          lu(k,3129) = lu(k,3129) - lu(k,2950) * lu(k,3128)
   15887   254840160 :          lu(k,3130) = lu(k,3130) - lu(k,2951) * lu(k,3128)
   15888   254840160 :          lu(k,3131) = lu(k,3131) - lu(k,2952) * lu(k,3128)
   15889   254840160 :          lu(k,3132) = lu(k,3132) - lu(k,2953) * lu(k,3128)
   15890   254840160 :          lu(k,3133) = lu(k,3133) - lu(k,2954) * lu(k,3128)
   15891   254840160 :          lu(k,3136) = lu(k,3136) - lu(k,2955) * lu(k,3128)
   15892   254840160 :          lu(k,3137) = lu(k,3137) - lu(k,2956) * lu(k,3128)
   15893   254840160 :          lu(k,3138) = lu(k,3138) - lu(k,2957) * lu(k,3128)
   15894   254840160 :          lu(k,3139) = lu(k,3139) - lu(k,2958) * lu(k,3128)
   15895   254840160 :          lu(k,3140) = lu(k,3140) - lu(k,2959) * lu(k,3128)
   15896   254840160 :          lu(k,3141) = lu(k,3141) - lu(k,2960) * lu(k,3128)
   15897   254840160 :          lu(k,3142) = lu(k,3142) - lu(k,2961) * lu(k,3128)
   15898   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,2950) * lu(k,3158)
   15899   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,2951) * lu(k,3158)
   15900   254840160 :          lu(k,3162) = lu(k,3162) - lu(k,2952) * lu(k,3158)
   15901   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,2953) * lu(k,3158)
   15902   254840160 :          lu(k,3164) = lu(k,3164) - lu(k,2954) * lu(k,3158)
   15903   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,2955) * lu(k,3158)
   15904   254840160 :          lu(k,3168) = lu(k,3168) - lu(k,2956) * lu(k,3158)
   15905   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,2957) * lu(k,3158)
   15906   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,2958) * lu(k,3158)
   15907   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,2959) * lu(k,3158)
   15908   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,2960) * lu(k,3158)
   15909   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,2961) * lu(k,3158)
   15910   254840160 :          lu(k,3186) = lu(k,3186) - lu(k,2950) * lu(k,3184)
   15911   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,2951) * lu(k,3184)
   15912   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,2952) * lu(k,3184)
   15913   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,2953) * lu(k,3184)
   15914   254840160 :          lu(k,3190) = lu(k,3190) - lu(k,2954) * lu(k,3184)
   15915   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,2955) * lu(k,3184)
   15916   254840160 :          lu(k,3194) = lu(k,3194) - lu(k,2956) * lu(k,3184)
   15917   254840160 :          lu(k,3195) = lu(k,3195) - lu(k,2957) * lu(k,3184)
   15918   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,2958) * lu(k,3184)
   15919   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,2959) * lu(k,3184)
   15920   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,2960) * lu(k,3184)
   15921   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,2961) * lu(k,3184)
   15922   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,2950) * lu(k,3364)
   15923   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,2951) * lu(k,3364)
   15924   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,2952) * lu(k,3364)
   15925   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,2953) * lu(k,3364)
   15926   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,2954) * lu(k,3364)
   15927   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,2955) * lu(k,3364)
   15928   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,2956) * lu(k,3364)
   15929   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,2957) * lu(k,3364)
   15930   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,2958) * lu(k,3364)
   15931   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,2959) * lu(k,3364)
   15932   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,2960) * lu(k,3364)
   15933   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,2961) * lu(k,3364)
   15934   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,2950) * lu(k,3457)
   15935   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,2951) * lu(k,3457)
   15936   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,2952) * lu(k,3457)
   15937   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,2953) * lu(k,3457)
   15938   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,2954) * lu(k,3457)
   15939   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,2955) * lu(k,3457)
   15940   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,2956) * lu(k,3457)
   15941   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,2957) * lu(k,3457)
   15942   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,2958) * lu(k,3457)
   15943   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,2959) * lu(k,3457)
   15944   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,2960) * lu(k,3457)
   15945   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,2961) * lu(k,3457)
   15946   254840160 :          lu(k,3483) = lu(k,3483) - lu(k,2950) * lu(k,3481)
   15947   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,2951) * lu(k,3481)
   15948   254840160 :          lu(k,3485) = lu(k,3485) - lu(k,2952) * lu(k,3481)
   15949   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,2953) * lu(k,3481)
   15950   254840160 :          lu(k,3487) = lu(k,3487) - lu(k,2954) * lu(k,3481)
   15951   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,2955) * lu(k,3481)
   15952   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,2956) * lu(k,3481)
   15953   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,2957) * lu(k,3481)
   15954   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,2958) * lu(k,3481)
   15955   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,2959) * lu(k,3481)
   15956   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,2960) * lu(k,3481)
   15957   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,2961) * lu(k,3481)
   15958   254840160 :          lu(k,3509) = lu(k,3509) - lu(k,2950) * lu(k,3507)
   15959   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,2951) * lu(k,3507)
   15960   254840160 :          lu(k,3511) = lu(k,3511) - lu(k,2952) * lu(k,3507)
   15961   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,2953) * lu(k,3507)
   15962   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,2954) * lu(k,3507)
   15963   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,2955) * lu(k,3507)
   15964   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,2956) * lu(k,3507)
   15965   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,2957) * lu(k,3507)
   15966   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,2958) * lu(k,3507)
   15967   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,2959) * lu(k,3507)
   15968   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,2960) * lu(k,3507)
   15969   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,2961) * lu(k,3507)
   15970   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,2950) * lu(k,3601)
   15971   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,2951) * lu(k,3601)
   15972   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,2952) * lu(k,3601)
   15973   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,2953) * lu(k,3601)
   15974   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,2954) * lu(k,3601)
   15975   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,2955) * lu(k,3601)
   15976   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,2956) * lu(k,3601)
   15977   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,2957) * lu(k,3601)
   15978   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,2958) * lu(k,3601)
   15979   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,2959) * lu(k,3601)
   15980   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,2960) * lu(k,3601)
   15981   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,2961) * lu(k,3601)
   15982   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,2950) * lu(k,3653)
   15983   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,2951) * lu(k,3653)
   15984   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,2952) * lu(k,3653)
   15985   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,2953) * lu(k,3653)
   15986   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,2954) * lu(k,3653)
   15987   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,2955) * lu(k,3653)
   15988   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,2956) * lu(k,3653)
   15989   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,2957) * lu(k,3653)
   15990   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,2958) * lu(k,3653)
   15991   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,2959) * lu(k,3653)
   15992   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,2960) * lu(k,3653)
   15993   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,2961) * lu(k,3653)
   15994   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,2950) * lu(k,3755)
   15995   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,2951) * lu(k,3755)
   15996   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,2952) * lu(k,3755)
   15997   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,2953) * lu(k,3755)
   15998   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,2954) * lu(k,3755)
   15999   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,2955) * lu(k,3755)
   16000   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,2956) * lu(k,3755)
   16001   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,2957) * lu(k,3755)
   16002   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,2958) * lu(k,3755)
   16003   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,2959) * lu(k,3755)
   16004   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,2960) * lu(k,3755)
   16005   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,2961) * lu(k,3755)
   16006   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,2950) * lu(k,3796)
   16007   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,2951) * lu(k,3796)
   16008   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,2952) * lu(k,3796)
   16009   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,2953) * lu(k,3796)
   16010   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,2954) * lu(k,3796)
   16011   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,2955) * lu(k,3796)
   16012   254840160 :          lu(k,3806) = - lu(k,2956) * lu(k,3796)
   16013   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,2957) * lu(k,3796)
   16014   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,2958) * lu(k,3796)
   16015   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,2959) * lu(k,3796)
   16016   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,2960) * lu(k,3796)
   16017   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,2961) * lu(k,3796)
   16018   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,2950) * lu(k,3837)
   16019   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,2951) * lu(k,3837)
   16020   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,2952) * lu(k,3837)
   16021   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,2953) * lu(k,3837)
   16022   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,2954) * lu(k,3837)
   16023   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,2955) * lu(k,3837)
   16024   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,2956) * lu(k,3837)
   16025   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,2957) * lu(k,3837)
   16026   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,2958) * lu(k,3837)
   16027   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,2959) * lu(k,3837)
   16028   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,2960) * lu(k,3837)
   16029   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,2961) * lu(k,3837)
   16030   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,2950) * lu(k,4087)
   16031   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,2951) * lu(k,4087)
   16032   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,2952) * lu(k,4087)
   16033   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,2953) * lu(k,4087)
   16034   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,2954) * lu(k,4087)
   16035   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,2955) * lu(k,4087)
   16036   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,2956) * lu(k,4087)
   16037   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,2957) * lu(k,4087)
   16038   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,2958) * lu(k,4087)
   16039   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,2959) * lu(k,4087)
   16040   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,2960) * lu(k,4087)
   16041   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,2961) * lu(k,4087)
   16042   254840160 :          lu(k,4115) = lu(k,4115) - lu(k,2950) * lu(k,4113)
   16043   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,2951) * lu(k,4113)
   16044   254840160 :          lu(k,4117) = lu(k,4117) - lu(k,2952) * lu(k,4113)
   16045   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,2953) * lu(k,4113)
   16046   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,2954) * lu(k,4113)
   16047   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,2955) * lu(k,4113)
   16048   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,2956) * lu(k,4113)
   16049   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,2957) * lu(k,4113)
   16050   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,2958) * lu(k,4113)
   16051   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,2959) * lu(k,4113)
   16052   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,2960) * lu(k,4113)
   16053   263009123 :          lu(k,4128) = lu(k,4128) - lu(k,2961) * lu(k,4113)
   16054             :       end do
   16055     8168963 :       end subroutine lu_fac52
   16056     8168963 :       subroutine lu_fac53( avec_len, lu )
   16057             :       use chem_mods, only : nzcnt
   16058             :       use shr_kind_mod, only : r8 => shr_kind_r8
   16059             :       implicit none
   16060             : !-----------------------------------------------------------------------
   16061             : ! ... dummy args
   16062             : !-----------------------------------------------------------------------
   16063             :       integer, intent(in) :: avec_len
   16064             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   16065             : !-----------------------------------------------------------------------
   16066             : ! ... local variables
   16067             : !-----------------------------------------------------------------------
   16068             :       integer :: k
   16069   263009123 :       do k = 1,avec_len
   16070   254840160 :          lu(k,3106) = 1._r8 / lu(k,3106)
   16071   254840160 :          lu(k,3107) = lu(k,3107) * lu(k,3106)
   16072   254840160 :          lu(k,3108) = lu(k,3108) * lu(k,3106)
   16073   254840160 :          lu(k,3109) = lu(k,3109) * lu(k,3106)
   16074   254840160 :          lu(k,3110) = lu(k,3110) * lu(k,3106)
   16075   254840160 :          lu(k,3111) = lu(k,3111) * lu(k,3106)
   16076   254840160 :          lu(k,3112) = lu(k,3112) * lu(k,3106)
   16077   254840160 :          lu(k,3113) = lu(k,3113) * lu(k,3106)
   16078   254840160 :          lu(k,3114) = lu(k,3114) * lu(k,3106)
   16079   254840160 :          lu(k,3115) = lu(k,3115) * lu(k,3106)
   16080   254840160 :          lu(k,3116) = lu(k,3116) * lu(k,3106)
   16081   254840160 :          lu(k,3117) = lu(k,3117) * lu(k,3106)
   16082   254840160 :          lu(k,3118) = lu(k,3118) * lu(k,3106)
   16083   254840160 :          lu(k,3119) = lu(k,3119) * lu(k,3106)
   16084   254840160 :          lu(k,3120) = lu(k,3120) * lu(k,3106)
   16085   254840160 :          lu(k,3160) = lu(k,3160) - lu(k,3107) * lu(k,3159)
   16086   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,3108) * lu(k,3159)
   16087   254840160 :          lu(k,3162) = lu(k,3162) - lu(k,3109) * lu(k,3159)
   16088   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,3110) * lu(k,3159)
   16089   254840160 :          lu(k,3164) = lu(k,3164) - lu(k,3111) * lu(k,3159)
   16090   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,3112) * lu(k,3159)
   16091   254840160 :          lu(k,3166) = lu(k,3166) - lu(k,3113) * lu(k,3159)
   16092   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,3114) * lu(k,3159)
   16093   254840160 :          lu(k,3168) = lu(k,3168) - lu(k,3115) * lu(k,3159)
   16094   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,3116) * lu(k,3159)
   16095   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,3117) * lu(k,3159)
   16096   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,3118) * lu(k,3159)
   16097   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,3119) * lu(k,3159)
   16098   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,3120) * lu(k,3159)
   16099   254840160 :          lu(k,3186) = lu(k,3186) - lu(k,3107) * lu(k,3185)
   16100   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,3108) * lu(k,3185)
   16101   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,3109) * lu(k,3185)
   16102   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,3110) * lu(k,3185)
   16103   254840160 :          lu(k,3190) = lu(k,3190) - lu(k,3111) * lu(k,3185)
   16104   254840160 :          lu(k,3191) = lu(k,3191) - lu(k,3112) * lu(k,3185)
   16105   254840160 :          lu(k,3192) = - lu(k,3113) * lu(k,3185)
   16106   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,3114) * lu(k,3185)
   16107   254840160 :          lu(k,3194) = lu(k,3194) - lu(k,3115) * lu(k,3185)
   16108   254840160 :          lu(k,3195) = lu(k,3195) - lu(k,3116) * lu(k,3185)
   16109   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,3117) * lu(k,3185)
   16110   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,3118) * lu(k,3185)
   16111   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,3119) * lu(k,3185)
   16112   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,3120) * lu(k,3185)
   16113   254840160 :          lu(k,3366) = lu(k,3366) - lu(k,3107) * lu(k,3365)
   16114   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,3108) * lu(k,3365)
   16115   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,3109) * lu(k,3365)
   16116   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,3110) * lu(k,3365)
   16117   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,3111) * lu(k,3365)
   16118   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,3112) * lu(k,3365)
   16119   254840160 :          lu(k,3372) = lu(k,3372) - lu(k,3113) * lu(k,3365)
   16120   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,3114) * lu(k,3365)
   16121   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,3115) * lu(k,3365)
   16122   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,3116) * lu(k,3365)
   16123   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,3117) * lu(k,3365)
   16124   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,3118) * lu(k,3365)
   16125   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,3119) * lu(k,3365)
   16126   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,3120) * lu(k,3365)
   16127   254840160 :          lu(k,3459) = lu(k,3459) - lu(k,3107) * lu(k,3458)
   16128   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,3108) * lu(k,3458)
   16129   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,3109) * lu(k,3458)
   16130   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,3110) * lu(k,3458)
   16131   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,3111) * lu(k,3458)
   16132   254840160 :          lu(k,3464) = - lu(k,3112) * lu(k,3458)
   16133   254840160 :          lu(k,3465) = lu(k,3465) - lu(k,3113) * lu(k,3458)
   16134   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,3114) * lu(k,3458)
   16135   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,3115) * lu(k,3458)
   16136   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,3116) * lu(k,3458)
   16137   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,3117) * lu(k,3458)
   16138   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,3118) * lu(k,3458)
   16139   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,3119) * lu(k,3458)
   16140   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,3120) * lu(k,3458)
   16141   254840160 :          lu(k,3483) = lu(k,3483) - lu(k,3107) * lu(k,3482)
   16142   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,3108) * lu(k,3482)
   16143   254840160 :          lu(k,3485) = lu(k,3485) - lu(k,3109) * lu(k,3482)
   16144   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,3110) * lu(k,3482)
   16145   254840160 :          lu(k,3487) = lu(k,3487) - lu(k,3111) * lu(k,3482)
   16146   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,3112) * lu(k,3482)
   16147   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,3113) * lu(k,3482)
   16148   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,3114) * lu(k,3482)
   16149   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,3115) * lu(k,3482)
   16150   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,3116) * lu(k,3482)
   16151   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,3117) * lu(k,3482)
   16152   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,3118) * lu(k,3482)
   16153   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,3119) * lu(k,3482)
   16154   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,3120) * lu(k,3482)
   16155   254840160 :          lu(k,3509) = lu(k,3509) - lu(k,3107) * lu(k,3508)
   16156   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,3108) * lu(k,3508)
   16157   254840160 :          lu(k,3511) = lu(k,3511) - lu(k,3109) * lu(k,3508)
   16158   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,3110) * lu(k,3508)
   16159   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,3111) * lu(k,3508)
   16160   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,3112) * lu(k,3508)
   16161   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3113) * lu(k,3508)
   16162   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3114) * lu(k,3508)
   16163   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3115) * lu(k,3508)
   16164   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3116) * lu(k,3508)
   16165   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3117) * lu(k,3508)
   16166   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3118) * lu(k,3508)
   16167   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3119) * lu(k,3508)
   16168   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3120) * lu(k,3508)
   16169   254840160 :          lu(k,3603) = lu(k,3603) - lu(k,3107) * lu(k,3602)
   16170   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,3108) * lu(k,3602)
   16171   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,3109) * lu(k,3602)
   16172   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,3110) * lu(k,3602)
   16173   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,3111) * lu(k,3602)
   16174   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,3112) * lu(k,3602)
   16175   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3113) * lu(k,3602)
   16176   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3114) * lu(k,3602)
   16177   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3115) * lu(k,3602)
   16178   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3116) * lu(k,3602)
   16179   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3117) * lu(k,3602)
   16180   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3118) * lu(k,3602)
   16181   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3119) * lu(k,3602)
   16182   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3120) * lu(k,3602)
   16183   254840160 :          lu(k,3655) = lu(k,3655) - lu(k,3107) * lu(k,3654)
   16184   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,3108) * lu(k,3654)
   16185   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,3109) * lu(k,3654)
   16186   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,3110) * lu(k,3654)
   16187   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,3111) * lu(k,3654)
   16188   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,3112) * lu(k,3654)
   16189   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3113) * lu(k,3654)
   16190   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3114) * lu(k,3654)
   16191   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3115) * lu(k,3654)
   16192   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3116) * lu(k,3654)
   16193   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3117) * lu(k,3654)
   16194   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3118) * lu(k,3654)
   16195   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3119) * lu(k,3654)
   16196   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3120) * lu(k,3654)
   16197   254840160 :          lu(k,3757) = lu(k,3757) - lu(k,3107) * lu(k,3756)
   16198   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,3108) * lu(k,3756)
   16199   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,3109) * lu(k,3756)
   16200   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,3110) * lu(k,3756)
   16201   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,3111) * lu(k,3756)
   16202   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,3112) * lu(k,3756)
   16203   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3113) * lu(k,3756)
   16204   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3114) * lu(k,3756)
   16205   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3115) * lu(k,3756)
   16206   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3116) * lu(k,3756)
   16207   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3117) * lu(k,3756)
   16208   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3118) * lu(k,3756)
   16209   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3119) * lu(k,3756)
   16210   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3120) * lu(k,3756)
   16211   254840160 :          lu(k,3798) = lu(k,3798) - lu(k,3107) * lu(k,3797)
   16212   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,3108) * lu(k,3797)
   16213   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,3109) * lu(k,3797)
   16214   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,3110) * lu(k,3797)
   16215   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,3111) * lu(k,3797)
   16216   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,3112) * lu(k,3797)
   16217   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3113) * lu(k,3797)
   16218   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3114) * lu(k,3797)
   16219   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3115) * lu(k,3797)
   16220   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3116) * lu(k,3797)
   16221   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3117) * lu(k,3797)
   16222   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3118) * lu(k,3797)
   16223   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3119) * lu(k,3797)
   16224   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3120) * lu(k,3797)
   16225   254840160 :          lu(k,3839) = lu(k,3839) - lu(k,3107) * lu(k,3838)
   16226   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,3108) * lu(k,3838)
   16227   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,3109) * lu(k,3838)
   16228   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,3110) * lu(k,3838)
   16229   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,3111) * lu(k,3838)
   16230   254840160 :          lu(k,3844) = lu(k,3844) - lu(k,3112) * lu(k,3838)
   16231   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3113) * lu(k,3838)
   16232   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3114) * lu(k,3838)
   16233   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3115) * lu(k,3838)
   16234   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3116) * lu(k,3838)
   16235   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3117) * lu(k,3838)
   16236   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3118) * lu(k,3838)
   16237   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3119) * lu(k,3838)
   16238   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3120) * lu(k,3838)
   16239   254840160 :          lu(k,4089) = lu(k,4089) - lu(k,3107) * lu(k,4088)
   16240   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,3108) * lu(k,4088)
   16241   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,3109) * lu(k,4088)
   16242   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,3110) * lu(k,4088)
   16243   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,3111) * lu(k,4088)
   16244   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,3112) * lu(k,4088)
   16245   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3113) * lu(k,4088)
   16246   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3114) * lu(k,4088)
   16247   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3115) * lu(k,4088)
   16248   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3116) * lu(k,4088)
   16249   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3117) * lu(k,4088)
   16250   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3118) * lu(k,4088)
   16251   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3119) * lu(k,4088)
   16252   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3120) * lu(k,4088)
   16253   254840160 :          lu(k,4115) = lu(k,4115) - lu(k,3107) * lu(k,4114)
   16254   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,3108) * lu(k,4114)
   16255   254840160 :          lu(k,4117) = lu(k,4117) - lu(k,3109) * lu(k,4114)
   16256   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,3110) * lu(k,4114)
   16257   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,3111) * lu(k,4114)
   16258   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,3112) * lu(k,4114)
   16259   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3113) * lu(k,4114)
   16260   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3114) * lu(k,4114)
   16261   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3115) * lu(k,4114)
   16262   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3116) * lu(k,4114)
   16263   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3117) * lu(k,4114)
   16264   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3118) * lu(k,4114)
   16265   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3119) * lu(k,4114)
   16266   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3120) * lu(k,4114)
   16267   254840160 :          lu(k,3129) = 1._r8 / lu(k,3129)
   16268   254840160 :          lu(k,3130) = lu(k,3130) * lu(k,3129)
   16269   254840160 :          lu(k,3131) = lu(k,3131) * lu(k,3129)
   16270   254840160 :          lu(k,3132) = lu(k,3132) * lu(k,3129)
   16271   254840160 :          lu(k,3133) = lu(k,3133) * lu(k,3129)
   16272   254840160 :          lu(k,3134) = lu(k,3134) * lu(k,3129)
   16273   254840160 :          lu(k,3135) = lu(k,3135) * lu(k,3129)
   16274   254840160 :          lu(k,3136) = lu(k,3136) * lu(k,3129)
   16275   254840160 :          lu(k,3137) = lu(k,3137) * lu(k,3129)
   16276   254840160 :          lu(k,3138) = lu(k,3138) * lu(k,3129)
   16277   254840160 :          lu(k,3139) = lu(k,3139) * lu(k,3129)
   16278   254840160 :          lu(k,3140) = lu(k,3140) * lu(k,3129)
   16279   254840160 :          lu(k,3141) = lu(k,3141) * lu(k,3129)
   16280   254840160 :          lu(k,3142) = lu(k,3142) * lu(k,3129)
   16281   254840160 :          lu(k,3161) = lu(k,3161) - lu(k,3130) * lu(k,3160)
   16282   254840160 :          lu(k,3162) = lu(k,3162) - lu(k,3131) * lu(k,3160)
   16283   254840160 :          lu(k,3163) = lu(k,3163) - lu(k,3132) * lu(k,3160)
   16284   254840160 :          lu(k,3164) = lu(k,3164) - lu(k,3133) * lu(k,3160)
   16285   254840160 :          lu(k,3165) = lu(k,3165) - lu(k,3134) * lu(k,3160)
   16286   254840160 :          lu(k,3166) = lu(k,3166) - lu(k,3135) * lu(k,3160)
   16287   254840160 :          lu(k,3167) = lu(k,3167) - lu(k,3136) * lu(k,3160)
   16288   254840160 :          lu(k,3168) = lu(k,3168) - lu(k,3137) * lu(k,3160)
   16289   254840160 :          lu(k,3169) = lu(k,3169) - lu(k,3138) * lu(k,3160)
   16290   254840160 :          lu(k,3170) = lu(k,3170) - lu(k,3139) * lu(k,3160)
   16291   254840160 :          lu(k,3171) = lu(k,3171) - lu(k,3140) * lu(k,3160)
   16292   254840160 :          lu(k,3172) = lu(k,3172) - lu(k,3141) * lu(k,3160)
   16293   254840160 :          lu(k,3173) = lu(k,3173) - lu(k,3142) * lu(k,3160)
   16294   254840160 :          lu(k,3187) = lu(k,3187) - lu(k,3130) * lu(k,3186)
   16295   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,3131) * lu(k,3186)
   16296   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,3132) * lu(k,3186)
   16297   254840160 :          lu(k,3190) = lu(k,3190) - lu(k,3133) * lu(k,3186)
   16298   254840160 :          lu(k,3191) = lu(k,3191) - lu(k,3134) * lu(k,3186)
   16299   254840160 :          lu(k,3192) = lu(k,3192) - lu(k,3135) * lu(k,3186)
   16300   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,3136) * lu(k,3186)
   16301   254840160 :          lu(k,3194) = lu(k,3194) - lu(k,3137) * lu(k,3186)
   16302   254840160 :          lu(k,3195) = lu(k,3195) - lu(k,3138) * lu(k,3186)
   16303   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,3139) * lu(k,3186)
   16304   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,3140) * lu(k,3186)
   16305   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,3141) * lu(k,3186)
   16306   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,3142) * lu(k,3186)
   16307   254840160 :          lu(k,3367) = lu(k,3367) - lu(k,3130) * lu(k,3366)
   16308   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,3131) * lu(k,3366)
   16309   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,3132) * lu(k,3366)
   16310   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,3133) * lu(k,3366)
   16311   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,3134) * lu(k,3366)
   16312   254840160 :          lu(k,3372) = lu(k,3372) - lu(k,3135) * lu(k,3366)
   16313   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,3136) * lu(k,3366)
   16314   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,3137) * lu(k,3366)
   16315   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,3138) * lu(k,3366)
   16316   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,3139) * lu(k,3366)
   16317   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,3140) * lu(k,3366)
   16318   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,3141) * lu(k,3366)
   16319   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,3142) * lu(k,3366)
   16320   254840160 :          lu(k,3460) = lu(k,3460) - lu(k,3130) * lu(k,3459)
   16321   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,3131) * lu(k,3459)
   16322   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,3132) * lu(k,3459)
   16323   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,3133) * lu(k,3459)
   16324   254840160 :          lu(k,3464) = lu(k,3464) - lu(k,3134) * lu(k,3459)
   16325   254840160 :          lu(k,3465) = lu(k,3465) - lu(k,3135) * lu(k,3459)
   16326   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,3136) * lu(k,3459)
   16327   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,3137) * lu(k,3459)
   16328   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,3138) * lu(k,3459)
   16329   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,3139) * lu(k,3459)
   16330   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,3140) * lu(k,3459)
   16331   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,3141) * lu(k,3459)
   16332   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,3142) * lu(k,3459)
   16333   254840160 :          lu(k,3484) = lu(k,3484) - lu(k,3130) * lu(k,3483)
   16334   254840160 :          lu(k,3485) = lu(k,3485) - lu(k,3131) * lu(k,3483)
   16335   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,3132) * lu(k,3483)
   16336   254840160 :          lu(k,3487) = lu(k,3487) - lu(k,3133) * lu(k,3483)
   16337   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,3134) * lu(k,3483)
   16338   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,3135) * lu(k,3483)
   16339   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,3136) * lu(k,3483)
   16340   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,3137) * lu(k,3483)
   16341   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,3138) * lu(k,3483)
   16342   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,3139) * lu(k,3483)
   16343   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,3140) * lu(k,3483)
   16344   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,3141) * lu(k,3483)
   16345   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,3142) * lu(k,3483)
   16346   254840160 :          lu(k,3510) = lu(k,3510) - lu(k,3130) * lu(k,3509)
   16347   254840160 :          lu(k,3511) = lu(k,3511) - lu(k,3131) * lu(k,3509)
   16348   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,3132) * lu(k,3509)
   16349   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,3133) * lu(k,3509)
   16350   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,3134) * lu(k,3509)
   16351   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3135) * lu(k,3509)
   16352   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3136) * lu(k,3509)
   16353   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3137) * lu(k,3509)
   16354   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3138) * lu(k,3509)
   16355   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3139) * lu(k,3509)
   16356   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3140) * lu(k,3509)
   16357   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3141) * lu(k,3509)
   16358   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3142) * lu(k,3509)
   16359   254840160 :          lu(k,3604) = lu(k,3604) - lu(k,3130) * lu(k,3603)
   16360   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,3131) * lu(k,3603)
   16361   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,3132) * lu(k,3603)
   16362   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,3133) * lu(k,3603)
   16363   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,3134) * lu(k,3603)
   16364   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3135) * lu(k,3603)
   16365   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3136) * lu(k,3603)
   16366   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3137) * lu(k,3603)
   16367   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3138) * lu(k,3603)
   16368   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3139) * lu(k,3603)
   16369   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3140) * lu(k,3603)
   16370   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3141) * lu(k,3603)
   16371   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3142) * lu(k,3603)
   16372   254840160 :          lu(k,3656) = lu(k,3656) - lu(k,3130) * lu(k,3655)
   16373   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,3131) * lu(k,3655)
   16374   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,3132) * lu(k,3655)
   16375   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,3133) * lu(k,3655)
   16376   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,3134) * lu(k,3655)
   16377   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3135) * lu(k,3655)
   16378   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3136) * lu(k,3655)
   16379   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3137) * lu(k,3655)
   16380   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3138) * lu(k,3655)
   16381   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3139) * lu(k,3655)
   16382   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3140) * lu(k,3655)
   16383   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3141) * lu(k,3655)
   16384   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3142) * lu(k,3655)
   16385   254840160 :          lu(k,3758) = lu(k,3758) - lu(k,3130) * lu(k,3757)
   16386   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,3131) * lu(k,3757)
   16387   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,3132) * lu(k,3757)
   16388   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,3133) * lu(k,3757)
   16389   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,3134) * lu(k,3757)
   16390   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3135) * lu(k,3757)
   16391   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3136) * lu(k,3757)
   16392   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3137) * lu(k,3757)
   16393   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3138) * lu(k,3757)
   16394   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3139) * lu(k,3757)
   16395   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3140) * lu(k,3757)
   16396   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3141) * lu(k,3757)
   16397   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3142) * lu(k,3757)
   16398   254840160 :          lu(k,3799) = lu(k,3799) - lu(k,3130) * lu(k,3798)
   16399   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,3131) * lu(k,3798)
   16400   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,3132) * lu(k,3798)
   16401   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,3133) * lu(k,3798)
   16402   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,3134) * lu(k,3798)
   16403   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3135) * lu(k,3798)
   16404   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3136) * lu(k,3798)
   16405   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3137) * lu(k,3798)
   16406   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3138) * lu(k,3798)
   16407   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3139) * lu(k,3798)
   16408   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3140) * lu(k,3798)
   16409   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3141) * lu(k,3798)
   16410   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3142) * lu(k,3798)
   16411   254840160 :          lu(k,3840) = lu(k,3840) - lu(k,3130) * lu(k,3839)
   16412   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,3131) * lu(k,3839)
   16413   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,3132) * lu(k,3839)
   16414   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,3133) * lu(k,3839)
   16415   254840160 :          lu(k,3844) = lu(k,3844) - lu(k,3134) * lu(k,3839)
   16416   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3135) * lu(k,3839)
   16417   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3136) * lu(k,3839)
   16418   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3137) * lu(k,3839)
   16419   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3138) * lu(k,3839)
   16420   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3139) * lu(k,3839)
   16421   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3140) * lu(k,3839)
   16422   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3141) * lu(k,3839)
   16423   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3142) * lu(k,3839)
   16424   254840160 :          lu(k,4090) = lu(k,4090) - lu(k,3130) * lu(k,4089)
   16425   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,3131) * lu(k,4089)
   16426   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,3132) * lu(k,4089)
   16427   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,3133) * lu(k,4089)
   16428   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,3134) * lu(k,4089)
   16429   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3135) * lu(k,4089)
   16430   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3136) * lu(k,4089)
   16431   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3137) * lu(k,4089)
   16432   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3138) * lu(k,4089)
   16433   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3139) * lu(k,4089)
   16434   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3140) * lu(k,4089)
   16435   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3141) * lu(k,4089)
   16436   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3142) * lu(k,4089)
   16437   254840160 :          lu(k,4116) = lu(k,4116) - lu(k,3130) * lu(k,4115)
   16438   254840160 :          lu(k,4117) = lu(k,4117) - lu(k,3131) * lu(k,4115)
   16439   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,3132) * lu(k,4115)
   16440   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,3133) * lu(k,4115)
   16441   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,3134) * lu(k,4115)
   16442   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3135) * lu(k,4115)
   16443   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3136) * lu(k,4115)
   16444   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3137) * lu(k,4115)
   16445   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3138) * lu(k,4115)
   16446   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3139) * lu(k,4115)
   16447   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3140) * lu(k,4115)
   16448   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3141) * lu(k,4115)
   16449   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3142) * lu(k,4115)
   16450   254840160 :          lu(k,3161) = 1._r8 / lu(k,3161)
   16451   254840160 :          lu(k,3162) = lu(k,3162) * lu(k,3161)
   16452   254840160 :          lu(k,3163) = lu(k,3163) * lu(k,3161)
   16453   254840160 :          lu(k,3164) = lu(k,3164) * lu(k,3161)
   16454   254840160 :          lu(k,3165) = lu(k,3165) * lu(k,3161)
   16455   254840160 :          lu(k,3166) = lu(k,3166) * lu(k,3161)
   16456   254840160 :          lu(k,3167) = lu(k,3167) * lu(k,3161)
   16457   254840160 :          lu(k,3168) = lu(k,3168) * lu(k,3161)
   16458   254840160 :          lu(k,3169) = lu(k,3169) * lu(k,3161)
   16459   254840160 :          lu(k,3170) = lu(k,3170) * lu(k,3161)
   16460   254840160 :          lu(k,3171) = lu(k,3171) * lu(k,3161)
   16461   254840160 :          lu(k,3172) = lu(k,3172) * lu(k,3161)
   16462   254840160 :          lu(k,3173) = lu(k,3173) * lu(k,3161)
   16463   254840160 :          lu(k,3188) = lu(k,3188) - lu(k,3162) * lu(k,3187)
   16464   254840160 :          lu(k,3189) = lu(k,3189) - lu(k,3163) * lu(k,3187)
   16465   254840160 :          lu(k,3190) = lu(k,3190) - lu(k,3164) * lu(k,3187)
   16466   254840160 :          lu(k,3191) = lu(k,3191) - lu(k,3165) * lu(k,3187)
   16467   254840160 :          lu(k,3192) = lu(k,3192) - lu(k,3166) * lu(k,3187)
   16468   254840160 :          lu(k,3193) = lu(k,3193) - lu(k,3167) * lu(k,3187)
   16469   254840160 :          lu(k,3194) = lu(k,3194) - lu(k,3168) * lu(k,3187)
   16470   254840160 :          lu(k,3195) = lu(k,3195) - lu(k,3169) * lu(k,3187)
   16471   254840160 :          lu(k,3196) = lu(k,3196) - lu(k,3170) * lu(k,3187)
   16472   254840160 :          lu(k,3197) = lu(k,3197) - lu(k,3171) * lu(k,3187)
   16473   254840160 :          lu(k,3198) = lu(k,3198) - lu(k,3172) * lu(k,3187)
   16474   254840160 :          lu(k,3199) = lu(k,3199) - lu(k,3173) * lu(k,3187)
   16475   254840160 :          lu(k,3368) = lu(k,3368) - lu(k,3162) * lu(k,3367)
   16476   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,3163) * lu(k,3367)
   16477   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,3164) * lu(k,3367)
   16478   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,3165) * lu(k,3367)
   16479   254840160 :          lu(k,3372) = lu(k,3372) - lu(k,3166) * lu(k,3367)
   16480   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,3167) * lu(k,3367)
   16481   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,3168) * lu(k,3367)
   16482   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,3169) * lu(k,3367)
   16483   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,3170) * lu(k,3367)
   16484   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,3171) * lu(k,3367)
   16485   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,3172) * lu(k,3367)
   16486   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,3173) * lu(k,3367)
   16487   254840160 :          lu(k,3461) = lu(k,3461) - lu(k,3162) * lu(k,3460)
   16488   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,3163) * lu(k,3460)
   16489   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,3164) * lu(k,3460)
   16490   254840160 :          lu(k,3464) = lu(k,3464) - lu(k,3165) * lu(k,3460)
   16491   254840160 :          lu(k,3465) = lu(k,3465) - lu(k,3166) * lu(k,3460)
   16492   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,3167) * lu(k,3460)
   16493   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,3168) * lu(k,3460)
   16494   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,3169) * lu(k,3460)
   16495   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,3170) * lu(k,3460)
   16496   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,3171) * lu(k,3460)
   16497   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,3172) * lu(k,3460)
   16498   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,3173) * lu(k,3460)
   16499   254840160 :          lu(k,3485) = lu(k,3485) - lu(k,3162) * lu(k,3484)
   16500   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,3163) * lu(k,3484)
   16501   254840160 :          lu(k,3487) = lu(k,3487) - lu(k,3164) * lu(k,3484)
   16502   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,3165) * lu(k,3484)
   16503   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,3166) * lu(k,3484)
   16504   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,3167) * lu(k,3484)
   16505   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,3168) * lu(k,3484)
   16506   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,3169) * lu(k,3484)
   16507   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,3170) * lu(k,3484)
   16508   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,3171) * lu(k,3484)
   16509   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,3172) * lu(k,3484)
   16510   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,3173) * lu(k,3484)
   16511   254840160 :          lu(k,3511) = lu(k,3511) - lu(k,3162) * lu(k,3510)
   16512   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,3163) * lu(k,3510)
   16513   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,3164) * lu(k,3510)
   16514   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,3165) * lu(k,3510)
   16515   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3166) * lu(k,3510)
   16516   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3167) * lu(k,3510)
   16517   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3168) * lu(k,3510)
   16518   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3169) * lu(k,3510)
   16519   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3170) * lu(k,3510)
   16520   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3171) * lu(k,3510)
   16521   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3172) * lu(k,3510)
   16522   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3173) * lu(k,3510)
   16523   254840160 :          lu(k,3605) = lu(k,3605) - lu(k,3162) * lu(k,3604)
   16524   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,3163) * lu(k,3604)
   16525   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,3164) * lu(k,3604)
   16526   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,3165) * lu(k,3604)
   16527   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3166) * lu(k,3604)
   16528   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3167) * lu(k,3604)
   16529   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3168) * lu(k,3604)
   16530   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3169) * lu(k,3604)
   16531   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3170) * lu(k,3604)
   16532   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3171) * lu(k,3604)
   16533   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3172) * lu(k,3604)
   16534   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3173) * lu(k,3604)
   16535   254840160 :          lu(k,3657) = lu(k,3657) - lu(k,3162) * lu(k,3656)
   16536   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,3163) * lu(k,3656)
   16537   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,3164) * lu(k,3656)
   16538   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,3165) * lu(k,3656)
   16539   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3166) * lu(k,3656)
   16540   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3167) * lu(k,3656)
   16541   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3168) * lu(k,3656)
   16542   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3169) * lu(k,3656)
   16543   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3170) * lu(k,3656)
   16544   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3171) * lu(k,3656)
   16545   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3172) * lu(k,3656)
   16546   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3173) * lu(k,3656)
   16547   254840160 :          lu(k,3759) = lu(k,3759) - lu(k,3162) * lu(k,3758)
   16548   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,3163) * lu(k,3758)
   16549   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,3164) * lu(k,3758)
   16550   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,3165) * lu(k,3758)
   16551   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3166) * lu(k,3758)
   16552   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3167) * lu(k,3758)
   16553   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3168) * lu(k,3758)
   16554   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3169) * lu(k,3758)
   16555   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3170) * lu(k,3758)
   16556   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3171) * lu(k,3758)
   16557   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3172) * lu(k,3758)
   16558   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3173) * lu(k,3758)
   16559   254840160 :          lu(k,3800) = lu(k,3800) - lu(k,3162) * lu(k,3799)
   16560   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,3163) * lu(k,3799)
   16561   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,3164) * lu(k,3799)
   16562   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,3165) * lu(k,3799)
   16563   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3166) * lu(k,3799)
   16564   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3167) * lu(k,3799)
   16565   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3168) * lu(k,3799)
   16566   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3169) * lu(k,3799)
   16567   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3170) * lu(k,3799)
   16568   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3171) * lu(k,3799)
   16569   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3172) * lu(k,3799)
   16570   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3173) * lu(k,3799)
   16571   254840160 :          lu(k,3841) = lu(k,3841) - lu(k,3162) * lu(k,3840)
   16572   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,3163) * lu(k,3840)
   16573   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,3164) * lu(k,3840)
   16574   254840160 :          lu(k,3844) = lu(k,3844) - lu(k,3165) * lu(k,3840)
   16575   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3166) * lu(k,3840)
   16576   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3167) * lu(k,3840)
   16577   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3168) * lu(k,3840)
   16578   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3169) * lu(k,3840)
   16579   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3170) * lu(k,3840)
   16580   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3171) * lu(k,3840)
   16581   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3172) * lu(k,3840)
   16582   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3173) * lu(k,3840)
   16583   254840160 :          lu(k,4091) = lu(k,4091) - lu(k,3162) * lu(k,4090)
   16584   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,3163) * lu(k,4090)
   16585   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,3164) * lu(k,4090)
   16586   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,3165) * lu(k,4090)
   16587   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3166) * lu(k,4090)
   16588   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3167) * lu(k,4090)
   16589   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3168) * lu(k,4090)
   16590   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3169) * lu(k,4090)
   16591   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3170) * lu(k,4090)
   16592   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3171) * lu(k,4090)
   16593   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3172) * lu(k,4090)
   16594   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3173) * lu(k,4090)
   16595   254840160 :          lu(k,4117) = lu(k,4117) - lu(k,3162) * lu(k,4116)
   16596   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,3163) * lu(k,4116)
   16597   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,3164) * lu(k,4116)
   16598   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,3165) * lu(k,4116)
   16599   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3166) * lu(k,4116)
   16600   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3167) * lu(k,4116)
   16601   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3168) * lu(k,4116)
   16602   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3169) * lu(k,4116)
   16603   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3170) * lu(k,4116)
   16604   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3171) * lu(k,4116)
   16605   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3172) * lu(k,4116)
   16606   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3173) * lu(k,4116)
   16607   254840160 :          lu(k,3188) = 1._r8 / lu(k,3188)
   16608   254840160 :          lu(k,3189) = lu(k,3189) * lu(k,3188)
   16609   254840160 :          lu(k,3190) = lu(k,3190) * lu(k,3188)
   16610   254840160 :          lu(k,3191) = lu(k,3191) * lu(k,3188)
   16611   254840160 :          lu(k,3192) = lu(k,3192) * lu(k,3188)
   16612   254840160 :          lu(k,3193) = lu(k,3193) * lu(k,3188)
   16613   254840160 :          lu(k,3194) = lu(k,3194) * lu(k,3188)
   16614   254840160 :          lu(k,3195) = lu(k,3195) * lu(k,3188)
   16615   254840160 :          lu(k,3196) = lu(k,3196) * lu(k,3188)
   16616   254840160 :          lu(k,3197) = lu(k,3197) * lu(k,3188)
   16617   254840160 :          lu(k,3198) = lu(k,3198) * lu(k,3188)
   16618   254840160 :          lu(k,3199) = lu(k,3199) * lu(k,3188)
   16619   254840160 :          lu(k,3369) = lu(k,3369) - lu(k,3189) * lu(k,3368)
   16620   254840160 :          lu(k,3370) = lu(k,3370) - lu(k,3190) * lu(k,3368)
   16621   254840160 :          lu(k,3371) = lu(k,3371) - lu(k,3191) * lu(k,3368)
   16622   254840160 :          lu(k,3372) = lu(k,3372) - lu(k,3192) * lu(k,3368)
   16623   254840160 :          lu(k,3373) = lu(k,3373) - lu(k,3193) * lu(k,3368)
   16624   254840160 :          lu(k,3374) = lu(k,3374) - lu(k,3194) * lu(k,3368)
   16625   254840160 :          lu(k,3375) = lu(k,3375) - lu(k,3195) * lu(k,3368)
   16626   254840160 :          lu(k,3376) = lu(k,3376) - lu(k,3196) * lu(k,3368)
   16627   254840160 :          lu(k,3377) = lu(k,3377) - lu(k,3197) * lu(k,3368)
   16628   254840160 :          lu(k,3378) = lu(k,3378) - lu(k,3198) * lu(k,3368)
   16629   254840160 :          lu(k,3379) = lu(k,3379) - lu(k,3199) * lu(k,3368)
   16630   254840160 :          lu(k,3462) = lu(k,3462) - lu(k,3189) * lu(k,3461)
   16631   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,3190) * lu(k,3461)
   16632   254840160 :          lu(k,3464) = lu(k,3464) - lu(k,3191) * lu(k,3461)
   16633   254840160 :          lu(k,3465) = lu(k,3465) - lu(k,3192) * lu(k,3461)
   16634   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,3193) * lu(k,3461)
   16635   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,3194) * lu(k,3461)
   16636   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,3195) * lu(k,3461)
   16637   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,3196) * lu(k,3461)
   16638   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,3197) * lu(k,3461)
   16639   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,3198) * lu(k,3461)
   16640   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,3199) * lu(k,3461)
   16641   254840160 :          lu(k,3486) = lu(k,3486) - lu(k,3189) * lu(k,3485)
   16642   254840160 :          lu(k,3487) = lu(k,3487) - lu(k,3190) * lu(k,3485)
   16643   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,3191) * lu(k,3485)
   16644   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,3192) * lu(k,3485)
   16645   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,3193) * lu(k,3485)
   16646   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,3194) * lu(k,3485)
   16647   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,3195) * lu(k,3485)
   16648   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,3196) * lu(k,3485)
   16649   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,3197) * lu(k,3485)
   16650   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,3198) * lu(k,3485)
   16651   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,3199) * lu(k,3485)
   16652   254840160 :          lu(k,3512) = lu(k,3512) - lu(k,3189) * lu(k,3511)
   16653   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,3190) * lu(k,3511)
   16654   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,3191) * lu(k,3511)
   16655   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3192) * lu(k,3511)
   16656   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3193) * lu(k,3511)
   16657   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3194) * lu(k,3511)
   16658   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3195) * lu(k,3511)
   16659   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3196) * lu(k,3511)
   16660   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3197) * lu(k,3511)
   16661   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3198) * lu(k,3511)
   16662   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3199) * lu(k,3511)
   16663   254840160 :          lu(k,3606) = lu(k,3606) - lu(k,3189) * lu(k,3605)
   16664   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,3190) * lu(k,3605)
   16665   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,3191) * lu(k,3605)
   16666   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3192) * lu(k,3605)
   16667   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3193) * lu(k,3605)
   16668   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3194) * lu(k,3605)
   16669   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3195) * lu(k,3605)
   16670   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3196) * lu(k,3605)
   16671   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3197) * lu(k,3605)
   16672   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3198) * lu(k,3605)
   16673   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3199) * lu(k,3605)
   16674   254840160 :          lu(k,3658) = lu(k,3658) - lu(k,3189) * lu(k,3657)
   16675   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,3190) * lu(k,3657)
   16676   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,3191) * lu(k,3657)
   16677   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3192) * lu(k,3657)
   16678   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3193) * lu(k,3657)
   16679   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3194) * lu(k,3657)
   16680   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3195) * lu(k,3657)
   16681   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3196) * lu(k,3657)
   16682   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3197) * lu(k,3657)
   16683   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3198) * lu(k,3657)
   16684   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3199) * lu(k,3657)
   16685   254840160 :          lu(k,3760) = lu(k,3760) - lu(k,3189) * lu(k,3759)
   16686   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,3190) * lu(k,3759)
   16687   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,3191) * lu(k,3759)
   16688   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3192) * lu(k,3759)
   16689   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3193) * lu(k,3759)
   16690   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3194) * lu(k,3759)
   16691   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3195) * lu(k,3759)
   16692   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3196) * lu(k,3759)
   16693   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3197) * lu(k,3759)
   16694   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3198) * lu(k,3759)
   16695   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3199) * lu(k,3759)
   16696   254840160 :          lu(k,3801) = lu(k,3801) - lu(k,3189) * lu(k,3800)
   16697   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,3190) * lu(k,3800)
   16698   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,3191) * lu(k,3800)
   16699   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3192) * lu(k,3800)
   16700   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3193) * lu(k,3800)
   16701   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3194) * lu(k,3800)
   16702   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3195) * lu(k,3800)
   16703   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3196) * lu(k,3800)
   16704   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3197) * lu(k,3800)
   16705   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3198) * lu(k,3800)
   16706   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3199) * lu(k,3800)
   16707   254840160 :          lu(k,3842) = lu(k,3842) - lu(k,3189) * lu(k,3841)
   16708   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,3190) * lu(k,3841)
   16709   254840160 :          lu(k,3844) = lu(k,3844) - lu(k,3191) * lu(k,3841)
   16710   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3192) * lu(k,3841)
   16711   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3193) * lu(k,3841)
   16712   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3194) * lu(k,3841)
   16713   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3195) * lu(k,3841)
   16714   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3196) * lu(k,3841)
   16715   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3197) * lu(k,3841)
   16716   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3198) * lu(k,3841)
   16717   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3199) * lu(k,3841)
   16718   254840160 :          lu(k,4092) = lu(k,4092) - lu(k,3189) * lu(k,4091)
   16719   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,3190) * lu(k,4091)
   16720   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,3191) * lu(k,4091)
   16721   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3192) * lu(k,4091)
   16722   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3193) * lu(k,4091)
   16723   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3194) * lu(k,4091)
   16724   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3195) * lu(k,4091)
   16725   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3196) * lu(k,4091)
   16726   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3197) * lu(k,4091)
   16727   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3198) * lu(k,4091)
   16728   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3199) * lu(k,4091)
   16729   254840160 :          lu(k,4118) = lu(k,4118) - lu(k,3189) * lu(k,4117)
   16730   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,3190) * lu(k,4117)
   16731   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,3191) * lu(k,4117)
   16732   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3192) * lu(k,4117)
   16733   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3193) * lu(k,4117)
   16734   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3194) * lu(k,4117)
   16735   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3195) * lu(k,4117)
   16736   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3196) * lu(k,4117)
   16737   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3197) * lu(k,4117)
   16738   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3198) * lu(k,4117)
   16739   263009123 :          lu(k,4128) = lu(k,4128) - lu(k,3199) * lu(k,4117)
   16740             :       end do
   16741     8168963 :       end subroutine lu_fac53
   16742     8168963 :       subroutine lu_fac54( avec_len, lu )
   16743             :       use chem_mods, only : nzcnt
   16744             :       use shr_kind_mod, only : r8 => shr_kind_r8
   16745             :       implicit none
   16746             : !-----------------------------------------------------------------------
   16747             : ! ... dummy args
   16748             : !-----------------------------------------------------------------------
   16749             :       integer, intent(in) :: avec_len
   16750             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   16751             : !-----------------------------------------------------------------------
   16752             : ! ... local variables
   16753             : !-----------------------------------------------------------------------
   16754             :       integer :: k
   16755   263009123 :       do k = 1,avec_len
   16756   254840160 :          lu(k,3369) = 1._r8 / lu(k,3369)
   16757   254840160 :          lu(k,3370) = lu(k,3370) * lu(k,3369)
   16758   254840160 :          lu(k,3371) = lu(k,3371) * lu(k,3369)
   16759   254840160 :          lu(k,3372) = lu(k,3372) * lu(k,3369)
   16760   254840160 :          lu(k,3373) = lu(k,3373) * lu(k,3369)
   16761   254840160 :          lu(k,3374) = lu(k,3374) * lu(k,3369)
   16762   254840160 :          lu(k,3375) = lu(k,3375) * lu(k,3369)
   16763   254840160 :          lu(k,3376) = lu(k,3376) * lu(k,3369)
   16764   254840160 :          lu(k,3377) = lu(k,3377) * lu(k,3369)
   16765   254840160 :          lu(k,3378) = lu(k,3378) * lu(k,3369)
   16766   254840160 :          lu(k,3379) = lu(k,3379) * lu(k,3369)
   16767   254840160 :          lu(k,3463) = lu(k,3463) - lu(k,3370) * lu(k,3462)
   16768   254840160 :          lu(k,3464) = lu(k,3464) - lu(k,3371) * lu(k,3462)
   16769   254840160 :          lu(k,3465) = lu(k,3465) - lu(k,3372) * lu(k,3462)
   16770   254840160 :          lu(k,3466) = lu(k,3466) - lu(k,3373) * lu(k,3462)
   16771   254840160 :          lu(k,3467) = lu(k,3467) - lu(k,3374) * lu(k,3462)
   16772   254840160 :          lu(k,3468) = lu(k,3468) - lu(k,3375) * lu(k,3462)
   16773   254840160 :          lu(k,3469) = lu(k,3469) - lu(k,3376) * lu(k,3462)
   16774   254840160 :          lu(k,3470) = lu(k,3470) - lu(k,3377) * lu(k,3462)
   16775   254840160 :          lu(k,3471) = lu(k,3471) - lu(k,3378) * lu(k,3462)
   16776   254840160 :          lu(k,3472) = lu(k,3472) - lu(k,3379) * lu(k,3462)
   16777   254840160 :          lu(k,3487) = lu(k,3487) - lu(k,3370) * lu(k,3486)
   16778   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,3371) * lu(k,3486)
   16779   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,3372) * lu(k,3486)
   16780   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,3373) * lu(k,3486)
   16781   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,3374) * lu(k,3486)
   16782   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,3375) * lu(k,3486)
   16783   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,3376) * lu(k,3486)
   16784   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,3377) * lu(k,3486)
   16785   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,3378) * lu(k,3486)
   16786   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,3379) * lu(k,3486)
   16787   254840160 :          lu(k,3513) = lu(k,3513) - lu(k,3370) * lu(k,3512)
   16788   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,3371) * lu(k,3512)
   16789   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3372) * lu(k,3512)
   16790   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3373) * lu(k,3512)
   16791   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3374) * lu(k,3512)
   16792   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3375) * lu(k,3512)
   16793   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3376) * lu(k,3512)
   16794   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3377) * lu(k,3512)
   16795   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3378) * lu(k,3512)
   16796   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3379) * lu(k,3512)
   16797   254840160 :          lu(k,3607) = lu(k,3607) - lu(k,3370) * lu(k,3606)
   16798   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,3371) * lu(k,3606)
   16799   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3372) * lu(k,3606)
   16800   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3373) * lu(k,3606)
   16801   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3374) * lu(k,3606)
   16802   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3375) * lu(k,3606)
   16803   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3376) * lu(k,3606)
   16804   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3377) * lu(k,3606)
   16805   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3378) * lu(k,3606)
   16806   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3379) * lu(k,3606)
   16807   254840160 :          lu(k,3659) = lu(k,3659) - lu(k,3370) * lu(k,3658)
   16808   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,3371) * lu(k,3658)
   16809   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3372) * lu(k,3658)
   16810   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3373) * lu(k,3658)
   16811   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3374) * lu(k,3658)
   16812   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3375) * lu(k,3658)
   16813   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3376) * lu(k,3658)
   16814   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3377) * lu(k,3658)
   16815   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3378) * lu(k,3658)
   16816   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3379) * lu(k,3658)
   16817   254840160 :          lu(k,3761) = lu(k,3761) - lu(k,3370) * lu(k,3760)
   16818   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,3371) * lu(k,3760)
   16819   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3372) * lu(k,3760)
   16820   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3373) * lu(k,3760)
   16821   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3374) * lu(k,3760)
   16822   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3375) * lu(k,3760)
   16823   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3376) * lu(k,3760)
   16824   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3377) * lu(k,3760)
   16825   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3378) * lu(k,3760)
   16826   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3379) * lu(k,3760)
   16827   254840160 :          lu(k,3802) = lu(k,3802) - lu(k,3370) * lu(k,3801)
   16828   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,3371) * lu(k,3801)
   16829   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3372) * lu(k,3801)
   16830   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3373) * lu(k,3801)
   16831   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3374) * lu(k,3801)
   16832   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3375) * lu(k,3801)
   16833   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3376) * lu(k,3801)
   16834   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3377) * lu(k,3801)
   16835   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3378) * lu(k,3801)
   16836   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3379) * lu(k,3801)
   16837   254840160 :          lu(k,3843) = lu(k,3843) - lu(k,3370) * lu(k,3842)
   16838   254840160 :          lu(k,3844) = lu(k,3844) - lu(k,3371) * lu(k,3842)
   16839   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3372) * lu(k,3842)
   16840   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3373) * lu(k,3842)
   16841   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3374) * lu(k,3842)
   16842   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3375) * lu(k,3842)
   16843   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3376) * lu(k,3842)
   16844   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3377) * lu(k,3842)
   16845   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3378) * lu(k,3842)
   16846   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3379) * lu(k,3842)
   16847   254840160 :          lu(k,4093) = lu(k,4093) - lu(k,3370) * lu(k,4092)
   16848   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,3371) * lu(k,4092)
   16849   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3372) * lu(k,4092)
   16850   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3373) * lu(k,4092)
   16851   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3374) * lu(k,4092)
   16852   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3375) * lu(k,4092)
   16853   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3376) * lu(k,4092)
   16854   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3377) * lu(k,4092)
   16855   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3378) * lu(k,4092)
   16856   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3379) * lu(k,4092)
   16857   254840160 :          lu(k,4119) = lu(k,4119) - lu(k,3370) * lu(k,4118)
   16858   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,3371) * lu(k,4118)
   16859   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3372) * lu(k,4118)
   16860   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3373) * lu(k,4118)
   16861   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3374) * lu(k,4118)
   16862   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3375) * lu(k,4118)
   16863   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3376) * lu(k,4118)
   16864   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3377) * lu(k,4118)
   16865   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3378) * lu(k,4118)
   16866   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3379) * lu(k,4118)
   16867   254840160 :          lu(k,3463) = 1._r8 / lu(k,3463)
   16868   254840160 :          lu(k,3464) = lu(k,3464) * lu(k,3463)
   16869   254840160 :          lu(k,3465) = lu(k,3465) * lu(k,3463)
   16870   254840160 :          lu(k,3466) = lu(k,3466) * lu(k,3463)
   16871   254840160 :          lu(k,3467) = lu(k,3467) * lu(k,3463)
   16872   254840160 :          lu(k,3468) = lu(k,3468) * lu(k,3463)
   16873   254840160 :          lu(k,3469) = lu(k,3469) * lu(k,3463)
   16874   254840160 :          lu(k,3470) = lu(k,3470) * lu(k,3463)
   16875   254840160 :          lu(k,3471) = lu(k,3471) * lu(k,3463)
   16876   254840160 :          lu(k,3472) = lu(k,3472) * lu(k,3463)
   16877   254840160 :          lu(k,3488) = lu(k,3488) - lu(k,3464) * lu(k,3487)
   16878   254840160 :          lu(k,3489) = lu(k,3489) - lu(k,3465) * lu(k,3487)
   16879   254840160 :          lu(k,3490) = lu(k,3490) - lu(k,3466) * lu(k,3487)
   16880   254840160 :          lu(k,3491) = lu(k,3491) - lu(k,3467) * lu(k,3487)
   16881   254840160 :          lu(k,3492) = lu(k,3492) - lu(k,3468) * lu(k,3487)
   16882   254840160 :          lu(k,3493) = lu(k,3493) - lu(k,3469) * lu(k,3487)
   16883   254840160 :          lu(k,3494) = lu(k,3494) - lu(k,3470) * lu(k,3487)
   16884   254840160 :          lu(k,3495) = lu(k,3495) - lu(k,3471) * lu(k,3487)
   16885   254840160 :          lu(k,3496) = lu(k,3496) - lu(k,3472) * lu(k,3487)
   16886   254840160 :          lu(k,3514) = lu(k,3514) - lu(k,3464) * lu(k,3513)
   16887   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3465) * lu(k,3513)
   16888   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3466) * lu(k,3513)
   16889   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3467) * lu(k,3513)
   16890   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3468) * lu(k,3513)
   16891   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3469) * lu(k,3513)
   16892   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3470) * lu(k,3513)
   16893   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3471) * lu(k,3513)
   16894   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3472) * lu(k,3513)
   16895   254840160 :          lu(k,3608) = lu(k,3608) - lu(k,3464) * lu(k,3607)
   16896   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3465) * lu(k,3607)
   16897   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3466) * lu(k,3607)
   16898   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3467) * lu(k,3607)
   16899   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3468) * lu(k,3607)
   16900   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3469) * lu(k,3607)
   16901   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3470) * lu(k,3607)
   16902   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3471) * lu(k,3607)
   16903   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3472) * lu(k,3607)
   16904   254840160 :          lu(k,3660) = lu(k,3660) - lu(k,3464) * lu(k,3659)
   16905   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3465) * lu(k,3659)
   16906   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3466) * lu(k,3659)
   16907   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3467) * lu(k,3659)
   16908   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3468) * lu(k,3659)
   16909   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3469) * lu(k,3659)
   16910   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3470) * lu(k,3659)
   16911   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3471) * lu(k,3659)
   16912   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3472) * lu(k,3659)
   16913   254840160 :          lu(k,3762) = lu(k,3762) - lu(k,3464) * lu(k,3761)
   16914   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3465) * lu(k,3761)
   16915   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3466) * lu(k,3761)
   16916   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3467) * lu(k,3761)
   16917   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3468) * lu(k,3761)
   16918   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3469) * lu(k,3761)
   16919   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3470) * lu(k,3761)
   16920   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3471) * lu(k,3761)
   16921   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3472) * lu(k,3761)
   16922   254840160 :          lu(k,3803) = lu(k,3803) - lu(k,3464) * lu(k,3802)
   16923   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3465) * lu(k,3802)
   16924   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3466) * lu(k,3802)
   16925   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3467) * lu(k,3802)
   16926   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3468) * lu(k,3802)
   16927   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3469) * lu(k,3802)
   16928   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3470) * lu(k,3802)
   16929   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3471) * lu(k,3802)
   16930   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3472) * lu(k,3802)
   16931   254840160 :          lu(k,3844) = lu(k,3844) - lu(k,3464) * lu(k,3843)
   16932   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3465) * lu(k,3843)
   16933   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3466) * lu(k,3843)
   16934   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3467) * lu(k,3843)
   16935   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3468) * lu(k,3843)
   16936   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3469) * lu(k,3843)
   16937   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3470) * lu(k,3843)
   16938   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3471) * lu(k,3843)
   16939   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3472) * lu(k,3843)
   16940   254840160 :          lu(k,4094) = lu(k,4094) - lu(k,3464) * lu(k,4093)
   16941   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3465) * lu(k,4093)
   16942   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3466) * lu(k,4093)
   16943   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3467) * lu(k,4093)
   16944   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3468) * lu(k,4093)
   16945   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3469) * lu(k,4093)
   16946   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3470) * lu(k,4093)
   16947   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3471) * lu(k,4093)
   16948   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3472) * lu(k,4093)
   16949   254840160 :          lu(k,4120) = lu(k,4120) - lu(k,3464) * lu(k,4119)
   16950   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3465) * lu(k,4119)
   16951   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3466) * lu(k,4119)
   16952   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3467) * lu(k,4119)
   16953   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3468) * lu(k,4119)
   16954   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3469) * lu(k,4119)
   16955   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3470) * lu(k,4119)
   16956   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3471) * lu(k,4119)
   16957   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3472) * lu(k,4119)
   16958   254840160 :          lu(k,3488) = 1._r8 / lu(k,3488)
   16959   254840160 :          lu(k,3489) = lu(k,3489) * lu(k,3488)
   16960   254840160 :          lu(k,3490) = lu(k,3490) * lu(k,3488)
   16961   254840160 :          lu(k,3491) = lu(k,3491) * lu(k,3488)
   16962   254840160 :          lu(k,3492) = lu(k,3492) * lu(k,3488)
   16963   254840160 :          lu(k,3493) = lu(k,3493) * lu(k,3488)
   16964   254840160 :          lu(k,3494) = lu(k,3494) * lu(k,3488)
   16965   254840160 :          lu(k,3495) = lu(k,3495) * lu(k,3488)
   16966   254840160 :          lu(k,3496) = lu(k,3496) * lu(k,3488)
   16967   254840160 :          lu(k,3515) = lu(k,3515) - lu(k,3489) * lu(k,3514)
   16968   254840160 :          lu(k,3516) = lu(k,3516) - lu(k,3490) * lu(k,3514)
   16969   254840160 :          lu(k,3517) = lu(k,3517) - lu(k,3491) * lu(k,3514)
   16970   254840160 :          lu(k,3518) = lu(k,3518) - lu(k,3492) * lu(k,3514)
   16971   254840160 :          lu(k,3519) = lu(k,3519) - lu(k,3493) * lu(k,3514)
   16972   254840160 :          lu(k,3520) = lu(k,3520) - lu(k,3494) * lu(k,3514)
   16973   254840160 :          lu(k,3521) = lu(k,3521) - lu(k,3495) * lu(k,3514)
   16974   254840160 :          lu(k,3522) = lu(k,3522) - lu(k,3496) * lu(k,3514)
   16975   254840160 :          lu(k,3609) = lu(k,3609) - lu(k,3489) * lu(k,3608)
   16976   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3490) * lu(k,3608)
   16977   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3491) * lu(k,3608)
   16978   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3492) * lu(k,3608)
   16979   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3493) * lu(k,3608)
   16980   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3494) * lu(k,3608)
   16981   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3495) * lu(k,3608)
   16982   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3496) * lu(k,3608)
   16983   254840160 :          lu(k,3661) = lu(k,3661) - lu(k,3489) * lu(k,3660)
   16984   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3490) * lu(k,3660)
   16985   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3491) * lu(k,3660)
   16986   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3492) * lu(k,3660)
   16987   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3493) * lu(k,3660)
   16988   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3494) * lu(k,3660)
   16989   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3495) * lu(k,3660)
   16990   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3496) * lu(k,3660)
   16991   254840160 :          lu(k,3763) = lu(k,3763) - lu(k,3489) * lu(k,3762)
   16992   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3490) * lu(k,3762)
   16993   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3491) * lu(k,3762)
   16994   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3492) * lu(k,3762)
   16995   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3493) * lu(k,3762)
   16996   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3494) * lu(k,3762)
   16997   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3495) * lu(k,3762)
   16998   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3496) * lu(k,3762)
   16999   254840160 :          lu(k,3804) = lu(k,3804) - lu(k,3489) * lu(k,3803)
   17000   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3490) * lu(k,3803)
   17001   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3491) * lu(k,3803)
   17002   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3492) * lu(k,3803)
   17003   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3493) * lu(k,3803)
   17004   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3494) * lu(k,3803)
   17005   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3495) * lu(k,3803)
   17006   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3496) * lu(k,3803)
   17007   254840160 :          lu(k,3845) = lu(k,3845) - lu(k,3489) * lu(k,3844)
   17008   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3490) * lu(k,3844)
   17009   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3491) * lu(k,3844)
   17010   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3492) * lu(k,3844)
   17011   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3493) * lu(k,3844)
   17012   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3494) * lu(k,3844)
   17013   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3495) * lu(k,3844)
   17014   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3496) * lu(k,3844)
   17015   254840160 :          lu(k,4095) = lu(k,4095) - lu(k,3489) * lu(k,4094)
   17016   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3490) * lu(k,4094)
   17017   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3491) * lu(k,4094)
   17018   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3492) * lu(k,4094)
   17019   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3493) * lu(k,4094)
   17020   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3494) * lu(k,4094)
   17021   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3495) * lu(k,4094)
   17022   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3496) * lu(k,4094)
   17023   254840160 :          lu(k,4121) = lu(k,4121) - lu(k,3489) * lu(k,4120)
   17024   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3490) * lu(k,4120)
   17025   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3491) * lu(k,4120)
   17026   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3492) * lu(k,4120)
   17027   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3493) * lu(k,4120)
   17028   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3494) * lu(k,4120)
   17029   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3495) * lu(k,4120)
   17030   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3496) * lu(k,4120)
   17031   254840160 :          lu(k,3515) = 1._r8 / lu(k,3515)
   17032   254840160 :          lu(k,3516) = lu(k,3516) * lu(k,3515)
   17033   254840160 :          lu(k,3517) = lu(k,3517) * lu(k,3515)
   17034   254840160 :          lu(k,3518) = lu(k,3518) * lu(k,3515)
   17035   254840160 :          lu(k,3519) = lu(k,3519) * lu(k,3515)
   17036   254840160 :          lu(k,3520) = lu(k,3520) * lu(k,3515)
   17037   254840160 :          lu(k,3521) = lu(k,3521) * lu(k,3515)
   17038   254840160 :          lu(k,3522) = lu(k,3522) * lu(k,3515)
   17039   254840160 :          lu(k,3610) = lu(k,3610) - lu(k,3516) * lu(k,3609)
   17040   254840160 :          lu(k,3611) = lu(k,3611) - lu(k,3517) * lu(k,3609)
   17041   254840160 :          lu(k,3612) = lu(k,3612) - lu(k,3518) * lu(k,3609)
   17042   254840160 :          lu(k,3613) = lu(k,3613) - lu(k,3519) * lu(k,3609)
   17043   254840160 :          lu(k,3614) = lu(k,3614) - lu(k,3520) * lu(k,3609)
   17044   254840160 :          lu(k,3615) = lu(k,3615) - lu(k,3521) * lu(k,3609)
   17045   254840160 :          lu(k,3616) = lu(k,3616) - lu(k,3522) * lu(k,3609)
   17046   254840160 :          lu(k,3662) = lu(k,3662) - lu(k,3516) * lu(k,3661)
   17047   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3517) * lu(k,3661)
   17048   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3518) * lu(k,3661)
   17049   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3519) * lu(k,3661)
   17050   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3520) * lu(k,3661)
   17051   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3521) * lu(k,3661)
   17052   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3522) * lu(k,3661)
   17053   254840160 :          lu(k,3764) = lu(k,3764) - lu(k,3516) * lu(k,3763)
   17054   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3517) * lu(k,3763)
   17055   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3518) * lu(k,3763)
   17056   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3519) * lu(k,3763)
   17057   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3520) * lu(k,3763)
   17058   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3521) * lu(k,3763)
   17059   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3522) * lu(k,3763)
   17060   254840160 :          lu(k,3805) = lu(k,3805) - lu(k,3516) * lu(k,3804)
   17061   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3517) * lu(k,3804)
   17062   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3518) * lu(k,3804)
   17063   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3519) * lu(k,3804)
   17064   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3520) * lu(k,3804)
   17065   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3521) * lu(k,3804)
   17066   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3522) * lu(k,3804)
   17067   254840160 :          lu(k,3846) = lu(k,3846) - lu(k,3516) * lu(k,3845)
   17068   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3517) * lu(k,3845)
   17069   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3518) * lu(k,3845)
   17070   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3519) * lu(k,3845)
   17071   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3520) * lu(k,3845)
   17072   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3521) * lu(k,3845)
   17073   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3522) * lu(k,3845)
   17074   254840160 :          lu(k,4096) = lu(k,4096) - lu(k,3516) * lu(k,4095)
   17075   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3517) * lu(k,4095)
   17076   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3518) * lu(k,4095)
   17077   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3519) * lu(k,4095)
   17078   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3520) * lu(k,4095)
   17079   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3521) * lu(k,4095)
   17080   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3522) * lu(k,4095)
   17081   254840160 :          lu(k,4122) = lu(k,4122) - lu(k,3516) * lu(k,4121)
   17082   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3517) * lu(k,4121)
   17083   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3518) * lu(k,4121)
   17084   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3519) * lu(k,4121)
   17085   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3520) * lu(k,4121)
   17086   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3521) * lu(k,4121)
   17087   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3522) * lu(k,4121)
   17088   254840160 :          lu(k,3610) = 1._r8 / lu(k,3610)
   17089   254840160 :          lu(k,3611) = lu(k,3611) * lu(k,3610)
   17090   254840160 :          lu(k,3612) = lu(k,3612) * lu(k,3610)
   17091   254840160 :          lu(k,3613) = lu(k,3613) * lu(k,3610)
   17092   254840160 :          lu(k,3614) = lu(k,3614) * lu(k,3610)
   17093   254840160 :          lu(k,3615) = lu(k,3615) * lu(k,3610)
   17094   254840160 :          lu(k,3616) = lu(k,3616) * lu(k,3610)
   17095   254840160 :          lu(k,3663) = lu(k,3663) - lu(k,3611) * lu(k,3662)
   17096   254840160 :          lu(k,3664) = lu(k,3664) - lu(k,3612) * lu(k,3662)
   17097   254840160 :          lu(k,3665) = lu(k,3665) - lu(k,3613) * lu(k,3662)
   17098   254840160 :          lu(k,3666) = lu(k,3666) - lu(k,3614) * lu(k,3662)
   17099   254840160 :          lu(k,3667) = lu(k,3667) - lu(k,3615) * lu(k,3662)
   17100   254840160 :          lu(k,3668) = lu(k,3668) - lu(k,3616) * lu(k,3662)
   17101   254840160 :          lu(k,3765) = lu(k,3765) - lu(k,3611) * lu(k,3764)
   17102   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3612) * lu(k,3764)
   17103   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3613) * lu(k,3764)
   17104   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3614) * lu(k,3764)
   17105   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3615) * lu(k,3764)
   17106   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3616) * lu(k,3764)
   17107   254840160 :          lu(k,3806) = lu(k,3806) - lu(k,3611) * lu(k,3805)
   17108   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3612) * lu(k,3805)
   17109   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3613) * lu(k,3805)
   17110   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3614) * lu(k,3805)
   17111   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3615) * lu(k,3805)
   17112   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3616) * lu(k,3805)
   17113   254840160 :          lu(k,3847) = lu(k,3847) - lu(k,3611) * lu(k,3846)
   17114   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3612) * lu(k,3846)
   17115   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3613) * lu(k,3846)
   17116   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3614) * lu(k,3846)
   17117   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3615) * lu(k,3846)
   17118   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3616) * lu(k,3846)
   17119   254840160 :          lu(k,4097) = lu(k,4097) - lu(k,3611) * lu(k,4096)
   17120   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3612) * lu(k,4096)
   17121   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3613) * lu(k,4096)
   17122   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3614) * lu(k,4096)
   17123   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3615) * lu(k,4096)
   17124   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3616) * lu(k,4096)
   17125   254840160 :          lu(k,4123) = lu(k,4123) - lu(k,3611) * lu(k,4122)
   17126   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3612) * lu(k,4122)
   17127   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3613) * lu(k,4122)
   17128   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3614) * lu(k,4122)
   17129   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3615) * lu(k,4122)
   17130   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3616) * lu(k,4122)
   17131   254840160 :          lu(k,3663) = 1._r8 / lu(k,3663)
   17132   254840160 :          lu(k,3664) = lu(k,3664) * lu(k,3663)
   17133   254840160 :          lu(k,3665) = lu(k,3665) * lu(k,3663)
   17134   254840160 :          lu(k,3666) = lu(k,3666) * lu(k,3663)
   17135   254840160 :          lu(k,3667) = lu(k,3667) * lu(k,3663)
   17136   254840160 :          lu(k,3668) = lu(k,3668) * lu(k,3663)
   17137   254840160 :          lu(k,3766) = lu(k,3766) - lu(k,3664) * lu(k,3765)
   17138   254840160 :          lu(k,3767) = lu(k,3767) - lu(k,3665) * lu(k,3765)
   17139   254840160 :          lu(k,3768) = lu(k,3768) - lu(k,3666) * lu(k,3765)
   17140   254840160 :          lu(k,3769) = lu(k,3769) - lu(k,3667) * lu(k,3765)
   17141   254840160 :          lu(k,3770) = lu(k,3770) - lu(k,3668) * lu(k,3765)
   17142   254840160 :          lu(k,3807) = lu(k,3807) - lu(k,3664) * lu(k,3806)
   17143   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3665) * lu(k,3806)
   17144   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3666) * lu(k,3806)
   17145   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3667) * lu(k,3806)
   17146   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3668) * lu(k,3806)
   17147   254840160 :          lu(k,3848) = lu(k,3848) - lu(k,3664) * lu(k,3847)
   17148   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3665) * lu(k,3847)
   17149   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3666) * lu(k,3847)
   17150   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3667) * lu(k,3847)
   17151   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3668) * lu(k,3847)
   17152   254840160 :          lu(k,4098) = lu(k,4098) - lu(k,3664) * lu(k,4097)
   17153   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3665) * lu(k,4097)
   17154   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3666) * lu(k,4097)
   17155   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3667) * lu(k,4097)
   17156   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3668) * lu(k,4097)
   17157   254840160 :          lu(k,4124) = lu(k,4124) - lu(k,3664) * lu(k,4123)
   17158   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3665) * lu(k,4123)
   17159   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3666) * lu(k,4123)
   17160   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3667) * lu(k,4123)
   17161   263009123 :          lu(k,4128) = lu(k,4128) - lu(k,3668) * lu(k,4123)
   17162             :       end do
   17163     8168963 :       end subroutine lu_fac54
   17164     8168963 :       subroutine lu_fac55( avec_len, lu )
   17165             :       use chem_mods, only : nzcnt
   17166             :       use shr_kind_mod, only : r8 => shr_kind_r8
   17167             :       implicit none
   17168             : !-----------------------------------------------------------------------
   17169             : ! ... dummy args
   17170             : !-----------------------------------------------------------------------
   17171             :       integer, intent(in) :: avec_len
   17172             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   17173             : !-----------------------------------------------------------------------
   17174             : ! ... local variables
   17175             : !-----------------------------------------------------------------------
   17176             :       integer :: k
   17177   263009123 :       do k = 1,avec_len
   17178   254840160 :          lu(k,3766) = 1._r8 / lu(k,3766)
   17179   254840160 :          lu(k,3767) = lu(k,3767) * lu(k,3766)
   17180   254840160 :          lu(k,3768) = lu(k,3768) * lu(k,3766)
   17181   254840160 :          lu(k,3769) = lu(k,3769) * lu(k,3766)
   17182   254840160 :          lu(k,3770) = lu(k,3770) * lu(k,3766)
   17183   254840160 :          lu(k,3808) = lu(k,3808) - lu(k,3767) * lu(k,3807)
   17184   254840160 :          lu(k,3809) = lu(k,3809) - lu(k,3768) * lu(k,3807)
   17185   254840160 :          lu(k,3810) = lu(k,3810) - lu(k,3769) * lu(k,3807)
   17186   254840160 :          lu(k,3811) = lu(k,3811) - lu(k,3770) * lu(k,3807)
   17187   254840160 :          lu(k,3849) = lu(k,3849) - lu(k,3767) * lu(k,3848)
   17188   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3768) * lu(k,3848)
   17189   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3769) * lu(k,3848)
   17190   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3770) * lu(k,3848)
   17191   254840160 :          lu(k,4099) = lu(k,4099) - lu(k,3767) * lu(k,4098)
   17192   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3768) * lu(k,4098)
   17193   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3769) * lu(k,4098)
   17194   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3770) * lu(k,4098)
   17195   254840160 :          lu(k,4125) = lu(k,4125) - lu(k,3767) * lu(k,4124)
   17196   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3768) * lu(k,4124)
   17197   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3769) * lu(k,4124)
   17198   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3770) * lu(k,4124)
   17199   254840160 :          lu(k,3808) = 1._r8 / lu(k,3808)
   17200   254840160 :          lu(k,3809) = lu(k,3809) * lu(k,3808)
   17201   254840160 :          lu(k,3810) = lu(k,3810) * lu(k,3808)
   17202   254840160 :          lu(k,3811) = lu(k,3811) * lu(k,3808)
   17203   254840160 :          lu(k,3850) = lu(k,3850) - lu(k,3809) * lu(k,3849)
   17204   254840160 :          lu(k,3851) = lu(k,3851) - lu(k,3810) * lu(k,3849)
   17205   254840160 :          lu(k,3852) = lu(k,3852) - lu(k,3811) * lu(k,3849)
   17206   254840160 :          lu(k,4100) = lu(k,4100) - lu(k,3809) * lu(k,4099)
   17207   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3810) * lu(k,4099)
   17208   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3811) * lu(k,4099)
   17209   254840160 :          lu(k,4126) = lu(k,4126) - lu(k,3809) * lu(k,4125)
   17210   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3810) * lu(k,4125)
   17211   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3811) * lu(k,4125)
   17212   254840160 :          lu(k,3850) = 1._r8 / lu(k,3850)
   17213   254840160 :          lu(k,3851) = lu(k,3851) * lu(k,3850)
   17214   254840160 :          lu(k,3852) = lu(k,3852) * lu(k,3850)
   17215   254840160 :          lu(k,4101) = lu(k,4101) - lu(k,3851) * lu(k,4100)
   17216   254840160 :          lu(k,4102) = lu(k,4102) - lu(k,3852) * lu(k,4100)
   17217   254840160 :          lu(k,4127) = lu(k,4127) - lu(k,3851) * lu(k,4126)
   17218   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,3852) * lu(k,4126)
   17219   254840160 :          lu(k,4101) = 1._r8 / lu(k,4101)
   17220   254840160 :          lu(k,4102) = lu(k,4102) * lu(k,4101)
   17221   254840160 :          lu(k,4128) = lu(k,4128) - lu(k,4102) * lu(k,4127)
   17222   263009123 :          lu(k,4128) = 1._r8 / lu(k,4128)
   17223             :       end do
   17224     8168963 :       end subroutine lu_fac55
   17225     8168963 :       subroutine lu_fac( avec_len, lu )
   17226             :       use chem_mods, only : nzcnt
   17227             :       use shr_kind_mod, only : r8 => shr_kind_r8
   17228             :       implicit none
   17229             : !-----------------------------------------------------------------------
   17230             : ! ... dummy args
   17231             : !-----------------------------------------------------------------------
   17232             :       integer, intent(in) :: avec_len
   17233             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   17234     8168963 :       call lu_fac01( avec_len, lu )
   17235     8168963 :       call lu_fac02( avec_len, lu )
   17236     8168963 :       call lu_fac03( avec_len, lu )
   17237     8168963 :       call lu_fac04( avec_len, lu )
   17238     8168963 :       call lu_fac05( avec_len, lu )
   17239     8168963 :       call lu_fac06( avec_len, lu )
   17240     8168963 :       call lu_fac07( avec_len, lu )
   17241     8168963 :       call lu_fac08( avec_len, lu )
   17242     8168963 :       call lu_fac09( avec_len, lu )
   17243     8168963 :       call lu_fac10( avec_len, lu )
   17244     8168963 :       call lu_fac11( avec_len, lu )
   17245     8168963 :       call lu_fac12( avec_len, lu )
   17246     8168963 :       call lu_fac13( avec_len, lu )
   17247     8168963 :       call lu_fac14( avec_len, lu )
   17248     8168963 :       call lu_fac15( avec_len, lu )
   17249     8168963 :       call lu_fac16( avec_len, lu )
   17250     8168963 :       call lu_fac17( avec_len, lu )
   17251     8168963 :       call lu_fac18( avec_len, lu )
   17252     8168963 :       call lu_fac19( avec_len, lu )
   17253     8168963 :       call lu_fac20( avec_len, lu )
   17254     8168963 :       call lu_fac21( avec_len, lu )
   17255     8168963 :       call lu_fac22( avec_len, lu )
   17256     8168963 :       call lu_fac23( avec_len, lu )
   17257     8168963 :       call lu_fac24( avec_len, lu )
   17258     8168963 :       call lu_fac25( avec_len, lu )
   17259     8168963 :       call lu_fac26( avec_len, lu )
   17260     8168963 :       call lu_fac27( avec_len, lu )
   17261     8168963 :       call lu_fac28( avec_len, lu )
   17262     8168963 :       call lu_fac29( avec_len, lu )
   17263     8168963 :       call lu_fac30( avec_len, lu )
   17264     8168963 :       call lu_fac31( avec_len, lu )
   17265     8168963 :       call lu_fac32( avec_len, lu )
   17266     8168963 :       call lu_fac33( avec_len, lu )
   17267     8168963 :       call lu_fac34( avec_len, lu )
   17268     8168963 :       call lu_fac35( avec_len, lu )
   17269     8168963 :       call lu_fac36( avec_len, lu )
   17270     8168963 :       call lu_fac37( avec_len, lu )
   17271     8168963 :       call lu_fac38( avec_len, lu )
   17272     8168963 :       call lu_fac39( avec_len, lu )
   17273     8168963 :       call lu_fac40( avec_len, lu )
   17274     8168963 :       call lu_fac41( avec_len, lu )
   17275     8168963 :       call lu_fac42( avec_len, lu )
   17276     8168963 :       call lu_fac43( avec_len, lu )
   17277     8168963 :       call lu_fac44( avec_len, lu )
   17278     8168963 :       call lu_fac45( avec_len, lu )
   17279     8168963 :       call lu_fac46( avec_len, lu )
   17280     8168963 :       call lu_fac47( avec_len, lu )
   17281     8168963 :       call lu_fac48( avec_len, lu )
   17282     8168963 :       call lu_fac49( avec_len, lu )
   17283     8168963 :       call lu_fac50( avec_len, lu )
   17284     8168963 :       call lu_fac51( avec_len, lu )
   17285     8168963 :       call lu_fac52( avec_len, lu )
   17286     8168963 :       call lu_fac53( avec_len, lu )
   17287     8168963 :       call lu_fac54( avec_len, lu )
   17288     8168963 :       call lu_fac55( avec_len, lu )
   17289     8168963 :       end subroutine lu_fac
   17290             :       end module mo_lu_factor

Generated by: LCOV version 1.14