LCOV - code coverage report
Current view: top level - chemistry/pp_trop_strat_noaero - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 6896 6896 100.0 %
Date: 2025-03-14 01:30:37 Functions: 28 28 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     4409738 :       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   145521354 :       do k = 1,avec_len
      20   141111616 :          lu(k,1) = 1._r8 / lu(k,1)
      21   141111616 :          lu(k,2) = 1._r8 / lu(k,2)
      22   141111616 :          lu(k,3) = 1._r8 / lu(k,3)
      23   141111616 :          lu(k,4) = 1._r8 / lu(k,4)
      24   141111616 :          lu(k,5) = 1._r8 / lu(k,5)
      25   141111616 :          lu(k,6) = 1._r8 / lu(k,6)
      26   141111616 :          lu(k,12) = 1._r8 / lu(k,12)
      27   141111616 :          lu(k,18) = 1._r8 / lu(k,18)
      28   141111616 :          lu(k,24) = 1._r8 / lu(k,24)
      29   141111616 :          lu(k,30) = 1._r8 / lu(k,30)
      30   141111616 :          lu(k,36) = 1._r8 / lu(k,36)
      31   141111616 :          lu(k,38) = 1._r8 / lu(k,38)
      32   141111616 :          lu(k,44) = 1._r8 / lu(k,44)
      33   141111616 :          lu(k,50) = 1._r8 / lu(k,50)
      34   141111616 :          lu(k,56) = 1._r8 / lu(k,56)
      35   141111616 :          lu(k,57) = 1._r8 / lu(k,57)
      36   141111616 :          lu(k,58) = lu(k,58) * lu(k,57)
      37   141111616 :          lu(k,59) = lu(k,59) * lu(k,57)
      38   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,58) * lu(k,1372)
      39   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,59) * lu(k,1372)
      40   141111616 :          lu(k,60) = 1._r8 / lu(k,60)
      41   141111616 :          lu(k,61) = lu(k,61) * lu(k,60)
      42   141111616 :          lu(k,62) = lu(k,62) * lu(k,60)
      43   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,61) * lu(k,1695)
      44   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,62) * lu(k,1695)
      45   141111616 :          lu(k,63) = 1._r8 / lu(k,63)
      46   141111616 :          lu(k,64) = lu(k,64) * lu(k,63)
      47   141111616 :          lu(k,65) = lu(k,65) * lu(k,63)
      48   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,64) * lu(k,1373)
      49   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,65) * lu(k,1373)
      50   141111616 :          lu(k,66) = 1._r8 / lu(k,66)
      51   141111616 :          lu(k,67) = lu(k,67) * lu(k,66)
      52   141111616 :          lu(k,68) = lu(k,68) * lu(k,66)
      53   141111616 :          lu(k,69) = lu(k,69) * lu(k,66)
      54   141111616 :          lu(k,1454) = lu(k,1454) - lu(k,67) * lu(k,1374)
      55   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,68) * lu(k,1374)
      56   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,69) * lu(k,1374)
      57   141111616 :          lu(k,70) = 1._r8 / lu(k,70)
      58   141111616 :          lu(k,71) = lu(k,71) * lu(k,70)
      59   141111616 :          lu(k,72) = lu(k,72) * lu(k,70)
      60   141111616 :          lu(k,1337) = lu(k,1337) - lu(k,71) * lu(k,1334)
      61   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,72) * lu(k,1334)
      62   141111616 :          lu(k,1452) = - lu(k,71) * lu(k,1375)
      63   141111616 :          lu(k,1498) = - lu(k,72) * lu(k,1375)
      64   141111616 :          lu(k,73) = 1._r8 / lu(k,73)
      65   141111616 :          lu(k,74) = lu(k,74) * lu(k,73)
      66   141111616 :          lu(k,75) = lu(k,75) * lu(k,73)
      67   141111616 :          lu(k,566) = lu(k,566) - lu(k,74) * lu(k,565)
      68   141111616 :          lu(k,569) = - lu(k,75) * lu(k,565)
      69   141111616 :          lu(k,1604) = - lu(k,74) * lu(k,1601)
      70   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,75) * lu(k,1601)
      71   141111616 :          lu(k,76) = 1._r8 / lu(k,76)
      72   141111616 :          lu(k,77) = lu(k,77) * lu(k,76)
      73   141111616 :          lu(k,78) = lu(k,78) * lu(k,76)
      74   141111616 :          lu(k,175) = lu(k,175) - lu(k,77) * lu(k,174)
      75   141111616 :          lu(k,178) = lu(k,178) - lu(k,78) * lu(k,174)
      76   141111616 :          lu(k,2028) = lu(k,2028) - lu(k,77) * lu(k,2026)
      77   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,78) * lu(k,2026)
      78   141111616 :          lu(k,79) = 1._r8 / lu(k,79)
      79   141111616 :          lu(k,80) = lu(k,80) * lu(k,79)
      80   141111616 :          lu(k,81) = lu(k,81) * lu(k,79)
      81   141111616 :          lu(k,597) = lu(k,597) - lu(k,80) * lu(k,595)
      82   141111616 :          lu(k,600) = lu(k,600) - lu(k,81) * lu(k,595)
      83   141111616 :          lu(k,1482) = lu(k,1482) - lu(k,80) * lu(k,1376)
      84   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,81) * lu(k,1376)
      85   141111616 :          lu(k,82) = 1._r8 / lu(k,82)
      86   141111616 :          lu(k,83) = lu(k,83) * lu(k,82)
      87   141111616 :          lu(k,84) = lu(k,84) * lu(k,82)
      88   141111616 :          lu(k,408) = lu(k,408) - lu(k,83) * lu(k,407)
      89   141111616 :          lu(k,413) = lu(k,413) - lu(k,84) * lu(k,407)
      90   141111616 :          lu(k,1877) = lu(k,1877) - lu(k,83) * lu(k,1871)
      91   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,84) * lu(k,1871)
      92   141111616 :          lu(k,85) = 1._r8 / lu(k,85)
      93   141111616 :          lu(k,86) = lu(k,86) * lu(k,85)
      94   141111616 :          lu(k,681) = lu(k,681) - lu(k,86) * lu(k,675)
      95   141111616 :          lu(k,833) = lu(k,833) - lu(k,86) * lu(k,824)
      96   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,86) * lu(k,1696)
      97   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,86) * lu(k,1912)
      98   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,86) * lu(k,1935)
      99   141111616 :          lu(k,88) = 1._r8 / lu(k,88)
     100   141111616 :          lu(k,89) = lu(k,89) * lu(k,88)
     101   141111616 :          lu(k,90) = lu(k,90) * lu(k,88)
     102   141111616 :          lu(k,91) = lu(k,91) * lu(k,88)
     103   141111616 :          lu(k,92) = lu(k,92) * lu(k,88)
     104   141111616 :          lu(k,93) = lu(k,93) * lu(k,88)
     105   141111616 :          lu(k,1378) = lu(k,1378) - lu(k,89) * lu(k,1377)
     106   141111616 :          lu(k,1379) = lu(k,1379) - lu(k,90) * lu(k,1377)
     107   141111616 :          lu(k,1422) = lu(k,1422) - lu(k,91) * lu(k,1377)
     108   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,92) * lu(k,1377)
     109   145521354 :          lu(k,1503) = lu(k,1503) - lu(k,93) * lu(k,1377)
     110             :       end do
     111     4409738 :       end subroutine lu_fac01
     112     4409738 :       subroutine lu_fac02( avec_len, lu )
     113             :       use chem_mods, only : nzcnt
     114             :       use shr_kind_mod, only : r8 => shr_kind_r8
     115             :       implicit none
     116             : !-----------------------------------------------------------------------
     117             : ! ... dummy args
     118             : !-----------------------------------------------------------------------
     119             :       integer, intent(in) :: avec_len
     120             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     121             : !-----------------------------------------------------------------------
     122             : ! ... local variables
     123             : !-----------------------------------------------------------------------
     124             :       integer :: k
     125   145521354 :       do k = 1,avec_len
     126   141111616 :          lu(k,94) = 1._r8 / lu(k,94)
     127   141111616 :          lu(k,95) = lu(k,95) * lu(k,94)
     128   141111616 :          lu(k,96) = lu(k,96) * lu(k,94)
     129   141111616 :          lu(k,97) = lu(k,97) * lu(k,94)
     130   141111616 :          lu(k,1418) = - lu(k,95) * lu(k,1378)
     131   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,96) * lu(k,1378)
     132   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,97) * lu(k,1378)
     133   141111616 :          lu(k,98) = 1._r8 / lu(k,98)
     134   141111616 :          lu(k,99) = lu(k,99) * lu(k,98)
     135   141111616 :          lu(k,100) = lu(k,100) * lu(k,98)
     136   141111616 :          lu(k,101) = lu(k,101) * lu(k,98)
     137   141111616 :          lu(k,102) = lu(k,102) * lu(k,98)
     138   141111616 :          lu(k,1417) = lu(k,1417) - lu(k,99) * lu(k,1379)
     139   141111616 :          lu(k,1420) = lu(k,1420) - lu(k,100) * lu(k,1379)
     140   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,101) * lu(k,1379)
     141   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,102) * lu(k,1379)
     142   141111616 :          lu(k,103) = 1._r8 / lu(k,103)
     143   141111616 :          lu(k,104) = lu(k,104) * lu(k,103)
     144   141111616 :          lu(k,105) = lu(k,105) * lu(k,103)
     145   141111616 :          lu(k,106) = lu(k,106) * lu(k,103)
     146   141111616 :          lu(k,1337) = lu(k,1337) - lu(k,104) * lu(k,1335)
     147   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,105) * lu(k,1335)
     148   141111616 :          lu(k,1355) = lu(k,1355) - lu(k,106) * lu(k,1335)
     149   141111616 :          lu(k,1452) = lu(k,1452) - lu(k,104) * lu(k,1380)
     150   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,105) * lu(k,1380)
     151   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,106) * lu(k,1380)
     152   141111616 :          lu(k,107) = 1._r8 / lu(k,107)
     153   141111616 :          lu(k,108) = lu(k,108) * lu(k,107)
     154   141111616 :          lu(k,109) = lu(k,109) * lu(k,107)
     155   141111616 :          lu(k,110) = lu(k,110) * lu(k,107)
     156   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,108) * lu(k,1336)
     157   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,109) * lu(k,1336)
     158   141111616 :          lu(k,1349) = lu(k,1349) - lu(k,110) * lu(k,1336)
     159   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,108) * lu(k,1381)
     160   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,109) * lu(k,1381)
     161   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,110) * lu(k,1381)
     162   141111616 :          lu(k,112) = 1._r8 / lu(k,112)
     163   141111616 :          lu(k,113) = lu(k,113) * lu(k,112)
     164   141111616 :          lu(k,114) = lu(k,114) * lu(k,112)
     165   141111616 :          lu(k,115) = lu(k,115) * lu(k,112)
     166   141111616 :          lu(k,116) = lu(k,116) * lu(k,112)
     167   141111616 :          lu(k,117) = lu(k,117) * lu(k,112)
     168   141111616 :          lu(k,118) = lu(k,118) * lu(k,112)
     169   141111616 :          lu(k,1383) = lu(k,1383) - lu(k,113) * lu(k,1382)
     170   141111616 :          lu(k,1384) = lu(k,1384) - lu(k,114) * lu(k,1382)
     171   141111616 :          lu(k,1416) = lu(k,1416) - lu(k,115) * lu(k,1382)
     172   141111616 :          lu(k,1447) = lu(k,1447) - lu(k,116) * lu(k,1382)
     173   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,117) * lu(k,1382)
     174   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,118) * lu(k,1382)
     175   141111616 :          lu(k,119) = 1._r8 / lu(k,119)
     176   141111616 :          lu(k,120) = lu(k,120) * lu(k,119)
     177   141111616 :          lu(k,121) = lu(k,121) * lu(k,119)
     178   141111616 :          lu(k,122) = lu(k,122) * lu(k,119)
     179   141111616 :          lu(k,123) = lu(k,123) * lu(k,119)
     180   141111616 :          lu(k,1417) = lu(k,1417) - lu(k,120) * lu(k,1383)
     181   141111616 :          lu(k,1420) = lu(k,1420) - lu(k,121) * lu(k,1383)
     182   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,122) * lu(k,1383)
     183   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,123) * lu(k,1383)
     184   141111616 :          lu(k,124) = 1._r8 / lu(k,124)
     185   141111616 :          lu(k,125) = lu(k,125) * lu(k,124)
     186   141111616 :          lu(k,126) = lu(k,126) * lu(k,124)
     187   141111616 :          lu(k,127) = lu(k,127) * lu(k,124)
     188   141111616 :          lu(k,137) = - lu(k,125) * lu(k,132)
     189   141111616 :          lu(k,138) = - lu(k,126) * lu(k,132)
     190   141111616 :          lu(k,140) = lu(k,140) - lu(k,127) * lu(k,132)
     191   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,125) * lu(k,1384)
     192   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,126) * lu(k,1384)
     193   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,127) * lu(k,1384)
     194   141111616 :          lu(k,128) = 1._r8 / lu(k,128)
     195   141111616 :          lu(k,129) = lu(k,129) * lu(k,128)
     196   141111616 :          lu(k,130) = lu(k,130) * lu(k,128)
     197   141111616 :          lu(k,1011) = lu(k,1011) - lu(k,129) * lu(k,1005)
     198   141111616 :          lu(k,1016) = - lu(k,130) * lu(k,1005)
     199   141111616 :          lu(k,1482) = lu(k,1482) - lu(k,129) * lu(k,1385)
     200   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,130) * lu(k,1385)
     201   141111616 :          lu(k,1666) = lu(k,1666) - lu(k,129) * lu(k,1602)
     202   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,130) * lu(k,1602)
     203   141111616 :          lu(k,133) = 1._r8 / lu(k,133)
     204   141111616 :          lu(k,134) = lu(k,134) * lu(k,133)
     205   141111616 :          lu(k,135) = lu(k,135) * lu(k,133)
     206   141111616 :          lu(k,136) = lu(k,136) * lu(k,133)
     207   141111616 :          lu(k,137) = lu(k,137) * lu(k,133)
     208   141111616 :          lu(k,138) = lu(k,138) * lu(k,133)
     209   141111616 :          lu(k,139) = lu(k,139) * lu(k,133)
     210   141111616 :          lu(k,140) = lu(k,140) * lu(k,133)
     211   141111616 :          lu(k,1387) = lu(k,1387) - lu(k,134) * lu(k,1386)
     212   141111616 :          lu(k,1416) = lu(k,1416) - lu(k,135) * lu(k,1386)
     213   141111616 :          lu(k,1449) = lu(k,1449) - lu(k,136) * lu(k,1386)
     214   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,137) * lu(k,1386)
     215   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,138) * lu(k,1386)
     216   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,139) * lu(k,1386)
     217   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,140) * lu(k,1386)
     218   141111616 :          lu(k,141) = 1._r8 / lu(k,141)
     219   141111616 :          lu(k,142) = lu(k,142) * lu(k,141)
     220   141111616 :          lu(k,143) = lu(k,143) * lu(k,141)
     221   141111616 :          lu(k,144) = lu(k,144) * lu(k,141)
     222   141111616 :          lu(k,145) = lu(k,145) * lu(k,141)
     223   141111616 :          lu(k,1420) = lu(k,1420) - lu(k,142) * lu(k,1387)
     224   141111616 :          lu(k,1423) = lu(k,1423) - lu(k,143) * lu(k,1387)
     225   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,144) * lu(k,1387)
     226   145521354 :          lu(k,1503) = lu(k,1503) - lu(k,145) * lu(k,1387)
     227             :       end do
     228     4409738 :       end subroutine lu_fac02
     229     4409738 :       subroutine lu_fac03( avec_len, lu )
     230             :       use chem_mods, only : nzcnt
     231             :       use shr_kind_mod, only : r8 => shr_kind_r8
     232             :       implicit none
     233             : !-----------------------------------------------------------------------
     234             : ! ... dummy args
     235             : !-----------------------------------------------------------------------
     236             :       integer, intent(in) :: avec_len
     237             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     238             : !-----------------------------------------------------------------------
     239             : ! ... local variables
     240             : !-----------------------------------------------------------------------
     241             :       integer :: k
     242   145521354 :       do k = 1,avec_len
     243   141111616 :          lu(k,146) = 1._r8 / lu(k,146)
     244   141111616 :          lu(k,147) = lu(k,147) * lu(k,146)
     245   141111616 :          lu(k,148) = lu(k,148) * lu(k,146)
     246   141111616 :          lu(k,639) = lu(k,639) - lu(k,147) * lu(k,638)
     247   141111616 :          lu(k,642) = lu(k,642) - lu(k,148) * lu(k,638)
     248   141111616 :          lu(k,1023) = lu(k,1023) - lu(k,147) * lu(k,1022)
     249   141111616 :          lu(k,1026) = lu(k,1026) - lu(k,148) * lu(k,1022)
     250   141111616 :          lu(k,1258) = lu(k,1258) - lu(k,147) * lu(k,1257)
     251   141111616 :          lu(k,1261) = - lu(k,148) * lu(k,1257)
     252   141111616 :          lu(k,2029) = lu(k,2029) - lu(k,147) * lu(k,2027)
     253   141111616 :          lu(k,2035) = lu(k,2035) - lu(k,148) * lu(k,2027)
     254   141111616 :          lu(k,149) = 1._r8 / lu(k,149)
     255   141111616 :          lu(k,150) = lu(k,150) * lu(k,149)
     256   141111616 :          lu(k,151) = lu(k,151) * lu(k,149)
     257   141111616 :          lu(k,152) = lu(k,152) * lu(k,149)
     258   141111616 :          lu(k,153) = lu(k,153) * lu(k,149)
     259   141111616 :          lu(k,1099) = - lu(k,150) * lu(k,1096)
     260   141111616 :          lu(k,1110) = - lu(k,151) * lu(k,1096)
     261   141111616 :          lu(k,1121) = - lu(k,152) * lu(k,1096)
     262   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,153) * lu(k,1096)
     263   141111616 :          lu(k,1438) = - lu(k,150) * lu(k,1388)
     264   141111616 :          lu(k,1482) = lu(k,1482) - lu(k,151) * lu(k,1388)
     265   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,152) * lu(k,1388)
     266   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,153) * lu(k,1388)
     267   141111616 :          lu(k,154) = 1._r8 / lu(k,154)
     268   141111616 :          lu(k,155) = lu(k,155) * lu(k,154)
     269   141111616 :          lu(k,156) = lu(k,156) * lu(k,154)
     270   141111616 :          lu(k,760) = - lu(k,155) * lu(k,755)
     271   141111616 :          lu(k,770) = lu(k,770) - lu(k,156) * lu(k,755)
     272   141111616 :          lu(k,787) = - lu(k,155) * lu(k,782)
     273   141111616 :          lu(k,797) = lu(k,797) - lu(k,156) * lu(k,782)
     274   141111616 :          lu(k,1466) = lu(k,1466) - lu(k,155) * lu(k,1389)
     275   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,156) * lu(k,1389)
     276   141111616 :          lu(k,1830) = - lu(k,155) * lu(k,1816)
     277   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,156) * lu(k,1816)
     278   141111616 :          lu(k,157) = 1._r8 / lu(k,157)
     279   141111616 :          lu(k,158) = lu(k,158) * lu(k,157)
     280   141111616 :          lu(k,159) = lu(k,159) * lu(k,157)
     281   141111616 :          lu(k,241) = - lu(k,158) * lu(k,238)
     282   141111616 :          lu(k,242) = lu(k,242) - lu(k,159) * lu(k,238)
     283   141111616 :          lu(k,334) = - lu(k,158) * lu(k,331)
     284   141111616 :          lu(k,335) = - lu(k,159) * lu(k,331)
     285   141111616 :          lu(k,1427) = lu(k,1427) - lu(k,158) * lu(k,1390)
     286   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,159) * lu(k,1390)
     287   141111616 :          lu(k,1748) = lu(k,1748) - lu(k,158) * lu(k,1733)
     288   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,159) * lu(k,1733)
     289   141111616 :          lu(k,160) = 1._r8 / lu(k,160)
     290   141111616 :          lu(k,161) = lu(k,161) * lu(k,160)
     291   141111616 :          lu(k,162) = lu(k,162) * lu(k,160)
     292   141111616 :          lu(k,916) = lu(k,916) - lu(k,161) * lu(k,907)
     293   141111616 :          lu(k,922) = lu(k,922) - lu(k,162) * lu(k,907)
     294   141111616 :          lu(k,963) = - lu(k,161) * lu(k,953)
     295   141111616 :          lu(k,970) = lu(k,970) - lu(k,162) * lu(k,953)
     296   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,161) * lu(k,1391)
     297   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,162) * lu(k,1391)
     298   141111616 :          lu(k,1794) = - lu(k,161) * lu(k,1734)
     299   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,162) * lu(k,1734)
     300   141111616 :          lu(k,163) = 1._r8 / lu(k,163)
     301   141111616 :          lu(k,164) = lu(k,164) * lu(k,163)
     302   141111616 :          lu(k,165) = lu(k,165) * lu(k,163)
     303   141111616 :          lu(k,649) = lu(k,649) - lu(k,164) * lu(k,647)
     304   141111616 :          lu(k,654) = - lu(k,165) * lu(k,647)
     305   141111616 :          lu(k,1518) = lu(k,1518) - lu(k,164) * lu(k,1512)
     306   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,165) * lu(k,1512)
     307   141111616 :          lu(k,1703) = lu(k,1703) - lu(k,164) * lu(k,1697)
     308   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,165) * lu(k,1697)
     309   141111616 :          lu(k,1917) = - lu(k,164) * lu(k,1913)
     310   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,165) * lu(k,1913)
     311   141111616 :          lu(k,166) = 1._r8 / lu(k,166)
     312   141111616 :          lu(k,167) = lu(k,167) * lu(k,166)
     313   141111616 :          lu(k,168) = lu(k,168) * lu(k,166)
     314   141111616 :          lu(k,169) = lu(k,169) * lu(k,166)
     315   141111616 :          lu(k,687) = lu(k,687) - lu(k,167) * lu(k,683)
     316   141111616 :          lu(k,689) = - lu(k,168) * lu(k,683)
     317   141111616 :          lu(k,691) = lu(k,691) - lu(k,169) * lu(k,683)
     318   141111616 :          lu(k,1301) = lu(k,1301) - lu(k,167) * lu(k,1285)
     319   141111616 :          lu(k,1322) = - lu(k,168) * lu(k,1285)
     320   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,169) * lu(k,1285)
     321   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,167) * lu(k,1392)
     322   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,168) * lu(k,1392)
     323   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,169) * lu(k,1392)
     324   141111616 :          lu(k,170) = 1._r8 / lu(k,170)
     325   141111616 :          lu(k,171) = lu(k,171) * lu(k,170)
     326   141111616 :          lu(k,172) = lu(k,172) * lu(k,170)
     327   141111616 :          lu(k,173) = lu(k,173) * lu(k,170)
     328   141111616 :          lu(k,513) = lu(k,513) - lu(k,171) * lu(k,512)
     329   141111616 :          lu(k,514) = lu(k,514) - lu(k,172) * lu(k,512)
     330   141111616 :          lu(k,515) = - lu(k,173) * lu(k,512)
     331   141111616 :          lu(k,1420) = lu(k,1420) - lu(k,171) * lu(k,1393)
     332   141111616 :          lu(k,1440) = lu(k,1440) - lu(k,172) * lu(k,1393)
     333   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,173) * lu(k,1393)
     334   141111616 :          lu(k,1622) = - lu(k,171) * lu(k,1603)
     335   141111616 :          lu(k,1634) = lu(k,1634) - lu(k,172) * lu(k,1603)
     336   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,173) * lu(k,1603)
     337   141111616 :          lu(k,175) = 1._r8 / lu(k,175)
     338   141111616 :          lu(k,176) = lu(k,176) * lu(k,175)
     339   141111616 :          lu(k,177) = lu(k,177) * lu(k,175)
     340   141111616 :          lu(k,178) = lu(k,178) * lu(k,175)
     341   141111616 :          lu(k,723) = lu(k,723) - lu(k,176) * lu(k,722)
     342   141111616 :          lu(k,726) = lu(k,726) - lu(k,177) * lu(k,722)
     343   141111616 :          lu(k,728) = - lu(k,178) * lu(k,722)
     344   141111616 :          lu(k,1460) = lu(k,1460) - lu(k,176) * lu(k,1394)
     345   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,177) * lu(k,1394)
     346   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,178) * lu(k,1394)
     347   141111616 :          lu(k,2030) = - lu(k,176) * lu(k,2028)
     348   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,177) * lu(k,2028)
     349   145521354 :          lu(k,2050) = lu(k,2050) - lu(k,178) * lu(k,2028)
     350             :       end do
     351     4409738 :       end subroutine lu_fac03
     352     4409738 :       subroutine lu_fac04( avec_len, lu )
     353             :       use chem_mods, only : nzcnt
     354             :       use shr_kind_mod, only : r8 => shr_kind_r8
     355             :       implicit none
     356             : !-----------------------------------------------------------------------
     357             : ! ... dummy args
     358             : !-----------------------------------------------------------------------
     359             :       integer, intent(in) :: avec_len
     360             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     361             : !-----------------------------------------------------------------------
     362             : ! ... local variables
     363             : !-----------------------------------------------------------------------
     364             :       integer :: k
     365   145521354 :       do k = 1,avec_len
     366   141111616 :          lu(k,179) = 1._r8 / lu(k,179)
     367   141111616 :          lu(k,180) = lu(k,180) * lu(k,179)
     368   141111616 :          lu(k,181) = lu(k,181) * lu(k,179)
     369   141111616 :          lu(k,182) = lu(k,182) * lu(k,179)
     370   141111616 :          lu(k,568) = - lu(k,180) * lu(k,566)
     371   141111616 :          lu(k,570) = lu(k,570) - lu(k,181) * lu(k,566)
     372   141111616 :          lu(k,571) = lu(k,571) - lu(k,182) * lu(k,566)
     373   141111616 :          lu(k,1657) = - lu(k,180) * lu(k,1604)
     374   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,181) * lu(k,1604)
     375   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,182) * lu(k,1604)
     376   141111616 :          lu(k,1772) = lu(k,1772) - lu(k,180) * lu(k,1735)
     377   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,181) * lu(k,1735)
     378   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,182) * lu(k,1735)
     379   141111616 :          lu(k,183) = 1._r8 / lu(k,183)
     380   141111616 :          lu(k,184) = lu(k,184) * lu(k,183)
     381   141111616 :          lu(k,185) = lu(k,185) * lu(k,183)
     382   141111616 :          lu(k,186) = lu(k,186) * lu(k,183)
     383   141111616 :          lu(k,187) = lu(k,187) * lu(k,183)
     384   141111616 :          lu(k,188) = lu(k,188) * lu(k,183)
     385   141111616 :          lu(k,1460) = lu(k,1460) - lu(k,184) * lu(k,1395)
     386   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,185) * lu(k,1395)
     387   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,186) * lu(k,1395)
     388   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,187) * lu(k,1395)
     389   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,188) * lu(k,1395)
     390   141111616 :          lu(k,1977) = lu(k,1977) - lu(k,184) * lu(k,1971)
     391   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,185) * lu(k,1971)
     392   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,186) * lu(k,1971)
     393   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,187) * lu(k,1971)
     394   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,188) * lu(k,1971)
     395   141111616 :          lu(k,189) = 1._r8 / lu(k,189)
     396   141111616 :          lu(k,190) = lu(k,190) * lu(k,189)
     397   141111616 :          lu(k,191) = lu(k,191) * lu(k,189)
     398   141111616 :          lu(k,192) = lu(k,192) * lu(k,189)
     399   141111616 :          lu(k,193) = lu(k,193) * lu(k,189)
     400   141111616 :          lu(k,194) = lu(k,194) * lu(k,189)
     401   141111616 :          lu(k,1895) = lu(k,1895) - lu(k,190) * lu(k,1872)
     402   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,191) * lu(k,1872)
     403   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,192) * lu(k,1872)
     404   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,193) * lu(k,1872)
     405   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,194) * lu(k,1872)
     406   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,190) * lu(k,1972)
     407   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,191) * lu(k,1972)
     408   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,192) * lu(k,1972)
     409   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,193) * lu(k,1972)
     410   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,194) * lu(k,1972)
     411   141111616 :          lu(k,195) = 1._r8 / lu(k,195)
     412   141111616 :          lu(k,196) = lu(k,196) * lu(k,195)
     413   141111616 :          lu(k,197) = lu(k,197) * lu(k,195)
     414   141111616 :          lu(k,198) = lu(k,198) * lu(k,195)
     415   141111616 :          lu(k,199) = lu(k,199) * lu(k,195)
     416   141111616 :          lu(k,200) = lu(k,200) * lu(k,195)
     417   141111616 :          lu(k,1457) = lu(k,1457) - lu(k,196) * lu(k,1396)
     418   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,197) * lu(k,1396)
     419   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,198) * lu(k,1396)
     420   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,199) * lu(k,1396)
     421   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,200) * lu(k,1396)
     422   141111616 :          lu(k,1943) = lu(k,1943) - lu(k,196) * lu(k,1936)
     423   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,197) * lu(k,1936)
     424   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,198) * lu(k,1936)
     425   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,199) * lu(k,1936)
     426   141111616 :          lu(k,1968) = - lu(k,200) * lu(k,1936)
     427   141111616 :          lu(k,201) = 1._r8 / lu(k,201)
     428   141111616 :          lu(k,202) = lu(k,202) * lu(k,201)
     429   141111616 :          lu(k,203) = lu(k,203) * lu(k,201)
     430   141111616 :          lu(k,204) = lu(k,204) * lu(k,201)
     431   141111616 :          lu(k,205) = lu(k,205) * lu(k,201)
     432   141111616 :          lu(k,206) = lu(k,206) * lu(k,201)
     433   141111616 :          lu(k,1455) = lu(k,1455) - lu(k,202) * lu(k,1397)
     434   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,203) * lu(k,1397)
     435   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,204) * lu(k,1397)
     436   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,205) * lu(k,1397)
     437   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,206) * lu(k,1397)
     438   141111616 :          lu(k,1941) = - lu(k,202) * lu(k,1937)
     439   141111616 :          lu(k,1944) = - lu(k,203) * lu(k,1937)
     440   141111616 :          lu(k,1948) = lu(k,1948) - lu(k,204) * lu(k,1937)
     441   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,205) * lu(k,1937)
     442   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,206) * lu(k,1937)
     443   141111616 :          lu(k,207) = 1._r8 / lu(k,207)
     444   141111616 :          lu(k,208) = lu(k,208) * lu(k,207)
     445   141111616 :          lu(k,209) = lu(k,209) * lu(k,207)
     446   141111616 :          lu(k,497) = - lu(k,208) * lu(k,491)
     447   141111616 :          lu(k,501) = lu(k,501) - lu(k,209) * lu(k,491)
     448   141111616 :          lu(k,557) = - lu(k,208) * lu(k,550)
     449   141111616 :          lu(k,564) = lu(k,564) - lu(k,209) * lu(k,550)
     450   141111616 :          lu(k,586) = - lu(k,208) * lu(k,580)
     451   141111616 :          lu(k,592) = lu(k,592) - lu(k,209) * lu(k,580)
     452   141111616 :          lu(k,610) = - lu(k,208) * lu(k,603)
     453   141111616 :          lu(k,617) = lu(k,617) - lu(k,209) * lu(k,603)
     454   141111616 :          lu(k,1761) = lu(k,1761) - lu(k,208) * lu(k,1736)
     455   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,209) * lu(k,1736)
     456   141111616 :          lu(k,210) = 1._r8 / lu(k,210)
     457   141111616 :          lu(k,211) = lu(k,211) * lu(k,210)
     458   141111616 :          lu(k,212) = lu(k,212) * lu(k,210)
     459   141111616 :          lu(k,1110) = lu(k,1110) - lu(k,211) * lu(k,1097)
     460   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,212) * lu(k,1097)
     461   141111616 :          lu(k,1224) = lu(k,1224) - lu(k,211) * lu(k,1215)
     462   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,212) * lu(k,1215)
     463   141111616 :          lu(k,1308) = lu(k,1308) - lu(k,211) * lu(k,1286)
     464   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,212) * lu(k,1286)
     465   141111616 :          lu(k,1482) = lu(k,1482) - lu(k,211) * lu(k,1398)
     466   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,212) * lu(k,1398)
     467   141111616 :          lu(k,1783) = lu(k,1783) - lu(k,211) * lu(k,1737)
     468   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,212) * lu(k,1737)
     469   141111616 :          lu(k,1997) = lu(k,1997) - lu(k,211) * lu(k,1973)
     470   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,212) * lu(k,1973)
     471   141111616 :          lu(k,213) = 1._r8 / lu(k,213)
     472   141111616 :          lu(k,214) = lu(k,214) * lu(k,213)
     473   141111616 :          lu(k,215) = lu(k,215) * lu(k,213)
     474   141111616 :          lu(k,216) = lu(k,216) * lu(k,213)
     475   141111616 :          lu(k,217) = lu(k,217) * lu(k,213)
     476   141111616 :          lu(k,686) = lu(k,686) - lu(k,214) * lu(k,684)
     477   141111616 :          lu(k,687) = lu(k,687) - lu(k,215) * lu(k,684)
     478   141111616 :          lu(k,689) = lu(k,689) - lu(k,216) * lu(k,684)
     479   141111616 :          lu(k,691) = lu(k,691) - lu(k,217) * lu(k,684)
     480   141111616 :          lu(k,1457) = lu(k,1457) - lu(k,214) * lu(k,1399)
     481   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,215) * lu(k,1399)
     482   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,216) * lu(k,1399)
     483   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,217) * lu(k,1399)
     484   141111616 :          lu(k,1649) = lu(k,1649) - lu(k,214) * lu(k,1605)
     485   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,215) * lu(k,1605)
     486   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,216) * lu(k,1605)
     487   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,217) * lu(k,1605)
     488   141111616 :          lu(k,218) = 1._r8 / lu(k,218)
     489   141111616 :          lu(k,219) = lu(k,219) * lu(k,218)
     490   141111616 :          lu(k,220) = lu(k,220) * lu(k,218)
     491   141111616 :          lu(k,221) = lu(k,221) * lu(k,218)
     492   141111616 :          lu(k,222) = lu(k,222) * lu(k,218)
     493   141111616 :          lu(k,1157) = lu(k,1157) - lu(k,219) * lu(k,1149)
     494   141111616 :          lu(k,1158) = - lu(k,220) * lu(k,1149)
     495   141111616 :          lu(k,1163) = - lu(k,221) * lu(k,1149)
     496   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,222) * lu(k,1149)
     497   141111616 :          lu(k,1490) = lu(k,1490) - lu(k,219) * lu(k,1400)
     498   141111616 :          lu(k,1492) = lu(k,1492) - lu(k,220) * lu(k,1400)
     499   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,221) * lu(k,1400)
     500   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,222) * lu(k,1400)
     501   141111616 :          lu(k,1673) = lu(k,1673) - lu(k,219) * lu(k,1606)
     502   141111616 :          lu(k,1675) = lu(k,1675) - lu(k,220) * lu(k,1606)
     503   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,221) * lu(k,1606)
     504   145521354 :          lu(k,1686) = lu(k,1686) - lu(k,222) * lu(k,1606)
     505             :       end do
     506     4409738 :       end subroutine lu_fac04
     507     4409738 :       subroutine lu_fac05( avec_len, lu )
     508             :       use chem_mods, only : nzcnt
     509             :       use shr_kind_mod, only : r8 => shr_kind_r8
     510             :       implicit none
     511             : !-----------------------------------------------------------------------
     512             : ! ... dummy args
     513             : !-----------------------------------------------------------------------
     514             :       integer, intent(in) :: avec_len
     515             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     516             : !-----------------------------------------------------------------------
     517             : ! ... local variables
     518             : !-----------------------------------------------------------------------
     519             :       integer :: k
     520   145521354 :       do k = 1,avec_len
     521   141111616 :          lu(k,223) = 1._r8 / lu(k,223)
     522   141111616 :          lu(k,224) = lu(k,224) * lu(k,223)
     523   141111616 :          lu(k,225) = lu(k,225) * lu(k,223)
     524   141111616 :          lu(k,226) = lu(k,226) * lu(k,223)
     525   141111616 :          lu(k,227) = lu(k,227) * lu(k,223)
     526   141111616 :          lu(k,543) = lu(k,543) - lu(k,224) * lu(k,542)
     527   141111616 :          lu(k,544) = lu(k,544) - lu(k,225) * lu(k,542)
     528   141111616 :          lu(k,545) = lu(k,545) - lu(k,226) * lu(k,542)
     529   141111616 :          lu(k,546) = lu(k,546) - lu(k,227) * lu(k,542)
     530   141111616 :          lu(k,1443) = lu(k,1443) - lu(k,224) * lu(k,1401)
     531   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,225) * lu(k,1401)
     532   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,226) * lu(k,1401)
     533   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,227) * lu(k,1401)
     534   141111616 :          lu(k,1636) = lu(k,1636) - lu(k,224) * lu(k,1607)
     535   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,225) * lu(k,1607)
     536   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,226) * lu(k,1607)
     537   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,227) * lu(k,1607)
     538   141111616 :          lu(k,228) = 1._r8 / lu(k,228)
     539   141111616 :          lu(k,229) = lu(k,229) * lu(k,228)
     540   141111616 :          lu(k,230) = lu(k,230) * lu(k,228)
     541   141111616 :          lu(k,231) = lu(k,231) * lu(k,228)
     542   141111616 :          lu(k,232) = lu(k,232) * lu(k,228)
     543   141111616 :          lu(k,1082) = lu(k,1082) - lu(k,229) * lu(k,1080)
     544   141111616 :          lu(k,1083) = lu(k,1083) - lu(k,230) * lu(k,1080)
     545   141111616 :          lu(k,1088) = lu(k,1088) - lu(k,231) * lu(k,1080)
     546   141111616 :          lu(k,1090) = lu(k,1090) - lu(k,232) * lu(k,1080)
     547   141111616 :          lu(k,1516) = lu(k,1516) - lu(k,229) * lu(k,1513)
     548   141111616 :          lu(k,1517) = lu(k,1517) - lu(k,230) * lu(k,1513)
     549   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,231) * lu(k,1513)
     550   141111616 :          lu(k,1528) = lu(k,1528) - lu(k,232) * lu(k,1513)
     551   141111616 :          lu(k,1700) = lu(k,1700) - lu(k,229) * lu(k,1698)
     552   141111616 :          lu(k,1702) = lu(k,1702) - lu(k,230) * lu(k,1698)
     553   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,231) * lu(k,1698)
     554   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,232) * lu(k,1698)
     555   141111616 :          lu(k,233) = 1._r8 / lu(k,233)
     556   141111616 :          lu(k,234) = lu(k,234) * lu(k,233)
     557   141111616 :          lu(k,235) = lu(k,235) * lu(k,233)
     558   141111616 :          lu(k,236) = lu(k,236) * lu(k,233)
     559   141111616 :          lu(k,237) = lu(k,237) * lu(k,233)
     560   141111616 :          lu(k,346) = lu(k,346) - lu(k,234) * lu(k,345)
     561   141111616 :          lu(k,347) = lu(k,347) - lu(k,235) * lu(k,345)
     562   141111616 :          lu(k,348) = - lu(k,236) * lu(k,345)
     563   141111616 :          lu(k,349) = lu(k,349) - lu(k,237) * lu(k,345)
     564   141111616 :          lu(k,1417) = lu(k,1417) - lu(k,234) * lu(k,1402)
     565   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,235) * lu(k,1402)
     566   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,236) * lu(k,1402)
     567   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,237) * lu(k,1402)
     568   141111616 :          lu(k,1620) = lu(k,1620) - lu(k,234) * lu(k,1608)
     569   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,235) * lu(k,1608)
     570   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,236) * lu(k,1608)
     571   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,237) * lu(k,1608)
     572   141111616 :          lu(k,239) = 1._r8 / lu(k,239)
     573   141111616 :          lu(k,240) = lu(k,240) * lu(k,239)
     574   141111616 :          lu(k,241) = lu(k,241) * lu(k,239)
     575   141111616 :          lu(k,242) = lu(k,242) * lu(k,239)
     576   141111616 :          lu(k,243) = lu(k,243) * lu(k,239)
     577   141111616 :          lu(k,333) = lu(k,333) - lu(k,240) * lu(k,332)
     578   141111616 :          lu(k,334) = lu(k,334) - lu(k,241) * lu(k,332)
     579   141111616 :          lu(k,335) = lu(k,335) - lu(k,242) * lu(k,332)
     580   141111616 :          lu(k,336) = lu(k,336) - lu(k,243) * lu(k,332)
     581   141111616 :          lu(k,1416) = lu(k,1416) - lu(k,240) * lu(k,1403)
     582   141111616 :          lu(k,1427) = lu(k,1427) - lu(k,241) * lu(k,1403)
     583   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,242) * lu(k,1403)
     584   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,243) * lu(k,1403)
     585   141111616 :          lu(k,1618) = lu(k,1618) - lu(k,240) * lu(k,1609)
     586   141111616 :          lu(k,1627) = lu(k,1627) - lu(k,241) * lu(k,1609)
     587   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,242) * lu(k,1609)
     588   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,243) * lu(k,1609)
     589   141111616 :          lu(k,244) = 1._r8 / lu(k,244)
     590   141111616 :          lu(k,245) = lu(k,245) * lu(k,244)
     591   141111616 :          lu(k,246) = lu(k,246) * lu(k,244)
     592   141111616 :          lu(k,247) = lu(k,247) * lu(k,244)
     593   141111616 :          lu(k,248) = lu(k,248) * lu(k,244)
     594   141111616 :          lu(k,560) = - lu(k,245) * lu(k,551)
     595   141111616 :          lu(k,561) = lu(k,561) - lu(k,246) * lu(k,551)
     596   141111616 :          lu(k,562) = - lu(k,247) * lu(k,551)
     597   141111616 :          lu(k,564) = lu(k,564) - lu(k,248) * lu(k,551)
     598   141111616 :          lu(k,613) = - lu(k,245) * lu(k,604)
     599   141111616 :          lu(k,614) = lu(k,614) - lu(k,246) * lu(k,604)
     600   141111616 :          lu(k,615) = - lu(k,247) * lu(k,604)
     601   141111616 :          lu(k,617) = lu(k,617) - lu(k,248) * lu(k,604)
     602   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,245) * lu(k,1738)
     603   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,246) * lu(k,1738)
     604   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,247) * lu(k,1738)
     605   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,248) * lu(k,1738)
     606   141111616 :          lu(k,249) = 1._r8 / lu(k,249)
     607   141111616 :          lu(k,250) = lu(k,250) * lu(k,249)
     608   141111616 :          lu(k,251) = lu(k,251) * lu(k,249)
     609   141111616 :          lu(k,252) = lu(k,252) * lu(k,249)
     610   141111616 :          lu(k,253) = lu(k,253) * lu(k,249)
     611   141111616 :          lu(k,254) = lu(k,254) * lu(k,249)
     612   141111616 :          lu(k,255) = lu(k,255) * lu(k,249)
     613   141111616 :          lu(k,256) = lu(k,256) * lu(k,249)
     614   141111616 :          lu(k,1424) = lu(k,1424) - lu(k,250) * lu(k,1404)
     615   141111616 :          lu(k,1460) = lu(k,1460) - lu(k,251) * lu(k,1404)
     616   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,252) * lu(k,1404)
     617   141111616 :          lu(k,1487) = lu(k,1487) - lu(k,253) * lu(k,1404)
     618   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,254) * lu(k,1404)
     619   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,255) * lu(k,1404)
     620   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,256) * lu(k,1404)
     621   141111616 :          lu(k,1560) = - lu(k,250) * lu(k,1559)
     622   141111616 :          lu(k,1566) = - lu(k,251) * lu(k,1559)
     623   141111616 :          lu(k,1568) = lu(k,1568) - lu(k,252) * lu(k,1559)
     624   141111616 :          lu(k,1570) = lu(k,1570) - lu(k,253) * lu(k,1559)
     625   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,254) * lu(k,1559)
     626   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,255) * lu(k,1559)
     627   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,256) * lu(k,1559)
     628   141111616 :          lu(k,257) = 1._r8 / lu(k,257)
     629   141111616 :          lu(k,258) = lu(k,258) * lu(k,257)
     630   141111616 :          lu(k,259) = lu(k,259) * lu(k,257)
     631   141111616 :          lu(k,260) = lu(k,260) * lu(k,257)
     632   141111616 :          lu(k,261) = lu(k,261) * lu(k,257)
     633   141111616 :          lu(k,262) = lu(k,262) * lu(k,257)
     634   141111616 :          lu(k,263) = lu(k,263) * lu(k,257)
     635   141111616 :          lu(k,264) = lu(k,264) * lu(k,257)
     636   141111616 :          lu(k,1432) = lu(k,1432) - lu(k,258) * lu(k,1405)
     637   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,259) * lu(k,1405)
     638   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,260) * lu(k,1405)
     639   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,261) * lu(k,1405)
     640   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,262) * lu(k,1405)
     641   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,263) * lu(k,1405)
     642   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,264) * lu(k,1405)
     643   141111616 :          lu(k,1975) = - lu(k,258) * lu(k,1974)
     644   141111616 :          lu(k,1983) = lu(k,1983) - lu(k,259) * lu(k,1974)
     645   141111616 :          lu(k,1989) = lu(k,1989) - lu(k,260) * lu(k,1974)
     646   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,261) * lu(k,1974)
     647   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,262) * lu(k,1974)
     648   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,263) * lu(k,1974)
     649   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,264) * lu(k,1974)
     650   141111616 :          lu(k,265) = 1._r8 / lu(k,265)
     651   141111616 :          lu(k,266) = lu(k,266) * lu(k,265)
     652   141111616 :          lu(k,267) = lu(k,267) * lu(k,265)
     653   141111616 :          lu(k,268) = lu(k,268) * lu(k,265)
     654   141111616 :          lu(k,269) = lu(k,269) * lu(k,265)
     655   141111616 :          lu(k,270) = lu(k,270) * lu(k,265)
     656   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,266) * lu(k,1406)
     657   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,267) * lu(k,1406)
     658   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,268) * lu(k,1406)
     659   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,269) * lu(k,1406)
     660   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,270) * lu(k,1406)
     661   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,266) * lu(k,1610)
     662   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,267) * lu(k,1610)
     663   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,268) * lu(k,1610)
     664   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,269) * lu(k,1610)
     665   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,270) * lu(k,1610)
     666   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,266) * lu(k,1873)
     667   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,267) * lu(k,1873)
     668   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,268) * lu(k,1873)
     669   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,269) * lu(k,1873)
     670   145521354 :          lu(k,1911) = - lu(k,270) * lu(k,1873)
     671             :       end do
     672     4409738 :       end subroutine lu_fac05
     673     4409738 :       subroutine lu_fac06( avec_len, lu )
     674             :       use chem_mods, only : nzcnt
     675             :       use shr_kind_mod, only : r8 => shr_kind_r8
     676             :       implicit none
     677             : !-----------------------------------------------------------------------
     678             : ! ... dummy args
     679             : !-----------------------------------------------------------------------
     680             :       integer, intent(in) :: avec_len
     681             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     682             : !-----------------------------------------------------------------------
     683             : ! ... local variables
     684             : !-----------------------------------------------------------------------
     685             :       integer :: k
     686   145521354 :       do k = 1,avec_len
     687   141111616 :          lu(k,271) = 1._r8 / lu(k,271)
     688   141111616 :          lu(k,272) = lu(k,272) * lu(k,271)
     689   141111616 :          lu(k,273) = lu(k,273) * lu(k,271)
     690   141111616 :          lu(k,274) = lu(k,274) * lu(k,271)
     691   141111616 :          lu(k,275) = lu(k,275) * lu(k,271)
     692   141111616 :          lu(k,276) = lu(k,276) * lu(k,271)
     693   141111616 :          lu(k,1037) = - lu(k,272) * lu(k,1035)
     694   141111616 :          lu(k,1039) = - lu(k,273) * lu(k,1035)
     695   141111616 :          lu(k,1052) = - lu(k,274) * lu(k,1035)
     696   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,275) * lu(k,1035)
     697   141111616 :          lu(k,1056) = lu(k,1056) - lu(k,276) * lu(k,1035)
     698   141111616 :          lu(k,1448) = lu(k,1448) - lu(k,272) * lu(k,1407)
     699   141111616 :          lu(k,1461) = lu(k,1461) - lu(k,273) * lu(k,1407)
     700   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,274) * lu(k,1407)
     701   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,275) * lu(k,1407)
     702   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,276) * lu(k,1407)
     703   141111616 :          lu(k,1641) = lu(k,1641) - lu(k,272) * lu(k,1611)
     704   141111616 :          lu(k,1651) = - lu(k,273) * lu(k,1611)
     705   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,274) * lu(k,1611)
     706   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,275) * lu(k,1611)
     707   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,276) * lu(k,1611)
     708   141111616 :          lu(k,277) = 1._r8 / lu(k,277)
     709   141111616 :          lu(k,278) = lu(k,278) * lu(k,277)
     710   141111616 :          lu(k,279) = lu(k,279) * lu(k,277)
     711   141111616 :          lu(k,280) = lu(k,280) * lu(k,277)
     712   141111616 :          lu(k,281) = lu(k,281) * lu(k,277)
     713   141111616 :          lu(k,282) = lu(k,282) * lu(k,277)
     714   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,278) * lu(k,1408)
     715   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,279) * lu(k,1408)
     716   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,280) * lu(k,1408)
     717   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,281) * lu(k,1408)
     718   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,282) * lu(k,1408)
     719   141111616 :          lu(k,1795) = - lu(k,278) * lu(k,1739)
     720   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,279) * lu(k,1739)
     721   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,280) * lu(k,1739)
     722   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,281) * lu(k,1739)
     723   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,282) * lu(k,1739)
     724   141111616 :          lu(k,1896) = - lu(k,278) * lu(k,1874)
     725   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,279) * lu(k,1874)
     726   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,280) * lu(k,1874)
     727   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,281) * lu(k,1874)
     728   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,282) * lu(k,1874)
     729   141111616 :          lu(k,283) = 1._r8 / lu(k,283)
     730   141111616 :          lu(k,284) = lu(k,284) * lu(k,283)
     731   141111616 :          lu(k,285) = lu(k,285) * lu(k,283)
     732   141111616 :          lu(k,286) = lu(k,286) * lu(k,283)
     733   141111616 :          lu(k,287) = lu(k,287) * lu(k,283)
     734   141111616 :          lu(k,288) = lu(k,288) * lu(k,283)
     735   141111616 :          lu(k,1039) = lu(k,1039) - lu(k,284) * lu(k,1036)
     736   141111616 :          lu(k,1040) = - lu(k,285) * lu(k,1036)
     737   141111616 :          lu(k,1049) = - lu(k,286) * lu(k,1036)
     738   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,287) * lu(k,1036)
     739   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,288) * lu(k,1036)
     740   141111616 :          lu(k,1294) = - lu(k,284) * lu(k,1287)
     741   141111616 :          lu(k,1298) = lu(k,1298) - lu(k,285) * lu(k,1287)
     742   141111616 :          lu(k,1318) = - lu(k,286) * lu(k,1287)
     743   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,287) * lu(k,1287)
     744   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,288) * lu(k,1287)
     745   141111616 :          lu(k,1461) = lu(k,1461) - lu(k,284) * lu(k,1409)
     746   141111616 :          lu(k,1471) = lu(k,1471) - lu(k,285) * lu(k,1409)
     747   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,286) * lu(k,1409)
     748   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,287) * lu(k,1409)
     749   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,288) * lu(k,1409)
     750   141111616 :          lu(k,289) = 1._r8 / lu(k,289)
     751   141111616 :          lu(k,290) = lu(k,290) * lu(k,289)
     752   141111616 :          lu(k,291) = lu(k,291) * lu(k,289)
     753   141111616 :          lu(k,292) = lu(k,292) * lu(k,289)
     754   141111616 :          lu(k,293) = lu(k,293) * lu(k,289)
     755   141111616 :          lu(k,294) = lu(k,294) * lu(k,289)
     756   141111616 :          lu(k,975) = lu(k,975) - lu(k,290) * lu(k,972)
     757   141111616 :          lu(k,979) = lu(k,979) - lu(k,291) * lu(k,972)
     758   141111616 :          lu(k,982) = - lu(k,292) * lu(k,972)
     759   141111616 :          lu(k,985) = - lu(k,293) * lu(k,972)
     760   141111616 :          lu(k,989) = lu(k,989) - lu(k,294) * lu(k,972)
     761   141111616 :          lu(k,1470) = lu(k,1470) - lu(k,290) * lu(k,1410)
     762   141111616 :          lu(k,1480) = lu(k,1480) - lu(k,291) * lu(k,1410)
     763   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,292) * lu(k,1410)
     764   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,293) * lu(k,1410)
     765   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,294) * lu(k,1410)
     766   141111616 :          lu(k,1656) = - lu(k,290) * lu(k,1612)
     767   141111616 :          lu(k,1664) = lu(k,1664) - lu(k,291) * lu(k,1612)
     768   141111616 :          lu(k,1678) = - lu(k,292) * lu(k,1612)
     769   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,293) * lu(k,1612)
     770   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,294) * lu(k,1612)
     771   141111616 :          lu(k,295) = 1._r8 / lu(k,295)
     772   141111616 :          lu(k,296) = lu(k,296) * lu(k,295)
     773   141111616 :          lu(k,297) = lu(k,297) * lu(k,295)
     774   141111616 :          lu(k,298) = lu(k,298) * lu(k,295)
     775   141111616 :          lu(k,299) = lu(k,299) * lu(k,295)
     776   141111616 :          lu(k,300) = lu(k,300) * lu(k,295)
     777   141111616 :          lu(k,1319) = - lu(k,296) * lu(k,1288)
     778   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,297) * lu(k,1288)
     779   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,298) * lu(k,1288)
     780   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,299) * lu(k,1288)
     781   141111616 :          lu(k,1333) = - lu(k,300) * lu(k,1288)
     782   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,296) * lu(k,1411)
     783   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,297) * lu(k,1411)
     784   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,298) * lu(k,1411)
     785   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,299) * lu(k,1411)
     786   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,300) * lu(k,1411)
     787   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,296) * lu(k,1613)
     788   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,297) * lu(k,1613)
     789   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,298) * lu(k,1613)
     790   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,299) * lu(k,1613)
     791   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,300) * lu(k,1613)
     792   141111616 :          lu(k,301) = 1._r8 / lu(k,301)
     793   141111616 :          lu(k,302) = lu(k,302) * lu(k,301)
     794   141111616 :          lu(k,303) = lu(k,303) * lu(k,301)
     795   141111616 :          lu(k,304) = lu(k,304) * lu(k,301)
     796   141111616 :          lu(k,305) = lu(k,305) * lu(k,301)
     797   141111616 :          lu(k,306) = lu(k,306) * lu(k,301)
     798   141111616 :          lu(k,995) = lu(k,995) - lu(k,302) * lu(k,992)
     799   141111616 :          lu(k,997) = lu(k,997) - lu(k,303) * lu(k,992)
     800   141111616 :          lu(k,999) = lu(k,999) - lu(k,304) * lu(k,992)
     801   141111616 :          lu(k,1000) = lu(k,1000) - lu(k,305) * lu(k,992)
     802   141111616 :          lu(k,1004) = - lu(k,306) * lu(k,992)
     803   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,302) * lu(k,1412)
     804   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,303) * lu(k,1412)
     805   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,304) * lu(k,1412)
     806   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,305) * lu(k,1412)
     807   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,306) * lu(k,1412)
     808   141111616 :          lu(k,1665) = lu(k,1665) - lu(k,302) * lu(k,1614)
     809   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,303) * lu(k,1614)
     810   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,304) * lu(k,1614)
     811   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,305) * lu(k,1614)
     812   145521354 :          lu(k,1694) = lu(k,1694) - lu(k,306) * lu(k,1614)
     813             :       end do
     814     4409738 :       end subroutine lu_fac06
     815     4409738 :       subroutine lu_fac07( avec_len, lu )
     816             :       use chem_mods, only : nzcnt
     817             :       use shr_kind_mod, only : r8 => shr_kind_r8
     818             :       implicit none
     819             : !-----------------------------------------------------------------------
     820             : ! ... dummy args
     821             : !-----------------------------------------------------------------------
     822             :       integer, intent(in) :: avec_len
     823             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     824             : !-----------------------------------------------------------------------
     825             : ! ... local variables
     826             : !-----------------------------------------------------------------------
     827             :       integer :: k
     828   145521354 :       do k = 1,avec_len
     829   141111616 :          lu(k,307) = 1._r8 / lu(k,307)
     830   141111616 :          lu(k,308) = lu(k,308) * lu(k,307)
     831   141111616 :          lu(k,309) = lu(k,309) * lu(k,307)
     832   141111616 :          lu(k,310) = lu(k,310) * lu(k,307)
     833   141111616 :          lu(k,311) = lu(k,311) * lu(k,307)
     834   141111616 :          lu(k,312) = lu(k,312) * lu(k,307)
     835   141111616 :          lu(k,661) = lu(k,661) - lu(k,308) * lu(k,660)
     836   141111616 :          lu(k,662) = lu(k,662) - lu(k,309) * lu(k,660)
     837   141111616 :          lu(k,665) = - lu(k,310) * lu(k,660)
     838   141111616 :          lu(k,667) = lu(k,667) - lu(k,311) * lu(k,660)
     839   141111616 :          lu(k,670) = - lu(k,312) * lu(k,660)
     840   141111616 :          lu(k,1454) = lu(k,1454) - lu(k,308) * lu(k,1413)
     841   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,309) * lu(k,1413)
     842   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,310) * lu(k,1413)
     843   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,311) * lu(k,1413)
     844   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,312) * lu(k,1413)
     845   141111616 :          lu(k,1646) = lu(k,1646) - lu(k,308) * lu(k,1615)
     846   141111616 :          lu(k,1655) = - lu(k,309) * lu(k,1615)
     847   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,310) * lu(k,1615)
     848   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,311) * lu(k,1615)
     849   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,312) * lu(k,1615)
     850   141111616 :          lu(k,313) = 1._r8 / lu(k,313)
     851   141111616 :          lu(k,314) = lu(k,314) * lu(k,313)
     852   141111616 :          lu(k,315) = lu(k,315) * lu(k,313)
     853   141111616 :          lu(k,316) = lu(k,316) * lu(k,313)
     854   141111616 :          lu(k,317) = lu(k,317) * lu(k,313)
     855   141111616 :          lu(k,318) = lu(k,318) * lu(k,313)
     856   141111616 :          lu(k,374) = lu(k,374) - lu(k,314) * lu(k,373)
     857   141111616 :          lu(k,375) = lu(k,375) - lu(k,315) * lu(k,373)
     858   141111616 :          lu(k,377) = lu(k,377) - lu(k,316) * lu(k,373)
     859   141111616 :          lu(k,378) = - lu(k,317) * lu(k,373)
     860   141111616 :          lu(k,379) = lu(k,379) - lu(k,318) * lu(k,373)
     861   141111616 :          lu(k,1418) = lu(k,1418) - lu(k,314) * lu(k,1414)
     862   141111616 :          lu(k,1422) = lu(k,1422) - lu(k,315) * lu(k,1414)
     863   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,316) * lu(k,1414)
     864   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,317) * lu(k,1414)
     865   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,318) * lu(k,1414)
     866   141111616 :          lu(k,1621) = - lu(k,314) * lu(k,1616)
     867   141111616 :          lu(k,1624) = lu(k,1624) - lu(k,315) * lu(k,1616)
     868   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,316) * lu(k,1616)
     869   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,317) * lu(k,1616)
     870   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,318) * lu(k,1616)
     871   141111616 :          lu(k,319) = 1._r8 / lu(k,319)
     872   141111616 :          lu(k,320) = lu(k,320) * lu(k,319)
     873   141111616 :          lu(k,321) = lu(k,321) * lu(k,319)
     874   141111616 :          lu(k,322) = lu(k,322) * lu(k,319)
     875   141111616 :          lu(k,323) = lu(k,323) * lu(k,319)
     876   141111616 :          lu(k,324) = lu(k,324) * lu(k,319)
     877   141111616 :          lu(k,758) = - lu(k,320) * lu(k,756)
     878   141111616 :          lu(k,764) = lu(k,764) - lu(k,321) * lu(k,756)
     879   141111616 :          lu(k,768) = - lu(k,322) * lu(k,756)
     880   141111616 :          lu(k,769) = lu(k,769) - lu(k,323) * lu(k,756)
     881   141111616 :          lu(k,772) = lu(k,772) - lu(k,324) * lu(k,756)
     882   141111616 :          lu(k,785) = - lu(k,320) * lu(k,783)
     883   141111616 :          lu(k,791) = lu(k,791) - lu(k,321) * lu(k,783)
     884   141111616 :          lu(k,795) = - lu(k,322) * lu(k,783)
     885   141111616 :          lu(k,796) = lu(k,796) - lu(k,323) * lu(k,783)
     886   141111616 :          lu(k,799) = lu(k,799) - lu(k,324) * lu(k,783)
     887   141111616 :          lu(k,1827) = - lu(k,320) * lu(k,1817)
     888   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,321) * lu(k,1817)
     889   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,322) * lu(k,1817)
     890   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,323) * lu(k,1817)
     891   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,324) * lu(k,1817)
     892   141111616 :          lu(k,325) = 1._r8 / lu(k,325)
     893   141111616 :          lu(k,326) = lu(k,326) * lu(k,325)
     894   141111616 :          lu(k,327) = lu(k,327) * lu(k,325)
     895   141111616 :          lu(k,328) = lu(k,328) * lu(k,325)
     896   141111616 :          lu(k,329) = lu(k,329) * lu(k,325)
     897   141111616 :          lu(k,330) = lu(k,330) * lu(k,325)
     898   141111616 :          lu(k,383) = lu(k,383) - lu(k,326) * lu(k,382)
     899   141111616 :          lu(k,384) = lu(k,384) - lu(k,327) * lu(k,382)
     900   141111616 :          lu(k,385) = lu(k,385) - lu(k,328) * lu(k,382)
     901   141111616 :          lu(k,386) = - lu(k,329) * lu(k,382)
     902   141111616 :          lu(k,387) = lu(k,387) - lu(k,330) * lu(k,382)
     903   141111616 :          lu(k,1423) = lu(k,1423) - lu(k,326) * lu(k,1415)
     904   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,327) * lu(k,1415)
     905   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,328) * lu(k,1415)
     906   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,329) * lu(k,1415)
     907   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,330) * lu(k,1415)
     908   141111616 :          lu(k,1625) = lu(k,1625) - lu(k,326) * lu(k,1617)
     909   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,327) * lu(k,1617)
     910   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,328) * lu(k,1617)
     911   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,329) * lu(k,1617)
     912   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,330) * lu(k,1617)
     913   141111616 :          lu(k,333) = 1._r8 / lu(k,333)
     914   141111616 :          lu(k,334) = lu(k,334) * lu(k,333)
     915   141111616 :          lu(k,335) = lu(k,335) * lu(k,333)
     916   141111616 :          lu(k,336) = lu(k,336) * lu(k,333)
     917   141111616 :          lu(k,337) = lu(k,337) * lu(k,333)
     918   141111616 :          lu(k,338) = lu(k,338) * lu(k,333)
     919   141111616 :          lu(k,1427) = lu(k,1427) - lu(k,334) * lu(k,1416)
     920   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,335) * lu(k,1416)
     921   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,336) * lu(k,1416)
     922   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,337) * lu(k,1416)
     923   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,338) * lu(k,1416)
     924   141111616 :          lu(k,1627) = lu(k,1627) - lu(k,334) * lu(k,1618)
     925   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,335) * lu(k,1618)
     926   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,336) * lu(k,1618)
     927   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,337) * lu(k,1618)
     928   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,338) * lu(k,1618)
     929   141111616 :          lu(k,1748) = lu(k,1748) - lu(k,334) * lu(k,1740)
     930   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,335) * lu(k,1740)
     931   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,336) * lu(k,1740)
     932   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,337) * lu(k,1740)
     933   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,338) * lu(k,1740)
     934   141111616 :          lu(k,339) = 1._r8 / lu(k,339)
     935   141111616 :          lu(k,340) = lu(k,340) * lu(k,339)
     936   141111616 :          lu(k,341) = lu(k,341) * lu(k,339)
     937   141111616 :          lu(k,342) = lu(k,342) * lu(k,339)
     938   141111616 :          lu(k,343) = lu(k,343) * lu(k,339)
     939   141111616 :          lu(k,344) = lu(k,344) * lu(k,339)
     940   141111616 :          lu(k,1537) = - lu(k,340) * lu(k,1536)
     941   141111616 :          lu(k,1548) = lu(k,1548) - lu(k,341) * lu(k,1536)
     942   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,342) * lu(k,1536)
     943   141111616 :          lu(k,1552) = - lu(k,343) * lu(k,1536)
     944   141111616 :          lu(k,1554) = - lu(k,344) * lu(k,1536)
     945   141111616 :          lu(k,1647) = lu(k,1647) - lu(k,340) * lu(k,1619)
     946   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,341) * lu(k,1619)
     947   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,342) * lu(k,1619)
     948   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,343) * lu(k,1619)
     949   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,344) * lu(k,1619)
     950   141111616 :          lu(k,1764) = lu(k,1764) - lu(k,340) * lu(k,1741)
     951   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,341) * lu(k,1741)
     952   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,342) * lu(k,1741)
     953   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,343) * lu(k,1741)
     954   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,344) * lu(k,1741)
     955   141111616 :          lu(k,346) = 1._r8 / lu(k,346)
     956   141111616 :          lu(k,347) = lu(k,347) * lu(k,346)
     957   141111616 :          lu(k,348) = lu(k,348) * lu(k,346)
     958   141111616 :          lu(k,349) = lu(k,349) * lu(k,346)
     959   141111616 :          lu(k,350) = lu(k,350) * lu(k,346)
     960   141111616 :          lu(k,351) = lu(k,351) * lu(k,346)
     961   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,347) * lu(k,1417)
     962   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,348) * lu(k,1417)
     963   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,349) * lu(k,1417)
     964   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,350) * lu(k,1417)
     965   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,351) * lu(k,1417)
     966   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,347) * lu(k,1620)
     967   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,348) * lu(k,1620)
     968   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,349) * lu(k,1620)
     969   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,350) * lu(k,1620)
     970   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,351) * lu(k,1620)
     971   141111616 :          lu(k,1767) = lu(k,1767) - lu(k,347) * lu(k,1742)
     972   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,348) * lu(k,1742)
     973   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,349) * lu(k,1742)
     974   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,350) * lu(k,1742)
     975   145521354 :          lu(k,1806) = lu(k,1806) - lu(k,351) * lu(k,1742)
     976             :       end do
     977     4409738 :       end subroutine lu_fac07
     978     4409738 :       subroutine lu_fac08( avec_len, lu )
     979             :       use chem_mods, only : nzcnt
     980             :       use shr_kind_mod, only : r8 => shr_kind_r8
     981             :       implicit none
     982             : !-----------------------------------------------------------------------
     983             : ! ... dummy args
     984             : !-----------------------------------------------------------------------
     985             :       integer, intent(in) :: avec_len
     986             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     987             : !-----------------------------------------------------------------------
     988             : ! ... local variables
     989             : !-----------------------------------------------------------------------
     990             :       integer :: k
     991   145521354 :       do k = 1,avec_len
     992   141111616 :          lu(k,352) = 1._r8 / lu(k,352)
     993   141111616 :          lu(k,353) = lu(k,353) * lu(k,352)
     994   141111616 :          lu(k,354) = lu(k,354) * lu(k,352)
     995   141111616 :          lu(k,376) = - lu(k,353) * lu(k,374)
     996   141111616 :          lu(k,379) = lu(k,379) - lu(k,354) * lu(k,374)
     997   141111616 :          lu(k,495) = - lu(k,353) * lu(k,492)
     998   141111616 :          lu(k,501) = lu(k,501) - lu(k,354) * lu(k,492)
     999   141111616 :          lu(k,555) = - lu(k,353) * lu(k,552)
    1000   141111616 :          lu(k,564) = lu(k,564) - lu(k,354) * lu(k,552)
    1001   141111616 :          lu(k,584) = - lu(k,353) * lu(k,581)
    1002   141111616 :          lu(k,592) = lu(k,592) - lu(k,354) * lu(k,581)
    1003   141111616 :          lu(k,608) = - lu(k,353) * lu(k,605)
    1004   141111616 :          lu(k,617) = lu(k,617) - lu(k,354) * lu(k,605)
    1005   141111616 :          lu(k,1446) = - lu(k,353) * lu(k,1418)
    1006   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,354) * lu(k,1418)
    1007   141111616 :          lu(k,1639) = lu(k,1639) - lu(k,353) * lu(k,1621)
    1008   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,354) * lu(k,1621)
    1009   141111616 :          lu(k,1758) = lu(k,1758) - lu(k,353) * lu(k,1743)
    1010   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,354) * lu(k,1743)
    1011   141111616 :          lu(k,355) = 1._r8 / lu(k,355)
    1012   141111616 :          lu(k,356) = lu(k,356) * lu(k,355)
    1013   141111616 :          lu(k,357) = lu(k,357) * lu(k,355)
    1014   141111616 :          lu(k,358) = lu(k,358) * lu(k,355)
    1015   141111616 :          lu(k,359) = lu(k,359) * lu(k,355)
    1016   141111616 :          lu(k,360) = lu(k,360) * lu(k,355)
    1017   141111616 :          lu(k,361) = lu(k,361) * lu(k,355)
    1018   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,356) * lu(k,1216)
    1019   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,357) * lu(k,1216)
    1020   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,358) * lu(k,1216)
    1021   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,359) * lu(k,1216)
    1022   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,360) * lu(k,1216)
    1023   141111616 :          lu(k,1243) = - lu(k,361) * lu(k,1216)
    1024   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,356) * lu(k,1419)
    1025   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,357) * lu(k,1419)
    1026   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,358) * lu(k,1419)
    1027   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,359) * lu(k,1419)
    1028   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,360) * lu(k,1419)
    1029   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,361) * lu(k,1419)
    1030   141111616 :          lu(k,1893) = lu(k,1893) - lu(k,356) * lu(k,1875)
    1031   141111616 :          lu(k,1897) = - lu(k,357) * lu(k,1875)
    1032   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,358) * lu(k,1875)
    1033   141111616 :          lu(k,1901) = - lu(k,359) * lu(k,1875)
    1034   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,360) * lu(k,1875)
    1035   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,361) * lu(k,1875)
    1036   141111616 :          lu(k,362) = 1._r8 / lu(k,362)
    1037   141111616 :          lu(k,363) = lu(k,363) * lu(k,362)
    1038   141111616 :          lu(k,364) = lu(k,364) * lu(k,362)
    1039   141111616 :          lu(k,365) = lu(k,365) * lu(k,362)
    1040   141111616 :          lu(k,514) = lu(k,514) - lu(k,363) * lu(k,513)
    1041   141111616 :          lu(k,518) = - lu(k,364) * lu(k,513)
    1042   141111616 :          lu(k,519) = lu(k,519) - lu(k,365) * lu(k,513)
    1043   141111616 :          lu(k,1440) = lu(k,1440) - lu(k,363) * lu(k,1420)
    1044   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,364) * lu(k,1420)
    1045   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,365) * lu(k,1420)
    1046   141111616 :          lu(k,1634) = lu(k,1634) - lu(k,363) * lu(k,1622)
    1047   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,364) * lu(k,1622)
    1048   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,365) * lu(k,1622)
    1049   141111616 :          lu(k,1754) = lu(k,1754) - lu(k,363) * lu(k,1744)
    1050   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,364) * lu(k,1744)
    1051   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,365) * lu(k,1744)
    1052   141111616 :          lu(k,1822) = lu(k,1822) - lu(k,363) * lu(k,1818)
    1053   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,364) * lu(k,1818)
    1054   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,365) * lu(k,1818)
    1055   141111616 :          lu(k,1880) = - lu(k,363) * lu(k,1876)
    1056   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,364) * lu(k,1876)
    1057   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,365) * lu(k,1876)
    1058   141111616 :          lu(k,366) = 1._r8 / lu(k,366)
    1059   141111616 :          lu(k,367) = lu(k,367) * lu(k,366)
    1060   141111616 :          lu(k,368) = lu(k,368) * lu(k,366)
    1061   141111616 :          lu(k,369) = lu(k,369) * lu(k,366)
    1062   141111616 :          lu(k,370) = lu(k,370) * lu(k,366)
    1063   141111616 :          lu(k,371) = lu(k,371) * lu(k,366)
    1064   141111616 :          lu(k,372) = lu(k,372) * lu(k,366)
    1065   141111616 :          lu(k,934) = lu(k,934) - lu(k,367) * lu(k,931)
    1066   141111616 :          lu(k,935) = lu(k,935) - lu(k,368) * lu(k,931)
    1067   141111616 :          lu(k,938) = lu(k,938) - lu(k,369) * lu(k,931)
    1068   141111616 :          lu(k,946) = - lu(k,370) * lu(k,931)
    1069   141111616 :          lu(k,947) = lu(k,947) - lu(k,371) * lu(k,931)
    1070   141111616 :          lu(k,948) = lu(k,948) - lu(k,372) * lu(k,931)
    1071   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,367) * lu(k,1421)
    1072   141111616 :          lu(k,1470) = lu(k,1470) - lu(k,368) * lu(k,1421)
    1073   141111616 :          lu(k,1478) = lu(k,1478) - lu(k,369) * lu(k,1421)
    1074   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,370) * lu(k,1421)
    1075   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,371) * lu(k,1421)
    1076   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,372) * lu(k,1421)
    1077   141111616 :          lu(k,1655) = lu(k,1655) - lu(k,367) * lu(k,1623)
    1078   141111616 :          lu(k,1656) = lu(k,1656) - lu(k,368) * lu(k,1623)
    1079   141111616 :          lu(k,1662) = lu(k,1662) - lu(k,369) * lu(k,1623)
    1080   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,370) * lu(k,1623)
    1081   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,371) * lu(k,1623)
    1082   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,372) * lu(k,1623)
    1083   141111616 :          lu(k,375) = 1._r8 / lu(k,375)
    1084   141111616 :          lu(k,376) = lu(k,376) * lu(k,375)
    1085   141111616 :          lu(k,377) = lu(k,377) * lu(k,375)
    1086   141111616 :          lu(k,378) = lu(k,378) * lu(k,375)
    1087   141111616 :          lu(k,379) = lu(k,379) * lu(k,375)
    1088   141111616 :          lu(k,380) = lu(k,380) * lu(k,375)
    1089   141111616 :          lu(k,381) = lu(k,381) * lu(k,375)
    1090   141111616 :          lu(k,1446) = lu(k,1446) - lu(k,376) * lu(k,1422)
    1091   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,377) * lu(k,1422)
    1092   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,378) * lu(k,1422)
    1093   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,379) * lu(k,1422)
    1094   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,380) * lu(k,1422)
    1095   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,381) * lu(k,1422)
    1096   141111616 :          lu(k,1639) = lu(k,1639) - lu(k,376) * lu(k,1624)
    1097   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,377) * lu(k,1624)
    1098   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,378) * lu(k,1624)
    1099   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,379) * lu(k,1624)
    1100   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,380) * lu(k,1624)
    1101   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,381) * lu(k,1624)
    1102   141111616 :          lu(k,1758) = lu(k,1758) - lu(k,376) * lu(k,1745)
    1103   141111616 :          lu(k,1767) = lu(k,1767) - lu(k,377) * lu(k,1745)
    1104   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,378) * lu(k,1745)
    1105   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,379) * lu(k,1745)
    1106   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,380) * lu(k,1745)
    1107   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,381) * lu(k,1745)
    1108   141111616 :          lu(k,383) = 1._r8 / lu(k,383)
    1109   141111616 :          lu(k,384) = lu(k,384) * lu(k,383)
    1110   141111616 :          lu(k,385) = lu(k,385) * lu(k,383)
    1111   141111616 :          lu(k,386) = lu(k,386) * lu(k,383)
    1112   141111616 :          lu(k,387) = lu(k,387) * lu(k,383)
    1113   141111616 :          lu(k,388) = lu(k,388) * lu(k,383)
    1114   141111616 :          lu(k,389) = lu(k,389) * lu(k,383)
    1115   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,384) * lu(k,1423)
    1116   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,385) * lu(k,1423)
    1117   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,386) * lu(k,1423)
    1118   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,387) * lu(k,1423)
    1119   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,388) * lu(k,1423)
    1120   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,389) * lu(k,1423)
    1121   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,384) * lu(k,1625)
    1122   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,385) * lu(k,1625)
    1123   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,386) * lu(k,1625)
    1124   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,387) * lu(k,1625)
    1125   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,388) * lu(k,1625)
    1126   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,389) * lu(k,1625)
    1127   141111616 :          lu(k,1767) = lu(k,1767) - lu(k,384) * lu(k,1746)
    1128   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,385) * lu(k,1746)
    1129   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,386) * lu(k,1746)
    1130   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,387) * lu(k,1746)
    1131   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,388) * lu(k,1746)
    1132   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,389) * lu(k,1746)
    1133   141111616 :          lu(k,390) = 1._r8 / lu(k,390)
    1134   141111616 :          lu(k,391) = lu(k,391) * lu(k,390)
    1135   141111616 :          lu(k,392) = lu(k,392) * lu(k,390)
    1136   141111616 :          lu(k,393) = lu(k,393) * lu(k,390)
    1137   141111616 :          lu(k,394) = lu(k,394) * lu(k,390)
    1138   141111616 :          lu(k,395) = lu(k,395) * lu(k,390)
    1139   141111616 :          lu(k,1083) = lu(k,1083) - lu(k,391) * lu(k,1081)
    1140   141111616 :          lu(k,1085) = lu(k,1085) - lu(k,392) * lu(k,1081)
    1141   141111616 :          lu(k,1086) = lu(k,1086) - lu(k,393) * lu(k,1081)
    1142   141111616 :          lu(k,1088) = lu(k,1088) - lu(k,394) * lu(k,1081)
    1143   141111616 :          lu(k,1092) = lu(k,1092) - lu(k,395) * lu(k,1081)
    1144   141111616 :          lu(k,1487) = lu(k,1487) - lu(k,391) * lu(k,1424)
    1145   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,392) * lu(k,1424)
    1146   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,393) * lu(k,1424)
    1147   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,394) * lu(k,1424)
    1148   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,395) * lu(k,1424)
    1149   141111616 :          lu(k,1570) = lu(k,1570) - lu(k,391) * lu(k,1560)
    1150   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,392) * lu(k,1560)
    1151   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,393) * lu(k,1560)
    1152   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,394) * lu(k,1560)
    1153   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,395) * lu(k,1560)
    1154   141111616 :          lu(k,1846) = lu(k,1846) - lu(k,391) * lu(k,1819)
    1155   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,392) * lu(k,1819)
    1156   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,393) * lu(k,1819)
    1157   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,394) * lu(k,1819)
    1158   145521354 :          lu(k,1865) = lu(k,1865) - lu(k,395) * lu(k,1819)
    1159             :       end do
    1160     4409738 :       end subroutine lu_fac08
    1161     4409738 :       subroutine lu_fac09( avec_len, lu )
    1162             :       use chem_mods, only : nzcnt
    1163             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1164             :       implicit none
    1165             : !-----------------------------------------------------------------------
    1166             : ! ... dummy args
    1167             : !-----------------------------------------------------------------------
    1168             :       integer, intent(in) :: avec_len
    1169             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1170             : !-----------------------------------------------------------------------
    1171             : ! ... local variables
    1172             : !-----------------------------------------------------------------------
    1173             :       integer :: k
    1174   145521354 :       do k = 1,avec_len
    1175   141111616 :          lu(k,396) = 1._r8 / lu(k,396)
    1176   141111616 :          lu(k,397) = lu(k,397) * lu(k,396)
    1177   141111616 :          lu(k,398) = lu(k,398) * lu(k,396)
    1178   141111616 :          lu(k,399) = lu(k,399) * lu(k,396)
    1179   141111616 :          lu(k,400) = lu(k,400) * lu(k,396)
    1180   141111616 :          lu(k,522) = - lu(k,397) * lu(k,520)
    1181   141111616 :          lu(k,523) = - lu(k,398) * lu(k,520)
    1182   141111616 :          lu(k,527) = - lu(k,399) * lu(k,520)
    1183   141111616 :          lu(k,528) = lu(k,528) - lu(k,400) * lu(k,520)
    1184   141111616 :          lu(k,533) = - lu(k,397) * lu(k,531)
    1185   141111616 :          lu(k,534) = - lu(k,398) * lu(k,531)
    1186   141111616 :          lu(k,537) = - lu(k,399) * lu(k,531)
    1187   141111616 :          lu(k,538) = lu(k,538) - lu(k,400) * lu(k,531)
    1188   141111616 :          lu(k,806) = - lu(k,397) * lu(k,803)
    1189   141111616 :          lu(k,807) = - lu(k,398) * lu(k,803)
    1190   141111616 :          lu(k,811) = - lu(k,399) * lu(k,803)
    1191   141111616 :          lu(k,813) = - lu(k,400) * lu(k,803)
    1192   141111616 :          lu(k,1443) = lu(k,1443) - lu(k,397) * lu(k,1425)
    1193   141111616 :          lu(k,1457) = lu(k,1457) - lu(k,398) * lu(k,1425)
    1194   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,399) * lu(k,1425)
    1195   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,400) * lu(k,1425)
    1196   141111616 :          lu(k,1756) = lu(k,1756) - lu(k,397) * lu(k,1747)
    1197   141111616 :          lu(k,1765) = lu(k,1765) - lu(k,398) * lu(k,1747)
    1198   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,399) * lu(k,1747)
    1199   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,400) * lu(k,1747)
    1200   141111616 :          lu(k,401) = 1._r8 / lu(k,401)
    1201   141111616 :          lu(k,402) = lu(k,402) * lu(k,401)
    1202   141111616 :          lu(k,403) = lu(k,403) * lu(k,401)
    1203   141111616 :          lu(k,404) = lu(k,404) * lu(k,401)
    1204   141111616 :          lu(k,405) = lu(k,405) * lu(k,401)
    1205   141111616 :          lu(k,406) = lu(k,406) * lu(k,401)
    1206   141111616 :          lu(k,1203) = lu(k,1203) - lu(k,402) * lu(k,1197)
    1207   141111616 :          lu(k,1206) = lu(k,1206) - lu(k,403) * lu(k,1197)
    1208   141111616 :          lu(k,1207) = lu(k,1207) - lu(k,404) * lu(k,1197)
    1209   141111616 :          lu(k,1208) = lu(k,1208) - lu(k,405) * lu(k,1197)
    1210   141111616 :          lu(k,1214) = - lu(k,406) * lu(k,1197)
    1211   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,402) * lu(k,1217)
    1212   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,403) * lu(k,1217)
    1213   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,404) * lu(k,1217)
    1214   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,405) * lu(k,1217)
    1215   141111616 :          lu(k,1244) = - lu(k,406) * lu(k,1217)
    1216   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,402) * lu(k,1426)
    1217   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,403) * lu(k,1426)
    1218   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,404) * lu(k,1426)
    1219   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,405) * lu(k,1426)
    1220   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,406) * lu(k,1426)
    1221   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,402) * lu(k,1626)
    1222   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,403) * lu(k,1626)
    1223   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,404) * lu(k,1626)
    1224   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,405) * lu(k,1626)
    1225   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,406) * lu(k,1626)
    1226   141111616 :          lu(k,408) = 1._r8 / lu(k,408)
    1227   141111616 :          lu(k,409) = lu(k,409) * lu(k,408)
    1228   141111616 :          lu(k,410) = lu(k,410) * lu(k,408)
    1229   141111616 :          lu(k,411) = lu(k,411) * lu(k,408)
    1230   141111616 :          lu(k,412) = lu(k,412) * lu(k,408)
    1231   141111616 :          lu(k,413) = lu(k,413) * lu(k,408)
    1232   141111616 :          lu(k,1440) = lu(k,1440) - lu(k,409) * lu(k,1427)
    1233   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,410) * lu(k,1427)
    1234   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,411) * lu(k,1427)
    1235   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,412) * lu(k,1427)
    1236   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,413) * lu(k,1427)
    1237   141111616 :          lu(k,1634) = lu(k,1634) - lu(k,409) * lu(k,1627)
    1238   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,410) * lu(k,1627)
    1239   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,411) * lu(k,1627)
    1240   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,412) * lu(k,1627)
    1241   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,413) * lu(k,1627)
    1242   141111616 :          lu(k,1754) = lu(k,1754) - lu(k,409) * lu(k,1748)
    1243   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,410) * lu(k,1748)
    1244   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,411) * lu(k,1748)
    1245   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,412) * lu(k,1748)
    1246   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,413) * lu(k,1748)
    1247   141111616 :          lu(k,1880) = lu(k,1880) - lu(k,409) * lu(k,1877)
    1248   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,410) * lu(k,1877)
    1249   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,411) * lu(k,1877)
    1250   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,412) * lu(k,1877)
    1251   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,413) * lu(k,1877)
    1252   141111616 :          lu(k,414) = 1._r8 / lu(k,414)
    1253   141111616 :          lu(k,415) = lu(k,415) * lu(k,414)
    1254   141111616 :          lu(k,416) = lu(k,416) * lu(k,414)
    1255   141111616 :          lu(k,417) = lu(k,417) * lu(k,414)
    1256   141111616 :          lu(k,418) = lu(k,418) * lu(k,414)
    1257   141111616 :          lu(k,419) = lu(k,419) * lu(k,414)
    1258   141111616 :          lu(k,420) = lu(k,420) * lu(k,414)
    1259   141111616 :          lu(k,421) = lu(k,421) * lu(k,414)
    1260   141111616 :          lu(k,1515) = lu(k,1515) - lu(k,415) * lu(k,1514)
    1261   141111616 :          lu(k,1518) = lu(k,1518) - lu(k,416) * lu(k,1514)
    1262   141111616 :          lu(k,1519) = - lu(k,417) * lu(k,1514)
    1263   141111616 :          lu(k,1524) = lu(k,1524) - lu(k,418) * lu(k,1514)
    1264   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,419) * lu(k,1514)
    1265   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,420) * lu(k,1514)
    1266   141111616 :          lu(k,1534) = - lu(k,421) * lu(k,1514)
    1267   141111616 :          lu(k,1563) = lu(k,1563) - lu(k,415) * lu(k,1561)
    1268   141111616 :          lu(k,1571) = lu(k,1571) - lu(k,416) * lu(k,1561)
    1269   141111616 :          lu(k,1572) = - lu(k,417) * lu(k,1561)
    1270   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,418) * lu(k,1561)
    1271   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,419) * lu(k,1561)
    1272   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,420) * lu(k,1561)
    1273   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,421) * lu(k,1561)
    1274   141111616 :          lu(k,1883) = - lu(k,415) * lu(k,1878)
    1275   141111616 :          lu(k,1894) = - lu(k,416) * lu(k,1878)
    1276   141111616 :          lu(k,1895) = lu(k,1895) - lu(k,417) * lu(k,1878)
    1277   141111616 :          lu(k,1900) = lu(k,1900) - lu(k,418) * lu(k,1878)
    1278   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,419) * lu(k,1878)
    1279   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,420) * lu(k,1878)
    1280   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,421) * lu(k,1878)
    1281   141111616 :          lu(k,422) = 1._r8 / lu(k,422)
    1282   141111616 :          lu(k,423) = lu(k,423) * lu(k,422)
    1283   141111616 :          lu(k,424) = lu(k,424) * lu(k,422)
    1284   141111616 :          lu(k,425) = lu(k,425) * lu(k,422)
    1285   141111616 :          lu(k,426) = lu(k,426) * lu(k,422)
    1286   141111616 :          lu(k,427) = lu(k,427) * lu(k,422)
    1287   141111616 :          lu(k,428) = lu(k,428) * lu(k,422)
    1288   141111616 :          lu(k,429) = lu(k,429) * lu(k,422)
    1289   141111616 :          lu(k,629) = lu(k,629) - lu(k,423) * lu(k,628)
    1290   141111616 :          lu(k,630) = lu(k,630) - lu(k,424) * lu(k,628)
    1291   141111616 :          lu(k,631) = - lu(k,425) * lu(k,628)
    1292   141111616 :          lu(k,632) = - lu(k,426) * lu(k,628)
    1293   141111616 :          lu(k,633) = lu(k,633) - lu(k,427) * lu(k,628)
    1294   141111616 :          lu(k,634) = lu(k,634) - lu(k,428) * lu(k,628)
    1295   141111616 :          lu(k,637) = - lu(k,429) * lu(k,628)
    1296   141111616 :          lu(k,1451) = lu(k,1451) - lu(k,423) * lu(k,1428)
    1297   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,424) * lu(k,1428)
    1298   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,425) * lu(k,1428)
    1299   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,426) * lu(k,1428)
    1300   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,427) * lu(k,1428)
    1301   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,428) * lu(k,1428)
    1302   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,429) * lu(k,1428)
    1303   141111616 :          lu(k,1644) = lu(k,1644) - lu(k,423) * lu(k,1628)
    1304   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,424) * lu(k,1628)
    1305   141111616 :          lu(k,1661) = - lu(k,425) * lu(k,1628)
    1306   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,426) * lu(k,1628)
    1307   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,427) * lu(k,1628)
    1308   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,428) * lu(k,1628)
    1309   145521354 :          lu(k,1694) = lu(k,1694) - lu(k,429) * lu(k,1628)
    1310             :       end do
    1311     4409738 :       end subroutine lu_fac09
    1312     4409738 :       subroutine lu_fac10( avec_len, lu )
    1313             :       use chem_mods, only : nzcnt
    1314             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1315             :       implicit none
    1316             : !-----------------------------------------------------------------------
    1317             : ! ... dummy args
    1318             : !-----------------------------------------------------------------------
    1319             :       integer, intent(in) :: avec_len
    1320             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1321             : !-----------------------------------------------------------------------
    1322             : ! ... local variables
    1323             : !-----------------------------------------------------------------------
    1324             :       integer :: k
    1325   145521354 :       do k = 1,avec_len
    1326   141111616 :          lu(k,430) = 1._r8 / lu(k,430)
    1327   141111616 :          lu(k,431) = lu(k,431) * lu(k,430)
    1328   141111616 :          lu(k,432) = lu(k,432) * lu(k,430)
    1329   141111616 :          lu(k,433) = lu(k,433) * lu(k,430)
    1330   141111616 :          lu(k,846) = lu(k,846) - lu(k,431) * lu(k,836)
    1331   141111616 :          lu(k,847) = lu(k,847) - lu(k,432) * lu(k,836)
    1332   141111616 :          lu(k,854) = - lu(k,433) * lu(k,836)
    1333   141111616 :          lu(k,1206) = lu(k,1206) - lu(k,431) * lu(k,1198)
    1334   141111616 :          lu(k,1207) = lu(k,1207) - lu(k,432) * lu(k,1198)
    1335   141111616 :          lu(k,1214) = lu(k,1214) - lu(k,433) * lu(k,1198)
    1336   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,431) * lu(k,1218)
    1337   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,432) * lu(k,1218)
    1338   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,433) * lu(k,1218)
    1339   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,431) * lu(k,1289)
    1340   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,432) * lu(k,1289)
    1341   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,433) * lu(k,1289)
    1342   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,431) * lu(k,1429)
    1343   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,432) * lu(k,1429)
    1344   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,433) * lu(k,1429)
    1345   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,431) * lu(k,1629)
    1346   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,432) * lu(k,1629)
    1347   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,433) * lu(k,1629)
    1348   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,431) * lu(k,1820)
    1349   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,432) * lu(k,1820)
    1350   141111616 :          lu(k,1870) = - lu(k,433) * lu(k,1820)
    1351   141111616 :          lu(k,434) = 1._r8 / lu(k,434)
    1352   141111616 :          lu(k,435) = lu(k,435) * lu(k,434)
    1353   141111616 :          lu(k,436) = lu(k,436) * lu(k,434)
    1354   141111616 :          lu(k,437) = lu(k,437) * lu(k,434)
    1355   141111616 :          lu(k,438) = lu(k,438) * lu(k,434)
    1356   141111616 :          lu(k,439) = lu(k,439) * lu(k,434)
    1357   141111616 :          lu(k,440) = lu(k,440) * lu(k,434)
    1358   141111616 :          lu(k,441) = lu(k,441) * lu(k,434)
    1359   141111616 :          lu(k,1102) = - lu(k,435) * lu(k,1098)
    1360   141111616 :          lu(k,1105) = lu(k,1105) - lu(k,436) * lu(k,1098)
    1361   141111616 :          lu(k,1107) = - lu(k,437) * lu(k,1098)
    1362   141111616 :          lu(k,1108) = lu(k,1108) - lu(k,438) * lu(k,1098)
    1363   141111616 :          lu(k,1118) = - lu(k,439) * lu(k,1098)
    1364   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,440) * lu(k,1098)
    1365   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,441) * lu(k,1098)
    1366   141111616 :          lu(k,1461) = lu(k,1461) - lu(k,435) * lu(k,1430)
    1367   141111616 :          lu(k,1471) = lu(k,1471) - lu(k,436) * lu(k,1430)
    1368   141111616 :          lu(k,1476) = lu(k,1476) - lu(k,437) * lu(k,1430)
    1369   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,438) * lu(k,1430)
    1370   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,439) * lu(k,1430)
    1371   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,440) * lu(k,1430)
    1372   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,441) * lu(k,1430)
    1373   141111616 :          lu(k,1766) = - lu(k,435) * lu(k,1749)
    1374   141111616 :          lu(k,1772) = lu(k,1772) - lu(k,436) * lu(k,1749)
    1375   141111616 :          lu(k,1777) = lu(k,1777) - lu(k,437) * lu(k,1749)
    1376   141111616 :          lu(k,1778) = lu(k,1778) - lu(k,438) * lu(k,1749)
    1377   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,439) * lu(k,1749)
    1378   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,440) * lu(k,1749)
    1379   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,441) * lu(k,1749)
    1380   141111616 :          lu(k,442) = 1._r8 / lu(k,442)
    1381   141111616 :          lu(k,443) = lu(k,443) * lu(k,442)
    1382   141111616 :          lu(k,444) = lu(k,444) * lu(k,442)
    1383   141111616 :          lu(k,445) = lu(k,445) * lu(k,442)
    1384   141111616 :          lu(k,446) = lu(k,446) * lu(k,442)
    1385   141111616 :          lu(k,447) = lu(k,447) * lu(k,442)
    1386   141111616 :          lu(k,448) = lu(k,448) * lu(k,442)
    1387   141111616 :          lu(k,449) = lu(k,449) * lu(k,442)
    1388   141111616 :          lu(k,1445) = lu(k,1445) - lu(k,443) * lu(k,1431)
    1389   141111616 :          lu(k,1455) = lu(k,1455) - lu(k,444) * lu(k,1431)
    1390   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,445) * lu(k,1431)
    1391   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,446) * lu(k,1431)
    1392   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,447) * lu(k,1431)
    1393   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,448) * lu(k,1431)
    1394   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,449) * lu(k,1431)
    1395   141111616 :          lu(k,1823) = - lu(k,443) * lu(k,1821)
    1396   141111616 :          lu(k,1824) = lu(k,1824) - lu(k,444) * lu(k,1821)
    1397   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,445) * lu(k,1821)
    1398   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,446) * lu(k,1821)
    1399   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,447) * lu(k,1821)
    1400   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,448) * lu(k,1821)
    1401   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,449) * lu(k,1821)
    1402   141111616 :          lu(k,1940) = - lu(k,443) * lu(k,1938)
    1403   141111616 :          lu(k,1941) = lu(k,1941) - lu(k,444) * lu(k,1938)
    1404   141111616 :          lu(k,1948) = lu(k,1948) - lu(k,445) * lu(k,1938)
    1405   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,446) * lu(k,1938)
    1406   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,447) * lu(k,1938)
    1407   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,448) * lu(k,1938)
    1408   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,449) * lu(k,1938)
    1409   141111616 :          lu(k,450) = 1._r8 / lu(k,450)
    1410   141111616 :          lu(k,451) = lu(k,451) * lu(k,450)
    1411   141111616 :          lu(k,452) = lu(k,452) * lu(k,450)
    1412   141111616 :          lu(k,453) = lu(k,453) * lu(k,450)
    1413   141111616 :          lu(k,454) = lu(k,454) * lu(k,450)
    1414   141111616 :          lu(k,455) = lu(k,455) * lu(k,450)
    1415   141111616 :          lu(k,456) = lu(k,456) * lu(k,450)
    1416   141111616 :          lu(k,457) = lu(k,457) * lu(k,450)
    1417   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,451) * lu(k,1432)
    1418   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,452) * lu(k,1432)
    1419   141111616 :          lu(k,1476) = lu(k,1476) - lu(k,453) * lu(k,1432)
    1420   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,454) * lu(k,1432)
    1421   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,455) * lu(k,1432)
    1422   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,456) * lu(k,1432)
    1423   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,457) * lu(k,1432)
    1424   141111616 :          lu(k,1770) = lu(k,1770) - lu(k,451) * lu(k,1750)
    1425   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,452) * lu(k,1750)
    1426   141111616 :          lu(k,1777) = lu(k,1777) - lu(k,453) * lu(k,1750)
    1427   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,454) * lu(k,1750)
    1428   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,455) * lu(k,1750)
    1429   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,456) * lu(k,1750)
    1430   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,457) * lu(k,1750)
    1431   141111616 :          lu(k,1983) = lu(k,1983) - lu(k,451) * lu(k,1975)
    1432   141111616 :          lu(k,1989) = lu(k,1989) - lu(k,452) * lu(k,1975)
    1433   141111616 :          lu(k,1991) = - lu(k,453) * lu(k,1975)
    1434   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,454) * lu(k,1975)
    1435   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,455) * lu(k,1975)
    1436   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,456) * lu(k,1975)
    1437   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,457) * lu(k,1975)
    1438   141111616 :          lu(k,458) = 1._r8 / lu(k,458)
    1439   141111616 :          lu(k,459) = lu(k,459) * lu(k,458)
    1440   141111616 :          lu(k,460) = lu(k,460) * lu(k,458)
    1441   141111616 :          lu(k,461) = lu(k,461) * lu(k,458)
    1442   141111616 :          lu(k,462) = lu(k,462) * lu(k,458)
    1443   141111616 :          lu(k,463) = lu(k,463) * lu(k,458)
    1444   141111616 :          lu(k,464) = lu(k,464) * lu(k,458)
    1445   141111616 :          lu(k,465) = lu(k,465) * lu(k,458)
    1446   141111616 :          lu(k,1200) = - lu(k,459) * lu(k,1199)
    1447   141111616 :          lu(k,1202) = lu(k,1202) - lu(k,460) * lu(k,1199)
    1448   141111616 :          lu(k,1207) = lu(k,1207) - lu(k,461) * lu(k,1199)
    1449   141111616 :          lu(k,1208) = lu(k,1208) - lu(k,462) * lu(k,1199)
    1450   141111616 :          lu(k,1209) = lu(k,1209) - lu(k,463) * lu(k,1199)
    1451   141111616 :          lu(k,1212) = lu(k,1212) - lu(k,464) * lu(k,1199)
    1452   141111616 :          lu(k,1213) = lu(k,1213) - lu(k,465) * lu(k,1199)
    1453   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,459) * lu(k,1433)
    1454   141111616 :          lu(k,1492) = lu(k,1492) - lu(k,460) * lu(k,1433)
    1455   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,461) * lu(k,1433)
    1456   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,462) * lu(k,1433)
    1457   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,463) * lu(k,1433)
    1458   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,464) * lu(k,1433)
    1459   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,465) * lu(k,1433)
    1460   141111616 :          lu(k,1889) = - lu(k,459) * lu(k,1879)
    1461   141111616 :          lu(k,1892) = lu(k,1892) - lu(k,460) * lu(k,1879)
    1462   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,461) * lu(k,1879)
    1463   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,462) * lu(k,1879)
    1464   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,463) * lu(k,1879)
    1465   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,464) * lu(k,1879)
    1466   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,465) * lu(k,1879)
    1467   141111616 :          lu(k,466) = 1._r8 / lu(k,466)
    1468   141111616 :          lu(k,467) = lu(k,467) * lu(k,466)
    1469   141111616 :          lu(k,468) = lu(k,468) * lu(k,466)
    1470   141111616 :          lu(k,469) = lu(k,469) * lu(k,466)
    1471   141111616 :          lu(k,470) = lu(k,470) * lu(k,466)
    1472   141111616 :          lu(k,471) = lu(k,471) * lu(k,466)
    1473   141111616 :          lu(k,472) = lu(k,472) * lu(k,466)
    1474   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,467) * lu(k,1434)
    1475   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,468) * lu(k,1434)
    1476   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,469) * lu(k,1434)
    1477   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,470) * lu(k,1434)
    1478   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,471) * lu(k,1434)
    1479   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,472) * lu(k,1434)
    1480   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,467) * lu(k,1562)
    1481   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,468) * lu(k,1562)
    1482   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,469) * lu(k,1562)
    1483   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,470) * lu(k,1562)
    1484   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,471) * lu(k,1562)
    1485   141111616 :          lu(k,1588) = - lu(k,472) * lu(k,1562)
    1486   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,467) * lu(k,1630)
    1487   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,468) * lu(k,1630)
    1488   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,469) * lu(k,1630)
    1489   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,470) * lu(k,1630)
    1490   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,471) * lu(k,1630)
    1491   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,472) * lu(k,1630)
    1492   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,467) * lu(k,1939)
    1493   141111616 :          lu(k,1959) = - lu(k,468) * lu(k,1939)
    1494   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,469) * lu(k,1939)
    1495   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,470) * lu(k,1939)
    1496   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,471) * lu(k,1939)
    1497   145521354 :          lu(k,1968) = lu(k,1968) - lu(k,472) * lu(k,1939)
    1498             :       end do
    1499     4409738 :       end subroutine lu_fac10
    1500     4409738 :       subroutine lu_fac11( avec_len, lu )
    1501             :       use chem_mods, only : nzcnt
    1502             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1503             :       implicit none
    1504             : !-----------------------------------------------------------------------
    1505             : ! ... dummy args
    1506             : !-----------------------------------------------------------------------
    1507             :       integer, intent(in) :: avec_len
    1508             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1509             : !-----------------------------------------------------------------------
    1510             : ! ... local variables
    1511             : !-----------------------------------------------------------------------
    1512             :       integer :: k
    1513   145521354 :       do k = 1,avec_len
    1514   141111616 :          lu(k,473) = 1._r8 / lu(k,473)
    1515   141111616 :          lu(k,474) = lu(k,474) * lu(k,473)
    1516   141111616 :          lu(k,475) = lu(k,475) * lu(k,473)
    1517   141111616 :          lu(k,476) = lu(k,476) * lu(k,473)
    1518   141111616 :          lu(k,477) = lu(k,477) * lu(k,473)
    1519   141111616 :          lu(k,478) = lu(k,478) * lu(k,473)
    1520   141111616 :          lu(k,479) = lu(k,479) * lu(k,473)
    1521   141111616 :          lu(k,480) = lu(k,480) * lu(k,473)
    1522   141111616 :          lu(k,481) = lu(k,481) * lu(k,473)
    1523   141111616 :          lu(k,1173) = - lu(k,474) * lu(k,1170)
    1524   141111616 :          lu(k,1175) = - lu(k,475) * lu(k,1170)
    1525   141111616 :          lu(k,1176) = - lu(k,476) * lu(k,1170)
    1526   141111616 :          lu(k,1186) = - lu(k,477) * lu(k,1170)
    1527   141111616 :          lu(k,1189) = - lu(k,478) * lu(k,1170)
    1528   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,479) * lu(k,1170)
    1529   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,480) * lu(k,1170)
    1530   141111616 :          lu(k,1194) = lu(k,1194) - lu(k,481) * lu(k,1170)
    1531   141111616 :          lu(k,1471) = lu(k,1471) - lu(k,474) * lu(k,1435)
    1532   141111616 :          lu(k,1476) = lu(k,1476) - lu(k,475) * lu(k,1435)
    1533   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,476) * lu(k,1435)
    1534   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,477) * lu(k,1435)
    1535   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,478) * lu(k,1435)
    1536   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,479) * lu(k,1435)
    1537   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,480) * lu(k,1435)
    1538   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,481) * lu(k,1435)
    1539   141111616 :          lu(k,1772) = lu(k,1772) - lu(k,474) * lu(k,1751)
    1540   141111616 :          lu(k,1777) = lu(k,1777) - lu(k,475) * lu(k,1751)
    1541   141111616 :          lu(k,1778) = lu(k,1778) - lu(k,476) * lu(k,1751)
    1542   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,477) * lu(k,1751)
    1543   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,478) * lu(k,1751)
    1544   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,479) * lu(k,1751)
    1545   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,480) * lu(k,1751)
    1546   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,481) * lu(k,1751)
    1547   141111616 :          lu(k,482) = 1._r8 / lu(k,482)
    1548   141111616 :          lu(k,483) = lu(k,483) * lu(k,482)
    1549   141111616 :          lu(k,484) = lu(k,484) * lu(k,482)
    1550   141111616 :          lu(k,485) = lu(k,485) * lu(k,482)
    1551   141111616 :          lu(k,486) = lu(k,486) * lu(k,482)
    1552   141111616 :          lu(k,487) = lu(k,487) * lu(k,482)
    1553   141111616 :          lu(k,488) = lu(k,488) * lu(k,482)
    1554   141111616 :          lu(k,489) = lu(k,489) * lu(k,482)
    1555   141111616 :          lu(k,490) = lu(k,490) * lu(k,482)
    1556   141111616 :          lu(k,956) = lu(k,956) - lu(k,483) * lu(k,954)
    1557   141111616 :          lu(k,957) = lu(k,957) - lu(k,484) * lu(k,954)
    1558   141111616 :          lu(k,958) = lu(k,958) - lu(k,485) * lu(k,954)
    1559   141111616 :          lu(k,959) = lu(k,959) - lu(k,486) * lu(k,954)
    1560   141111616 :          lu(k,960) = lu(k,960) - lu(k,487) * lu(k,954)
    1561   141111616 :          lu(k,966) = - lu(k,488) * lu(k,954)
    1562   141111616 :          lu(k,967) = lu(k,967) - lu(k,489) * lu(k,954)
    1563   141111616 :          lu(k,968) = lu(k,968) - lu(k,490) * lu(k,954)
    1564   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,483) * lu(k,1436)
    1565   141111616 :          lu(k,1471) = lu(k,1471) - lu(k,484) * lu(k,1436)
    1566   141111616 :          lu(k,1473) = lu(k,1473) - lu(k,485) * lu(k,1436)
    1567   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,486) * lu(k,1436)
    1568   141111616 :          lu(k,1479) = lu(k,1479) - lu(k,487) * lu(k,1436)
    1569   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,488) * lu(k,1436)
    1570   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,489) * lu(k,1436)
    1571   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,490) * lu(k,1436)
    1572   141111616 :          lu(k,1655) = lu(k,1655) - lu(k,483) * lu(k,1631)
    1573   141111616 :          lu(k,1657) = lu(k,1657) - lu(k,484) * lu(k,1631)
    1574   141111616 :          lu(k,1658) = - lu(k,485) * lu(k,1631)
    1575   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,486) * lu(k,1631)
    1576   141111616 :          lu(k,1663) = lu(k,1663) - lu(k,487) * lu(k,1631)
    1577   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,488) * lu(k,1631)
    1578   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,489) * lu(k,1631)
    1579   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,490) * lu(k,1631)
    1580   141111616 :          lu(k,493) = 1._r8 / lu(k,493)
    1581   141111616 :          lu(k,494) = lu(k,494) * lu(k,493)
    1582   141111616 :          lu(k,495) = lu(k,495) * lu(k,493)
    1583   141111616 :          lu(k,496) = lu(k,496) * lu(k,493)
    1584   141111616 :          lu(k,497) = lu(k,497) * lu(k,493)
    1585   141111616 :          lu(k,498) = lu(k,498) * lu(k,493)
    1586   141111616 :          lu(k,499) = lu(k,499) * lu(k,493)
    1587   141111616 :          lu(k,500) = lu(k,500) * lu(k,493)
    1588   141111616 :          lu(k,501) = lu(k,501) * lu(k,493)
    1589   141111616 :          lu(k,583) = lu(k,583) - lu(k,494) * lu(k,582)
    1590   141111616 :          lu(k,584) = lu(k,584) - lu(k,495) * lu(k,582)
    1591   141111616 :          lu(k,585) = lu(k,585) - lu(k,496) * lu(k,582)
    1592   141111616 :          lu(k,586) = lu(k,586) - lu(k,497) * lu(k,582)
    1593   141111616 :          lu(k,587) = lu(k,587) - lu(k,498) * lu(k,582)
    1594   141111616 :          lu(k,590) = lu(k,590) - lu(k,499) * lu(k,582)
    1595   141111616 :          lu(k,591) = - lu(k,500) * lu(k,582)
    1596   141111616 :          lu(k,592) = lu(k,592) - lu(k,501) * lu(k,582)
    1597   141111616 :          lu(k,1438) = lu(k,1438) - lu(k,494) * lu(k,1437)
    1598   141111616 :          lu(k,1446) = lu(k,1446) - lu(k,495) * lu(k,1437)
    1599   141111616 :          lu(k,1447) = lu(k,1447) - lu(k,496) * lu(k,1437)
    1600   141111616 :          lu(k,1450) = - lu(k,497) * lu(k,1437)
    1601   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,498) * lu(k,1437)
    1602   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,499) * lu(k,1437)
    1603   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,500) * lu(k,1437)
    1604   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,501) * lu(k,1437)
    1605   141111616 :          lu(k,1633) = - lu(k,494) * lu(k,1632)
    1606   141111616 :          lu(k,1639) = lu(k,1639) - lu(k,495) * lu(k,1632)
    1607   141111616 :          lu(k,1640) = lu(k,1640) - lu(k,496) * lu(k,1632)
    1608   141111616 :          lu(k,1643) = lu(k,1643) - lu(k,497) * lu(k,1632)
    1609   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,498) * lu(k,1632)
    1610   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,499) * lu(k,1632)
    1611   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,500) * lu(k,1632)
    1612   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,501) * lu(k,1632)
    1613   141111616 :          lu(k,502) = 1._r8 / lu(k,502)
    1614   141111616 :          lu(k,503) = lu(k,503) * lu(k,502)
    1615   141111616 :          lu(k,504) = lu(k,504) * lu(k,502)
    1616   141111616 :          lu(k,505) = lu(k,505) * lu(k,502)
    1617   141111616 :          lu(k,559) = - lu(k,503) * lu(k,553)
    1618   141111616 :          lu(k,560) = lu(k,560) - lu(k,504) * lu(k,553)
    1619   141111616 :          lu(k,564) = lu(k,564) - lu(k,505) * lu(k,553)
    1620   141111616 :          lu(k,588) = - lu(k,503) * lu(k,583)
    1621   141111616 :          lu(k,589) = - lu(k,504) * lu(k,583)
    1622   141111616 :          lu(k,592) = lu(k,592) - lu(k,505) * lu(k,583)
    1623   141111616 :          lu(k,612) = - lu(k,503) * lu(k,606)
    1624   141111616 :          lu(k,613) = lu(k,613) - lu(k,504) * lu(k,606)
    1625   141111616 :          lu(k,617) = lu(k,617) - lu(k,505) * lu(k,606)
    1626   141111616 :          lu(k,872) = - lu(k,503) * lu(k,869)
    1627   141111616 :          lu(k,874) = - lu(k,504) * lu(k,869)
    1628   141111616 :          lu(k,881) = lu(k,881) - lu(k,505) * lu(k,869)
    1629   141111616 :          lu(k,1104) = - lu(k,503) * lu(k,1099)
    1630   141111616 :          lu(k,1106) = - lu(k,504) * lu(k,1099)
    1631   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,505) * lu(k,1099)
    1632   141111616 :          lu(k,1463) = - lu(k,503) * lu(k,1438)
    1633   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,504) * lu(k,1438)
    1634   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,505) * lu(k,1438)
    1635   141111616 :          lu(k,1653) = lu(k,1653) - lu(k,503) * lu(k,1633)
    1636   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,504) * lu(k,1633)
    1637   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,505) * lu(k,1633)
    1638   141111616 :          lu(k,1768) = lu(k,1768) - lu(k,503) * lu(k,1752)
    1639   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,504) * lu(k,1752)
    1640   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,505) * lu(k,1752)
    1641   141111616 :          lu(k,506) = 1._r8 / lu(k,506)
    1642   141111616 :          lu(k,507) = lu(k,507) * lu(k,506)
    1643   141111616 :          lu(k,508) = lu(k,508) * lu(k,506)
    1644   141111616 :          lu(k,509) = lu(k,509) * lu(k,506)
    1645   141111616 :          lu(k,510) = lu(k,510) * lu(k,506)
    1646   141111616 :          lu(k,511) = lu(k,511) * lu(k,506)
    1647   141111616 :          lu(k,935) = lu(k,935) - lu(k,507) * lu(k,932)
    1648   141111616 :          lu(k,943) = - lu(k,508) * lu(k,932)
    1649   141111616 :          lu(k,946) = lu(k,946) - lu(k,509) * lu(k,932)
    1650   141111616 :          lu(k,948) = lu(k,948) - lu(k,510) * lu(k,932)
    1651   141111616 :          lu(k,950) = lu(k,950) - lu(k,511) * lu(k,932)
    1652   141111616 :          lu(k,975) = lu(k,975) - lu(k,507) * lu(k,973)
    1653   141111616 :          lu(k,982) = lu(k,982) - lu(k,508) * lu(k,973)
    1654   141111616 :          lu(k,985) = lu(k,985) - lu(k,509) * lu(k,973)
    1655   141111616 :          lu(k,987) = lu(k,987) - lu(k,510) * lu(k,973)
    1656   141111616 :          lu(k,989) = lu(k,989) - lu(k,511) * lu(k,973)
    1657   141111616 :          lu(k,1297) = lu(k,1297) - lu(k,507) * lu(k,1290)
    1658   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,508) * lu(k,1290)
    1659   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,509) * lu(k,1290)
    1660   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,510) * lu(k,1290)
    1661   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,511) * lu(k,1290)
    1662   141111616 :          lu(k,1470) = lu(k,1470) - lu(k,507) * lu(k,1439)
    1663   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,508) * lu(k,1439)
    1664   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,509) * lu(k,1439)
    1665   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,510) * lu(k,1439)
    1666   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,511) * lu(k,1439)
    1667   141111616 :          lu(k,1771) = lu(k,1771) - lu(k,507) * lu(k,1753)
    1668   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,508) * lu(k,1753)
    1669   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,509) * lu(k,1753)
    1670   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,510) * lu(k,1753)
    1671   145521354 :          lu(k,1806) = lu(k,1806) - lu(k,511) * lu(k,1753)
    1672             :       end do
    1673     4409738 :       end subroutine lu_fac11
    1674     4409738 :       subroutine lu_fac12( avec_len, lu )
    1675             :       use chem_mods, only : nzcnt
    1676             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1677             :       implicit none
    1678             : !-----------------------------------------------------------------------
    1679             : ! ... dummy args
    1680             : !-----------------------------------------------------------------------
    1681             :       integer, intent(in) :: avec_len
    1682             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1683             : !-----------------------------------------------------------------------
    1684             : ! ... local variables
    1685             : !-----------------------------------------------------------------------
    1686             :       integer :: k
    1687   145521354 :       do k = 1,avec_len
    1688   141111616 :          lu(k,514) = 1._r8 / lu(k,514)
    1689   141111616 :          lu(k,515) = lu(k,515) * lu(k,514)
    1690   141111616 :          lu(k,516) = lu(k,516) * lu(k,514)
    1691   141111616 :          lu(k,517) = lu(k,517) * lu(k,514)
    1692   141111616 :          lu(k,518) = lu(k,518) * lu(k,514)
    1693   141111616 :          lu(k,519) = lu(k,519) * lu(k,514)
    1694   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,515) * lu(k,1440)
    1695   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,516) * lu(k,1440)
    1696   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,517) * lu(k,1440)
    1697   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,518) * lu(k,1440)
    1698   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,519) * lu(k,1440)
    1699   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,515) * lu(k,1634)
    1700   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,516) * lu(k,1634)
    1701   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,517) * lu(k,1634)
    1702   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,518) * lu(k,1634)
    1703   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,519) * lu(k,1634)
    1704   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,515) * lu(k,1754)
    1705   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,516) * lu(k,1754)
    1706   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,517) * lu(k,1754)
    1707   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,518) * lu(k,1754)
    1708   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,519) * lu(k,1754)
    1709   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,515) * lu(k,1822)
    1710   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,516) * lu(k,1822)
    1711   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,517) * lu(k,1822)
    1712   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,518) * lu(k,1822)
    1713   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,519) * lu(k,1822)
    1714   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,515) * lu(k,1880)
    1715   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,516) * lu(k,1880)
    1716   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,517) * lu(k,1880)
    1717   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,518) * lu(k,1880)
    1718   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,519) * lu(k,1880)
    1719   141111616 :          lu(k,521) = 1._r8 / lu(k,521)
    1720   141111616 :          lu(k,522) = lu(k,522) * lu(k,521)
    1721   141111616 :          lu(k,523) = lu(k,523) * lu(k,521)
    1722   141111616 :          lu(k,524) = lu(k,524) * lu(k,521)
    1723   141111616 :          lu(k,525) = lu(k,525) * lu(k,521)
    1724   141111616 :          lu(k,526) = lu(k,526) * lu(k,521)
    1725   141111616 :          lu(k,527) = lu(k,527) * lu(k,521)
    1726   141111616 :          lu(k,528) = lu(k,528) * lu(k,521)
    1727   141111616 :          lu(k,529) = lu(k,529) * lu(k,521)
    1728   141111616 :          lu(k,530) = lu(k,530) * lu(k,521)
    1729   141111616 :          lu(k,806) = lu(k,806) - lu(k,522) * lu(k,804)
    1730   141111616 :          lu(k,807) = lu(k,807) - lu(k,523) * lu(k,804)
    1731   141111616 :          lu(k,808) = lu(k,808) - lu(k,524) * lu(k,804)
    1732   141111616 :          lu(k,809) = lu(k,809) - lu(k,525) * lu(k,804)
    1733   141111616 :          lu(k,810) = lu(k,810) - lu(k,526) * lu(k,804)
    1734   141111616 :          lu(k,811) = lu(k,811) - lu(k,527) * lu(k,804)
    1735   141111616 :          lu(k,813) = lu(k,813) - lu(k,528) * lu(k,804)
    1736   141111616 :          lu(k,814) = lu(k,814) - lu(k,529) * lu(k,804)
    1737   141111616 :          lu(k,815) = lu(k,815) - lu(k,530) * lu(k,804)
    1738   141111616 :          lu(k,1443) = lu(k,1443) - lu(k,522) * lu(k,1441)
    1739   141111616 :          lu(k,1457) = lu(k,1457) - lu(k,523) * lu(k,1441)
    1740   141111616 :          lu(k,1466) = lu(k,1466) - lu(k,524) * lu(k,1441)
    1741   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,525) * lu(k,1441)
    1742   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,526) * lu(k,1441)
    1743   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,527) * lu(k,1441)
    1744   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,528) * lu(k,1441)
    1745   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,529) * lu(k,1441)
    1746   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,530) * lu(k,1441)
    1747   141111616 :          lu(k,1636) = lu(k,1636) - lu(k,522) * lu(k,1635)
    1748   141111616 :          lu(k,1649) = lu(k,1649) - lu(k,523) * lu(k,1635)
    1749   141111616 :          lu(k,1654) = lu(k,1654) - lu(k,524) * lu(k,1635)
    1750   141111616 :          lu(k,1655) = lu(k,1655) - lu(k,525) * lu(k,1635)
    1751   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,526) * lu(k,1635)
    1752   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,527) * lu(k,1635)
    1753   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,528) * lu(k,1635)
    1754   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,529) * lu(k,1635)
    1755   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,530) * lu(k,1635)
    1756   141111616 :          lu(k,532) = 1._r8 / lu(k,532)
    1757   141111616 :          lu(k,533) = lu(k,533) * lu(k,532)
    1758   141111616 :          lu(k,534) = lu(k,534) * lu(k,532)
    1759   141111616 :          lu(k,535) = lu(k,535) * lu(k,532)
    1760   141111616 :          lu(k,536) = lu(k,536) * lu(k,532)
    1761   141111616 :          lu(k,537) = lu(k,537) * lu(k,532)
    1762   141111616 :          lu(k,538) = lu(k,538) * lu(k,532)
    1763   141111616 :          lu(k,539) = lu(k,539) * lu(k,532)
    1764   141111616 :          lu(k,540) = lu(k,540) * lu(k,532)
    1765   141111616 :          lu(k,541) = lu(k,541) * lu(k,532)
    1766   141111616 :          lu(k,806) = lu(k,806) - lu(k,533) * lu(k,805)
    1767   141111616 :          lu(k,807) = lu(k,807) - lu(k,534) * lu(k,805)
    1768   141111616 :          lu(k,809) = lu(k,809) - lu(k,535) * lu(k,805)
    1769   141111616 :          lu(k,810) = lu(k,810) - lu(k,536) * lu(k,805)
    1770   141111616 :          lu(k,811) = lu(k,811) - lu(k,537) * lu(k,805)
    1771   141111616 :          lu(k,813) = lu(k,813) - lu(k,538) * lu(k,805)
    1772   141111616 :          lu(k,814) = lu(k,814) - lu(k,539) * lu(k,805)
    1773   141111616 :          lu(k,815) = lu(k,815) - lu(k,540) * lu(k,805)
    1774   141111616 :          lu(k,817) = lu(k,817) - lu(k,541) * lu(k,805)
    1775   141111616 :          lu(k,1443) = lu(k,1443) - lu(k,533) * lu(k,1442)
    1776   141111616 :          lu(k,1457) = lu(k,1457) - lu(k,534) * lu(k,1442)
    1777   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,535) * lu(k,1442)
    1778   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,536) * lu(k,1442)
    1779   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,537) * lu(k,1442)
    1780   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,538) * lu(k,1442)
    1781   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,539) * lu(k,1442)
    1782   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,540) * lu(k,1442)
    1783   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,541) * lu(k,1442)
    1784   141111616 :          lu(k,1756) = lu(k,1756) - lu(k,533) * lu(k,1755)
    1785   141111616 :          lu(k,1765) = lu(k,1765) - lu(k,534) * lu(k,1755)
    1786   141111616 :          lu(k,1770) = lu(k,1770) - lu(k,535) * lu(k,1755)
    1787   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,536) * lu(k,1755)
    1788   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,537) * lu(k,1755)
    1789   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,538) * lu(k,1755)
    1790   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,539) * lu(k,1755)
    1791   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,540) * lu(k,1755)
    1792   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,541) * lu(k,1755)
    1793   141111616 :          lu(k,543) = 1._r8 / lu(k,543)
    1794   141111616 :          lu(k,544) = lu(k,544) * lu(k,543)
    1795   141111616 :          lu(k,545) = lu(k,545) * lu(k,543)
    1796   141111616 :          lu(k,546) = lu(k,546) * lu(k,543)
    1797   141111616 :          lu(k,547) = lu(k,547) * lu(k,543)
    1798   141111616 :          lu(k,548) = lu(k,548) * lu(k,543)
    1799   141111616 :          lu(k,549) = lu(k,549) * lu(k,543)
    1800   141111616 :          lu(k,810) = lu(k,810) - lu(k,544) * lu(k,806)
    1801   141111616 :          lu(k,811) = lu(k,811) - lu(k,545) * lu(k,806)
    1802   141111616 :          lu(k,813) = lu(k,813) - lu(k,546) * lu(k,806)
    1803   141111616 :          lu(k,815) = lu(k,815) - lu(k,547) * lu(k,806)
    1804   141111616 :          lu(k,816) = lu(k,816) - lu(k,548) * lu(k,806)
    1805   141111616 :          lu(k,817) = lu(k,817) - lu(k,549) * lu(k,806)
    1806   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,544) * lu(k,1443)
    1807   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,545) * lu(k,1443)
    1808   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,546) * lu(k,1443)
    1809   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,547) * lu(k,1443)
    1810   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,548) * lu(k,1443)
    1811   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,549) * lu(k,1443)
    1812   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,544) * lu(k,1636)
    1813   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,545) * lu(k,1636)
    1814   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,546) * lu(k,1636)
    1815   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,547) * lu(k,1636)
    1816   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,548) * lu(k,1636)
    1817   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,549) * lu(k,1636)
    1818   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,544) * lu(k,1756)
    1819   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,545) * lu(k,1756)
    1820   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,546) * lu(k,1756)
    1821   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,547) * lu(k,1756)
    1822   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,548) * lu(k,1756)
    1823   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,549) * lu(k,1756)
    1824   141111616 :          lu(k,554) = 1._r8 / lu(k,554)
    1825   141111616 :          lu(k,555) = lu(k,555) * lu(k,554)
    1826   141111616 :          lu(k,556) = lu(k,556) * lu(k,554)
    1827   141111616 :          lu(k,557) = lu(k,557) * lu(k,554)
    1828   141111616 :          lu(k,558) = lu(k,558) * lu(k,554)
    1829   141111616 :          lu(k,559) = lu(k,559) * lu(k,554)
    1830   141111616 :          lu(k,560) = lu(k,560) * lu(k,554)
    1831   141111616 :          lu(k,561) = lu(k,561) * lu(k,554)
    1832   141111616 :          lu(k,562) = lu(k,562) * lu(k,554)
    1833   141111616 :          lu(k,563) = lu(k,563) * lu(k,554)
    1834   141111616 :          lu(k,564) = lu(k,564) * lu(k,554)
    1835   141111616 :          lu(k,608) = lu(k,608) - lu(k,555) * lu(k,607)
    1836   141111616 :          lu(k,609) = lu(k,609) - lu(k,556) * lu(k,607)
    1837   141111616 :          lu(k,610) = lu(k,610) - lu(k,557) * lu(k,607)
    1838   141111616 :          lu(k,611) = lu(k,611) - lu(k,558) * lu(k,607)
    1839   141111616 :          lu(k,612) = lu(k,612) - lu(k,559) * lu(k,607)
    1840   141111616 :          lu(k,613) = lu(k,613) - lu(k,560) * lu(k,607)
    1841   141111616 :          lu(k,614) = lu(k,614) - lu(k,561) * lu(k,607)
    1842   141111616 :          lu(k,615) = lu(k,615) - lu(k,562) * lu(k,607)
    1843   141111616 :          lu(k,616) = - lu(k,563) * lu(k,607)
    1844   141111616 :          lu(k,617) = lu(k,617) - lu(k,564) * lu(k,607)
    1845   141111616 :          lu(k,1446) = lu(k,1446) - lu(k,555) * lu(k,1444)
    1846   141111616 :          lu(k,1449) = lu(k,1449) - lu(k,556) * lu(k,1444)
    1847   141111616 :          lu(k,1450) = lu(k,1450) - lu(k,557) * lu(k,1444)
    1848   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,558) * lu(k,1444)
    1849   141111616 :          lu(k,1463) = lu(k,1463) - lu(k,559) * lu(k,1444)
    1850   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,560) * lu(k,1444)
    1851   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,561) * lu(k,1444)
    1852   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,562) * lu(k,1444)
    1853   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,563) * lu(k,1444)
    1854   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,564) * lu(k,1444)
    1855   141111616 :          lu(k,1639) = lu(k,1639) - lu(k,555) * lu(k,1637)
    1856   141111616 :          lu(k,1642) = lu(k,1642) - lu(k,556) * lu(k,1637)
    1857   141111616 :          lu(k,1643) = lu(k,1643) - lu(k,557) * lu(k,1637)
    1858   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,558) * lu(k,1637)
    1859   141111616 :          lu(k,1653) = lu(k,1653) - lu(k,559) * lu(k,1637)
    1860   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,560) * lu(k,1637)
    1861   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,561) * lu(k,1637)
    1862   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,562) * lu(k,1637)
    1863   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,563) * lu(k,1637)
    1864   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,564) * lu(k,1637)
    1865   141111616 :          lu(k,567) = 1._r8 / lu(k,567)
    1866   141111616 :          lu(k,568) = lu(k,568) * lu(k,567)
    1867   141111616 :          lu(k,569) = lu(k,569) * lu(k,567)
    1868   141111616 :          lu(k,570) = lu(k,570) * lu(k,567)
    1869   141111616 :          lu(k,571) = lu(k,571) * lu(k,567)
    1870   141111616 :          lu(k,572) = lu(k,572) * lu(k,567)
    1871   141111616 :          lu(k,573) = lu(k,573) * lu(k,567)
    1872   141111616 :          lu(k,1471) = lu(k,1471) - lu(k,568) * lu(k,1445)
    1873   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,569) * lu(k,1445)
    1874   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,570) * lu(k,1445)
    1875   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,571) * lu(k,1445)
    1876   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,572) * lu(k,1445)
    1877   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,573) * lu(k,1445)
    1878   141111616 :          lu(k,1657) = lu(k,1657) - lu(k,568) * lu(k,1638)
    1879   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,569) * lu(k,1638)
    1880   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,570) * lu(k,1638)
    1881   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,571) * lu(k,1638)
    1882   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,572) * lu(k,1638)
    1883   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,573) * lu(k,1638)
    1884   141111616 :          lu(k,1772) = lu(k,1772) - lu(k,568) * lu(k,1757)
    1885   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,569) * lu(k,1757)
    1886   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,570) * lu(k,1757)
    1887   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,571) * lu(k,1757)
    1888   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,572) * lu(k,1757)
    1889   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,573) * lu(k,1757)
    1890   141111616 :          lu(k,1834) = - lu(k,568) * lu(k,1823)
    1891   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,569) * lu(k,1823)
    1892   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,570) * lu(k,1823)
    1893   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,571) * lu(k,1823)
    1894   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,572) * lu(k,1823)
    1895   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,573) * lu(k,1823)
    1896   141111616 :          lu(k,1946) = - lu(k,568) * lu(k,1940)
    1897   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,569) * lu(k,1940)
    1898   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,570) * lu(k,1940)
    1899   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,571) * lu(k,1940)
    1900   141111616 :          lu(k,1962) = - lu(k,572) * lu(k,1940)
    1901   145521354 :          lu(k,1964) = - lu(k,573) * lu(k,1940)
    1902             :       end do
    1903     4409738 :       end subroutine lu_fac12
    1904     4409738 :       subroutine lu_fac13( avec_len, lu )
    1905             :       use chem_mods, only : nzcnt
    1906             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1907             :       implicit none
    1908             : !-----------------------------------------------------------------------
    1909             : ! ... dummy args
    1910             : !-----------------------------------------------------------------------
    1911             :       integer, intent(in) :: avec_len
    1912             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1913             : !-----------------------------------------------------------------------
    1914             : ! ... local variables
    1915             : !-----------------------------------------------------------------------
    1916             :       integer :: k
    1917   145521354 :       do k = 1,avec_len
    1918   141111616 :          lu(k,574) = 1._r8 / lu(k,574)
    1919   141111616 :          lu(k,575) = lu(k,575) * lu(k,574)
    1920   141111616 :          lu(k,576) = lu(k,576) * lu(k,574)
    1921   141111616 :          lu(k,577) = lu(k,577) * lu(k,574)
    1922   141111616 :          lu(k,578) = lu(k,578) * lu(k,574)
    1923   141111616 :          lu(k,579) = lu(k,579) * lu(k,574)
    1924   141111616 :          lu(k,587) = lu(k,587) - lu(k,575) * lu(k,584)
    1925   141111616 :          lu(k,589) = lu(k,589) - lu(k,576) * lu(k,584)
    1926   141111616 :          lu(k,592) = lu(k,592) - lu(k,577) * lu(k,584)
    1927   141111616 :          lu(k,593) = lu(k,593) - lu(k,578) * lu(k,584)
    1928   141111616 :          lu(k,594) = lu(k,594) - lu(k,579) * lu(k,584)
    1929   141111616 :          lu(k,611) = lu(k,611) - lu(k,575) * lu(k,608)
    1930   141111616 :          lu(k,613) = lu(k,613) - lu(k,576) * lu(k,608)
    1931   141111616 :          lu(k,617) = lu(k,617) - lu(k,577) * lu(k,608)
    1932   141111616 :          lu(k,618) = lu(k,618) - lu(k,578) * lu(k,608)
    1933   141111616 :          lu(k,619) = lu(k,619) - lu(k,579) * lu(k,608)
    1934   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,575) * lu(k,1446)
    1935   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,576) * lu(k,1446)
    1936   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,577) * lu(k,1446)
    1937   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,578) * lu(k,1446)
    1938   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,579) * lu(k,1446)
    1939   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,575) * lu(k,1639)
    1940   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,576) * lu(k,1639)
    1941   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,577) * lu(k,1639)
    1942   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,578) * lu(k,1639)
    1943   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,579) * lu(k,1639)
    1944   141111616 :          lu(k,1767) = lu(k,1767) - lu(k,575) * lu(k,1758)
    1945   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,576) * lu(k,1758)
    1946   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,577) * lu(k,1758)
    1947   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,578) * lu(k,1758)
    1948   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,579) * lu(k,1758)
    1949   141111616 :          lu(k,1885) = - lu(k,575) * lu(k,1881)
    1950   141111616 :          lu(k,1888) = - lu(k,576) * lu(k,1881)
    1951   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,577) * lu(k,1881)
    1952   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,578) * lu(k,1881)
    1953   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,579) * lu(k,1881)
    1954   141111616 :          lu(k,585) = 1._r8 / lu(k,585)
    1955   141111616 :          lu(k,586) = lu(k,586) * lu(k,585)
    1956   141111616 :          lu(k,587) = lu(k,587) * lu(k,585)
    1957   141111616 :          lu(k,588) = lu(k,588) * lu(k,585)
    1958   141111616 :          lu(k,589) = lu(k,589) * lu(k,585)
    1959   141111616 :          lu(k,590) = lu(k,590) * lu(k,585)
    1960   141111616 :          lu(k,591) = lu(k,591) * lu(k,585)
    1961   141111616 :          lu(k,592) = lu(k,592) * lu(k,585)
    1962   141111616 :          lu(k,593) = lu(k,593) * lu(k,585)
    1963   141111616 :          lu(k,594) = lu(k,594) * lu(k,585)
    1964   141111616 :          lu(k,1450) = lu(k,1450) - lu(k,586) * lu(k,1447)
    1965   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,587) * lu(k,1447)
    1966   141111616 :          lu(k,1463) = lu(k,1463) - lu(k,588) * lu(k,1447)
    1967   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,589) * lu(k,1447)
    1968   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,590) * lu(k,1447)
    1969   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,591) * lu(k,1447)
    1970   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,592) * lu(k,1447)
    1971   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,593) * lu(k,1447)
    1972   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,594) * lu(k,1447)
    1973   141111616 :          lu(k,1643) = lu(k,1643) - lu(k,586) * lu(k,1640)
    1974   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,587) * lu(k,1640)
    1975   141111616 :          lu(k,1653) = lu(k,1653) - lu(k,588) * lu(k,1640)
    1976   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,589) * lu(k,1640)
    1977   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,590) * lu(k,1640)
    1978   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,591) * lu(k,1640)
    1979   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,592) * lu(k,1640)
    1980   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,593) * lu(k,1640)
    1981   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,594) * lu(k,1640)
    1982   141111616 :          lu(k,1761) = lu(k,1761) - lu(k,586) * lu(k,1759)
    1983   141111616 :          lu(k,1767) = lu(k,1767) - lu(k,587) * lu(k,1759)
    1984   141111616 :          lu(k,1768) = lu(k,1768) - lu(k,588) * lu(k,1759)
    1985   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,589) * lu(k,1759)
    1986   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,590) * lu(k,1759)
    1987   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,591) * lu(k,1759)
    1988   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,592) * lu(k,1759)
    1989   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,593) * lu(k,1759)
    1990   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,594) * lu(k,1759)
    1991   141111616 :          lu(k,596) = 1._r8 / lu(k,596)
    1992   141111616 :          lu(k,597) = lu(k,597) * lu(k,596)
    1993   141111616 :          lu(k,598) = lu(k,598) * lu(k,596)
    1994   141111616 :          lu(k,599) = lu(k,599) * lu(k,596)
    1995   141111616 :          lu(k,600) = lu(k,600) * lu(k,596)
    1996   141111616 :          lu(k,601) = lu(k,601) * lu(k,596)
    1997   141111616 :          lu(k,602) = lu(k,602) * lu(k,596)
    1998   141111616 :          lu(k,1043) = - lu(k,597) * lu(k,1037)
    1999   141111616 :          lu(k,1045) = - lu(k,598) * lu(k,1037)
    2000   141111616 :          lu(k,1047) = - lu(k,599) * lu(k,1037)
    2001   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,600) * lu(k,1037)
    2002   141111616 :          lu(k,1053) = lu(k,1053) - lu(k,601) * lu(k,1037)
    2003   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,602) * lu(k,1037)
    2004   141111616 :          lu(k,1110) = lu(k,1110) - lu(k,597) * lu(k,1100)
    2005   141111616 :          lu(k,1111) = - lu(k,598) * lu(k,1100)
    2006   141111616 :          lu(k,1114) = - lu(k,599) * lu(k,1100)
    2007   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,600) * lu(k,1100)
    2008   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,601) * lu(k,1100)
    2009   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,602) * lu(k,1100)
    2010   141111616 :          lu(k,1178) = - lu(k,597) * lu(k,1171)
    2011   141111616 :          lu(k,1179) = lu(k,1179) - lu(k,598) * lu(k,1171)
    2012   141111616 :          lu(k,1181) = lu(k,1181) - lu(k,599) * lu(k,1171)
    2013   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,600) * lu(k,1171)
    2014   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,601) * lu(k,1171)
    2015   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,602) * lu(k,1171)
    2016   141111616 :          lu(k,1482) = lu(k,1482) - lu(k,597) * lu(k,1448)
    2017   141111616 :          lu(k,1485) = lu(k,1485) - lu(k,598) * lu(k,1448)
    2018   141111616 :          lu(k,1489) = lu(k,1489) - lu(k,599) * lu(k,1448)
    2019   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,600) * lu(k,1448)
    2020   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,601) * lu(k,1448)
    2021   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,602) * lu(k,1448)
    2022   141111616 :          lu(k,1666) = lu(k,1666) - lu(k,597) * lu(k,1641)
    2023   141111616 :          lu(k,1669) = - lu(k,598) * lu(k,1641)
    2024   141111616 :          lu(k,1672) = - lu(k,599) * lu(k,1641)
    2025   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,600) * lu(k,1641)
    2026   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,601) * lu(k,1641)
    2027   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,602) * lu(k,1641)
    2028   141111616 :          lu(k,609) = 1._r8 / lu(k,609)
    2029   141111616 :          lu(k,610) = lu(k,610) * lu(k,609)
    2030   141111616 :          lu(k,611) = lu(k,611) * lu(k,609)
    2031   141111616 :          lu(k,612) = lu(k,612) * lu(k,609)
    2032   141111616 :          lu(k,613) = lu(k,613) * lu(k,609)
    2033   141111616 :          lu(k,614) = lu(k,614) * lu(k,609)
    2034   141111616 :          lu(k,615) = lu(k,615) * lu(k,609)
    2035   141111616 :          lu(k,616) = lu(k,616) * lu(k,609)
    2036   141111616 :          lu(k,617) = lu(k,617) * lu(k,609)
    2037   141111616 :          lu(k,618) = lu(k,618) * lu(k,609)
    2038   141111616 :          lu(k,619) = lu(k,619) * lu(k,609)
    2039   141111616 :          lu(k,1450) = lu(k,1450) - lu(k,610) * lu(k,1449)
    2040   141111616 :          lu(k,1462) = lu(k,1462) - lu(k,611) * lu(k,1449)
    2041   141111616 :          lu(k,1463) = lu(k,1463) - lu(k,612) * lu(k,1449)
    2042   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,613) * lu(k,1449)
    2043   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,614) * lu(k,1449)
    2044   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,615) * lu(k,1449)
    2045   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,616) * lu(k,1449)
    2046   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,617) * lu(k,1449)
    2047   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,618) * lu(k,1449)
    2048   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,619) * lu(k,1449)
    2049   141111616 :          lu(k,1643) = lu(k,1643) - lu(k,610) * lu(k,1642)
    2050   141111616 :          lu(k,1652) = lu(k,1652) - lu(k,611) * lu(k,1642)
    2051   141111616 :          lu(k,1653) = lu(k,1653) - lu(k,612) * lu(k,1642)
    2052   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,613) * lu(k,1642)
    2053   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,614) * lu(k,1642)
    2054   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,615) * lu(k,1642)
    2055   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,616) * lu(k,1642)
    2056   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,617) * lu(k,1642)
    2057   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,618) * lu(k,1642)
    2058   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,619) * lu(k,1642)
    2059   141111616 :          lu(k,1761) = lu(k,1761) - lu(k,610) * lu(k,1760)
    2060   141111616 :          lu(k,1767) = lu(k,1767) - lu(k,611) * lu(k,1760)
    2061   141111616 :          lu(k,1768) = lu(k,1768) - lu(k,612) * lu(k,1760)
    2062   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,613) * lu(k,1760)
    2063   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,614) * lu(k,1760)
    2064   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,615) * lu(k,1760)
    2065   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,616) * lu(k,1760)
    2066   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,617) * lu(k,1760)
    2067   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,618) * lu(k,1760)
    2068   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,619) * lu(k,1760)
    2069   141111616 :          lu(k,620) = 1._r8 / lu(k,620)
    2070   141111616 :          lu(k,621) = lu(k,621) * lu(k,620)
    2071   141111616 :          lu(k,622) = lu(k,622) * lu(k,620)
    2072   141111616 :          lu(k,623) = lu(k,623) * lu(k,620)
    2073   141111616 :          lu(k,624) = lu(k,624) * lu(k,620)
    2074   141111616 :          lu(k,625) = lu(k,625) * lu(k,620)
    2075   141111616 :          lu(k,626) = lu(k,626) * lu(k,620)
    2076   141111616 :          lu(k,627) = lu(k,627) * lu(k,620)
    2077   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,621) * lu(k,1450)
    2078   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,622) * lu(k,1450)
    2079   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,623) * lu(k,1450)
    2080   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,624) * lu(k,1450)
    2081   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,625) * lu(k,1450)
    2082   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,626) * lu(k,1450)
    2083   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,627) * lu(k,1450)
    2084   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,621) * lu(k,1643)
    2085   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,622) * lu(k,1643)
    2086   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,623) * lu(k,1643)
    2087   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,624) * lu(k,1643)
    2088   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,625) * lu(k,1643)
    2089   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,626) * lu(k,1643)
    2090   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,627) * lu(k,1643)
    2091   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,621) * lu(k,1761)
    2092   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,622) * lu(k,1761)
    2093   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,623) * lu(k,1761)
    2094   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,624) * lu(k,1761)
    2095   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,625) * lu(k,1761)
    2096   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,626) * lu(k,1761)
    2097   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,627) * lu(k,1761)
    2098   141111616 :          lu(k,1888) = lu(k,1888) - lu(k,621) * lu(k,1882)
    2099   141111616 :          lu(k,1890) = - lu(k,622) * lu(k,1882)
    2100   141111616 :          lu(k,1897) = lu(k,1897) - lu(k,623) * lu(k,1882)
    2101   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,624) * lu(k,1882)
    2102   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,625) * lu(k,1882)
    2103   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,626) * lu(k,1882)
    2104   145521354 :          lu(k,1907) = lu(k,1907) - lu(k,627) * lu(k,1882)
    2105             :       end do
    2106     4409738 :       end subroutine lu_fac13
    2107     4409738 :       subroutine lu_fac14( avec_len, lu )
    2108             :       use chem_mods, only : nzcnt
    2109             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2110             :       implicit none
    2111             : !-----------------------------------------------------------------------
    2112             : ! ... dummy args
    2113             : !-----------------------------------------------------------------------
    2114             :       integer, intent(in) :: avec_len
    2115             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2116             : !-----------------------------------------------------------------------
    2117             : ! ... local variables
    2118             : !-----------------------------------------------------------------------
    2119             :       integer :: k
    2120   145521354 :       do k = 1,avec_len
    2121   141111616 :          lu(k,629) = 1._r8 / lu(k,629)
    2122   141111616 :          lu(k,630) = lu(k,630) * lu(k,629)
    2123   141111616 :          lu(k,631) = lu(k,631) * lu(k,629)
    2124   141111616 :          lu(k,632) = lu(k,632) * lu(k,629)
    2125   141111616 :          lu(k,633) = lu(k,633) * lu(k,629)
    2126   141111616 :          lu(k,634) = lu(k,634) * lu(k,629)
    2127   141111616 :          lu(k,635) = lu(k,635) * lu(k,629)
    2128   141111616 :          lu(k,636) = lu(k,636) * lu(k,629)
    2129   141111616 :          lu(k,637) = lu(k,637) * lu(k,629)
    2130   141111616 :          lu(k,841) = lu(k,841) - lu(k,630) * lu(k,837)
    2131   141111616 :          lu(k,843) = - lu(k,631) * lu(k,837)
    2132   141111616 :          lu(k,847) = lu(k,847) - lu(k,632) * lu(k,837)
    2133   141111616 :          lu(k,848) = lu(k,848) - lu(k,633) * lu(k,837)
    2134   141111616 :          lu(k,849) = lu(k,849) - lu(k,634) * lu(k,837)
    2135   141111616 :          lu(k,850) = - lu(k,635) * lu(k,837)
    2136   141111616 :          lu(k,852) = - lu(k,636) * lu(k,837)
    2137   141111616 :          lu(k,854) = lu(k,854) - lu(k,637) * lu(k,837)
    2138   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,630) * lu(k,1451)
    2139   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,631) * lu(k,1451)
    2140   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,632) * lu(k,1451)
    2141   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,633) * lu(k,1451)
    2142   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,634) * lu(k,1451)
    2143   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,635) * lu(k,1451)
    2144   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,636) * lu(k,1451)
    2145   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,637) * lu(k,1451)
    2146   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,630) * lu(k,1644)
    2147   141111616 :          lu(k,1661) = lu(k,1661) - lu(k,631) * lu(k,1644)
    2148   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,632) * lu(k,1644)
    2149   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,633) * lu(k,1644)
    2150   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,634) * lu(k,1644)
    2151   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,635) * lu(k,1644)
    2152   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,636) * lu(k,1644)
    2153   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,637) * lu(k,1644)
    2154   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,630) * lu(k,1762)
    2155   141111616 :          lu(k,1778) = lu(k,1778) - lu(k,631) * lu(k,1762)
    2156   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,632) * lu(k,1762)
    2157   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,633) * lu(k,1762)
    2158   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,634) * lu(k,1762)
    2159   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,635) * lu(k,1762)
    2160   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,636) * lu(k,1762)
    2161   141111616 :          lu(k,1810) = - lu(k,637) * lu(k,1762)
    2162   141111616 :          lu(k,639) = 1._r8 / lu(k,639)
    2163   141111616 :          lu(k,640) = lu(k,640) * lu(k,639)
    2164   141111616 :          lu(k,641) = lu(k,641) * lu(k,639)
    2165   141111616 :          lu(k,642) = lu(k,642) * lu(k,639)
    2166   141111616 :          lu(k,643) = lu(k,643) * lu(k,639)
    2167   141111616 :          lu(k,644) = lu(k,644) * lu(k,639)
    2168   141111616 :          lu(k,645) = lu(k,645) * lu(k,639)
    2169   141111616 :          lu(k,646) = lu(k,646) * lu(k,639)
    2170   141111616 :          lu(k,1024) = lu(k,1024) - lu(k,640) * lu(k,1023)
    2171   141111616 :          lu(k,1025) = - lu(k,641) * lu(k,1023)
    2172   141111616 :          lu(k,1026) = lu(k,1026) - lu(k,642) * lu(k,1023)
    2173   141111616 :          lu(k,1027) = - lu(k,643) * lu(k,1023)
    2174   141111616 :          lu(k,1029) = lu(k,1029) - lu(k,644) * lu(k,1023)
    2175   141111616 :          lu(k,1033) = - lu(k,645) * lu(k,1023)
    2176   141111616 :          lu(k,1034) = lu(k,1034) - lu(k,646) * lu(k,1023)
    2177   141111616 :          lu(k,1259) = - lu(k,640) * lu(k,1258)
    2178   141111616 :          lu(k,1260) = lu(k,1260) - lu(k,641) * lu(k,1258)
    2179   141111616 :          lu(k,1261) = lu(k,1261) - lu(k,642) * lu(k,1258)
    2180   141111616 :          lu(k,1262) = - lu(k,643) * lu(k,1258)
    2181   141111616 :          lu(k,1264) = lu(k,1264) - lu(k,644) * lu(k,1258)
    2182   141111616 :          lu(k,1269) = lu(k,1269) - lu(k,645) * lu(k,1258)
    2183   141111616 :          lu(k,1270) = lu(k,1270) - lu(k,646) * lu(k,1258)
    2184   141111616 :          lu(k,1339) = lu(k,1339) - lu(k,640) * lu(k,1337)
    2185   141111616 :          lu(k,1341) = - lu(k,641) * lu(k,1337)
    2186   141111616 :          lu(k,1342) = lu(k,1342) - lu(k,642) * lu(k,1337)
    2187   141111616 :          lu(k,1343) = lu(k,1343) - lu(k,643) * lu(k,1337)
    2188   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,644) * lu(k,1337)
    2189   141111616 :          lu(k,1356) = - lu(k,645) * lu(k,1337)
    2190   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,646) * lu(k,1337)
    2191   141111616 :          lu(k,1483) = lu(k,1483) - lu(k,640) * lu(k,1452)
    2192   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,641) * lu(k,1452)
    2193   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,642) * lu(k,1452)
    2194   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,643) * lu(k,1452)
    2195   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,644) * lu(k,1452)
    2196   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,645) * lu(k,1452)
    2197   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,646) * lu(k,1452)
    2198   141111616 :          lu(k,2031) = lu(k,2031) - lu(k,640) * lu(k,2029)
    2199   141111616 :          lu(k,2034) = - lu(k,641) * lu(k,2029)
    2200   141111616 :          lu(k,2035) = lu(k,2035) - lu(k,642) * lu(k,2029)
    2201   141111616 :          lu(k,2036) = - lu(k,643) * lu(k,2029)
    2202   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,644) * lu(k,2029)
    2203   141111616 :          lu(k,2049) = - lu(k,645) * lu(k,2029)
    2204   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,646) * lu(k,2029)
    2205   141111616 :          lu(k,648) = 1._r8 / lu(k,648)
    2206   141111616 :          lu(k,649) = lu(k,649) * lu(k,648)
    2207   141111616 :          lu(k,650) = lu(k,650) * lu(k,648)
    2208   141111616 :          lu(k,651) = lu(k,651) * lu(k,648)
    2209   141111616 :          lu(k,652) = lu(k,652) * lu(k,648)
    2210   141111616 :          lu(k,653) = lu(k,653) * lu(k,648)
    2211   141111616 :          lu(k,654) = lu(k,654) * lu(k,648)
    2212   141111616 :          lu(k,655) = lu(k,655) * lu(k,648)
    2213   141111616 :          lu(k,1518) = lu(k,1518) - lu(k,649) * lu(k,1515)
    2214   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,650) * lu(k,1515)
    2215   141111616 :          lu(k,1524) = lu(k,1524) - lu(k,651) * lu(k,1515)
    2216   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,652) * lu(k,1515)
    2217   141111616 :          lu(k,1532) = - lu(k,653) * lu(k,1515)
    2218   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,654) * lu(k,1515)
    2219   141111616 :          lu(k,1535) = - lu(k,655) * lu(k,1515)
    2220   141111616 :          lu(k,1571) = lu(k,1571) - lu(k,649) * lu(k,1563)
    2221   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,650) * lu(k,1563)
    2222   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,651) * lu(k,1563)
    2223   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,652) * lu(k,1563)
    2224   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,653) * lu(k,1563)
    2225   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,654) * lu(k,1563)
    2226   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,655) * lu(k,1563)
    2227   141111616 :          lu(k,1677) = lu(k,1677) - lu(k,649) * lu(k,1645)
    2228   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,650) * lu(k,1645)
    2229   141111616 :          lu(k,1683) = lu(k,1683) - lu(k,651) * lu(k,1645)
    2230   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,652) * lu(k,1645)
    2231   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,653) * lu(k,1645)
    2232   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,654) * lu(k,1645)
    2233   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,655) * lu(k,1645)
    2234   141111616 :          lu(k,1894) = lu(k,1894) - lu(k,649) * lu(k,1883)
    2235   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,650) * lu(k,1883)
    2236   141111616 :          lu(k,1900) = lu(k,1900) - lu(k,651) * lu(k,1883)
    2237   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,652) * lu(k,1883)
    2238   141111616 :          lu(k,1908) = - lu(k,653) * lu(k,1883)
    2239   141111616 :          lu(k,1909) = - lu(k,654) * lu(k,1883)
    2240   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,655) * lu(k,1883)
    2241   141111616 :          lu(k,1917) = lu(k,1917) - lu(k,649) * lu(k,1914)
    2242   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,650) * lu(k,1914)
    2243   141111616 :          lu(k,1923) = - lu(k,651) * lu(k,1914)
    2244   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,652) * lu(k,1914)
    2245   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,653) * lu(k,1914)
    2246   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,654) * lu(k,1914)
    2247   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,655) * lu(k,1914)
    2248   141111616 :          lu(k,656) = 1._r8 / lu(k,656)
    2249   141111616 :          lu(k,657) = lu(k,657) * lu(k,656)
    2250   141111616 :          lu(k,658) = lu(k,658) * lu(k,656)
    2251   141111616 :          lu(k,659) = lu(k,659) * lu(k,656)
    2252   141111616 :          lu(k,689) = lu(k,689) - lu(k,657) * lu(k,685)
    2253   141111616 :          lu(k,690) = lu(k,690) - lu(k,658) * lu(k,685)
    2254   141111616 :          lu(k,691) = lu(k,691) - lu(k,659) * lu(k,685)
    2255   141111616 :          lu(k,946) = lu(k,946) - lu(k,657) * lu(k,933)
    2256   141111616 :          lu(k,947) = lu(k,947) - lu(k,658) * lu(k,933)
    2257   141111616 :          lu(k,948) = lu(k,948) - lu(k,659) * lu(k,933)
    2258   141111616 :          lu(k,966) = lu(k,966) - lu(k,657) * lu(k,955)
    2259   141111616 :          lu(k,967) = lu(k,967) - lu(k,658) * lu(k,955)
    2260   141111616 :          lu(k,968) = lu(k,968) - lu(k,659) * lu(k,955)
    2261   141111616 :          lu(k,985) = lu(k,985) - lu(k,657) * lu(k,974)
    2262   141111616 :          lu(k,986) = lu(k,986) - lu(k,658) * lu(k,974)
    2263   141111616 :          lu(k,987) = lu(k,987) - lu(k,659) * lu(k,974)
    2264   141111616 :          lu(k,999) = lu(k,999) - lu(k,657) * lu(k,993)
    2265   141111616 :          lu(k,1000) = lu(k,1000) - lu(k,658) * lu(k,993)
    2266   141111616 :          lu(k,1001) = lu(k,1001) - lu(k,659) * lu(k,993)
    2267   141111616 :          lu(k,1016) = lu(k,1016) - lu(k,657) * lu(k,1006)
    2268   141111616 :          lu(k,1017) = lu(k,1017) - lu(k,658) * lu(k,1006)
    2269   141111616 :          lu(k,1018) = lu(k,1018) - lu(k,659) * lu(k,1006)
    2270   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,657) * lu(k,1038)
    2271   141111616 :          lu(k,1053) = lu(k,1053) - lu(k,658) * lu(k,1038)
    2272   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,659) * lu(k,1038)
    2273   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,657) * lu(k,1101)
    2274   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,658) * lu(k,1101)
    2275   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,659) * lu(k,1101)
    2276   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,657) * lu(k,1150)
    2277   141111616 :          lu(k,1164) = lu(k,1164) - lu(k,658) * lu(k,1150)
    2278   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,659) * lu(k,1150)
    2279   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,657) * lu(k,1172)
    2280   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,658) * lu(k,1172)
    2281   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,659) * lu(k,1172)
    2282   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,657) * lu(k,1291)
    2283   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,658) * lu(k,1291)
    2284   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,659) * lu(k,1291)
    2285   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,657) * lu(k,1453)
    2286   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,658) * lu(k,1453)
    2287   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,659) * lu(k,1453)
    2288   141111616 :          lu(k,661) = 1._r8 / lu(k,661)
    2289   141111616 :          lu(k,662) = lu(k,662) * lu(k,661)
    2290   141111616 :          lu(k,663) = lu(k,663) * lu(k,661)
    2291   141111616 :          lu(k,664) = lu(k,664) * lu(k,661)
    2292   141111616 :          lu(k,665) = lu(k,665) * lu(k,661)
    2293   141111616 :          lu(k,666) = lu(k,666) * lu(k,661)
    2294   141111616 :          lu(k,667) = lu(k,667) * lu(k,661)
    2295   141111616 :          lu(k,668) = lu(k,668) * lu(k,661)
    2296   141111616 :          lu(k,669) = lu(k,669) * lu(k,661)
    2297   141111616 :          lu(k,670) = lu(k,670) * lu(k,661)
    2298   141111616 :          lu(k,1296) = lu(k,1296) - lu(k,662) * lu(k,1292)
    2299   141111616 :          lu(k,1301) = lu(k,1301) - lu(k,663) * lu(k,1292)
    2300   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,664) * lu(k,1292)
    2301   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,665) * lu(k,1292)
    2302   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,666) * lu(k,1292)
    2303   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,667) * lu(k,1292)
    2304   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,668) * lu(k,1292)
    2305   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,669) * lu(k,1292)
    2306   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,670) * lu(k,1292)
    2307   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,662) * lu(k,1454)
    2308   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,663) * lu(k,1454)
    2309   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,664) * lu(k,1454)
    2310   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,665) * lu(k,1454)
    2311   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,666) * lu(k,1454)
    2312   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,667) * lu(k,1454)
    2313   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,668) * lu(k,1454)
    2314   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,669) * lu(k,1454)
    2315   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,670) * lu(k,1454)
    2316   141111616 :          lu(k,1655) = lu(k,1655) - lu(k,662) * lu(k,1646)
    2317   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,663) * lu(k,1646)
    2318   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,664) * lu(k,1646)
    2319   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,665) * lu(k,1646)
    2320   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,666) * lu(k,1646)
    2321   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,667) * lu(k,1646)
    2322   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,668) * lu(k,1646)
    2323   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,669) * lu(k,1646)
    2324   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,670) * lu(k,1646)
    2325   141111616 :          lu(k,1770) = lu(k,1770) - lu(k,662) * lu(k,1763)
    2326   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,663) * lu(k,1763)
    2327   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,664) * lu(k,1763)
    2328   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,665) * lu(k,1763)
    2329   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,666) * lu(k,1763)
    2330   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,667) * lu(k,1763)
    2331   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,668) * lu(k,1763)
    2332   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,669) * lu(k,1763)
    2333   145521354 :          lu(k,1810) = lu(k,1810) - lu(k,670) * lu(k,1763)
    2334             :       end do
    2335     4409738 :       end subroutine lu_fac14
    2336     4409738 :       subroutine lu_fac15( avec_len, lu )
    2337             :       use chem_mods, only : nzcnt
    2338             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2339             :       implicit none
    2340             : !-----------------------------------------------------------------------
    2341             : ! ... dummy args
    2342             : !-----------------------------------------------------------------------
    2343             :       integer, intent(in) :: avec_len
    2344             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2345             : !-----------------------------------------------------------------------
    2346             : ! ... local variables
    2347             : !-----------------------------------------------------------------------
    2348             :       integer :: k
    2349   145521354 :       do k = 1,avec_len
    2350   141111616 :          lu(k,671) = 1._r8 / lu(k,671)
    2351   141111616 :          lu(k,672) = lu(k,672) * lu(k,671)
    2352   141111616 :          lu(k,673) = lu(k,673) * lu(k,671)
    2353   141111616 :          lu(k,674) = lu(k,674) * lu(k,671)
    2354   141111616 :          lu(k,716) = lu(k,716) - lu(k,672) * lu(k,705)
    2355   141111616 :          lu(k,718) = lu(k,718) - lu(k,673) * lu(k,705)
    2356   141111616 :          lu(k,721) = - lu(k,674) * lu(k,705)
    2357   141111616 :          lu(k,770) = lu(k,770) - lu(k,672) * lu(k,757)
    2358   141111616 :          lu(k,772) = lu(k,772) - lu(k,673) * lu(k,757)
    2359   141111616 :          lu(k,775) = - lu(k,674) * lu(k,757)
    2360   141111616 :          lu(k,797) = lu(k,797) - lu(k,672) * lu(k,784)
    2361   141111616 :          lu(k,799) = lu(k,799) - lu(k,673) * lu(k,784)
    2362   141111616 :          lu(k,802) = - lu(k,674) * lu(k,784)
    2363   141111616 :          lu(k,847) = lu(k,847) - lu(k,672) * lu(k,838)
    2364   141111616 :          lu(k,849) = lu(k,849) - lu(k,673) * lu(k,838)
    2365   141111616 :          lu(k,854) = lu(k,854) - lu(k,674) * lu(k,838)
    2366   141111616 :          lu(k,1066) = lu(k,1066) - lu(k,672) * lu(k,1058)
    2367   141111616 :          lu(k,1068) = lu(k,1068) - lu(k,673) * lu(k,1058)
    2368   141111616 :          lu(k,1070) = lu(k,1070) - lu(k,674) * lu(k,1058)
    2369   141111616 :          lu(k,1141) = lu(k,1141) - lu(k,672) * lu(k,1129)
    2370   141111616 :          lu(k,1143) = lu(k,1143) - lu(k,673) * lu(k,1129)
    2371   141111616 :          lu(k,1148) = - lu(k,674) * lu(k,1129)
    2372   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,672) * lu(k,1455)
    2373   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,673) * lu(k,1455)
    2374   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,674) * lu(k,1455)
    2375   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,672) * lu(k,1537)
    2376   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,673) * lu(k,1537)
    2377   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,674) * lu(k,1537)
    2378   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,672) * lu(k,1647)
    2379   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,673) * lu(k,1647)
    2380   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,674) * lu(k,1647)
    2381   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,672) * lu(k,1764)
    2382   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,673) * lu(k,1764)
    2383   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,674) * lu(k,1764)
    2384   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,672) * lu(k,1824)
    2385   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,673) * lu(k,1824)
    2386   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,674) * lu(k,1824)
    2387   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,672) * lu(k,1941)
    2388   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,673) * lu(k,1941)
    2389   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,674) * lu(k,1941)
    2390   141111616 :          lu(k,676) = 1._r8 / lu(k,676)
    2391   141111616 :          lu(k,677) = lu(k,677) * lu(k,676)
    2392   141111616 :          lu(k,678) = lu(k,678) * lu(k,676)
    2393   141111616 :          lu(k,679) = lu(k,679) * lu(k,676)
    2394   141111616 :          lu(k,680) = lu(k,680) * lu(k,676)
    2395   141111616 :          lu(k,681) = lu(k,681) * lu(k,676)
    2396   141111616 :          lu(k,682) = lu(k,682) * lu(k,676)
    2397   141111616 :          lu(k,828) = lu(k,828) - lu(k,677) * lu(k,825)
    2398   141111616 :          lu(k,829) = lu(k,829) - lu(k,678) * lu(k,825)
    2399   141111616 :          lu(k,830) = lu(k,830) - lu(k,679) * lu(k,825)
    2400   141111616 :          lu(k,832) = lu(k,832) - lu(k,680) * lu(k,825)
    2401   141111616 :          lu(k,833) = lu(k,833) - lu(k,681) * lu(k,825)
    2402   141111616 :          lu(k,835) = - lu(k,682) * lu(k,825)
    2403   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,677) * lu(k,1456)
    2404   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,678) * lu(k,1456)
    2405   141111616 :          lu(k,1504) = lu(k,1504) - lu(k,679) * lu(k,1456)
    2406   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,680) * lu(k,1456)
    2407   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,681) * lu(k,1456)
    2408   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,682) * lu(k,1456)
    2409   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,677) * lu(k,1564)
    2410   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,678) * lu(k,1564)
    2411   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,679) * lu(k,1564)
    2412   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,680) * lu(k,1564)
    2413   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,681) * lu(k,1564)
    2414   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,682) * lu(k,1564)
    2415   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,677) * lu(k,1648)
    2416   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,678) * lu(k,1648)
    2417   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,679) * lu(k,1648)
    2418   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,680) * lu(k,1648)
    2419   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,681) * lu(k,1648)
    2420   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,682) * lu(k,1648)
    2421   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,677) * lu(k,1699)
    2422   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,678) * lu(k,1699)
    2423   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,679) * lu(k,1699)
    2424   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,680) * lu(k,1699)
    2425   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,681) * lu(k,1699)
    2426   141111616 :          lu(k,1720) = - lu(k,682) * lu(k,1699)
    2427   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,677) * lu(k,1915)
    2428   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,678) * lu(k,1915)
    2429   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,679) * lu(k,1915)
    2430   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,680) * lu(k,1915)
    2431   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,681) * lu(k,1915)
    2432   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,682) * lu(k,1915)
    2433   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,677) * lu(k,1942)
    2434   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,678) * lu(k,1942)
    2435   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,679) * lu(k,1942)
    2436   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,680) * lu(k,1942)
    2437   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,681) * lu(k,1942)
    2438   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,682) * lu(k,1942)
    2439   141111616 :          lu(k,686) = 1._r8 / lu(k,686)
    2440   141111616 :          lu(k,687) = lu(k,687) * lu(k,686)
    2441   141111616 :          lu(k,688) = lu(k,688) * lu(k,686)
    2442   141111616 :          lu(k,689) = lu(k,689) * lu(k,686)
    2443   141111616 :          lu(k,690) = lu(k,690) * lu(k,686)
    2444   141111616 :          lu(k,691) = lu(k,691) * lu(k,686)
    2445   141111616 :          lu(k,692) = lu(k,692) * lu(k,686)
    2446   141111616 :          lu(k,693) = lu(k,693) * lu(k,686)
    2447   141111616 :          lu(k,810) = lu(k,810) - lu(k,687) * lu(k,807)
    2448   141111616 :          lu(k,812) = - lu(k,688) * lu(k,807)
    2449   141111616 :          lu(k,813) = lu(k,813) - lu(k,689) * lu(k,807)
    2450   141111616 :          lu(k,814) = lu(k,814) - lu(k,690) * lu(k,807)
    2451   141111616 :          lu(k,815) = lu(k,815) - lu(k,691) * lu(k,807)
    2452   141111616 :          lu(k,816) = lu(k,816) - lu(k,692) * lu(k,807)
    2453   141111616 :          lu(k,817) = lu(k,817) - lu(k,693) * lu(k,807)
    2454   141111616 :          lu(k,1301) = lu(k,1301) - lu(k,687) * lu(k,1293)
    2455   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,688) * lu(k,1293)
    2456   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,689) * lu(k,1293)
    2457   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,690) * lu(k,1293)
    2458   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,691) * lu(k,1293)
    2459   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,692) * lu(k,1293)
    2460   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,693) * lu(k,1293)
    2461   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,687) * lu(k,1457)
    2462   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,688) * lu(k,1457)
    2463   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,689) * lu(k,1457)
    2464   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,690) * lu(k,1457)
    2465   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,691) * lu(k,1457)
    2466   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,692) * lu(k,1457)
    2467   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,693) * lu(k,1457)
    2468   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,687) * lu(k,1649)
    2469   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,688) * lu(k,1649)
    2470   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,689) * lu(k,1649)
    2471   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,690) * lu(k,1649)
    2472   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,691) * lu(k,1649)
    2473   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,692) * lu(k,1649)
    2474   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,693) * lu(k,1649)
    2475   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,687) * lu(k,1765)
    2476   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,688) * lu(k,1765)
    2477   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,689) * lu(k,1765)
    2478   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,690) * lu(k,1765)
    2479   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,691) * lu(k,1765)
    2480   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,692) * lu(k,1765)
    2481   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,693) * lu(k,1765)
    2482   141111616 :          lu(k,1947) = - lu(k,687) * lu(k,1943)
    2483   141111616 :          lu(k,1954) = lu(k,1954) - lu(k,688) * lu(k,1943)
    2484   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,689) * lu(k,1943)
    2485   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,690) * lu(k,1943)
    2486   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,691) * lu(k,1943)
    2487   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,692) * lu(k,1943)
    2488   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,693) * lu(k,1943)
    2489   141111616 :          lu(k,694) = 1._r8 / lu(k,694)
    2490   141111616 :          lu(k,695) = lu(k,695) * lu(k,694)
    2491   141111616 :          lu(k,696) = lu(k,696) * lu(k,694)
    2492   141111616 :          lu(k,697) = lu(k,697) * lu(k,694)
    2493   141111616 :          lu(k,698) = lu(k,698) * lu(k,694)
    2494   141111616 :          lu(k,699) = lu(k,699) * lu(k,694)
    2495   141111616 :          lu(k,700) = lu(k,700) * lu(k,694)
    2496   141111616 :          lu(k,701) = lu(k,701) * lu(k,694)
    2497   141111616 :          lu(k,1247) = lu(k,1247) - lu(k,695) * lu(k,1245)
    2498   141111616 :          lu(k,1248) = - lu(k,696) * lu(k,1245)
    2499   141111616 :          lu(k,1249) = - lu(k,697) * lu(k,1245)
    2500   141111616 :          lu(k,1250) = - lu(k,698) * lu(k,1245)
    2501   141111616 :          lu(k,1251) = lu(k,1251) - lu(k,699) * lu(k,1245)
    2502   141111616 :          lu(k,1253) = - lu(k,700) * lu(k,1245)
    2503   141111616 :          lu(k,1256) = - lu(k,701) * lu(k,1245)
    2504   141111616 :          lu(k,1340) = lu(k,1340) - lu(k,695) * lu(k,1338)
    2505   141111616 :          lu(k,1342) = lu(k,1342) - lu(k,696) * lu(k,1338)
    2506   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,697) * lu(k,1338)
    2507   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,698) * lu(k,1338)
    2508   141111616 :          lu(k,1346) = lu(k,1346) - lu(k,699) * lu(k,1338)
    2509   141111616 :          lu(k,1348) = lu(k,1348) - lu(k,700) * lu(k,1338)
    2510   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,701) * lu(k,1338)
    2511   141111616 :          lu(k,1494) = lu(k,1494) - lu(k,695) * lu(k,1458)
    2512   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,696) * lu(k,1458)
    2513   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,697) * lu(k,1458)
    2514   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,698) * lu(k,1458)
    2515   141111616 :          lu(k,1500) = lu(k,1500) - lu(k,699) * lu(k,1458)
    2516   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,700) * lu(k,1458)
    2517   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,701) * lu(k,1458)
    2518   141111616 :          lu(k,1541) = lu(k,1541) - lu(k,695) * lu(k,1538)
    2519   141111616 :          lu(k,1543) = lu(k,1543) - lu(k,696) * lu(k,1538)
    2520   141111616 :          lu(k,1545) = - lu(k,697) * lu(k,1538)
    2521   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,698) * lu(k,1538)
    2522   141111616 :          lu(k,1547) = - lu(k,699) * lu(k,1538)
    2523   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,700) * lu(k,1538)
    2524   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,701) * lu(k,1538)
    2525   141111616 :          lu(k,1571) = lu(k,1571) - lu(k,695) * lu(k,1565)
    2526   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,696) * lu(k,1565)
    2527   141111616 :          lu(k,1575) = - lu(k,697) * lu(k,1565)
    2528   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,698) * lu(k,1565)
    2529   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,699) * lu(k,1565)
    2530   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,700) * lu(k,1565)
    2531   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,701) * lu(k,1565)
    2532   141111616 :          lu(k,1677) = lu(k,1677) - lu(k,695) * lu(k,1650)
    2533   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,696) * lu(k,1650)
    2534   141111616 :          lu(k,1681) = - lu(k,697) * lu(k,1650)
    2535   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,698) * lu(k,1650)
    2536   141111616 :          lu(k,1683) = lu(k,1683) - lu(k,699) * lu(k,1650)
    2537   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,700) * lu(k,1650)
    2538   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,701) * lu(k,1650)
    2539   141111616 :          lu(k,706) = 1._r8 / lu(k,706)
    2540   141111616 :          lu(k,707) = lu(k,707) * lu(k,706)
    2541   141111616 :          lu(k,708) = lu(k,708) * lu(k,706)
    2542   141111616 :          lu(k,709) = lu(k,709) * lu(k,706)
    2543   141111616 :          lu(k,710) = lu(k,710) * lu(k,706)
    2544   141111616 :          lu(k,711) = lu(k,711) * lu(k,706)
    2545   141111616 :          lu(k,712) = lu(k,712) * lu(k,706)
    2546   141111616 :          lu(k,713) = lu(k,713) * lu(k,706)
    2547   141111616 :          lu(k,714) = lu(k,714) * lu(k,706)
    2548   141111616 :          lu(k,715) = lu(k,715) * lu(k,706)
    2549   141111616 :          lu(k,716) = lu(k,716) * lu(k,706)
    2550   141111616 :          lu(k,717) = lu(k,717) * lu(k,706)
    2551   141111616 :          lu(k,718) = lu(k,718) * lu(k,706)
    2552   141111616 :          lu(k,719) = lu(k,719) * lu(k,706)
    2553   141111616 :          lu(k,720) = lu(k,720) * lu(k,706)
    2554   141111616 :          lu(k,721) = lu(k,721) * lu(k,706)
    2555   141111616 :          lu(k,1469) = lu(k,1469) - lu(k,707) * lu(k,1459)
    2556   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,708) * lu(k,1459)
    2557   141111616 :          lu(k,1484) = - lu(k,709) * lu(k,1459)
    2558   141111616 :          lu(k,1485) = lu(k,1485) - lu(k,710) * lu(k,1459)
    2559   141111616 :          lu(k,1488) = lu(k,1488) - lu(k,711) * lu(k,1459)
    2560   141111616 :          lu(k,1489) = lu(k,1489) - lu(k,712) * lu(k,1459)
    2561   141111616 :          lu(k,1491) = lu(k,1491) - lu(k,713) * lu(k,1459)
    2562   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,714) * lu(k,1459)
    2563   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,715) * lu(k,1459)
    2564   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,716) * lu(k,1459)
    2565   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,717) * lu(k,1459)
    2566   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,718) * lu(k,1459)
    2567   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,719) * lu(k,1459)
    2568   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,720) * lu(k,1459)
    2569   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,721) * lu(k,1459)
    2570   141111616 :          lu(k,1832) = lu(k,1832) - lu(k,707) * lu(k,1825)
    2571   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,708) * lu(k,1825)
    2572   141111616 :          lu(k,1843) = - lu(k,709) * lu(k,1825)
    2573   141111616 :          lu(k,1844) = lu(k,1844) - lu(k,710) * lu(k,1825)
    2574   141111616 :          lu(k,1847) = - lu(k,711) * lu(k,1825)
    2575   141111616 :          lu(k,1848) = lu(k,1848) - lu(k,712) * lu(k,1825)
    2576   141111616 :          lu(k,1850) = - lu(k,713) * lu(k,1825)
    2577   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,714) * lu(k,1825)
    2578   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,715) * lu(k,1825)
    2579   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,716) * lu(k,1825)
    2580   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,717) * lu(k,1825)
    2581   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,718) * lu(k,1825)
    2582   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,719) * lu(k,1825)
    2583   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,720) * lu(k,1825)
    2584   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,721) * lu(k,1825)
    2585   141111616 :          lu(k,1984) = lu(k,1984) - lu(k,707) * lu(k,1976)
    2586   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,708) * lu(k,1976)
    2587   141111616 :          lu(k,1998) = lu(k,1998) - lu(k,709) * lu(k,1976)
    2588   141111616 :          lu(k,1999) = lu(k,1999) - lu(k,710) * lu(k,1976)
    2589   141111616 :          lu(k,2002) = lu(k,2002) - lu(k,711) * lu(k,1976)
    2590   141111616 :          lu(k,2003) = lu(k,2003) - lu(k,712) * lu(k,1976)
    2591   141111616 :          lu(k,2005) = lu(k,2005) - lu(k,713) * lu(k,1976)
    2592   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,714) * lu(k,1976)
    2593   141111616 :          lu(k,2011) = - lu(k,715) * lu(k,1976)
    2594   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,716) * lu(k,1976)
    2595   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,717) * lu(k,1976)
    2596   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,718) * lu(k,1976)
    2597   141111616 :          lu(k,2020) = - lu(k,719) * lu(k,1976)
    2598   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,720) * lu(k,1976)
    2599   145521354 :          lu(k,2025) = - lu(k,721) * lu(k,1976)
    2600             :       end do
    2601     4409738 :       end subroutine lu_fac15
    2602     4409738 :       subroutine lu_fac16( avec_len, lu )
    2603             :       use chem_mods, only : nzcnt
    2604             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2605             :       implicit none
    2606             : !-----------------------------------------------------------------------
    2607             : ! ... dummy args
    2608             : !-----------------------------------------------------------------------
    2609             :       integer, intent(in) :: avec_len
    2610             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2611             : !-----------------------------------------------------------------------
    2612             : ! ... local variables
    2613             : !-----------------------------------------------------------------------
    2614             :       integer :: k
    2615   145521354 :       do k = 1,avec_len
    2616   141111616 :          lu(k,723) = 1._r8 / lu(k,723)
    2617   141111616 :          lu(k,724) = lu(k,724) * lu(k,723)
    2618   141111616 :          lu(k,725) = lu(k,725) * lu(k,723)
    2619   141111616 :          lu(k,726) = lu(k,726) * lu(k,723)
    2620   141111616 :          lu(k,727) = lu(k,727) * lu(k,723)
    2621   141111616 :          lu(k,728) = lu(k,728) * lu(k,723)
    2622   141111616 :          lu(k,1083) = lu(k,1083) - lu(k,724) * lu(k,1082)
    2623   141111616 :          lu(k,1086) = lu(k,1086) - lu(k,725) * lu(k,1082)
    2624   141111616 :          lu(k,1088) = lu(k,1088) - lu(k,726) * lu(k,1082)
    2625   141111616 :          lu(k,1089) = - lu(k,727) * lu(k,1082)
    2626   141111616 :          lu(k,1095) = - lu(k,728) * lu(k,1082)
    2627   141111616 :          lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1460)
    2628   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,725) * lu(k,1460)
    2629   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,726) * lu(k,1460)
    2630   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,727) * lu(k,1460)
    2631   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,728) * lu(k,1460)
    2632   141111616 :          lu(k,1517) = lu(k,1517) - lu(k,724) * lu(k,1516)
    2633   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,725) * lu(k,1516)
    2634   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,726) * lu(k,1516)
    2635   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,727) * lu(k,1516)
    2636   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,728) * lu(k,1516)
    2637   141111616 :          lu(k,1570) = lu(k,1570) - lu(k,724) * lu(k,1566)
    2638   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,725) * lu(k,1566)
    2639   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,726) * lu(k,1566)
    2640   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,727) * lu(k,1566)
    2641   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,728) * lu(k,1566)
    2642   141111616 :          lu(k,1702) = lu(k,1702) - lu(k,724) * lu(k,1700)
    2643   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,725) * lu(k,1700)
    2644   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,726) * lu(k,1700)
    2645   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,727) * lu(k,1700)
    2646   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,728) * lu(k,1700)
    2647   141111616 :          lu(k,1846) = lu(k,1846) - lu(k,724) * lu(k,1826)
    2648   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,725) * lu(k,1826)
    2649   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,726) * lu(k,1826)
    2650   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,727) * lu(k,1826)
    2651   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,728) * lu(k,1826)
    2652   141111616 :          lu(k,1891) = lu(k,1891) - lu(k,724) * lu(k,1884)
    2653   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,725) * lu(k,1884)
    2654   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,726) * lu(k,1884)
    2655   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,727) * lu(k,1884)
    2656   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,728) * lu(k,1884)
    2657   141111616 :          lu(k,2001) = - lu(k,724) * lu(k,1977)
    2658   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,725) * lu(k,1977)
    2659   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,726) * lu(k,1977)
    2660   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,727) * lu(k,1977)
    2661   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,728) * lu(k,1977)
    2662   141111616 :          lu(k,2032) = - lu(k,724) * lu(k,2030)
    2663   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,725) * lu(k,2030)
    2664   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,726) * lu(k,2030)
    2665   141111616 :          lu(k,2042) = - lu(k,727) * lu(k,2030)
    2666   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,728) * lu(k,2030)
    2667   141111616 :          lu(k,729) = 1._r8 / lu(k,729)
    2668   141111616 :          lu(k,730) = lu(k,730) * lu(k,729)
    2669   141111616 :          lu(k,731) = lu(k,731) * lu(k,729)
    2670   141111616 :          lu(k,732) = lu(k,732) * lu(k,729)
    2671   141111616 :          lu(k,733) = lu(k,733) * lu(k,729)
    2672   141111616 :          lu(k,734) = lu(k,734) * lu(k,729)
    2673   141111616 :          lu(k,844) = - lu(k,730) * lu(k,839)
    2674   141111616 :          lu(k,845) = - lu(k,731) * lu(k,839)
    2675   141111616 :          lu(k,847) = lu(k,847) - lu(k,732) * lu(k,839)
    2676   141111616 :          lu(k,848) = lu(k,848) - lu(k,733) * lu(k,839)
    2677   141111616 :          lu(k,852) = lu(k,852) - lu(k,734) * lu(k,839)
    2678   141111616 :          lu(k,875) = - lu(k,730) * lu(k,870)
    2679   141111616 :          lu(k,876) = - lu(k,731) * lu(k,870)
    2680   141111616 :          lu(k,879) = lu(k,879) - lu(k,732) * lu(k,870)
    2681   141111616 :          lu(k,880) = - lu(k,733) * lu(k,870)
    2682   141111616 :          lu(k,883) = lu(k,883) - lu(k,734) * lu(k,870)
    2683   141111616 :          lu(k,1046) = - lu(k,730) * lu(k,1039)
    2684   141111616 :          lu(k,1048) = lu(k,1048) - lu(k,731) * lu(k,1039)
    2685   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,732) * lu(k,1039)
    2686   141111616 :          lu(k,1053) = lu(k,1053) - lu(k,733) * lu(k,1039)
    2687   141111616 :          lu(k,1056) = lu(k,1056) - lu(k,734) * lu(k,1039)
    2688   141111616 :          lu(k,1112) = lu(k,1112) - lu(k,730) * lu(k,1102)
    2689   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,731) * lu(k,1102)
    2690   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,732) * lu(k,1102)
    2691   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,733) * lu(k,1102)
    2692   141111616 :          lu(k,1126) = lu(k,1126) - lu(k,734) * lu(k,1102)
    2693   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,730) * lu(k,1294)
    2694   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,731) * lu(k,1294)
    2695   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,732) * lu(k,1294)
    2696   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,733) * lu(k,1294)
    2697   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,734) * lu(k,1294)
    2698   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,730) * lu(k,1461)
    2699   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,731) * lu(k,1461)
    2700   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,732) * lu(k,1461)
    2701   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,733) * lu(k,1461)
    2702   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,734) * lu(k,1461)
    2703   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,730) * lu(k,1651)
    2704   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,731) * lu(k,1651)
    2705   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,732) * lu(k,1651)
    2706   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,733) * lu(k,1651)
    2707   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,734) * lu(k,1651)
    2708   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,730) * lu(k,1766)
    2709   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,731) * lu(k,1766)
    2710   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,732) * lu(k,1766)
    2711   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,733) * lu(k,1766)
    2712   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,734) * lu(k,1766)
    2713   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,730) * lu(k,1978)
    2714   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,731) * lu(k,1978)
    2715   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,732) * lu(k,1978)
    2716   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,733) * lu(k,1978)
    2717   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,734) * lu(k,1978)
    2718   141111616 :          lu(k,736) = 1._r8 / lu(k,736)
    2719   141111616 :          lu(k,737) = lu(k,737) * lu(k,736)
    2720   141111616 :          lu(k,738) = lu(k,738) * lu(k,736)
    2721   141111616 :          lu(k,739) = lu(k,739) * lu(k,736)
    2722   141111616 :          lu(k,742) = lu(k,742) - lu(k,737) * lu(k,740)
    2723   141111616 :          lu(k,745) = lu(k,745) - lu(k,738) * lu(k,740)
    2724   141111616 :          lu(k,746) = lu(k,746) - lu(k,739) * lu(k,740)
    2725   141111616 :          lu(k,764) = lu(k,764) - lu(k,737) * lu(k,758)
    2726   141111616 :          lu(k,770) = lu(k,770) - lu(k,738) * lu(k,758)
    2727   141111616 :          lu(k,772) = lu(k,772) - lu(k,739) * lu(k,758)
    2728   141111616 :          lu(k,791) = lu(k,791) - lu(k,737) * lu(k,785)
    2729   141111616 :          lu(k,797) = lu(k,797) - lu(k,738) * lu(k,785)
    2730   141111616 :          lu(k,799) = lu(k,799) - lu(k,739) * lu(k,785)
    2731   141111616 :          lu(k,865) = lu(k,865) - lu(k,737) * lu(k,863)
    2732   141111616 :          lu(k,866) = lu(k,866) - lu(k,738) * lu(k,863)
    2733   141111616 :          lu(k,868) = lu(k,868) - lu(k,739) * lu(k,863)
    2734   141111616 :          lu(k,874) = lu(k,874) - lu(k,737) * lu(k,871)
    2735   141111616 :          lu(k,879) = lu(k,879) - lu(k,738) * lu(k,871)
    2736   141111616 :          lu(k,881) = lu(k,881) - lu(k,739) * lu(k,871)
    2737   141111616 :          lu(k,1009) = lu(k,1009) - lu(k,737) * lu(k,1007)
    2738   141111616 :          lu(k,1016) = lu(k,1016) - lu(k,738) * lu(k,1007)
    2739   141111616 :          lu(k,1018) = lu(k,1018) - lu(k,739) * lu(k,1007)
    2740   141111616 :          lu(k,1106) = lu(k,1106) - lu(k,737) * lu(k,1103)
    2741   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,738) * lu(k,1103)
    2742   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,739) * lu(k,1103)
    2743   141111616 :          lu(k,1222) = lu(k,1222) - lu(k,737) * lu(k,1219)
    2744   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,738) * lu(k,1219)
    2745   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,739) * lu(k,1219)
    2746   141111616 :          lu(k,1302) = lu(k,1302) - lu(k,737) * lu(k,1295)
    2747   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,738) * lu(k,1295)
    2748   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,739) * lu(k,1295)
    2749   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,737) * lu(k,1462)
    2750   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,738) * lu(k,1462)
    2751   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,739) * lu(k,1462)
    2752   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,737) * lu(k,1652)
    2753   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,738) * lu(k,1652)
    2754   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,739) * lu(k,1652)
    2755   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,737) * lu(k,1767)
    2756   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,738) * lu(k,1767)
    2757   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,739) * lu(k,1767)
    2758   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,737) * lu(k,1827)
    2759   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,738) * lu(k,1827)
    2760   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,739) * lu(k,1827)
    2761   141111616 :          lu(k,1888) = lu(k,1888) - lu(k,737) * lu(k,1885)
    2762   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,738) * lu(k,1885)
    2763   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,739) * lu(k,1885)
    2764   141111616 :          lu(k,1948) = lu(k,1948) - lu(k,737) * lu(k,1944)
    2765   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,738) * lu(k,1944)
    2766   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,739) * lu(k,1944)
    2767   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,737) * lu(k,1979)
    2768   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,738) * lu(k,1979)
    2769   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,739) * lu(k,1979)
    2770   141111616 :          lu(k,741) = 1._r8 / lu(k,741)
    2771   141111616 :          lu(k,742) = lu(k,742) * lu(k,741)
    2772   141111616 :          lu(k,743) = lu(k,743) * lu(k,741)
    2773   141111616 :          lu(k,744) = lu(k,744) * lu(k,741)
    2774   141111616 :          lu(k,745) = lu(k,745) * lu(k,741)
    2775   141111616 :          lu(k,746) = lu(k,746) * lu(k,741)
    2776   141111616 :          lu(k,747) = lu(k,747) * lu(k,741)
    2777   141111616 :          lu(k,748) = lu(k,748) * lu(k,741)
    2778   141111616 :          lu(k,874) = lu(k,874) - lu(k,742) * lu(k,872)
    2779   141111616 :          lu(k,875) = lu(k,875) - lu(k,743) * lu(k,872)
    2780   141111616 :          lu(k,878) = - lu(k,744) * lu(k,872)
    2781   141111616 :          lu(k,879) = lu(k,879) - lu(k,745) * lu(k,872)
    2782   141111616 :          lu(k,881) = lu(k,881) - lu(k,746) * lu(k,872)
    2783   141111616 :          lu(k,882) = - lu(k,747) * lu(k,872)
    2784   141111616 :          lu(k,883) = lu(k,883) - lu(k,748) * lu(k,872)
    2785   141111616 :          lu(k,1106) = lu(k,1106) - lu(k,742) * lu(k,1104)
    2786   141111616 :          lu(k,1112) = lu(k,1112) - lu(k,743) * lu(k,1104)
    2787   141111616 :          lu(k,1120) = lu(k,1120) - lu(k,744) * lu(k,1104)
    2788   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,745) * lu(k,1104)
    2789   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,746) * lu(k,1104)
    2790   141111616 :          lu(k,1124) = lu(k,1124) - lu(k,747) * lu(k,1104)
    2791   141111616 :          lu(k,1126) = lu(k,1126) - lu(k,748) * lu(k,1104)
    2792   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,742) * lu(k,1463)
    2793   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,743) * lu(k,1463)
    2794   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,744) * lu(k,1463)
    2795   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,745) * lu(k,1463)
    2796   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,746) * lu(k,1463)
    2797   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,747) * lu(k,1463)
    2798   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,748) * lu(k,1463)
    2799   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,742) * lu(k,1653)
    2800   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,743) * lu(k,1653)
    2801   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,744) * lu(k,1653)
    2802   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,745) * lu(k,1653)
    2803   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,746) * lu(k,1653)
    2804   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,747) * lu(k,1653)
    2805   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,748) * lu(k,1653)
    2806   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,742) * lu(k,1768)
    2807   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,743) * lu(k,1768)
    2808   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,744) * lu(k,1768)
    2809   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,745) * lu(k,1768)
    2810   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,746) * lu(k,1768)
    2811   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,747) * lu(k,1768)
    2812   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,748) * lu(k,1768)
    2813   141111616 :          lu(k,1888) = lu(k,1888) - lu(k,742) * lu(k,1886)
    2814   141111616 :          lu(k,1890) = lu(k,1890) - lu(k,743) * lu(k,1886)
    2815   141111616 :          lu(k,1897) = lu(k,1897) - lu(k,744) * lu(k,1886)
    2816   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,745) * lu(k,1886)
    2817   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,746) * lu(k,1886)
    2818   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,747) * lu(k,1886)
    2819   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,748) * lu(k,1886)
    2820   141111616 :          lu(k,759) = 1._r8 / lu(k,759)
    2821   141111616 :          lu(k,760) = lu(k,760) * lu(k,759)
    2822   141111616 :          lu(k,761) = lu(k,761) * lu(k,759)
    2823   141111616 :          lu(k,762) = lu(k,762) * lu(k,759)
    2824   141111616 :          lu(k,763) = lu(k,763) * lu(k,759)
    2825   141111616 :          lu(k,764) = lu(k,764) * lu(k,759)
    2826   141111616 :          lu(k,765) = lu(k,765) * lu(k,759)
    2827   141111616 :          lu(k,766) = lu(k,766) * lu(k,759)
    2828   141111616 :          lu(k,767) = lu(k,767) * lu(k,759)
    2829   141111616 :          lu(k,768) = lu(k,768) * lu(k,759)
    2830   141111616 :          lu(k,769) = lu(k,769) * lu(k,759)
    2831   141111616 :          lu(k,770) = lu(k,770) * lu(k,759)
    2832   141111616 :          lu(k,771) = lu(k,771) * lu(k,759)
    2833   141111616 :          lu(k,772) = lu(k,772) * lu(k,759)
    2834   141111616 :          lu(k,773) = lu(k,773) * lu(k,759)
    2835   141111616 :          lu(k,774) = lu(k,774) * lu(k,759)
    2836   141111616 :          lu(k,775) = lu(k,775) * lu(k,759)
    2837   141111616 :          lu(k,1466) = lu(k,1466) - lu(k,760) * lu(k,1464)
    2838   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,761) * lu(k,1464)
    2839   141111616 :          lu(k,1470) = lu(k,1470) - lu(k,762) * lu(k,1464)
    2840   141111616 :          lu(k,1473) = lu(k,1473) - lu(k,763) * lu(k,1464)
    2841   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,764) * lu(k,1464)
    2842   141111616 :          lu(k,1478) = lu(k,1478) - lu(k,765) * lu(k,1464)
    2843   141111616 :          lu(k,1480) = lu(k,1480) - lu(k,766) * lu(k,1464)
    2844   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,767) * lu(k,1464)
    2845   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,768) * lu(k,1464)
    2846   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,769) * lu(k,1464)
    2847   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,770) * lu(k,1464)
    2848   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,771) * lu(k,1464)
    2849   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,772) * lu(k,1464)
    2850   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,773) * lu(k,1464)
    2851   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,774) * lu(k,1464)
    2852   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,775) * lu(k,1464)
    2853   141111616 :          lu(k,1830) = lu(k,1830) - lu(k,760) * lu(k,1828)
    2854   141111616 :          lu(k,1831) = lu(k,1831) - lu(k,761) * lu(k,1828)
    2855   141111616 :          lu(k,1833) = lu(k,1833) - lu(k,762) * lu(k,1828)
    2856   141111616 :          lu(k,1835) = lu(k,1835) - lu(k,763) * lu(k,1828)
    2857   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,764) * lu(k,1828)
    2858   141111616 :          lu(k,1839) = - lu(k,765) * lu(k,1828)
    2859   141111616 :          lu(k,1841) = - lu(k,766) * lu(k,1828)
    2860   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,767) * lu(k,1828)
    2861   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,768) * lu(k,1828)
    2862   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,769) * lu(k,1828)
    2863   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,770) * lu(k,1828)
    2864   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,771) * lu(k,1828)
    2865   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,772) * lu(k,1828)
    2866   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,773) * lu(k,1828)
    2867   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,774) * lu(k,1828)
    2868   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,775) * lu(k,1828)
    2869   141111616 :          lu(k,1982) = - lu(k,760) * lu(k,1980)
    2870   141111616 :          lu(k,1983) = lu(k,1983) - lu(k,761) * lu(k,1980)
    2871   141111616 :          lu(k,1985) = lu(k,1985) - lu(k,762) * lu(k,1980)
    2872   141111616 :          lu(k,1988) = - lu(k,763) * lu(k,1980)
    2873   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,764) * lu(k,1980)
    2874   141111616 :          lu(k,1993) = - lu(k,765) * lu(k,1980)
    2875   141111616 :          lu(k,1995) = lu(k,1995) - lu(k,766) * lu(k,1980)
    2876   141111616 :          lu(k,1996) = - lu(k,767) * lu(k,1980)
    2877   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,768) * lu(k,1980)
    2878   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,769) * lu(k,1980)
    2879   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,770) * lu(k,1980)
    2880   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,771) * lu(k,1980)
    2881   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,772) * lu(k,1980)
    2882   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,773) * lu(k,1980)
    2883   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,774) * lu(k,1980)
    2884   145521354 :          lu(k,2025) = lu(k,2025) - lu(k,775) * lu(k,1980)
    2885             :       end do
    2886     4409738 :       end subroutine lu_fac16
    2887     4409738 :       subroutine lu_fac17( avec_len, lu )
    2888             :       use chem_mods, only : nzcnt
    2889             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2890             :       implicit none
    2891             : !-----------------------------------------------------------------------
    2892             : ! ... dummy args
    2893             : !-----------------------------------------------------------------------
    2894             :       integer, intent(in) :: avec_len
    2895             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2896             : !-----------------------------------------------------------------------
    2897             : ! ... local variables
    2898             : !-----------------------------------------------------------------------
    2899             :       integer :: k
    2900   145521354 :       do k = 1,avec_len
    2901   141111616 :          lu(k,786) = 1._r8 / lu(k,786)
    2902   141111616 :          lu(k,787) = lu(k,787) * lu(k,786)
    2903   141111616 :          lu(k,788) = lu(k,788) * lu(k,786)
    2904   141111616 :          lu(k,789) = lu(k,789) * lu(k,786)
    2905   141111616 :          lu(k,790) = lu(k,790) * lu(k,786)
    2906   141111616 :          lu(k,791) = lu(k,791) * lu(k,786)
    2907   141111616 :          lu(k,792) = lu(k,792) * lu(k,786)
    2908   141111616 :          lu(k,793) = lu(k,793) * lu(k,786)
    2909   141111616 :          lu(k,794) = lu(k,794) * lu(k,786)
    2910   141111616 :          lu(k,795) = lu(k,795) * lu(k,786)
    2911   141111616 :          lu(k,796) = lu(k,796) * lu(k,786)
    2912   141111616 :          lu(k,797) = lu(k,797) * lu(k,786)
    2913   141111616 :          lu(k,798) = lu(k,798) * lu(k,786)
    2914   141111616 :          lu(k,799) = lu(k,799) * lu(k,786)
    2915   141111616 :          lu(k,800) = lu(k,800) * lu(k,786)
    2916   141111616 :          lu(k,801) = lu(k,801) * lu(k,786)
    2917   141111616 :          lu(k,802) = lu(k,802) * lu(k,786)
    2918   141111616 :          lu(k,1466) = lu(k,1466) - lu(k,787) * lu(k,1465)
    2919   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,788) * lu(k,1465)
    2920   141111616 :          lu(k,1470) = lu(k,1470) - lu(k,789) * lu(k,1465)
    2921   141111616 :          lu(k,1473) = lu(k,1473) - lu(k,790) * lu(k,1465)
    2922   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,791) * lu(k,1465)
    2923   141111616 :          lu(k,1478) = lu(k,1478) - lu(k,792) * lu(k,1465)
    2924   141111616 :          lu(k,1480) = lu(k,1480) - lu(k,793) * lu(k,1465)
    2925   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,794) * lu(k,1465)
    2926   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,795) * lu(k,1465)
    2927   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,796) * lu(k,1465)
    2928   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,797) * lu(k,1465)
    2929   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,798) * lu(k,1465)
    2930   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,799) * lu(k,1465)
    2931   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,800) * lu(k,1465)
    2932   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,801) * lu(k,1465)
    2933   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,802) * lu(k,1465)
    2934   141111616 :          lu(k,1830) = lu(k,1830) - lu(k,787) * lu(k,1829)
    2935   141111616 :          lu(k,1831) = lu(k,1831) - lu(k,788) * lu(k,1829)
    2936   141111616 :          lu(k,1833) = lu(k,1833) - lu(k,789) * lu(k,1829)
    2937   141111616 :          lu(k,1835) = lu(k,1835) - lu(k,790) * lu(k,1829)
    2938   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,791) * lu(k,1829)
    2939   141111616 :          lu(k,1839) = lu(k,1839) - lu(k,792) * lu(k,1829)
    2940   141111616 :          lu(k,1841) = lu(k,1841) - lu(k,793) * lu(k,1829)
    2941   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,794) * lu(k,1829)
    2942   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,795) * lu(k,1829)
    2943   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,796) * lu(k,1829)
    2944   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,797) * lu(k,1829)
    2945   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,798) * lu(k,1829)
    2946   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,799) * lu(k,1829)
    2947   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,800) * lu(k,1829)
    2948   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,801) * lu(k,1829)
    2949   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,802) * lu(k,1829)
    2950   141111616 :          lu(k,1982) = lu(k,1982) - lu(k,787) * lu(k,1981)
    2951   141111616 :          lu(k,1983) = lu(k,1983) - lu(k,788) * lu(k,1981)
    2952   141111616 :          lu(k,1985) = lu(k,1985) - lu(k,789) * lu(k,1981)
    2953   141111616 :          lu(k,1988) = lu(k,1988) - lu(k,790) * lu(k,1981)
    2954   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,791) * lu(k,1981)
    2955   141111616 :          lu(k,1993) = lu(k,1993) - lu(k,792) * lu(k,1981)
    2956   141111616 :          lu(k,1995) = lu(k,1995) - lu(k,793) * lu(k,1981)
    2957   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,794) * lu(k,1981)
    2958   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,795) * lu(k,1981)
    2959   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,796) * lu(k,1981)
    2960   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,797) * lu(k,1981)
    2961   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,798) * lu(k,1981)
    2962   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,799) * lu(k,1981)
    2963   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,800) * lu(k,1981)
    2964   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,801) * lu(k,1981)
    2965   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,802) * lu(k,1981)
    2966   141111616 :          lu(k,808) = 1._r8 / lu(k,808)
    2967   141111616 :          lu(k,809) = lu(k,809) * lu(k,808)
    2968   141111616 :          lu(k,810) = lu(k,810) * lu(k,808)
    2969   141111616 :          lu(k,811) = lu(k,811) * lu(k,808)
    2970   141111616 :          lu(k,812) = lu(k,812) * lu(k,808)
    2971   141111616 :          lu(k,813) = lu(k,813) * lu(k,808)
    2972   141111616 :          lu(k,814) = lu(k,814) * lu(k,808)
    2973   141111616 :          lu(k,815) = lu(k,815) * lu(k,808)
    2974   141111616 :          lu(k,816) = lu(k,816) * lu(k,808)
    2975   141111616 :          lu(k,817) = lu(k,817) * lu(k,808)
    2976   141111616 :          lu(k,1467) = lu(k,1467) - lu(k,809) * lu(k,1466)
    2977   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,810) * lu(k,1466)
    2978   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,811) * lu(k,1466)
    2979   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,812) * lu(k,1466)
    2980   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,813) * lu(k,1466)
    2981   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,814) * lu(k,1466)
    2982   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,815) * lu(k,1466)
    2983   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,816) * lu(k,1466)
    2984   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,817) * lu(k,1466)
    2985   141111616 :          lu(k,1655) = lu(k,1655) - lu(k,809) * lu(k,1654)
    2986   141111616 :          lu(k,1659) = lu(k,1659) - lu(k,810) * lu(k,1654)
    2987   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,811) * lu(k,1654)
    2988   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,812) * lu(k,1654)
    2989   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,813) * lu(k,1654)
    2990   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,814) * lu(k,1654)
    2991   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,815) * lu(k,1654)
    2992   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,816) * lu(k,1654)
    2993   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,817) * lu(k,1654)
    2994   141111616 :          lu(k,1770) = lu(k,1770) - lu(k,809) * lu(k,1769)
    2995   141111616 :          lu(k,1775) = lu(k,1775) - lu(k,810) * lu(k,1769)
    2996   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,811) * lu(k,1769)
    2997   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,812) * lu(k,1769)
    2998   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,813) * lu(k,1769)
    2999   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,814) * lu(k,1769)
    3000   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,815) * lu(k,1769)
    3001   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,816) * lu(k,1769)
    3002   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,817) * lu(k,1769)
    3003   141111616 :          lu(k,1831) = lu(k,1831) - lu(k,809) * lu(k,1830)
    3004   141111616 :          lu(k,1836) = lu(k,1836) - lu(k,810) * lu(k,1830)
    3005   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,811) * lu(k,1830)
    3006   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,812) * lu(k,1830)
    3007   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,813) * lu(k,1830)
    3008   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,814) * lu(k,1830)
    3009   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,815) * lu(k,1830)
    3010   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,816) * lu(k,1830)
    3011   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,817) * lu(k,1830)
    3012   141111616 :          lu(k,1983) = lu(k,1983) - lu(k,809) * lu(k,1982)
    3013   141111616 :          lu(k,1989) = lu(k,1989) - lu(k,810) * lu(k,1982)
    3014   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,811) * lu(k,1982)
    3015   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,812) * lu(k,1982)
    3016   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,813) * lu(k,1982)
    3017   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,814) * lu(k,1982)
    3018   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,815) * lu(k,1982)
    3019   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,816) * lu(k,1982)
    3020   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,817) * lu(k,1982)
    3021   141111616 :          lu(k,818) = 1._r8 / lu(k,818)
    3022   141111616 :          lu(k,819) = lu(k,819) * lu(k,818)
    3023   141111616 :          lu(k,820) = lu(k,820) * lu(k,818)
    3024   141111616 :          lu(k,821) = lu(k,821) * lu(k,818)
    3025   141111616 :          lu(k,822) = lu(k,822) * lu(k,818)
    3026   141111616 :          lu(k,823) = lu(k,823) * lu(k,818)
    3027   141111616 :          lu(k,887) = lu(k,887) - lu(k,819) * lu(k,884)
    3028   141111616 :          lu(k,888) = lu(k,888) - lu(k,820) * lu(k,884)
    3029   141111616 :          lu(k,889) = - lu(k,821) * lu(k,884)
    3030   141111616 :          lu(k,890) = lu(k,890) - lu(k,822) * lu(k,884)
    3031   141111616 :          lu(k,893) = - lu(k,823) * lu(k,884)
    3032   141111616 :          lu(k,914) = - lu(k,819) * lu(k,908)
    3033   141111616 :          lu(k,915) = lu(k,915) - lu(k,820) * lu(k,908)
    3034   141111616 :          lu(k,918) = - lu(k,821) * lu(k,908)
    3035   141111616 :          lu(k,919) = lu(k,919) - lu(k,822) * lu(k,908)
    3036   141111616 :          lu(k,924) = - lu(k,823) * lu(k,908)
    3037   141111616 :          lu(k,941) = - lu(k,819) * lu(k,934)
    3038   141111616 :          lu(k,942) = - lu(k,820) * lu(k,934)
    3039   141111616 :          lu(k,945) = lu(k,945) - lu(k,821) * lu(k,934)
    3040   141111616 :          lu(k,946) = lu(k,946) - lu(k,822) * lu(k,934)
    3041   141111616 :          lu(k,952) = - lu(k,823) * lu(k,934)
    3042   141111616 :          lu(k,961) = - lu(k,819) * lu(k,956)
    3043   141111616 :          lu(k,962) = - lu(k,820) * lu(k,956)
    3044   141111616 :          lu(k,965) = lu(k,965) - lu(k,821) * lu(k,956)
    3045   141111616 :          lu(k,966) = lu(k,966) - lu(k,822) * lu(k,956)
    3046   141111616 :          lu(k,971) = - lu(k,823) * lu(k,956)
    3047   141111616 :          lu(k,1307) = lu(k,1307) - lu(k,819) * lu(k,1296)
    3048   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,820) * lu(k,1296)
    3049   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,821) * lu(k,1296)
    3050   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,822) * lu(k,1296)
    3051   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,823) * lu(k,1296)
    3052   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,819) * lu(k,1467)
    3053   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,820) * lu(k,1467)
    3054   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,821) * lu(k,1467)
    3055   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,822) * lu(k,1467)
    3056   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,823) * lu(k,1467)
    3057   141111616 :          lu(k,1665) = lu(k,1665) - lu(k,819) * lu(k,1655)
    3058   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,820) * lu(k,1655)
    3059   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,821) * lu(k,1655)
    3060   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,822) * lu(k,1655)
    3061   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,823) * lu(k,1655)
    3062   141111616 :          lu(k,1782) = lu(k,1782) - lu(k,819) * lu(k,1770)
    3063   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,820) * lu(k,1770)
    3064   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,821) * lu(k,1770)
    3065   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,822) * lu(k,1770)
    3066   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,823) * lu(k,1770)
    3067   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,819) * lu(k,1831)
    3068   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,820) * lu(k,1831)
    3069   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,821) * lu(k,1831)
    3070   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,822) * lu(k,1831)
    3071   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,823) * lu(k,1831)
    3072   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,819) * lu(k,1983)
    3073   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,820) * lu(k,1983)
    3074   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,821) * lu(k,1983)
    3075   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,822) * lu(k,1983)
    3076   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,823) * lu(k,1983)
    3077   141111616 :          lu(k,826) = 1._r8 / lu(k,826)
    3078   141111616 :          lu(k,827) = lu(k,827) * lu(k,826)
    3079   141111616 :          lu(k,828) = lu(k,828) * lu(k,826)
    3080   141111616 :          lu(k,829) = lu(k,829) * lu(k,826)
    3081   141111616 :          lu(k,830) = lu(k,830) * lu(k,826)
    3082   141111616 :          lu(k,831) = lu(k,831) * lu(k,826)
    3083   141111616 :          lu(k,832) = lu(k,832) * lu(k,826)
    3084   141111616 :          lu(k,833) = lu(k,833) * lu(k,826)
    3085   141111616 :          lu(k,834) = lu(k,834) * lu(k,826)
    3086   141111616 :          lu(k,835) = lu(k,835) * lu(k,826)
    3087   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,827) * lu(k,1468)
    3088   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,828) * lu(k,1468)
    3089   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,829) * lu(k,1468)
    3090   141111616 :          lu(k,1504) = lu(k,1504) - lu(k,830) * lu(k,1468)
    3091   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,831) * lu(k,1468)
    3092   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,832) * lu(k,1468)
    3093   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,833) * lu(k,1468)
    3094   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,834) * lu(k,1468)
    3095   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,835) * lu(k,1468)
    3096   141111616 :          lu(k,1572) = lu(k,1572) - lu(k,827) * lu(k,1567)
    3097   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,828) * lu(k,1567)
    3098   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,829) * lu(k,1567)
    3099   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,830) * lu(k,1567)
    3100   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,831) * lu(k,1567)
    3101   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,832) * lu(k,1567)
    3102   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,833) * lu(k,1567)
    3103   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,834) * lu(k,1567)
    3104   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,835) * lu(k,1567)
    3105   141111616 :          lu(k,1704) = - lu(k,827) * lu(k,1701)
    3106   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,828) * lu(k,1701)
    3107   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,829) * lu(k,1701)
    3108   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,830) * lu(k,1701)
    3109   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,831) * lu(k,1701)
    3110   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,832) * lu(k,1701)
    3111   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,833) * lu(k,1701)
    3112   141111616 :          lu(k,1719) = - lu(k,834) * lu(k,1701)
    3113   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,835) * lu(k,1701)
    3114   141111616 :          lu(k,1895) = lu(k,1895) - lu(k,827) * lu(k,1887)
    3115   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,828) * lu(k,1887)
    3116   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,829) * lu(k,1887)
    3117   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,830) * lu(k,1887)
    3118   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,831) * lu(k,1887)
    3119   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,832) * lu(k,1887)
    3120   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,833) * lu(k,1887)
    3121   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,834) * lu(k,1887)
    3122   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,835) * lu(k,1887)
    3123   141111616 :          lu(k,1918) = lu(k,1918) - lu(k,827) * lu(k,1916)
    3124   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,828) * lu(k,1916)
    3125   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,829) * lu(k,1916)
    3126   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,830) * lu(k,1916)
    3127   141111616 :          lu(k,1930) = - lu(k,831) * lu(k,1916)
    3128   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,832) * lu(k,1916)
    3129   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,833) * lu(k,1916)
    3130   141111616 :          lu(k,1933) = - lu(k,834) * lu(k,1916)
    3131   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,835) * lu(k,1916)
    3132   141111616 :          lu(k,1952) = - lu(k,827) * lu(k,1945)
    3133   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,828) * lu(k,1945)
    3134   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,829) * lu(k,1945)
    3135   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,830) * lu(k,1945)
    3136   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,831) * lu(k,1945)
    3137   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,832) * lu(k,1945)
    3138   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,833) * lu(k,1945)
    3139   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,834) * lu(k,1945)
    3140   145521354 :          lu(k,1968) = lu(k,1968) - lu(k,835) * lu(k,1945)
    3141             :       end do
    3142     4409738 :       end subroutine lu_fac17
    3143     4409738 :       subroutine lu_fac18( avec_len, lu )
    3144             :       use chem_mods, only : nzcnt
    3145             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3146             :       implicit none
    3147             : !-----------------------------------------------------------------------
    3148             : ! ... dummy args
    3149             : !-----------------------------------------------------------------------
    3150             :       integer, intent(in) :: avec_len
    3151             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3152             : !-----------------------------------------------------------------------
    3153             : ! ... local variables
    3154             : !-----------------------------------------------------------------------
    3155             :       integer :: k
    3156   145521354 :       do k = 1,avec_len
    3157   141111616 :          lu(k,840) = 1._r8 / lu(k,840)
    3158   141111616 :          lu(k,841) = lu(k,841) * lu(k,840)
    3159   141111616 :          lu(k,842) = lu(k,842) * lu(k,840)
    3160   141111616 :          lu(k,843) = lu(k,843) * lu(k,840)
    3161   141111616 :          lu(k,844) = lu(k,844) * lu(k,840)
    3162   141111616 :          lu(k,845) = lu(k,845) * lu(k,840)
    3163   141111616 :          lu(k,846) = lu(k,846) * lu(k,840)
    3164   141111616 :          lu(k,847) = lu(k,847) * lu(k,840)
    3165   141111616 :          lu(k,848) = lu(k,848) * lu(k,840)
    3166   141111616 :          lu(k,849) = lu(k,849) * lu(k,840)
    3167   141111616 :          lu(k,850) = lu(k,850) * lu(k,840)
    3168   141111616 :          lu(k,851) = lu(k,851) * lu(k,840)
    3169   141111616 :          lu(k,852) = lu(k,852) * lu(k,840)
    3170   141111616 :          lu(k,853) = lu(k,853) * lu(k,840)
    3171   141111616 :          lu(k,854) = lu(k,854) * lu(k,840)
    3172   141111616 :          lu(k,1131) = lu(k,1131) - lu(k,841) * lu(k,1130)
    3173   141111616 :          lu(k,1132) = lu(k,1132) - lu(k,842) * lu(k,1130)
    3174   141111616 :          lu(k,1133) = - lu(k,843) * lu(k,1130)
    3175   141111616 :          lu(k,1134) = lu(k,1134) - lu(k,844) * lu(k,1130)
    3176   141111616 :          lu(k,1137) = lu(k,1137) - lu(k,845) * lu(k,1130)
    3177   141111616 :          lu(k,1140) = lu(k,1140) - lu(k,846) * lu(k,1130)
    3178   141111616 :          lu(k,1141) = lu(k,1141) - lu(k,847) * lu(k,1130)
    3179   141111616 :          lu(k,1142) = lu(k,1142) - lu(k,848) * lu(k,1130)
    3180   141111616 :          lu(k,1143) = lu(k,1143) - lu(k,849) * lu(k,1130)
    3181   141111616 :          lu(k,1144) = - lu(k,850) * lu(k,1130)
    3182   141111616 :          lu(k,1145) = lu(k,1145) - lu(k,851) * lu(k,1130)
    3183   141111616 :          lu(k,1146) = - lu(k,852) * lu(k,1130)
    3184   141111616 :          lu(k,1147) = - lu(k,853) * lu(k,1130)
    3185   141111616 :          lu(k,1148) = lu(k,1148) - lu(k,854) * lu(k,1130)
    3186   141111616 :          lu(k,1474) = lu(k,1474) - lu(k,841) * lu(k,1469)
    3187   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,842) * lu(k,1469)
    3188   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,843) * lu(k,1469)
    3189   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,844) * lu(k,1469)
    3190   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,845) * lu(k,1469)
    3191   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,846) * lu(k,1469)
    3192   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,847) * lu(k,1469)
    3193   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,848) * lu(k,1469)
    3194   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,849) * lu(k,1469)
    3195   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,850) * lu(k,1469)
    3196   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,851) * lu(k,1469)
    3197   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,852) * lu(k,1469)
    3198   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,853) * lu(k,1469)
    3199   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,854) * lu(k,1469)
    3200   141111616 :          lu(k,1836) = lu(k,1836) - lu(k,841) * lu(k,1832)
    3201   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,842) * lu(k,1832)
    3202   141111616 :          lu(k,1838) = - lu(k,843) * lu(k,1832)
    3203   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,844) * lu(k,1832)
    3204   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,845) * lu(k,1832)
    3205   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,846) * lu(k,1832)
    3206   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,847) * lu(k,1832)
    3207   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,848) * lu(k,1832)
    3208   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,849) * lu(k,1832)
    3209   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,850) * lu(k,1832)
    3210   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,851) * lu(k,1832)
    3211   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,852) * lu(k,1832)
    3212   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,853) * lu(k,1832)
    3213   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,854) * lu(k,1832)
    3214   141111616 :          lu(k,1989) = lu(k,1989) - lu(k,841) * lu(k,1984)
    3215   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,842) * lu(k,1984)
    3216   141111616 :          lu(k,1992) = lu(k,1992) - lu(k,843) * lu(k,1984)
    3217   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,844) * lu(k,1984)
    3218   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,845) * lu(k,1984)
    3219   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,846) * lu(k,1984)
    3220   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,847) * lu(k,1984)
    3221   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,848) * lu(k,1984)
    3222   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,849) * lu(k,1984)
    3223   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,850) * lu(k,1984)
    3224   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,851) * lu(k,1984)
    3225   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,852) * lu(k,1984)
    3226   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,853) * lu(k,1984)
    3227   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,854) * lu(k,1984)
    3228   141111616 :          lu(k,855) = 1._r8 / lu(k,855)
    3229   141111616 :          lu(k,856) = lu(k,856) * lu(k,855)
    3230   141111616 :          lu(k,857) = lu(k,857) * lu(k,855)
    3231   141111616 :          lu(k,858) = lu(k,858) * lu(k,855)
    3232   141111616 :          lu(k,859) = lu(k,859) * lu(k,855)
    3233   141111616 :          lu(k,860) = lu(k,860) * lu(k,855)
    3234   141111616 :          lu(k,861) = lu(k,861) * lu(k,855)
    3235   141111616 :          lu(k,862) = lu(k,862) * lu(k,855)
    3236   141111616 :          lu(k,936) = - lu(k,856) * lu(k,935)
    3237   141111616 :          lu(k,937) = - lu(k,857) * lu(k,935)
    3238   141111616 :          lu(k,939) = - lu(k,858) * lu(k,935)
    3239   141111616 :          lu(k,940) = - lu(k,859) * lu(k,935)
    3240   141111616 :          lu(k,946) = lu(k,946) - lu(k,860) * lu(k,935)
    3241   141111616 :          lu(k,948) = lu(k,948) - lu(k,861) * lu(k,935)
    3242   141111616 :          lu(k,951) = - lu(k,862) * lu(k,935)
    3243   141111616 :          lu(k,976) = - lu(k,856) * lu(k,975)
    3244   141111616 :          lu(k,977) = - lu(k,857) * lu(k,975)
    3245   141111616 :          lu(k,978) = - lu(k,858) * lu(k,975)
    3246   141111616 :          lu(k,979) = lu(k,979) - lu(k,859) * lu(k,975)
    3247   141111616 :          lu(k,985) = lu(k,985) - lu(k,860) * lu(k,975)
    3248   141111616 :          lu(k,987) = lu(k,987) - lu(k,861) * lu(k,975)
    3249   141111616 :          lu(k,990) = lu(k,990) - lu(k,862) * lu(k,975)
    3250   141111616 :          lu(k,1300) = lu(k,1300) - lu(k,856) * lu(k,1297)
    3251   141111616 :          lu(k,1302) = lu(k,1302) - lu(k,857) * lu(k,1297)
    3252   141111616 :          lu(k,1305) = lu(k,1305) - lu(k,858) * lu(k,1297)
    3253   141111616 :          lu(k,1306) = lu(k,1306) - lu(k,859) * lu(k,1297)
    3254   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,860) * lu(k,1297)
    3255   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,861) * lu(k,1297)
    3256   141111616 :          lu(k,1332) = - lu(k,862) * lu(k,1297)
    3257   141111616 :          lu(k,1473) = lu(k,1473) - lu(k,856) * lu(k,1470)
    3258   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,857) * lu(k,1470)
    3259   141111616 :          lu(k,1479) = lu(k,1479) - lu(k,858) * lu(k,1470)
    3260   141111616 :          lu(k,1480) = lu(k,1480) - lu(k,859) * lu(k,1470)
    3261   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,860) * lu(k,1470)
    3262   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,861) * lu(k,1470)
    3263   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,862) * lu(k,1470)
    3264   141111616 :          lu(k,1658) = lu(k,1658) - lu(k,856) * lu(k,1656)
    3265   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,857) * lu(k,1656)
    3266   141111616 :          lu(k,1663) = lu(k,1663) - lu(k,858) * lu(k,1656)
    3267   141111616 :          lu(k,1664) = lu(k,1664) - lu(k,859) * lu(k,1656)
    3268   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,860) * lu(k,1656)
    3269   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,861) * lu(k,1656)
    3270   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,862) * lu(k,1656)
    3271   141111616 :          lu(k,1774) = lu(k,1774) - lu(k,856) * lu(k,1771)
    3272   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,857) * lu(k,1771)
    3273   141111616 :          lu(k,1780) = lu(k,1780) - lu(k,858) * lu(k,1771)
    3274   141111616 :          lu(k,1781) = lu(k,1781) - lu(k,859) * lu(k,1771)
    3275   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,860) * lu(k,1771)
    3276   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,861) * lu(k,1771)
    3277   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,862) * lu(k,1771)
    3278   141111616 :          lu(k,1835) = lu(k,1835) - lu(k,856) * lu(k,1833)
    3279   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,857) * lu(k,1833)
    3280   141111616 :          lu(k,1840) = - lu(k,858) * lu(k,1833)
    3281   141111616 :          lu(k,1841) = lu(k,1841) - lu(k,859) * lu(k,1833)
    3282   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,860) * lu(k,1833)
    3283   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,861) * lu(k,1833)
    3284   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,862) * lu(k,1833)
    3285   141111616 :          lu(k,1988) = lu(k,1988) - lu(k,856) * lu(k,1985)
    3286   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,857) * lu(k,1985)
    3287   141111616 :          lu(k,1994) = lu(k,1994) - lu(k,858) * lu(k,1985)
    3288   141111616 :          lu(k,1995) = lu(k,1995) - lu(k,859) * lu(k,1985)
    3289   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,860) * lu(k,1985)
    3290   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,861) * lu(k,1985)
    3291   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,862) * lu(k,1985)
    3292   141111616 :          lu(k,864) = 1._r8 / lu(k,864)
    3293   141111616 :          lu(k,865) = lu(k,865) * lu(k,864)
    3294   141111616 :          lu(k,866) = lu(k,866) * lu(k,864)
    3295   141111616 :          lu(k,867) = lu(k,867) * lu(k,864)
    3296   141111616 :          lu(k,868) = lu(k,868) * lu(k,864)
    3297   141111616 :          lu(k,911) = lu(k,911) - lu(k,865) * lu(k,909)
    3298   141111616 :          lu(k,919) = lu(k,919) - lu(k,866) * lu(k,909)
    3299   141111616 :          lu(k,920) = lu(k,920) - lu(k,867) * lu(k,909)
    3300   141111616 :          lu(k,921) = lu(k,921) - lu(k,868) * lu(k,909)
    3301   141111616 :          lu(k,959) = lu(k,959) - lu(k,865) * lu(k,957)
    3302   141111616 :          lu(k,966) = lu(k,966) - lu(k,866) * lu(k,957)
    3303   141111616 :          lu(k,967) = lu(k,967) - lu(k,867) * lu(k,957)
    3304   141111616 :          lu(k,968) = lu(k,968) - lu(k,868) * lu(k,957)
    3305   141111616 :          lu(k,1009) = lu(k,1009) - lu(k,865) * lu(k,1008)
    3306   141111616 :          lu(k,1016) = lu(k,1016) - lu(k,866) * lu(k,1008)
    3307   141111616 :          lu(k,1017) = lu(k,1017) - lu(k,867) * lu(k,1008)
    3308   141111616 :          lu(k,1018) = lu(k,1018) - lu(k,868) * lu(k,1008)
    3309   141111616 :          lu(k,1042) = - lu(k,865) * lu(k,1040)
    3310   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,866) * lu(k,1040)
    3311   141111616 :          lu(k,1053) = lu(k,1053) - lu(k,867) * lu(k,1040)
    3312   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,868) * lu(k,1040)
    3313   141111616 :          lu(k,1106) = lu(k,1106) - lu(k,865) * lu(k,1105)
    3314   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,866) * lu(k,1105)
    3315   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,867) * lu(k,1105)
    3316   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,868) * lu(k,1105)
    3317   141111616 :          lu(k,1152) = lu(k,1152) - lu(k,865) * lu(k,1151)
    3318   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,866) * lu(k,1151)
    3319   141111616 :          lu(k,1164) = lu(k,1164) - lu(k,867) * lu(k,1151)
    3320   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,868) * lu(k,1151)
    3321   141111616 :          lu(k,1174) = - lu(k,865) * lu(k,1173)
    3322   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,866) * lu(k,1173)
    3323   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,867) * lu(k,1173)
    3324   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,868) * lu(k,1173)
    3325   141111616 :          lu(k,1222) = lu(k,1222) - lu(k,865) * lu(k,1220)
    3326   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,866) * lu(k,1220)
    3327   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,867) * lu(k,1220)
    3328   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,868) * lu(k,1220)
    3329   141111616 :          lu(k,1302) = lu(k,1302) - lu(k,865) * lu(k,1298)
    3330   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,866) * lu(k,1298)
    3331   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,867) * lu(k,1298)
    3332   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,868) * lu(k,1298)
    3333   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,865) * lu(k,1471)
    3334   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,866) * lu(k,1471)
    3335   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,867) * lu(k,1471)
    3336   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,868) * lu(k,1471)
    3337   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,865) * lu(k,1657)
    3338   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,866) * lu(k,1657)
    3339   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,867) * lu(k,1657)
    3340   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,868) * lu(k,1657)
    3341   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,865) * lu(k,1772)
    3342   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,866) * lu(k,1772)
    3343   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,867) * lu(k,1772)
    3344   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,868) * lu(k,1772)
    3345   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,865) * lu(k,1834)
    3346   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,866) * lu(k,1834)
    3347   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,867) * lu(k,1834)
    3348   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,868) * lu(k,1834)
    3349   141111616 :          lu(k,1948) = lu(k,1948) - lu(k,865) * lu(k,1946)
    3350   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,866) * lu(k,1946)
    3351   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,867) * lu(k,1946)
    3352   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,868) * lu(k,1946)
    3353   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,865) * lu(k,1986)
    3354   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,866) * lu(k,1986)
    3355   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,867) * lu(k,1986)
    3356   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,868) * lu(k,1986)
    3357   141111616 :          lu(k,873) = 1._r8 / lu(k,873)
    3358   141111616 :          lu(k,874) = lu(k,874) * lu(k,873)
    3359   141111616 :          lu(k,875) = lu(k,875) * lu(k,873)
    3360   141111616 :          lu(k,876) = lu(k,876) * lu(k,873)
    3361   141111616 :          lu(k,877) = lu(k,877) * lu(k,873)
    3362   141111616 :          lu(k,878) = lu(k,878) * lu(k,873)
    3363   141111616 :          lu(k,879) = lu(k,879) * lu(k,873)
    3364   141111616 :          lu(k,880) = lu(k,880) * lu(k,873)
    3365   141111616 :          lu(k,881) = lu(k,881) * lu(k,873)
    3366   141111616 :          lu(k,882) = lu(k,882) * lu(k,873)
    3367   141111616 :          lu(k,883) = lu(k,883) * lu(k,873)
    3368   141111616 :          lu(k,1042) = lu(k,1042) - lu(k,874) * lu(k,1041)
    3369   141111616 :          lu(k,1046) = lu(k,1046) - lu(k,875) * lu(k,1041)
    3370   141111616 :          lu(k,1048) = lu(k,1048) - lu(k,876) * lu(k,1041)
    3371   141111616 :          lu(k,1049) = lu(k,1049) - lu(k,877) * lu(k,1041)
    3372   141111616 :          lu(k,1051) = lu(k,1051) - lu(k,878) * lu(k,1041)
    3373   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,879) * lu(k,1041)
    3374   141111616 :          lu(k,1053) = lu(k,1053) - lu(k,880) * lu(k,1041)
    3375   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,881) * lu(k,1041)
    3376   141111616 :          lu(k,1055) = lu(k,1055) - lu(k,882) * lu(k,1041)
    3377   141111616 :          lu(k,1056) = lu(k,1056) - lu(k,883) * lu(k,1041)
    3378   141111616 :          lu(k,1222) = lu(k,1222) - lu(k,874) * lu(k,1221)
    3379   141111616 :          lu(k,1227) = lu(k,1227) - lu(k,875) * lu(k,1221)
    3380   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,876) * lu(k,1221)
    3381   141111616 :          lu(k,1234) = - lu(k,877) * lu(k,1221)
    3382   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,878) * lu(k,1221)
    3383   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,879) * lu(k,1221)
    3384   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,880) * lu(k,1221)
    3385   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,881) * lu(k,1221)
    3386   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,882) * lu(k,1221)
    3387   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,883) * lu(k,1221)
    3388   141111616 :          lu(k,1302) = lu(k,1302) - lu(k,874) * lu(k,1299)
    3389   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,875) * lu(k,1299)
    3390   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,876) * lu(k,1299)
    3391   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,877) * lu(k,1299)
    3392   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,878) * lu(k,1299)
    3393   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,879) * lu(k,1299)
    3394   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,880) * lu(k,1299)
    3395   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,881) * lu(k,1299)
    3396   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,882) * lu(k,1299)
    3397   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,883) * lu(k,1299)
    3398   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,874) * lu(k,1472)
    3399   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,875) * lu(k,1472)
    3400   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,876) * lu(k,1472)
    3401   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,877) * lu(k,1472)
    3402   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,878) * lu(k,1472)
    3403   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,879) * lu(k,1472)
    3404   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,880) * lu(k,1472)
    3405   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,881) * lu(k,1472)
    3406   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,882) * lu(k,1472)
    3407   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,883) * lu(k,1472)
    3408   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,874) * lu(k,1773)
    3409   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,875) * lu(k,1773)
    3410   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,876) * lu(k,1773)
    3411   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,877) * lu(k,1773)
    3412   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,878) * lu(k,1773)
    3413   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,879) * lu(k,1773)
    3414   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,880) * lu(k,1773)
    3415   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,881) * lu(k,1773)
    3416   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,882) * lu(k,1773)
    3417   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,883) * lu(k,1773)
    3418   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,874) * lu(k,1987)
    3419   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,875) * lu(k,1987)
    3420   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,876) * lu(k,1987)
    3421   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,877) * lu(k,1987)
    3422   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,878) * lu(k,1987)
    3423   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,879) * lu(k,1987)
    3424   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,880) * lu(k,1987)
    3425   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,881) * lu(k,1987)
    3426   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,882) * lu(k,1987)
    3427   145521354 :          lu(k,2021) = lu(k,2021) - lu(k,883) * lu(k,1987)
    3428             :       end do
    3429     4409738 :       end subroutine lu_fac18
    3430     4409738 :       subroutine lu_fac19( avec_len, lu )
    3431             :       use chem_mods, only : nzcnt
    3432             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3433             :       implicit none
    3434             : !-----------------------------------------------------------------------
    3435             : ! ... dummy args
    3436             : !-----------------------------------------------------------------------
    3437             :       integer, intent(in) :: avec_len
    3438             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3439             : !-----------------------------------------------------------------------
    3440             : ! ... local variables
    3441             : !-----------------------------------------------------------------------
    3442             :       integer :: k
    3443   145521354 :       do k = 1,avec_len
    3444   141111616 :          lu(k,885) = 1._r8 / lu(k,885)
    3445   141111616 :          lu(k,886) = lu(k,886) * lu(k,885)
    3446   141111616 :          lu(k,887) = lu(k,887) * lu(k,885)
    3447   141111616 :          lu(k,888) = lu(k,888) * lu(k,885)
    3448   141111616 :          lu(k,889) = lu(k,889) * lu(k,885)
    3449   141111616 :          lu(k,890) = lu(k,890) * lu(k,885)
    3450   141111616 :          lu(k,891) = lu(k,891) * lu(k,885)
    3451   141111616 :          lu(k,892) = lu(k,892) * lu(k,885)
    3452   141111616 :          lu(k,893) = lu(k,893) * lu(k,885)
    3453   141111616 :          lu(k,937) = lu(k,937) - lu(k,886) * lu(k,936)
    3454   141111616 :          lu(k,941) = lu(k,941) - lu(k,887) * lu(k,936)
    3455   141111616 :          lu(k,942) = lu(k,942) - lu(k,888) * lu(k,936)
    3456   141111616 :          lu(k,945) = lu(k,945) - lu(k,889) * lu(k,936)
    3457   141111616 :          lu(k,946) = lu(k,946) - lu(k,890) * lu(k,936)
    3458   141111616 :          lu(k,947) = lu(k,947) - lu(k,891) * lu(k,936)
    3459   141111616 :          lu(k,948) = lu(k,948) - lu(k,892) * lu(k,936)
    3460   141111616 :          lu(k,952) = lu(k,952) - lu(k,893) * lu(k,936)
    3461   141111616 :          lu(k,959) = lu(k,959) - lu(k,886) * lu(k,958)
    3462   141111616 :          lu(k,961) = lu(k,961) - lu(k,887) * lu(k,958)
    3463   141111616 :          lu(k,962) = lu(k,962) - lu(k,888) * lu(k,958)
    3464   141111616 :          lu(k,965) = lu(k,965) - lu(k,889) * lu(k,958)
    3465   141111616 :          lu(k,966) = lu(k,966) - lu(k,890) * lu(k,958)
    3466   141111616 :          lu(k,967) = lu(k,967) - lu(k,891) * lu(k,958)
    3467   141111616 :          lu(k,968) = lu(k,968) - lu(k,892) * lu(k,958)
    3468   141111616 :          lu(k,971) = lu(k,971) - lu(k,893) * lu(k,958)
    3469   141111616 :          lu(k,977) = lu(k,977) - lu(k,886) * lu(k,976)
    3470   141111616 :          lu(k,980) = - lu(k,887) * lu(k,976)
    3471   141111616 :          lu(k,981) = - lu(k,888) * lu(k,976)
    3472   141111616 :          lu(k,984) = lu(k,984) - lu(k,889) * lu(k,976)
    3473   141111616 :          lu(k,985) = lu(k,985) - lu(k,890) * lu(k,976)
    3474   141111616 :          lu(k,986) = lu(k,986) - lu(k,891) * lu(k,976)
    3475   141111616 :          lu(k,987) = lu(k,987) - lu(k,892) * lu(k,976)
    3476   141111616 :          lu(k,991) = - lu(k,893) * lu(k,976)
    3477   141111616 :          lu(k,1302) = lu(k,1302) - lu(k,886) * lu(k,1300)
    3478   141111616 :          lu(k,1307) = lu(k,1307) - lu(k,887) * lu(k,1300)
    3479   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,888) * lu(k,1300)
    3480   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,889) * lu(k,1300)
    3481   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,890) * lu(k,1300)
    3482   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,891) * lu(k,1300)
    3483   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,892) * lu(k,1300)
    3484   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,893) * lu(k,1300)
    3485   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,886) * lu(k,1473)
    3486   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,887) * lu(k,1473)
    3487   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,888) * lu(k,1473)
    3488   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,889) * lu(k,1473)
    3489   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,890) * lu(k,1473)
    3490   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,891) * lu(k,1473)
    3491   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,892) * lu(k,1473)
    3492   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,893) * lu(k,1473)
    3493   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,886) * lu(k,1658)
    3494   141111616 :          lu(k,1665) = lu(k,1665) - lu(k,887) * lu(k,1658)
    3495   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,888) * lu(k,1658)
    3496   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,889) * lu(k,1658)
    3497   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,890) * lu(k,1658)
    3498   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,891) * lu(k,1658)
    3499   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,892) * lu(k,1658)
    3500   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,893) * lu(k,1658)
    3501   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,886) * lu(k,1774)
    3502   141111616 :          lu(k,1782) = lu(k,1782) - lu(k,887) * lu(k,1774)
    3503   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,888) * lu(k,1774)
    3504   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,889) * lu(k,1774)
    3505   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,890) * lu(k,1774)
    3506   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,891) * lu(k,1774)
    3507   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,892) * lu(k,1774)
    3508   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,893) * lu(k,1774)
    3509   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,886) * lu(k,1835)
    3510   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,887) * lu(k,1835)
    3511   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,888) * lu(k,1835)
    3512   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,889) * lu(k,1835)
    3513   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,890) * lu(k,1835)
    3514   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,891) * lu(k,1835)
    3515   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,892) * lu(k,1835)
    3516   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,893) * lu(k,1835)
    3517   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,886) * lu(k,1988)
    3518   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,887) * lu(k,1988)
    3519   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,888) * lu(k,1988)
    3520   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,889) * lu(k,1988)
    3521   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,890) * lu(k,1988)
    3522   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,891) * lu(k,1988)
    3523   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,892) * lu(k,1988)
    3524   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,893) * lu(k,1988)
    3525   141111616 :          lu(k,894) = 1._r8 / lu(k,894)
    3526   141111616 :          lu(k,895) = lu(k,895) * lu(k,894)
    3527   141111616 :          lu(k,896) = lu(k,896) * lu(k,894)
    3528   141111616 :          lu(k,897) = lu(k,897) * lu(k,894)
    3529   141111616 :          lu(k,898) = lu(k,898) * lu(k,894)
    3530   141111616 :          lu(k,899) = lu(k,899) * lu(k,894)
    3531   141111616 :          lu(k,900) = lu(k,900) * lu(k,894)
    3532   141111616 :          lu(k,901) = lu(k,901) * lu(k,894)
    3533   141111616 :          lu(k,902) = lu(k,902) * lu(k,894)
    3534   141111616 :          lu(k,911) = lu(k,911) - lu(k,895) * lu(k,910)
    3535   141111616 :          lu(k,915) = lu(k,915) - lu(k,896) * lu(k,910)
    3536   141111616 :          lu(k,916) = lu(k,916) - lu(k,897) * lu(k,910)
    3537   141111616 :          lu(k,918) = lu(k,918) - lu(k,898) * lu(k,910)
    3538   141111616 :          lu(k,919) = lu(k,919) - lu(k,899) * lu(k,910)
    3539   141111616 :          lu(k,921) = lu(k,921) - lu(k,900) * lu(k,910)
    3540   141111616 :          lu(k,923) = - lu(k,901) * lu(k,910)
    3541   141111616 :          lu(k,924) = lu(k,924) - lu(k,902) * lu(k,910)
    3542   141111616 :          lu(k,1132) = lu(k,1132) - lu(k,895) * lu(k,1131)
    3543   141111616 :          lu(k,1137) = lu(k,1137) - lu(k,896) * lu(k,1131)
    3544   141111616 :          lu(k,1138) = - lu(k,897) * lu(k,1131)
    3545   141111616 :          lu(k,1140) = lu(k,1140) - lu(k,898) * lu(k,1131)
    3546   141111616 :          lu(k,1141) = lu(k,1141) - lu(k,899) * lu(k,1131)
    3547   141111616 :          lu(k,1143) = lu(k,1143) - lu(k,900) * lu(k,1131)
    3548   141111616 :          lu(k,1147) = lu(k,1147) - lu(k,901) * lu(k,1131)
    3549   141111616 :          lu(k,1148) = lu(k,1148) - lu(k,902) * lu(k,1131)
    3550   141111616 :          lu(k,1302) = lu(k,1302) - lu(k,895) * lu(k,1301)
    3551   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,896) * lu(k,1301)
    3552   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,897) * lu(k,1301)
    3553   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,898) * lu(k,1301)
    3554   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,899) * lu(k,1301)
    3555   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,900) * lu(k,1301)
    3556   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,901) * lu(k,1301)
    3557   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,902) * lu(k,1301)
    3558   141111616 :          lu(k,1475) = lu(k,1475) - lu(k,895) * lu(k,1474)
    3559   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,896) * lu(k,1474)
    3560   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,897) * lu(k,1474)
    3561   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,898) * lu(k,1474)
    3562   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,899) * lu(k,1474)
    3563   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,900) * lu(k,1474)
    3564   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,901) * lu(k,1474)
    3565   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,902) * lu(k,1474)
    3566   141111616 :          lu(k,1660) = lu(k,1660) - lu(k,895) * lu(k,1659)
    3567   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,896) * lu(k,1659)
    3568   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,897) * lu(k,1659)
    3569   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,898) * lu(k,1659)
    3570   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,899) * lu(k,1659)
    3571   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,900) * lu(k,1659)
    3572   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,901) * lu(k,1659)
    3573   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,902) * lu(k,1659)
    3574   141111616 :          lu(k,1776) = lu(k,1776) - lu(k,895) * lu(k,1775)
    3575   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,896) * lu(k,1775)
    3576   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,897) * lu(k,1775)
    3577   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,898) * lu(k,1775)
    3578   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,899) * lu(k,1775)
    3579   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,900) * lu(k,1775)
    3580   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,901) * lu(k,1775)
    3581   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,902) * lu(k,1775)
    3582   141111616 :          lu(k,1837) = lu(k,1837) - lu(k,895) * lu(k,1836)
    3583   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,896) * lu(k,1836)
    3584   141111616 :          lu(k,1854) = - lu(k,897) * lu(k,1836)
    3585   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,898) * lu(k,1836)
    3586   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,899) * lu(k,1836)
    3587   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,900) * lu(k,1836)
    3588   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,901) * lu(k,1836)
    3589   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,902) * lu(k,1836)
    3590   141111616 :          lu(k,1948) = lu(k,1948) - lu(k,895) * lu(k,1947)
    3591   141111616 :          lu(k,1950) = - lu(k,896) * lu(k,1947)
    3592   141111616 :          lu(k,1952) = lu(k,1952) - lu(k,897) * lu(k,1947)
    3593   141111616 :          lu(k,1954) = lu(k,1954) - lu(k,898) * lu(k,1947)
    3594   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,899) * lu(k,1947)
    3595   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,900) * lu(k,1947)
    3596   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,901) * lu(k,1947)
    3597   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,902) * lu(k,1947)
    3598   141111616 :          lu(k,1990) = lu(k,1990) - lu(k,895) * lu(k,1989)
    3599   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,896) * lu(k,1989)
    3600   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,897) * lu(k,1989)
    3601   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,898) * lu(k,1989)
    3602   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,899) * lu(k,1989)
    3603   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,900) * lu(k,1989)
    3604   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,901) * lu(k,1989)
    3605   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,902) * lu(k,1989)
    3606   141111616 :          lu(k,903) = 1._r8 / lu(k,903)
    3607   141111616 :          lu(k,904) = lu(k,904) * lu(k,903)
    3608   141111616 :          lu(k,905) = lu(k,905) * lu(k,903)
    3609   141111616 :          lu(k,906) = lu(k,906) * lu(k,903)
    3610   141111616 :          lu(k,917) = - lu(k,904) * lu(k,911)
    3611   141111616 :          lu(k,919) = lu(k,919) - lu(k,905) * lu(k,911)
    3612   141111616 :          lu(k,921) = lu(k,921) - lu(k,906) * lu(k,911)
    3613   141111616 :          lu(k,944) = - lu(k,904) * lu(k,937)
    3614   141111616 :          lu(k,946) = lu(k,946) - lu(k,905) * lu(k,937)
    3615   141111616 :          lu(k,948) = lu(k,948) - lu(k,906) * lu(k,937)
    3616   141111616 :          lu(k,964) = - lu(k,904) * lu(k,959)
    3617   141111616 :          lu(k,966) = lu(k,966) - lu(k,905) * lu(k,959)
    3618   141111616 :          lu(k,968) = lu(k,968) - lu(k,906) * lu(k,959)
    3619   141111616 :          lu(k,983) = - lu(k,904) * lu(k,977)
    3620   141111616 :          lu(k,985) = lu(k,985) - lu(k,905) * lu(k,977)
    3621   141111616 :          lu(k,987) = lu(k,987) - lu(k,906) * lu(k,977)
    3622   141111616 :          lu(k,1014) = - lu(k,904) * lu(k,1009)
    3623   141111616 :          lu(k,1016) = lu(k,1016) - lu(k,905) * lu(k,1009)
    3624   141111616 :          lu(k,1018) = lu(k,1018) - lu(k,906) * lu(k,1009)
    3625   141111616 :          lu(k,1050) = - lu(k,904) * lu(k,1042)
    3626   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,905) * lu(k,1042)
    3627   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,906) * lu(k,1042)
    3628   141111616 :          lu(k,1065) = - lu(k,904) * lu(k,1059)
    3629   141111616 :          lu(k,1066) = lu(k,1066) - lu(k,905) * lu(k,1059)
    3630   141111616 :          lu(k,1068) = lu(k,1068) - lu(k,906) * lu(k,1059)
    3631   141111616 :          lu(k,1075) = - lu(k,904) * lu(k,1071)
    3632   141111616 :          lu(k,1076) = lu(k,1076) - lu(k,905) * lu(k,1071)
    3633   141111616 :          lu(k,1077) = lu(k,1077) - lu(k,906) * lu(k,1071)
    3634   141111616 :          lu(k,1119) = - lu(k,904) * lu(k,1106)
    3635   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,905) * lu(k,1106)
    3636   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,906) * lu(k,1106)
    3637   141111616 :          lu(k,1139) = - lu(k,904) * lu(k,1132)
    3638   141111616 :          lu(k,1141) = lu(k,1141) - lu(k,905) * lu(k,1132)
    3639   141111616 :          lu(k,1143) = lu(k,1143) - lu(k,906) * lu(k,1132)
    3640   141111616 :          lu(k,1161) = - lu(k,904) * lu(k,1152)
    3641   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,905) * lu(k,1152)
    3642   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,906) * lu(k,1152)
    3643   141111616 :          lu(k,1187) = - lu(k,904) * lu(k,1174)
    3644   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,905) * lu(k,1174)
    3645   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,906) * lu(k,1174)
    3646   141111616 :          lu(k,1235) = - lu(k,904) * lu(k,1222)
    3647   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,905) * lu(k,1222)
    3648   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,906) * lu(k,1222)
    3649   141111616 :          lu(k,1248) = lu(k,1248) - lu(k,904) * lu(k,1246)
    3650   141111616 :          lu(k,1250) = lu(k,1250) - lu(k,905) * lu(k,1246)
    3651   141111616 :          lu(k,1254) = lu(k,1254) - lu(k,906) * lu(k,1246)
    3652   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,904) * lu(k,1302)
    3653   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,905) * lu(k,1302)
    3654   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,906) * lu(k,1302)
    3655   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,904) * lu(k,1475)
    3656   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,905) * lu(k,1475)
    3657   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,906) * lu(k,1475)
    3658   141111616 :          lu(k,1543) = lu(k,1543) - lu(k,904) * lu(k,1539)
    3659   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,905) * lu(k,1539)
    3660   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,906) * lu(k,1539)
    3661   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,904) * lu(k,1568)
    3662   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,905) * lu(k,1568)
    3663   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,906) * lu(k,1568)
    3664   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,904) * lu(k,1660)
    3665   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,905) * lu(k,1660)
    3666   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,906) * lu(k,1660)
    3667   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,904) * lu(k,1776)
    3668   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,905) * lu(k,1776)
    3669   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,906) * lu(k,1776)
    3670   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,904) * lu(k,1837)
    3671   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,905) * lu(k,1837)
    3672   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,906) * lu(k,1837)
    3673   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,904) * lu(k,1888)
    3674   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,905) * lu(k,1888)
    3675   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,906) * lu(k,1888)
    3676   141111616 :          lu(k,1953) = lu(k,1953) - lu(k,904) * lu(k,1948)
    3677   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,905) * lu(k,1948)
    3678   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,906) * lu(k,1948)
    3679   141111616 :          lu(k,2010) = - lu(k,904) * lu(k,1990)
    3680   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,905) * lu(k,1990)
    3681   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,906) * lu(k,1990)
    3682   141111616 :          lu(k,912) = 1._r8 / lu(k,912)
    3683   141111616 :          lu(k,913) = lu(k,913) * lu(k,912)
    3684   141111616 :          lu(k,914) = lu(k,914) * lu(k,912)
    3685   141111616 :          lu(k,915) = lu(k,915) * lu(k,912)
    3686   141111616 :          lu(k,916) = lu(k,916) * lu(k,912)
    3687   141111616 :          lu(k,917) = lu(k,917) * lu(k,912)
    3688   141111616 :          lu(k,918) = lu(k,918) * lu(k,912)
    3689   141111616 :          lu(k,919) = lu(k,919) * lu(k,912)
    3690   141111616 :          lu(k,920) = lu(k,920) * lu(k,912)
    3691   141111616 :          lu(k,921) = lu(k,921) * lu(k,912)
    3692   141111616 :          lu(k,922) = lu(k,922) * lu(k,912)
    3693   141111616 :          lu(k,923) = lu(k,923) * lu(k,912)
    3694   141111616 :          lu(k,924) = lu(k,924) * lu(k,912)
    3695   141111616 :          lu(k,1108) = lu(k,1108) - lu(k,913) * lu(k,1107)
    3696   141111616 :          lu(k,1109) = - lu(k,914) * lu(k,1107)
    3697   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,915) * lu(k,1107)
    3698   141111616 :          lu(k,1118) = lu(k,1118) - lu(k,916) * lu(k,1107)
    3699   141111616 :          lu(k,1119) = lu(k,1119) - lu(k,917) * lu(k,1107)
    3700   141111616 :          lu(k,1120) = lu(k,1120) - lu(k,918) * lu(k,1107)
    3701   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,919) * lu(k,1107)
    3702   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,920) * lu(k,1107)
    3703   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,921) * lu(k,1107)
    3704   141111616 :          lu(k,1126) = lu(k,1126) - lu(k,922) * lu(k,1107)
    3705   141111616 :          lu(k,1127) = lu(k,1127) - lu(k,923) * lu(k,1107)
    3706   141111616 :          lu(k,1128) = - lu(k,924) * lu(k,1107)
    3707   141111616 :          lu(k,1154) = lu(k,1154) - lu(k,913) * lu(k,1153)
    3708   141111616 :          lu(k,1155) = - lu(k,914) * lu(k,1153)
    3709   141111616 :          lu(k,1159) = lu(k,1159) - lu(k,915) * lu(k,1153)
    3710   141111616 :          lu(k,1160) = - lu(k,916) * lu(k,1153)
    3711   141111616 :          lu(k,1161) = lu(k,1161) - lu(k,917) * lu(k,1153)
    3712   141111616 :          lu(k,1162) = lu(k,1162) - lu(k,918) * lu(k,1153)
    3713   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,919) * lu(k,1153)
    3714   141111616 :          lu(k,1164) = lu(k,1164) - lu(k,920) * lu(k,1153)
    3715   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,921) * lu(k,1153)
    3716   141111616 :          lu(k,1167) = lu(k,1167) - lu(k,922) * lu(k,1153)
    3717   141111616 :          lu(k,1168) = lu(k,1168) - lu(k,923) * lu(k,1153)
    3718   141111616 :          lu(k,1169) = - lu(k,924) * lu(k,1153)
    3719   141111616 :          lu(k,1176) = lu(k,1176) - lu(k,913) * lu(k,1175)
    3720   141111616 :          lu(k,1177) = - lu(k,914) * lu(k,1175)
    3721   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,915) * lu(k,1175)
    3722   141111616 :          lu(k,1186) = lu(k,1186) - lu(k,916) * lu(k,1175)
    3723   141111616 :          lu(k,1187) = lu(k,1187) - lu(k,917) * lu(k,1175)
    3724   141111616 :          lu(k,1188) = lu(k,1188) - lu(k,918) * lu(k,1175)
    3725   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,919) * lu(k,1175)
    3726   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,920) * lu(k,1175)
    3727   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,921) * lu(k,1175)
    3728   141111616 :          lu(k,1194) = lu(k,1194) - lu(k,922) * lu(k,1175)
    3729   141111616 :          lu(k,1195) = lu(k,1195) - lu(k,923) * lu(k,1175)
    3730   141111616 :          lu(k,1196) = - lu(k,924) * lu(k,1175)
    3731   141111616 :          lu(k,1477) = lu(k,1477) - lu(k,913) * lu(k,1476)
    3732   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,914) * lu(k,1476)
    3733   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,915) * lu(k,1476)
    3734   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,916) * lu(k,1476)
    3735   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,917) * lu(k,1476)
    3736   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,918) * lu(k,1476)
    3737   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,919) * lu(k,1476)
    3738   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,920) * lu(k,1476)
    3739   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,921) * lu(k,1476)
    3740   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,922) * lu(k,1476)
    3741   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,923) * lu(k,1476)
    3742   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,924) * lu(k,1476)
    3743   141111616 :          lu(k,1778) = lu(k,1778) - lu(k,913) * lu(k,1777)
    3744   141111616 :          lu(k,1782) = lu(k,1782) - lu(k,914) * lu(k,1777)
    3745   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,915) * lu(k,1777)
    3746   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,916) * lu(k,1777)
    3747   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,917) * lu(k,1777)
    3748   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,918) * lu(k,1777)
    3749   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,919) * lu(k,1777)
    3750   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,920) * lu(k,1777)
    3751   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,921) * lu(k,1777)
    3752   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,922) * lu(k,1777)
    3753   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,923) * lu(k,1777)
    3754   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,924) * lu(k,1777)
    3755   141111616 :          lu(k,1992) = lu(k,1992) - lu(k,913) * lu(k,1991)
    3756   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,914) * lu(k,1991)
    3757   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,915) * lu(k,1991)
    3758   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,916) * lu(k,1991)
    3759   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,917) * lu(k,1991)
    3760   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,918) * lu(k,1991)
    3761   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,919) * lu(k,1991)
    3762   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,920) * lu(k,1991)
    3763   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,921) * lu(k,1991)
    3764   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,922) * lu(k,1991)
    3765   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,923) * lu(k,1991)
    3766   145521354 :          lu(k,2025) = lu(k,2025) - lu(k,924) * lu(k,1991)
    3767             :       end do
    3768     4409738 :       end subroutine lu_fac19
    3769     4409738 :       subroutine lu_fac20( avec_len, lu )
    3770             :       use chem_mods, only : nzcnt
    3771             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3772             :       implicit none
    3773             : !-----------------------------------------------------------------------
    3774             : ! ... dummy args
    3775             : !-----------------------------------------------------------------------
    3776             :       integer, intent(in) :: avec_len
    3777             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3778             : !-----------------------------------------------------------------------
    3779             : ! ... local variables
    3780             : !-----------------------------------------------------------------------
    3781             :       integer :: k
    3782   145521354 :       do k = 1,avec_len
    3783   141111616 :          lu(k,925) = 1._r8 / lu(k,925)
    3784   141111616 :          lu(k,926) = lu(k,926) * lu(k,925)
    3785   141111616 :          lu(k,927) = lu(k,927) * lu(k,925)
    3786   141111616 :          lu(k,928) = lu(k,928) * lu(k,925)
    3787   141111616 :          lu(k,929) = lu(k,929) * lu(k,925)
    3788   141111616 :          lu(k,930) = lu(k,930) * lu(k,925)
    3789   141111616 :          lu(k,996) = lu(k,996) - lu(k,926) * lu(k,994)
    3790   141111616 :          lu(k,997) = lu(k,997) - lu(k,927) * lu(k,994)
    3791   141111616 :          lu(k,999) = lu(k,999) - lu(k,928) * lu(k,994)
    3792   141111616 :          lu(k,1000) = lu(k,1000) - lu(k,929) * lu(k,994)
    3793   141111616 :          lu(k,1001) = lu(k,1001) - lu(k,930) * lu(k,994)
    3794   141111616 :          lu(k,1012) = lu(k,1012) - lu(k,926) * lu(k,1010)
    3795   141111616 :          lu(k,1013) = lu(k,1013) - lu(k,927) * lu(k,1010)
    3796   141111616 :          lu(k,1016) = lu(k,1016) - lu(k,928) * lu(k,1010)
    3797   141111616 :          lu(k,1017) = lu(k,1017) - lu(k,929) * lu(k,1010)
    3798   141111616 :          lu(k,1018) = lu(k,1018) - lu(k,930) * lu(k,1010)
    3799   141111616 :          lu(k,1112) = lu(k,1112) - lu(k,926) * lu(k,1108)
    3800   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,927) * lu(k,1108)
    3801   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,928) * lu(k,1108)
    3802   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,929) * lu(k,1108)
    3803   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,930) * lu(k,1108)
    3804   141111616 :          lu(k,1134) = lu(k,1134) - lu(k,926) * lu(k,1133)
    3805   141111616 :          lu(k,1137) = lu(k,1137) - lu(k,927) * lu(k,1133)
    3806   141111616 :          lu(k,1141) = lu(k,1141) - lu(k,928) * lu(k,1133)
    3807   141111616 :          lu(k,1142) = lu(k,1142) - lu(k,929) * lu(k,1133)
    3808   141111616 :          lu(k,1143) = lu(k,1143) - lu(k,930) * lu(k,1133)
    3809   141111616 :          lu(k,1156) = lu(k,1156) - lu(k,926) * lu(k,1154)
    3810   141111616 :          lu(k,1159) = lu(k,1159) - lu(k,927) * lu(k,1154)
    3811   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,928) * lu(k,1154)
    3812   141111616 :          lu(k,1164) = lu(k,1164) - lu(k,929) * lu(k,1154)
    3813   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,930) * lu(k,1154)
    3814   141111616 :          lu(k,1180) = - lu(k,926) * lu(k,1176)
    3815   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,927) * lu(k,1176)
    3816   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,928) * lu(k,1176)
    3817   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,929) * lu(k,1176)
    3818   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,930) * lu(k,1176)
    3819   141111616 :          lu(k,1201) = - lu(k,926) * lu(k,1200)
    3820   141111616 :          lu(k,1203) = lu(k,1203) - lu(k,927) * lu(k,1200)
    3821   141111616 :          lu(k,1207) = lu(k,1207) - lu(k,928) * lu(k,1200)
    3822   141111616 :          lu(k,1208) = lu(k,1208) - lu(k,929) * lu(k,1200)
    3823   141111616 :          lu(k,1209) = lu(k,1209) - lu(k,930) * lu(k,1200)
    3824   141111616 :          lu(k,1227) = lu(k,1227) - lu(k,926) * lu(k,1223)
    3825   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,927) * lu(k,1223)
    3826   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,928) * lu(k,1223)
    3827   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,929) * lu(k,1223)
    3828   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,930) * lu(k,1223)
    3829   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,926) * lu(k,1303)
    3830   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,927) * lu(k,1303)
    3831   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,928) * lu(k,1303)
    3832   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,929) * lu(k,1303)
    3833   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,930) * lu(k,1303)
    3834   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,926) * lu(k,1477)
    3835   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,927) * lu(k,1477)
    3836   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,928) * lu(k,1477)
    3837   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,929) * lu(k,1477)
    3838   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,930) * lu(k,1477)
    3839   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,926) * lu(k,1661)
    3840   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,927) * lu(k,1661)
    3841   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,928) * lu(k,1661)
    3842   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,929) * lu(k,1661)
    3843   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,930) * lu(k,1661)
    3844   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,926) * lu(k,1778)
    3845   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,927) * lu(k,1778)
    3846   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,928) * lu(k,1778)
    3847   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,929) * lu(k,1778)
    3848   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,930) * lu(k,1778)
    3849   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,926) * lu(k,1838)
    3850   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,927) * lu(k,1838)
    3851   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,928) * lu(k,1838)
    3852   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,929) * lu(k,1838)
    3853   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,930) * lu(k,1838)
    3854   141111616 :          lu(k,1890) = lu(k,1890) - lu(k,926) * lu(k,1889)
    3855   141111616 :          lu(k,1893) = lu(k,1893) - lu(k,927) * lu(k,1889)
    3856   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,928) * lu(k,1889)
    3857   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,929) * lu(k,1889)
    3858   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,930) * lu(k,1889)
    3859   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,926) * lu(k,1992)
    3860   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,927) * lu(k,1992)
    3861   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,928) * lu(k,1992)
    3862   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,929) * lu(k,1992)
    3863   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,930) * lu(k,1992)
    3864   141111616 :          lu(k,938) = 1._r8 / lu(k,938)
    3865   141111616 :          lu(k,939) = lu(k,939) * lu(k,938)
    3866   141111616 :          lu(k,940) = lu(k,940) * lu(k,938)
    3867   141111616 :          lu(k,941) = lu(k,941) * lu(k,938)
    3868   141111616 :          lu(k,942) = lu(k,942) * lu(k,938)
    3869   141111616 :          lu(k,943) = lu(k,943) * lu(k,938)
    3870   141111616 :          lu(k,944) = lu(k,944) * lu(k,938)
    3871   141111616 :          lu(k,945) = lu(k,945) * lu(k,938)
    3872   141111616 :          lu(k,946) = lu(k,946) * lu(k,938)
    3873   141111616 :          lu(k,947) = lu(k,947) * lu(k,938)
    3874   141111616 :          lu(k,948) = lu(k,948) * lu(k,938)
    3875   141111616 :          lu(k,949) = lu(k,949) * lu(k,938)
    3876   141111616 :          lu(k,950) = lu(k,950) * lu(k,938)
    3877   141111616 :          lu(k,951) = lu(k,951) * lu(k,938)
    3878   141111616 :          lu(k,952) = lu(k,952) * lu(k,938)
    3879   141111616 :          lu(k,1305) = lu(k,1305) - lu(k,939) * lu(k,1304)
    3880   141111616 :          lu(k,1306) = lu(k,1306) - lu(k,940) * lu(k,1304)
    3881   141111616 :          lu(k,1307) = lu(k,1307) - lu(k,941) * lu(k,1304)
    3882   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,942) * lu(k,1304)
    3883   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,943) * lu(k,1304)
    3884   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,944) * lu(k,1304)
    3885   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,945) * lu(k,1304)
    3886   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,946) * lu(k,1304)
    3887   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,947) * lu(k,1304)
    3888   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,948) * lu(k,1304)
    3889   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,949) * lu(k,1304)
    3890   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,950) * lu(k,1304)
    3891   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,951) * lu(k,1304)
    3892   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,952) * lu(k,1304)
    3893   141111616 :          lu(k,1479) = lu(k,1479) - lu(k,939) * lu(k,1478)
    3894   141111616 :          lu(k,1480) = lu(k,1480) - lu(k,940) * lu(k,1478)
    3895   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,941) * lu(k,1478)
    3896   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,942) * lu(k,1478)
    3897   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,943) * lu(k,1478)
    3898   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,944) * lu(k,1478)
    3899   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,945) * lu(k,1478)
    3900   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,946) * lu(k,1478)
    3901   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,947) * lu(k,1478)
    3902   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,948) * lu(k,1478)
    3903   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,949) * lu(k,1478)
    3904   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,950) * lu(k,1478)
    3905   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,951) * lu(k,1478)
    3906   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,952) * lu(k,1478)
    3907   141111616 :          lu(k,1663) = lu(k,1663) - lu(k,939) * lu(k,1662)
    3908   141111616 :          lu(k,1664) = lu(k,1664) - lu(k,940) * lu(k,1662)
    3909   141111616 :          lu(k,1665) = lu(k,1665) - lu(k,941) * lu(k,1662)
    3910   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,942) * lu(k,1662)
    3911   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,943) * lu(k,1662)
    3912   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,944) * lu(k,1662)
    3913   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,945) * lu(k,1662)
    3914   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,946) * lu(k,1662)
    3915   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,947) * lu(k,1662)
    3916   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,948) * lu(k,1662)
    3917   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,949) * lu(k,1662)
    3918   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,950) * lu(k,1662)
    3919   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,951) * lu(k,1662)
    3920   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,952) * lu(k,1662)
    3921   141111616 :          lu(k,1780) = lu(k,1780) - lu(k,939) * lu(k,1779)
    3922   141111616 :          lu(k,1781) = lu(k,1781) - lu(k,940) * lu(k,1779)
    3923   141111616 :          lu(k,1782) = lu(k,1782) - lu(k,941) * lu(k,1779)
    3924   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,942) * lu(k,1779)
    3925   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,943) * lu(k,1779)
    3926   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,944) * lu(k,1779)
    3927   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,945) * lu(k,1779)
    3928   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,946) * lu(k,1779)
    3929   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,947) * lu(k,1779)
    3930   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,948) * lu(k,1779)
    3931   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,949) * lu(k,1779)
    3932   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,950) * lu(k,1779)
    3933   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,951) * lu(k,1779)
    3934   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,952) * lu(k,1779)
    3935   141111616 :          lu(k,1840) = lu(k,1840) - lu(k,939) * lu(k,1839)
    3936   141111616 :          lu(k,1841) = lu(k,1841) - lu(k,940) * lu(k,1839)
    3937   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,941) * lu(k,1839)
    3938   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,942) * lu(k,1839)
    3939   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,943) * lu(k,1839)
    3940   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,944) * lu(k,1839)
    3941   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,945) * lu(k,1839)
    3942   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,946) * lu(k,1839)
    3943   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,947) * lu(k,1839)
    3944   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,948) * lu(k,1839)
    3945   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,949) * lu(k,1839)
    3946   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,950) * lu(k,1839)
    3947   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,951) * lu(k,1839)
    3948   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,952) * lu(k,1839)
    3949   141111616 :          lu(k,1994) = lu(k,1994) - lu(k,939) * lu(k,1993)
    3950   141111616 :          lu(k,1995) = lu(k,1995) - lu(k,940) * lu(k,1993)
    3951   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,941) * lu(k,1993)
    3952   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,942) * lu(k,1993)
    3953   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,943) * lu(k,1993)
    3954   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,944) * lu(k,1993)
    3955   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,945) * lu(k,1993)
    3956   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,946) * lu(k,1993)
    3957   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,947) * lu(k,1993)
    3958   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,948) * lu(k,1993)
    3959   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,949) * lu(k,1993)
    3960   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,950) * lu(k,1993)
    3961   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,951) * lu(k,1993)
    3962   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,952) * lu(k,1993)
    3963   141111616 :          lu(k,960) = 1._r8 / lu(k,960)
    3964   141111616 :          lu(k,961) = lu(k,961) * lu(k,960)
    3965   141111616 :          lu(k,962) = lu(k,962) * lu(k,960)
    3966   141111616 :          lu(k,963) = lu(k,963) * lu(k,960)
    3967   141111616 :          lu(k,964) = lu(k,964) * lu(k,960)
    3968   141111616 :          lu(k,965) = lu(k,965) * lu(k,960)
    3969   141111616 :          lu(k,966) = lu(k,966) * lu(k,960)
    3970   141111616 :          lu(k,967) = lu(k,967) * lu(k,960)
    3971   141111616 :          lu(k,968) = lu(k,968) * lu(k,960)
    3972   141111616 :          lu(k,969) = lu(k,969) * lu(k,960)
    3973   141111616 :          lu(k,970) = lu(k,970) * lu(k,960)
    3974   141111616 :          lu(k,971) = lu(k,971) * lu(k,960)
    3975   141111616 :          lu(k,980) = lu(k,980) - lu(k,961) * lu(k,978)
    3976   141111616 :          lu(k,981) = lu(k,981) - lu(k,962) * lu(k,978)
    3977   141111616 :          lu(k,982) = lu(k,982) - lu(k,963) * lu(k,978)
    3978   141111616 :          lu(k,983) = lu(k,983) - lu(k,964) * lu(k,978)
    3979   141111616 :          lu(k,984) = lu(k,984) - lu(k,965) * lu(k,978)
    3980   141111616 :          lu(k,985) = lu(k,985) - lu(k,966) * lu(k,978)
    3981   141111616 :          lu(k,986) = lu(k,986) - lu(k,967) * lu(k,978)
    3982   141111616 :          lu(k,987) = lu(k,987) - lu(k,968) * lu(k,978)
    3983   141111616 :          lu(k,988) = lu(k,988) - lu(k,969) * lu(k,978)
    3984   141111616 :          lu(k,989) = lu(k,989) - lu(k,970) * lu(k,978)
    3985   141111616 :          lu(k,991) = lu(k,991) - lu(k,971) * lu(k,978)
    3986   141111616 :          lu(k,1307) = lu(k,1307) - lu(k,961) * lu(k,1305)
    3987   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,962) * lu(k,1305)
    3988   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,963) * lu(k,1305)
    3989   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,964) * lu(k,1305)
    3990   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,965) * lu(k,1305)
    3991   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,966) * lu(k,1305)
    3992   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,967) * lu(k,1305)
    3993   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,968) * lu(k,1305)
    3994   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,969) * lu(k,1305)
    3995   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,970) * lu(k,1305)
    3996   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,971) * lu(k,1305)
    3997   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,961) * lu(k,1479)
    3998   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,962) * lu(k,1479)
    3999   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,963) * lu(k,1479)
    4000   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,964) * lu(k,1479)
    4001   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,965) * lu(k,1479)
    4002   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,966) * lu(k,1479)
    4003   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,967) * lu(k,1479)
    4004   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,968) * lu(k,1479)
    4005   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,969) * lu(k,1479)
    4006   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,970) * lu(k,1479)
    4007   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,971) * lu(k,1479)
    4008   141111616 :          lu(k,1665) = lu(k,1665) - lu(k,961) * lu(k,1663)
    4009   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,962) * lu(k,1663)
    4010   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,963) * lu(k,1663)
    4011   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,964) * lu(k,1663)
    4012   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,965) * lu(k,1663)
    4013   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,966) * lu(k,1663)
    4014   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,967) * lu(k,1663)
    4015   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,968) * lu(k,1663)
    4016   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,969) * lu(k,1663)
    4017   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,970) * lu(k,1663)
    4018   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,971) * lu(k,1663)
    4019   141111616 :          lu(k,1782) = lu(k,1782) - lu(k,961) * lu(k,1780)
    4020   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,962) * lu(k,1780)
    4021   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,963) * lu(k,1780)
    4022   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,964) * lu(k,1780)
    4023   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,965) * lu(k,1780)
    4024   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,966) * lu(k,1780)
    4025   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,967) * lu(k,1780)
    4026   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,968) * lu(k,1780)
    4027   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,969) * lu(k,1780)
    4028   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,970) * lu(k,1780)
    4029   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,971) * lu(k,1780)
    4030   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,961) * lu(k,1840)
    4031   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,962) * lu(k,1840)
    4032   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,963) * lu(k,1840)
    4033   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,964) * lu(k,1840)
    4034   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,965) * lu(k,1840)
    4035   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,966) * lu(k,1840)
    4036   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,967) * lu(k,1840)
    4037   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,968) * lu(k,1840)
    4038   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,969) * lu(k,1840)
    4039   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,970) * lu(k,1840)
    4040   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,971) * lu(k,1840)
    4041   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,961) * lu(k,1994)
    4042   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,962) * lu(k,1994)
    4043   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,963) * lu(k,1994)
    4044   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,964) * lu(k,1994)
    4045   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,965) * lu(k,1994)
    4046   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,966) * lu(k,1994)
    4047   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,967) * lu(k,1994)
    4048   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,968) * lu(k,1994)
    4049   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,969) * lu(k,1994)
    4050   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,970) * lu(k,1994)
    4051   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,971) * lu(k,1994)
    4052   141111616 :          lu(k,979) = 1._r8 / lu(k,979)
    4053   141111616 :          lu(k,980) = lu(k,980) * lu(k,979)
    4054   141111616 :          lu(k,981) = lu(k,981) * lu(k,979)
    4055   141111616 :          lu(k,982) = lu(k,982) * lu(k,979)
    4056   141111616 :          lu(k,983) = lu(k,983) * lu(k,979)
    4057   141111616 :          lu(k,984) = lu(k,984) * lu(k,979)
    4058   141111616 :          lu(k,985) = lu(k,985) * lu(k,979)
    4059   141111616 :          lu(k,986) = lu(k,986) * lu(k,979)
    4060   141111616 :          lu(k,987) = lu(k,987) * lu(k,979)
    4061   141111616 :          lu(k,988) = lu(k,988) * lu(k,979)
    4062   141111616 :          lu(k,989) = lu(k,989) * lu(k,979)
    4063   141111616 :          lu(k,990) = lu(k,990) * lu(k,979)
    4064   141111616 :          lu(k,991) = lu(k,991) * lu(k,979)
    4065   141111616 :          lu(k,1307) = lu(k,1307) - lu(k,980) * lu(k,1306)
    4066   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,981) * lu(k,1306)
    4067   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,982) * lu(k,1306)
    4068   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,983) * lu(k,1306)
    4069   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,984) * lu(k,1306)
    4070   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,985) * lu(k,1306)
    4071   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,986) * lu(k,1306)
    4072   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,987) * lu(k,1306)
    4073   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,988) * lu(k,1306)
    4074   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,989) * lu(k,1306)
    4075   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,990) * lu(k,1306)
    4076   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,991) * lu(k,1306)
    4077   141111616 :          lu(k,1481) = lu(k,1481) - lu(k,980) * lu(k,1480)
    4078   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,981) * lu(k,1480)
    4079   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,982) * lu(k,1480)
    4080   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,983) * lu(k,1480)
    4081   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,984) * lu(k,1480)
    4082   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,985) * lu(k,1480)
    4083   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,986) * lu(k,1480)
    4084   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,987) * lu(k,1480)
    4085   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,988) * lu(k,1480)
    4086   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,989) * lu(k,1480)
    4087   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,990) * lu(k,1480)
    4088   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,991) * lu(k,1480)
    4089   141111616 :          lu(k,1665) = lu(k,1665) - lu(k,980) * lu(k,1664)
    4090   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,981) * lu(k,1664)
    4091   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,982) * lu(k,1664)
    4092   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,983) * lu(k,1664)
    4093   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,984) * lu(k,1664)
    4094   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,985) * lu(k,1664)
    4095   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,986) * lu(k,1664)
    4096   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,987) * lu(k,1664)
    4097   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,988) * lu(k,1664)
    4098   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,989) * lu(k,1664)
    4099   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,990) * lu(k,1664)
    4100   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,991) * lu(k,1664)
    4101   141111616 :          lu(k,1782) = lu(k,1782) - lu(k,980) * lu(k,1781)
    4102   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,981) * lu(k,1781)
    4103   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,982) * lu(k,1781)
    4104   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,983) * lu(k,1781)
    4105   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,984) * lu(k,1781)
    4106   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,985) * lu(k,1781)
    4107   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,986) * lu(k,1781)
    4108   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,987) * lu(k,1781)
    4109   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,988) * lu(k,1781)
    4110   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,989) * lu(k,1781)
    4111   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,990) * lu(k,1781)
    4112   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,991) * lu(k,1781)
    4113   141111616 :          lu(k,1842) = lu(k,1842) - lu(k,980) * lu(k,1841)
    4114   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,981) * lu(k,1841)
    4115   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,982) * lu(k,1841)
    4116   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,983) * lu(k,1841)
    4117   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,984) * lu(k,1841)
    4118   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,985) * lu(k,1841)
    4119   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,986) * lu(k,1841)
    4120   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,987) * lu(k,1841)
    4121   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,988) * lu(k,1841)
    4122   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,989) * lu(k,1841)
    4123   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,990) * lu(k,1841)
    4124   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,991) * lu(k,1841)
    4125   141111616 :          lu(k,1996) = lu(k,1996) - lu(k,980) * lu(k,1995)
    4126   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,981) * lu(k,1995)
    4127   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,982) * lu(k,1995)
    4128   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,983) * lu(k,1995)
    4129   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,984) * lu(k,1995)
    4130   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,985) * lu(k,1995)
    4131   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,986) * lu(k,1995)
    4132   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,987) * lu(k,1995)
    4133   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,988) * lu(k,1995)
    4134   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,989) * lu(k,1995)
    4135   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,990) * lu(k,1995)
    4136   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,991) * lu(k,1995)
    4137   141111616 :          lu(k,995) = 1._r8 / lu(k,995)
    4138   141111616 :          lu(k,996) = lu(k,996) * lu(k,995)
    4139   141111616 :          lu(k,997) = lu(k,997) * lu(k,995)
    4140   141111616 :          lu(k,998) = lu(k,998) * lu(k,995)
    4141   141111616 :          lu(k,999) = lu(k,999) * lu(k,995)
    4142   141111616 :          lu(k,1000) = lu(k,1000) * lu(k,995)
    4143   141111616 :          lu(k,1001) = lu(k,1001) * lu(k,995)
    4144   141111616 :          lu(k,1002) = lu(k,1002) * lu(k,995)
    4145   141111616 :          lu(k,1003) = lu(k,1003) * lu(k,995)
    4146   141111616 :          lu(k,1004) = lu(k,1004) * lu(k,995)
    4147   141111616 :          lu(k,1112) = lu(k,1112) - lu(k,996) * lu(k,1109)
    4148   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,997) * lu(k,1109)
    4149   141111616 :          lu(k,1120) = lu(k,1120) - lu(k,998) * lu(k,1109)
    4150   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,999) * lu(k,1109)
    4151   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,1000) * lu(k,1109)
    4152   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,1001) * lu(k,1109)
    4153   141111616 :          lu(k,1124) = lu(k,1124) - lu(k,1002) * lu(k,1109)
    4154   141111616 :          lu(k,1126) = lu(k,1126) - lu(k,1003) * lu(k,1109)
    4155   141111616 :          lu(k,1128) = lu(k,1128) - lu(k,1004) * lu(k,1109)
    4156   141111616 :          lu(k,1156) = lu(k,1156) - lu(k,996) * lu(k,1155)
    4157   141111616 :          lu(k,1159) = lu(k,1159) - lu(k,997) * lu(k,1155)
    4158   141111616 :          lu(k,1162) = lu(k,1162) - lu(k,998) * lu(k,1155)
    4159   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,999) * lu(k,1155)
    4160   141111616 :          lu(k,1164) = lu(k,1164) - lu(k,1000) * lu(k,1155)
    4161   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,1001) * lu(k,1155)
    4162   141111616 :          lu(k,1166) = lu(k,1166) - lu(k,1002) * lu(k,1155)
    4163   141111616 :          lu(k,1167) = lu(k,1167) - lu(k,1003) * lu(k,1155)
    4164   141111616 :          lu(k,1169) = lu(k,1169) - lu(k,1004) * lu(k,1155)
    4165   141111616 :          lu(k,1180) = lu(k,1180) - lu(k,996) * lu(k,1177)
    4166   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,997) * lu(k,1177)
    4167   141111616 :          lu(k,1188) = lu(k,1188) - lu(k,998) * lu(k,1177)
    4168   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,999) * lu(k,1177)
    4169   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,1000) * lu(k,1177)
    4170   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,1001) * lu(k,1177)
    4171   141111616 :          lu(k,1192) = lu(k,1192) - lu(k,1002) * lu(k,1177)
    4172   141111616 :          lu(k,1194) = lu(k,1194) - lu(k,1003) * lu(k,1177)
    4173   141111616 :          lu(k,1196) = lu(k,1196) - lu(k,1004) * lu(k,1177)
    4174   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,996) * lu(k,1307)
    4175   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,997) * lu(k,1307)
    4176   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,998) * lu(k,1307)
    4177   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,999) * lu(k,1307)
    4178   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1000) * lu(k,1307)
    4179   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1001) * lu(k,1307)
    4180   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1002) * lu(k,1307)
    4181   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1003) * lu(k,1307)
    4182   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1004) * lu(k,1307)
    4183   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,996) * lu(k,1481)
    4184   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,997) * lu(k,1481)
    4185   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,998) * lu(k,1481)
    4186   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,999) * lu(k,1481)
    4187   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1000) * lu(k,1481)
    4188   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1001) * lu(k,1481)
    4189   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1002) * lu(k,1481)
    4190   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1003) * lu(k,1481)
    4191   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1004) * lu(k,1481)
    4192   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,996) * lu(k,1665)
    4193   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,997) * lu(k,1665)
    4194   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,998) * lu(k,1665)
    4195   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,999) * lu(k,1665)
    4196   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1000) * lu(k,1665)
    4197   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1001) * lu(k,1665)
    4198   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1002) * lu(k,1665)
    4199   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1003) * lu(k,1665)
    4200   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1004) * lu(k,1665)
    4201   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,996) * lu(k,1782)
    4202   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,997) * lu(k,1782)
    4203   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,998) * lu(k,1782)
    4204   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,999) * lu(k,1782)
    4205   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1000) * lu(k,1782)
    4206   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1001) * lu(k,1782)
    4207   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1002) * lu(k,1782)
    4208   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1003) * lu(k,1782)
    4209   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1004) * lu(k,1782)
    4210   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,996) * lu(k,1842)
    4211   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,997) * lu(k,1842)
    4212   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,998) * lu(k,1842)
    4213   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,999) * lu(k,1842)
    4214   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1000) * lu(k,1842)
    4215   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1001) * lu(k,1842)
    4216   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1002) * lu(k,1842)
    4217   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1003) * lu(k,1842)
    4218   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1004) * lu(k,1842)
    4219   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,996) * lu(k,1996)
    4220   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,997) * lu(k,1996)
    4221   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,998) * lu(k,1996)
    4222   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,999) * lu(k,1996)
    4223   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1000) * lu(k,1996)
    4224   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1001) * lu(k,1996)
    4225   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1002) * lu(k,1996)
    4226   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1003) * lu(k,1996)
    4227   145521354 :          lu(k,2025) = lu(k,2025) - lu(k,1004) * lu(k,1996)
    4228             :       end do
    4229     4409738 :       end subroutine lu_fac20
    4230     4409738 :       subroutine lu_fac21( avec_len, lu )
    4231             :       use chem_mods, only : nzcnt
    4232             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4233             :       implicit none
    4234             : !-----------------------------------------------------------------------
    4235             : ! ... dummy args
    4236             : !-----------------------------------------------------------------------
    4237             :       integer, intent(in) :: avec_len
    4238             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4239             : !-----------------------------------------------------------------------
    4240             : ! ... local variables
    4241             : !-----------------------------------------------------------------------
    4242             :       integer :: k
    4243   145521354 :       do k = 1,avec_len
    4244   141111616 :          lu(k,1011) = 1._r8 / lu(k,1011)
    4245   141111616 :          lu(k,1012) = lu(k,1012) * lu(k,1011)
    4246   141111616 :          lu(k,1013) = lu(k,1013) * lu(k,1011)
    4247   141111616 :          lu(k,1014) = lu(k,1014) * lu(k,1011)
    4248   141111616 :          lu(k,1015) = lu(k,1015) * lu(k,1011)
    4249   141111616 :          lu(k,1016) = lu(k,1016) * lu(k,1011)
    4250   141111616 :          lu(k,1017) = lu(k,1017) * lu(k,1011)
    4251   141111616 :          lu(k,1018) = lu(k,1018) * lu(k,1011)
    4252   141111616 :          lu(k,1019) = lu(k,1019) * lu(k,1011)
    4253   141111616 :          lu(k,1020) = lu(k,1020) * lu(k,1011)
    4254   141111616 :          lu(k,1021) = lu(k,1021) * lu(k,1011)
    4255   141111616 :          lu(k,1046) = lu(k,1046) - lu(k,1012) * lu(k,1043)
    4256   141111616 :          lu(k,1048) = lu(k,1048) - lu(k,1013) * lu(k,1043)
    4257   141111616 :          lu(k,1050) = lu(k,1050) - lu(k,1014) * lu(k,1043)
    4258   141111616 :          lu(k,1051) = lu(k,1051) - lu(k,1015) * lu(k,1043)
    4259   141111616 :          lu(k,1052) = lu(k,1052) - lu(k,1016) * lu(k,1043)
    4260   141111616 :          lu(k,1053) = lu(k,1053) - lu(k,1017) * lu(k,1043)
    4261   141111616 :          lu(k,1054) = lu(k,1054) - lu(k,1018) * lu(k,1043)
    4262   141111616 :          lu(k,1055) = lu(k,1055) - lu(k,1019) * lu(k,1043)
    4263   141111616 :          lu(k,1056) = lu(k,1056) - lu(k,1020) * lu(k,1043)
    4264   141111616 :          lu(k,1057) = lu(k,1057) - lu(k,1021) * lu(k,1043)
    4265   141111616 :          lu(k,1112) = lu(k,1112) - lu(k,1012) * lu(k,1110)
    4266   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,1013) * lu(k,1110)
    4267   141111616 :          lu(k,1119) = lu(k,1119) - lu(k,1014) * lu(k,1110)
    4268   141111616 :          lu(k,1120) = lu(k,1120) - lu(k,1015) * lu(k,1110)
    4269   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,1016) * lu(k,1110)
    4270   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,1017) * lu(k,1110)
    4271   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,1018) * lu(k,1110)
    4272   141111616 :          lu(k,1124) = lu(k,1124) - lu(k,1019) * lu(k,1110)
    4273   141111616 :          lu(k,1126) = lu(k,1126) - lu(k,1020) * lu(k,1110)
    4274   141111616 :          lu(k,1127) = lu(k,1127) - lu(k,1021) * lu(k,1110)
    4275   141111616 :          lu(k,1180) = lu(k,1180) - lu(k,1012) * lu(k,1178)
    4276   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,1013) * lu(k,1178)
    4277   141111616 :          lu(k,1187) = lu(k,1187) - lu(k,1014) * lu(k,1178)
    4278   141111616 :          lu(k,1188) = lu(k,1188) - lu(k,1015) * lu(k,1178)
    4279   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,1016) * lu(k,1178)
    4280   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,1017) * lu(k,1178)
    4281   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,1018) * lu(k,1178)
    4282   141111616 :          lu(k,1192) = lu(k,1192) - lu(k,1019) * lu(k,1178)
    4283   141111616 :          lu(k,1194) = lu(k,1194) - lu(k,1020) * lu(k,1178)
    4284   141111616 :          lu(k,1195) = lu(k,1195) - lu(k,1021) * lu(k,1178)
    4285   141111616 :          lu(k,1227) = lu(k,1227) - lu(k,1012) * lu(k,1224)
    4286   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1013) * lu(k,1224)
    4287   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1014) * lu(k,1224)
    4288   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1015) * lu(k,1224)
    4289   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1016) * lu(k,1224)
    4290   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1017) * lu(k,1224)
    4291   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1018) * lu(k,1224)
    4292   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1019) * lu(k,1224)
    4293   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1020) * lu(k,1224)
    4294   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1021) * lu(k,1224)
    4295   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,1012) * lu(k,1308)
    4296   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1013) * lu(k,1308)
    4297   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1014) * lu(k,1308)
    4298   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1015) * lu(k,1308)
    4299   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1016) * lu(k,1308)
    4300   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1017) * lu(k,1308)
    4301   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1018) * lu(k,1308)
    4302   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1019) * lu(k,1308)
    4303   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1020) * lu(k,1308)
    4304   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1021) * lu(k,1308)
    4305   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,1012) * lu(k,1482)
    4306   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1013) * lu(k,1482)
    4307   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1014) * lu(k,1482)
    4308   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1015) * lu(k,1482)
    4309   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1016) * lu(k,1482)
    4310   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1017) * lu(k,1482)
    4311   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1018) * lu(k,1482)
    4312   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1019) * lu(k,1482)
    4313   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1020) * lu(k,1482)
    4314   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1021) * lu(k,1482)
    4315   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,1012) * lu(k,1666)
    4316   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1013) * lu(k,1666)
    4317   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1014) * lu(k,1666)
    4318   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1015) * lu(k,1666)
    4319   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1016) * lu(k,1666)
    4320   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1017) * lu(k,1666)
    4321   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1018) * lu(k,1666)
    4322   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1019) * lu(k,1666)
    4323   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1020) * lu(k,1666)
    4324   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1021) * lu(k,1666)
    4325   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,1012) * lu(k,1783)
    4326   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1013) * lu(k,1783)
    4327   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1014) * lu(k,1783)
    4328   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1015) * lu(k,1783)
    4329   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1016) * lu(k,1783)
    4330   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1017) * lu(k,1783)
    4331   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1018) * lu(k,1783)
    4332   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1019) * lu(k,1783)
    4333   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1020) * lu(k,1783)
    4334   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1021) * lu(k,1783)
    4335   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,1012) * lu(k,1997)
    4336   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1013) * lu(k,1997)
    4337   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1014) * lu(k,1997)
    4338   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1015) * lu(k,1997)
    4339   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1016) * lu(k,1997)
    4340   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1017) * lu(k,1997)
    4341   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1018) * lu(k,1997)
    4342   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1019) * lu(k,1997)
    4343   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1020) * lu(k,1997)
    4344   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1021) * lu(k,1997)
    4345   141111616 :          lu(k,1024) = 1._r8 / lu(k,1024)
    4346   141111616 :          lu(k,1025) = lu(k,1025) * lu(k,1024)
    4347   141111616 :          lu(k,1026) = lu(k,1026) * lu(k,1024)
    4348   141111616 :          lu(k,1027) = lu(k,1027) * lu(k,1024)
    4349   141111616 :          lu(k,1028) = lu(k,1028) * lu(k,1024)
    4350   141111616 :          lu(k,1029) = lu(k,1029) * lu(k,1024)
    4351   141111616 :          lu(k,1030) = lu(k,1030) * lu(k,1024)
    4352   141111616 :          lu(k,1031) = lu(k,1031) * lu(k,1024)
    4353   141111616 :          lu(k,1032) = lu(k,1032) * lu(k,1024)
    4354   141111616 :          lu(k,1033) = lu(k,1033) * lu(k,1024)
    4355   141111616 :          lu(k,1034) = lu(k,1034) * lu(k,1024)
    4356   141111616 :          lu(k,1260) = lu(k,1260) - lu(k,1025) * lu(k,1259)
    4357   141111616 :          lu(k,1261) = lu(k,1261) - lu(k,1026) * lu(k,1259)
    4358   141111616 :          lu(k,1262) = lu(k,1262) - lu(k,1027) * lu(k,1259)
    4359   141111616 :          lu(k,1263) = - lu(k,1028) * lu(k,1259)
    4360   141111616 :          lu(k,1264) = lu(k,1264) - lu(k,1029) * lu(k,1259)
    4361   141111616 :          lu(k,1265) = - lu(k,1030) * lu(k,1259)
    4362   141111616 :          lu(k,1267) = - lu(k,1031) * lu(k,1259)
    4363   141111616 :          lu(k,1268) = - lu(k,1032) * lu(k,1259)
    4364   141111616 :          lu(k,1269) = lu(k,1269) - lu(k,1033) * lu(k,1259)
    4365   141111616 :          lu(k,1270) = lu(k,1270) - lu(k,1034) * lu(k,1259)
    4366   141111616 :          lu(k,1272) = - lu(k,1025) * lu(k,1271)
    4367   141111616 :          lu(k,1273) = lu(k,1273) - lu(k,1026) * lu(k,1271)
    4368   141111616 :          lu(k,1274) = - lu(k,1027) * lu(k,1271)
    4369   141111616 :          lu(k,1275) = - lu(k,1028) * lu(k,1271)
    4370   141111616 :          lu(k,1276) = lu(k,1276) - lu(k,1029) * lu(k,1271)
    4371   141111616 :          lu(k,1277) = lu(k,1277) - lu(k,1030) * lu(k,1271)
    4372   141111616 :          lu(k,1281) = - lu(k,1031) * lu(k,1271)
    4373   141111616 :          lu(k,1282) = - lu(k,1032) * lu(k,1271)
    4374   141111616 :          lu(k,1283) = - lu(k,1033) * lu(k,1271)
    4375   141111616 :          lu(k,1284) = lu(k,1284) - lu(k,1034) * lu(k,1271)
    4376   141111616 :          lu(k,1341) = lu(k,1341) - lu(k,1025) * lu(k,1339)
    4377   141111616 :          lu(k,1342) = lu(k,1342) - lu(k,1026) * lu(k,1339)
    4378   141111616 :          lu(k,1343) = lu(k,1343) - lu(k,1027) * lu(k,1339)
    4379   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,1028) * lu(k,1339)
    4380   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,1029) * lu(k,1339)
    4381   141111616 :          lu(k,1348) = lu(k,1348) - lu(k,1030) * lu(k,1339)
    4382   141111616 :          lu(k,1354) = lu(k,1354) - lu(k,1031) * lu(k,1339)
    4383   141111616 :          lu(k,1355) = lu(k,1355) - lu(k,1032) * lu(k,1339)
    4384   141111616 :          lu(k,1356) = lu(k,1356) - lu(k,1033) * lu(k,1339)
    4385   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,1034) * lu(k,1339)
    4386   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1025) * lu(k,1483)
    4387   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1026) * lu(k,1483)
    4388   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1027) * lu(k,1483)
    4389   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,1028) * lu(k,1483)
    4390   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1029) * lu(k,1483)
    4391   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1030) * lu(k,1483)
    4392   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,1031) * lu(k,1483)
    4393   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,1032) * lu(k,1483)
    4394   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1033) * lu(k,1483)
    4395   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1034) * lu(k,1483)
    4396   141111616 :          lu(k,1542) = lu(k,1542) - lu(k,1025) * lu(k,1540)
    4397   141111616 :          lu(k,1543) = lu(k,1543) - lu(k,1026) * lu(k,1540)
    4398   141111616 :          lu(k,1544) = - lu(k,1027) * lu(k,1540)
    4399   141111616 :          lu(k,1545) = lu(k,1545) - lu(k,1028) * lu(k,1540)
    4400   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,1029) * lu(k,1540)
    4401   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1030) * lu(k,1540)
    4402   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1031) * lu(k,1540)
    4403   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1032) * lu(k,1540)
    4404   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1033) * lu(k,1540)
    4405   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1034) * lu(k,1540)
    4406   141111616 :          lu(k,1572) = lu(k,1572) - lu(k,1025) * lu(k,1569)
    4407   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,1026) * lu(k,1569)
    4408   141111616 :          lu(k,1574) = - lu(k,1027) * lu(k,1569)
    4409   141111616 :          lu(k,1575) = lu(k,1575) - lu(k,1028) * lu(k,1569)
    4410   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1029) * lu(k,1569)
    4411   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1030) * lu(k,1569)
    4412   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1031) * lu(k,1569)
    4413   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1032) * lu(k,1569)
    4414   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1033) * lu(k,1569)
    4415   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1034) * lu(k,1569)
    4416   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1025) * lu(k,1667)
    4417   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1026) * lu(k,1667)
    4418   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1027) * lu(k,1667)
    4419   141111616 :          lu(k,1681) = lu(k,1681) - lu(k,1028) * lu(k,1667)
    4420   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1029) * lu(k,1667)
    4421   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1030) * lu(k,1667)
    4422   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1031) * lu(k,1667)
    4423   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1032) * lu(k,1667)
    4424   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1033) * lu(k,1667)
    4425   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1034) * lu(k,1667)
    4426   141111616 :          lu(k,1952) = lu(k,1952) - lu(k,1025) * lu(k,1949)
    4427   141111616 :          lu(k,1953) = lu(k,1953) - lu(k,1026) * lu(k,1949)
    4428   141111616 :          lu(k,1954) = lu(k,1954) - lu(k,1027) * lu(k,1949)
    4429   141111616 :          lu(k,1955) = - lu(k,1028) * lu(k,1949)
    4430   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1029) * lu(k,1949)
    4431   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1030) * lu(k,1949)
    4432   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1031) * lu(k,1949)
    4433   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1032) * lu(k,1949)
    4434   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1033) * lu(k,1949)
    4435   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1034) * lu(k,1949)
    4436   141111616 :          lu(k,2034) = lu(k,2034) - lu(k,1025) * lu(k,2031)
    4437   141111616 :          lu(k,2035) = lu(k,2035) - lu(k,1026) * lu(k,2031)
    4438   141111616 :          lu(k,2036) = lu(k,2036) - lu(k,1027) * lu(k,2031)
    4439   141111616 :          lu(k,2037) = lu(k,2037) - lu(k,1028) * lu(k,2031)
    4440   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1029) * lu(k,2031)
    4441   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1030) * lu(k,2031)
    4442   141111616 :          lu(k,2047) = - lu(k,1031) * lu(k,2031)
    4443   141111616 :          lu(k,2048) = - lu(k,1032) * lu(k,2031)
    4444   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1033) * lu(k,2031)
    4445   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1034) * lu(k,2031)
    4446   141111616 :          lu(k,1044) = 1._r8 / lu(k,1044)
    4447   141111616 :          lu(k,1045) = lu(k,1045) * lu(k,1044)
    4448   141111616 :          lu(k,1046) = lu(k,1046) * lu(k,1044)
    4449   141111616 :          lu(k,1047) = lu(k,1047) * lu(k,1044)
    4450   141111616 :          lu(k,1048) = lu(k,1048) * lu(k,1044)
    4451   141111616 :          lu(k,1049) = lu(k,1049) * lu(k,1044)
    4452   141111616 :          lu(k,1050) = lu(k,1050) * lu(k,1044)
    4453   141111616 :          lu(k,1051) = lu(k,1051) * lu(k,1044)
    4454   141111616 :          lu(k,1052) = lu(k,1052) * lu(k,1044)
    4455   141111616 :          lu(k,1053) = lu(k,1053) * lu(k,1044)
    4456   141111616 :          lu(k,1054) = lu(k,1054) * lu(k,1044)
    4457   141111616 :          lu(k,1055) = lu(k,1055) * lu(k,1044)
    4458   141111616 :          lu(k,1056) = lu(k,1056) * lu(k,1044)
    4459   141111616 :          lu(k,1057) = lu(k,1057) * lu(k,1044)
    4460   141111616 :          lu(k,1226) = lu(k,1226) - lu(k,1045) * lu(k,1225)
    4461   141111616 :          lu(k,1227) = lu(k,1227) - lu(k,1046) * lu(k,1225)
    4462   141111616 :          lu(k,1229) = lu(k,1229) - lu(k,1047) * lu(k,1225)
    4463   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1048) * lu(k,1225)
    4464   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1049) * lu(k,1225)
    4465   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1050) * lu(k,1225)
    4466   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1051) * lu(k,1225)
    4467   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1052) * lu(k,1225)
    4468   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1053) * lu(k,1225)
    4469   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1054) * lu(k,1225)
    4470   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1055) * lu(k,1225)
    4471   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1056) * lu(k,1225)
    4472   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1057) * lu(k,1225)
    4473   141111616 :          lu(k,1310) = lu(k,1310) - lu(k,1045) * lu(k,1309)
    4474   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,1046) * lu(k,1309)
    4475   141111616 :          lu(k,1313) = lu(k,1313) - lu(k,1047) * lu(k,1309)
    4476   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1048) * lu(k,1309)
    4477   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1049) * lu(k,1309)
    4478   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1050) * lu(k,1309)
    4479   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1051) * lu(k,1309)
    4480   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1052) * lu(k,1309)
    4481   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1053) * lu(k,1309)
    4482   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1054) * lu(k,1309)
    4483   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1055) * lu(k,1309)
    4484   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1056) * lu(k,1309)
    4485   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1057) * lu(k,1309)
    4486   141111616 :          lu(k,1485) = lu(k,1485) - lu(k,1045) * lu(k,1484)
    4487   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,1046) * lu(k,1484)
    4488   141111616 :          lu(k,1489) = lu(k,1489) - lu(k,1047) * lu(k,1484)
    4489   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1048) * lu(k,1484)
    4490   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1049) * lu(k,1484)
    4491   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1050) * lu(k,1484)
    4492   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1051) * lu(k,1484)
    4493   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1052) * lu(k,1484)
    4494   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1053) * lu(k,1484)
    4495   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1054) * lu(k,1484)
    4496   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1055) * lu(k,1484)
    4497   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1056) * lu(k,1484)
    4498   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1057) * lu(k,1484)
    4499   141111616 :          lu(k,1669) = lu(k,1669) - lu(k,1045) * lu(k,1668)
    4500   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,1046) * lu(k,1668)
    4501   141111616 :          lu(k,1672) = lu(k,1672) - lu(k,1047) * lu(k,1668)
    4502   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1048) * lu(k,1668)
    4503   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1049) * lu(k,1668)
    4504   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1050) * lu(k,1668)
    4505   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1051) * lu(k,1668)
    4506   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1052) * lu(k,1668)
    4507   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1053) * lu(k,1668)
    4508   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1054) * lu(k,1668)
    4509   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1055) * lu(k,1668)
    4510   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1056) * lu(k,1668)
    4511   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1057) * lu(k,1668)
    4512   141111616 :          lu(k,1785) = lu(k,1785) - lu(k,1045) * lu(k,1784)
    4513   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,1046) * lu(k,1784)
    4514   141111616 :          lu(k,1788) = lu(k,1788) - lu(k,1047) * lu(k,1784)
    4515   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1048) * lu(k,1784)
    4516   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1049) * lu(k,1784)
    4517   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1050) * lu(k,1784)
    4518   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1051) * lu(k,1784)
    4519   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1052) * lu(k,1784)
    4520   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1053) * lu(k,1784)
    4521   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1054) * lu(k,1784)
    4522   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1055) * lu(k,1784)
    4523   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1056) * lu(k,1784)
    4524   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1057) * lu(k,1784)
    4525   141111616 :          lu(k,1844) = lu(k,1844) - lu(k,1045) * lu(k,1843)
    4526   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,1046) * lu(k,1843)
    4527   141111616 :          lu(k,1848) = lu(k,1848) - lu(k,1047) * lu(k,1843)
    4528   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1048) * lu(k,1843)
    4529   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1049) * lu(k,1843)
    4530   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1050) * lu(k,1843)
    4531   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1051) * lu(k,1843)
    4532   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1052) * lu(k,1843)
    4533   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1053) * lu(k,1843)
    4534   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1054) * lu(k,1843)
    4535   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1055) * lu(k,1843)
    4536   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1056) * lu(k,1843)
    4537   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1057) * lu(k,1843)
    4538   141111616 :          lu(k,1999) = lu(k,1999) - lu(k,1045) * lu(k,1998)
    4539   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,1046) * lu(k,1998)
    4540   141111616 :          lu(k,2003) = lu(k,2003) - lu(k,1047) * lu(k,1998)
    4541   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1048) * lu(k,1998)
    4542   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1049) * lu(k,1998)
    4543   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1050) * lu(k,1998)
    4544   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1051) * lu(k,1998)
    4545   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1052) * lu(k,1998)
    4546   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1053) * lu(k,1998)
    4547   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1054) * lu(k,1998)
    4548   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1055) * lu(k,1998)
    4549   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1056) * lu(k,1998)
    4550   145521354 :          lu(k,2024) = lu(k,2024) - lu(k,1057) * lu(k,1998)
    4551             :       end do
    4552     4409738 :       end subroutine lu_fac21
    4553     4409738 :       subroutine lu_fac22( avec_len, lu )
    4554             :       use chem_mods, only : nzcnt
    4555             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4556             :       implicit none
    4557             : !-----------------------------------------------------------------------
    4558             : ! ... dummy args
    4559             : !-----------------------------------------------------------------------
    4560             :       integer, intent(in) :: avec_len
    4561             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4562             : !-----------------------------------------------------------------------
    4563             : ! ... local variables
    4564             : !-----------------------------------------------------------------------
    4565             :       integer :: k
    4566   145521354 :       do k = 1,avec_len
    4567   141111616 :          lu(k,1060) = 1._r8 / lu(k,1060)
    4568   141111616 :          lu(k,1061) = lu(k,1061) * lu(k,1060)
    4569   141111616 :          lu(k,1062) = lu(k,1062) * lu(k,1060)
    4570   141111616 :          lu(k,1063) = lu(k,1063) * lu(k,1060)
    4571   141111616 :          lu(k,1064) = lu(k,1064) * lu(k,1060)
    4572   141111616 :          lu(k,1065) = lu(k,1065) * lu(k,1060)
    4573   141111616 :          lu(k,1066) = lu(k,1066) * lu(k,1060)
    4574   141111616 :          lu(k,1067) = lu(k,1067) * lu(k,1060)
    4575   141111616 :          lu(k,1068) = lu(k,1068) * lu(k,1060)
    4576   141111616 :          lu(k,1069) = lu(k,1069) * lu(k,1060)
    4577   141111616 :          lu(k,1070) = lu(k,1070) * lu(k,1060)
    4578   141111616 :          lu(k,1112) = lu(k,1112) - lu(k,1061) * lu(k,1111)
    4579   141111616 :          lu(k,1115) = - lu(k,1062) * lu(k,1111)
    4580   141111616 :          lu(k,1116) = - lu(k,1063) * lu(k,1111)
    4581   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,1064) * lu(k,1111)
    4582   141111616 :          lu(k,1119) = lu(k,1119) - lu(k,1065) * lu(k,1111)
    4583   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,1066) * lu(k,1111)
    4584   141111616 :          lu(k,1122) = lu(k,1122) - lu(k,1067) * lu(k,1111)
    4585   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,1068) * lu(k,1111)
    4586   141111616 :          lu(k,1125) = - lu(k,1069) * lu(k,1111)
    4587   141111616 :          lu(k,1128) = lu(k,1128) - lu(k,1070) * lu(k,1111)
    4588   141111616 :          lu(k,1180) = lu(k,1180) - lu(k,1061) * lu(k,1179)
    4589   141111616 :          lu(k,1182) = - lu(k,1062) * lu(k,1179)
    4590   141111616 :          lu(k,1184) = - lu(k,1063) * lu(k,1179)
    4591   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,1064) * lu(k,1179)
    4592   141111616 :          lu(k,1187) = lu(k,1187) - lu(k,1065) * lu(k,1179)
    4593   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,1066) * lu(k,1179)
    4594   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,1067) * lu(k,1179)
    4595   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,1068) * lu(k,1179)
    4596   141111616 :          lu(k,1193) = - lu(k,1069) * lu(k,1179)
    4597   141111616 :          lu(k,1196) = lu(k,1196) - lu(k,1070) * lu(k,1179)
    4598   141111616 :          lu(k,1227) = lu(k,1227) - lu(k,1061) * lu(k,1226)
    4599   141111616 :          lu(k,1230) = lu(k,1230) - lu(k,1062) * lu(k,1226)
    4600   141111616 :          lu(k,1232) = lu(k,1232) - lu(k,1063) * lu(k,1226)
    4601   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1064) * lu(k,1226)
    4602   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1065) * lu(k,1226)
    4603   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1066) * lu(k,1226)
    4604   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1067) * lu(k,1226)
    4605   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1068) * lu(k,1226)
    4606   141111616 :          lu(k,1241) = lu(k,1241) - lu(k,1069) * lu(k,1226)
    4607   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1070) * lu(k,1226)
    4608   141111616 :          lu(k,1311) = lu(k,1311) - lu(k,1061) * lu(k,1310)
    4609   141111616 :          lu(k,1314) = lu(k,1314) - lu(k,1062) * lu(k,1310)
    4610   141111616 :          lu(k,1316) = lu(k,1316) - lu(k,1063) * lu(k,1310)
    4611   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1064) * lu(k,1310)
    4612   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1065) * lu(k,1310)
    4613   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1066) * lu(k,1310)
    4614   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1067) * lu(k,1310)
    4615   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1068) * lu(k,1310)
    4616   141111616 :          lu(k,1328) = - lu(k,1069) * lu(k,1310)
    4617   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1070) * lu(k,1310)
    4618   141111616 :          lu(k,1486) = lu(k,1486) - lu(k,1061) * lu(k,1485)
    4619   141111616 :          lu(k,1490) = lu(k,1490) - lu(k,1062) * lu(k,1485)
    4620   141111616 :          lu(k,1492) = lu(k,1492) - lu(k,1063) * lu(k,1485)
    4621   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1064) * lu(k,1485)
    4622   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1065) * lu(k,1485)
    4623   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1066) * lu(k,1485)
    4624   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1067) * lu(k,1485)
    4625   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1068) * lu(k,1485)
    4626   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1069) * lu(k,1485)
    4627   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1070) * lu(k,1485)
    4628   141111616 :          lu(k,1670) = lu(k,1670) - lu(k,1061) * lu(k,1669)
    4629   141111616 :          lu(k,1673) = lu(k,1673) - lu(k,1062) * lu(k,1669)
    4630   141111616 :          lu(k,1675) = lu(k,1675) - lu(k,1063) * lu(k,1669)
    4631   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1064) * lu(k,1669)
    4632   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1065) * lu(k,1669)
    4633   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1066) * lu(k,1669)
    4634   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1067) * lu(k,1669)
    4635   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1068) * lu(k,1669)
    4636   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1069) * lu(k,1669)
    4637   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1070) * lu(k,1669)
    4638   141111616 :          lu(k,1786) = lu(k,1786) - lu(k,1061) * lu(k,1785)
    4639   141111616 :          lu(k,1789) = lu(k,1789) - lu(k,1062) * lu(k,1785)
    4640   141111616 :          lu(k,1791) = lu(k,1791) - lu(k,1063) * lu(k,1785)
    4641   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1064) * lu(k,1785)
    4642   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1065) * lu(k,1785)
    4643   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1066) * lu(k,1785)
    4644   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1067) * lu(k,1785)
    4645   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1068) * lu(k,1785)
    4646   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1069) * lu(k,1785)
    4647   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1070) * lu(k,1785)
    4648   141111616 :          lu(k,1845) = lu(k,1845) - lu(k,1061) * lu(k,1844)
    4649   141111616 :          lu(k,1849) = - lu(k,1062) * lu(k,1844)
    4650   141111616 :          lu(k,1851) = - lu(k,1063) * lu(k,1844)
    4651   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1064) * lu(k,1844)
    4652   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1065) * lu(k,1844)
    4653   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1066) * lu(k,1844)
    4654   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1067) * lu(k,1844)
    4655   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1068) * lu(k,1844)
    4656   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1069) * lu(k,1844)
    4657   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1070) * lu(k,1844)
    4658   141111616 :          lu(k,2000) = lu(k,2000) - lu(k,1061) * lu(k,1999)
    4659   141111616 :          lu(k,2004) = lu(k,2004) - lu(k,1062) * lu(k,1999)
    4660   141111616 :          lu(k,2006) = lu(k,2006) - lu(k,1063) * lu(k,1999)
    4661   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1064) * lu(k,1999)
    4662   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1065) * lu(k,1999)
    4663   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1066) * lu(k,1999)
    4664   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1067) * lu(k,1999)
    4665   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1068) * lu(k,1999)
    4666   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1069) * lu(k,1999)
    4667   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1070) * lu(k,1999)
    4668   141111616 :          lu(k,1072) = 1._r8 / lu(k,1072)
    4669   141111616 :          lu(k,1073) = lu(k,1073) * lu(k,1072)
    4670   141111616 :          lu(k,1074) = lu(k,1074) * lu(k,1072)
    4671   141111616 :          lu(k,1075) = lu(k,1075) * lu(k,1072)
    4672   141111616 :          lu(k,1076) = lu(k,1076) * lu(k,1072)
    4673   141111616 :          lu(k,1077) = lu(k,1077) * lu(k,1072)
    4674   141111616 :          lu(k,1078) = lu(k,1078) * lu(k,1072)
    4675   141111616 :          lu(k,1079) = lu(k,1079) * lu(k,1072)
    4676   141111616 :          lu(k,1117) = lu(k,1117) - lu(k,1073) * lu(k,1112)
    4677   141111616 :          lu(k,1118) = lu(k,1118) - lu(k,1074) * lu(k,1112)
    4678   141111616 :          lu(k,1119) = lu(k,1119) - lu(k,1075) * lu(k,1112)
    4679   141111616 :          lu(k,1121) = lu(k,1121) - lu(k,1076) * lu(k,1112)
    4680   141111616 :          lu(k,1123) = lu(k,1123) - lu(k,1077) * lu(k,1112)
    4681   141111616 :          lu(k,1127) = lu(k,1127) - lu(k,1078) * lu(k,1112)
    4682   141111616 :          lu(k,1128) = lu(k,1128) - lu(k,1079) * lu(k,1112)
    4683   141111616 :          lu(k,1137) = lu(k,1137) - lu(k,1073) * lu(k,1134)
    4684   141111616 :          lu(k,1138) = lu(k,1138) - lu(k,1074) * lu(k,1134)
    4685   141111616 :          lu(k,1139) = lu(k,1139) - lu(k,1075) * lu(k,1134)
    4686   141111616 :          lu(k,1141) = lu(k,1141) - lu(k,1076) * lu(k,1134)
    4687   141111616 :          lu(k,1143) = lu(k,1143) - lu(k,1077) * lu(k,1134)
    4688   141111616 :          lu(k,1147) = lu(k,1147) - lu(k,1078) * lu(k,1134)
    4689   141111616 :          lu(k,1148) = lu(k,1148) - lu(k,1079) * lu(k,1134)
    4690   141111616 :          lu(k,1159) = lu(k,1159) - lu(k,1073) * lu(k,1156)
    4691   141111616 :          lu(k,1160) = lu(k,1160) - lu(k,1074) * lu(k,1156)
    4692   141111616 :          lu(k,1161) = lu(k,1161) - lu(k,1075) * lu(k,1156)
    4693   141111616 :          lu(k,1163) = lu(k,1163) - lu(k,1076) * lu(k,1156)
    4694   141111616 :          lu(k,1165) = lu(k,1165) - lu(k,1077) * lu(k,1156)
    4695   141111616 :          lu(k,1168) = lu(k,1168) - lu(k,1078) * lu(k,1156)
    4696   141111616 :          lu(k,1169) = lu(k,1169) - lu(k,1079) * lu(k,1156)
    4697   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,1073) * lu(k,1180)
    4698   141111616 :          lu(k,1186) = lu(k,1186) - lu(k,1074) * lu(k,1180)
    4699   141111616 :          lu(k,1187) = lu(k,1187) - lu(k,1075) * lu(k,1180)
    4700   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,1076) * lu(k,1180)
    4701   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,1077) * lu(k,1180)
    4702   141111616 :          lu(k,1195) = lu(k,1195) - lu(k,1078) * lu(k,1180)
    4703   141111616 :          lu(k,1196) = lu(k,1196) - lu(k,1079) * lu(k,1180)
    4704   141111616 :          lu(k,1203) = lu(k,1203) - lu(k,1073) * lu(k,1201)
    4705   141111616 :          lu(k,1204) = - lu(k,1074) * lu(k,1201)
    4706   141111616 :          lu(k,1205) = - lu(k,1075) * lu(k,1201)
    4707   141111616 :          lu(k,1207) = lu(k,1207) - lu(k,1076) * lu(k,1201)
    4708   141111616 :          lu(k,1209) = lu(k,1209) - lu(k,1077) * lu(k,1201)
    4709   141111616 :          lu(k,1213) = lu(k,1213) - lu(k,1078) * lu(k,1201)
    4710   141111616 :          lu(k,1214) = lu(k,1214) - lu(k,1079) * lu(k,1201)
    4711   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1073) * lu(k,1227)
    4712   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1074) * lu(k,1227)
    4713   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1075) * lu(k,1227)
    4714   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1076) * lu(k,1227)
    4715   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1077) * lu(k,1227)
    4716   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1078) * lu(k,1227)
    4717   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1079) * lu(k,1227)
    4718   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1073) * lu(k,1311)
    4719   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1074) * lu(k,1311)
    4720   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1075) * lu(k,1311)
    4721   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1076) * lu(k,1311)
    4722   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1077) * lu(k,1311)
    4723   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1078) * lu(k,1311)
    4724   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1079) * lu(k,1311)
    4725   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1073) * lu(k,1486)
    4726   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1074) * lu(k,1486)
    4727   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1075) * lu(k,1486)
    4728   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1076) * lu(k,1486)
    4729   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1077) * lu(k,1486)
    4730   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1078) * lu(k,1486)
    4731   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1079) * lu(k,1486)
    4732   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1073) * lu(k,1670)
    4733   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1074) * lu(k,1670)
    4734   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1075) * lu(k,1670)
    4735   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1076) * lu(k,1670)
    4736   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1077) * lu(k,1670)
    4737   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1078) * lu(k,1670)
    4738   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1079) * lu(k,1670)
    4739   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1073) * lu(k,1786)
    4740   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1074) * lu(k,1786)
    4741   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1075) * lu(k,1786)
    4742   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1076) * lu(k,1786)
    4743   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1077) * lu(k,1786)
    4744   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1078) * lu(k,1786)
    4745   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1079) * lu(k,1786)
    4746   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1073) * lu(k,1845)
    4747   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1074) * lu(k,1845)
    4748   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1075) * lu(k,1845)
    4749   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1076) * lu(k,1845)
    4750   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1077) * lu(k,1845)
    4751   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1078) * lu(k,1845)
    4752   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1079) * lu(k,1845)
    4753   141111616 :          lu(k,1893) = lu(k,1893) - lu(k,1073) * lu(k,1890)
    4754   141111616 :          lu(k,1895) = lu(k,1895) - lu(k,1074) * lu(k,1890)
    4755   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,1075) * lu(k,1890)
    4756   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1076) * lu(k,1890)
    4757   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1077) * lu(k,1890)
    4758   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1078) * lu(k,1890)
    4759   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1079) * lu(k,1890)
    4760   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1073) * lu(k,2000)
    4761   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1074) * lu(k,2000)
    4762   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1075) * lu(k,2000)
    4763   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1076) * lu(k,2000)
    4764   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1077) * lu(k,2000)
    4765   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1078) * lu(k,2000)
    4766   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1079) * lu(k,2000)
    4767   141111616 :          lu(k,1083) = 1._r8 / lu(k,1083)
    4768   141111616 :          lu(k,1084) = lu(k,1084) * lu(k,1083)
    4769   141111616 :          lu(k,1085) = lu(k,1085) * lu(k,1083)
    4770   141111616 :          lu(k,1086) = lu(k,1086) * lu(k,1083)
    4771   141111616 :          lu(k,1087) = lu(k,1087) * lu(k,1083)
    4772   141111616 :          lu(k,1088) = lu(k,1088) * lu(k,1083)
    4773   141111616 :          lu(k,1089) = lu(k,1089) * lu(k,1083)
    4774   141111616 :          lu(k,1090) = lu(k,1090) * lu(k,1083)
    4775   141111616 :          lu(k,1091) = lu(k,1091) * lu(k,1083)
    4776   141111616 :          lu(k,1092) = lu(k,1092) * lu(k,1083)
    4777   141111616 :          lu(k,1093) = lu(k,1093) * lu(k,1083)
    4778   141111616 :          lu(k,1094) = lu(k,1094) * lu(k,1083)
    4779   141111616 :          lu(k,1095) = lu(k,1095) * lu(k,1083)
    4780   141111616 :          lu(k,1494) = lu(k,1494) - lu(k,1084) * lu(k,1487)
    4781   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1085) * lu(k,1487)
    4782   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1086) * lu(k,1487)
    4783   141111616 :          lu(k,1500) = lu(k,1500) - lu(k,1087) * lu(k,1487)
    4784   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1088) * lu(k,1487)
    4785   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1089) * lu(k,1487)
    4786   141111616 :          lu(k,1504) = lu(k,1504) - lu(k,1090) * lu(k,1487)
    4787   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1091) * lu(k,1487)
    4788   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1092) * lu(k,1487)
    4789   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1093) * lu(k,1487)
    4790   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,1094) * lu(k,1487)
    4791   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1095) * lu(k,1487)
    4792   141111616 :          lu(k,1518) = lu(k,1518) - lu(k,1084) * lu(k,1517)
    4793   141111616 :          lu(k,1520) = - lu(k,1085) * lu(k,1517)
    4794   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,1086) * lu(k,1517)
    4795   141111616 :          lu(k,1524) = lu(k,1524) - lu(k,1087) * lu(k,1517)
    4796   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1088) * lu(k,1517)
    4797   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,1089) * lu(k,1517)
    4798   141111616 :          lu(k,1528) = lu(k,1528) - lu(k,1090) * lu(k,1517)
    4799   141111616 :          lu(k,1529) = lu(k,1529) - lu(k,1091) * lu(k,1517)
    4800   141111616 :          lu(k,1530) = - lu(k,1092) * lu(k,1517)
    4801   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,1093) * lu(k,1517)
    4802   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,1094) * lu(k,1517)
    4803   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1095) * lu(k,1517)
    4804   141111616 :          lu(k,1571) = lu(k,1571) - lu(k,1084) * lu(k,1570)
    4805   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,1085) * lu(k,1570)
    4806   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1086) * lu(k,1570)
    4807   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,1087) * lu(k,1570)
    4808   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1088) * lu(k,1570)
    4809   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1089) * lu(k,1570)
    4810   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,1090) * lu(k,1570)
    4811   141111616 :          lu(k,1582) = lu(k,1582) - lu(k,1091) * lu(k,1570)
    4812   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1092) * lu(k,1570)
    4813   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1093) * lu(k,1570)
    4814   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1094) * lu(k,1570)
    4815   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1095) * lu(k,1570)
    4816   141111616 :          lu(k,1703) = lu(k,1703) - lu(k,1084) * lu(k,1702)
    4817   141111616 :          lu(k,1705) = - lu(k,1085) * lu(k,1702)
    4818   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,1086) * lu(k,1702)
    4819   141111616 :          lu(k,1709) = lu(k,1709) - lu(k,1087) * lu(k,1702)
    4820   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1088) * lu(k,1702)
    4821   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1089) * lu(k,1702)
    4822   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1090) * lu(k,1702)
    4823   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1091) * lu(k,1702)
    4824   141111616 :          lu(k,1715) = - lu(k,1092) * lu(k,1702)
    4825   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1093) * lu(k,1702)
    4826   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1094) * lu(k,1702)
    4827   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1095) * lu(k,1702)
    4828   141111616 :          lu(k,1853) = lu(k,1853) - lu(k,1084) * lu(k,1846)
    4829   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1085) * lu(k,1846)
    4830   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1086) * lu(k,1846)
    4831   141111616 :          lu(k,1859) = lu(k,1859) - lu(k,1087) * lu(k,1846)
    4832   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1088) * lu(k,1846)
    4833   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1089) * lu(k,1846)
    4834   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1090) * lu(k,1846)
    4835   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1091) * lu(k,1846)
    4836   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1092) * lu(k,1846)
    4837   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1093) * lu(k,1846)
    4838   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1094) * lu(k,1846)
    4839   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1095) * lu(k,1846)
    4840   141111616 :          lu(k,1894) = lu(k,1894) - lu(k,1084) * lu(k,1891)
    4841   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,1085) * lu(k,1891)
    4842   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1086) * lu(k,1891)
    4843   141111616 :          lu(k,1900) = lu(k,1900) - lu(k,1087) * lu(k,1891)
    4844   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1088) * lu(k,1891)
    4845   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1089) * lu(k,1891)
    4846   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1090) * lu(k,1891)
    4847   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1091) * lu(k,1891)
    4848   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1092) * lu(k,1891)
    4849   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1093) * lu(k,1891)
    4850   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1094) * lu(k,1891)
    4851   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1095) * lu(k,1891)
    4852   141111616 :          lu(k,2008) = - lu(k,1084) * lu(k,2001)
    4853   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1085) * lu(k,2001)
    4854   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1086) * lu(k,2001)
    4855   141111616 :          lu(k,2014) = - lu(k,1087) * lu(k,2001)
    4856   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1088) * lu(k,2001)
    4857   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1089) * lu(k,2001)
    4858   141111616 :          lu(k,2018) = - lu(k,1090) * lu(k,2001)
    4859   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1091) * lu(k,2001)
    4860   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1092) * lu(k,2001)
    4861   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1093) * lu(k,2001)
    4862   141111616 :          lu(k,2023) = - lu(k,1094) * lu(k,2001)
    4863   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1095) * lu(k,2001)
    4864   141111616 :          lu(k,2033) = - lu(k,1084) * lu(k,2032)
    4865   141111616 :          lu(k,2035) = lu(k,2035) - lu(k,1085) * lu(k,2032)
    4866   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1086) * lu(k,2032)
    4867   141111616 :          lu(k,2039) = - lu(k,1087) * lu(k,2032)
    4868   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1088) * lu(k,2032)
    4869   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1089) * lu(k,2032)
    4870   141111616 :          lu(k,2043) = - lu(k,1090) * lu(k,2032)
    4871   141111616 :          lu(k,2044) = - lu(k,1091) * lu(k,2032)
    4872   141111616 :          lu(k,2045) = - lu(k,1092) * lu(k,2032)
    4873   141111616 :          lu(k,2046) = - lu(k,1093) * lu(k,2032)
    4874   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1094) * lu(k,2032)
    4875   145521354 :          lu(k,2050) = lu(k,2050) - lu(k,1095) * lu(k,2032)
    4876             :       end do
    4877     4409738 :       end subroutine lu_fac22
    4878     4409738 :       subroutine lu_fac23( avec_len, lu )
    4879             :       use chem_mods, only : nzcnt
    4880             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4881             :       implicit none
    4882             : !-----------------------------------------------------------------------
    4883             : ! ... dummy args
    4884             : !-----------------------------------------------------------------------
    4885             :       integer, intent(in) :: avec_len
    4886             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4887             : !-----------------------------------------------------------------------
    4888             : ! ... local variables
    4889             : !-----------------------------------------------------------------------
    4890             :       integer :: k
    4891   145521354 :       do k = 1,avec_len
    4892   141111616 :          lu(k,1113) = 1._r8 / lu(k,1113)
    4893   141111616 :          lu(k,1114) = lu(k,1114) * lu(k,1113)
    4894   141111616 :          lu(k,1115) = lu(k,1115) * lu(k,1113)
    4895   141111616 :          lu(k,1116) = lu(k,1116) * lu(k,1113)
    4896   141111616 :          lu(k,1117) = lu(k,1117) * lu(k,1113)
    4897   141111616 :          lu(k,1118) = lu(k,1118) * lu(k,1113)
    4898   141111616 :          lu(k,1119) = lu(k,1119) * lu(k,1113)
    4899   141111616 :          lu(k,1120) = lu(k,1120) * lu(k,1113)
    4900   141111616 :          lu(k,1121) = lu(k,1121) * lu(k,1113)
    4901   141111616 :          lu(k,1122) = lu(k,1122) * lu(k,1113)
    4902   141111616 :          lu(k,1123) = lu(k,1123) * lu(k,1113)
    4903   141111616 :          lu(k,1124) = lu(k,1124) * lu(k,1113)
    4904   141111616 :          lu(k,1125) = lu(k,1125) * lu(k,1113)
    4905   141111616 :          lu(k,1126) = lu(k,1126) * lu(k,1113)
    4906   141111616 :          lu(k,1127) = lu(k,1127) * lu(k,1113)
    4907   141111616 :          lu(k,1128) = lu(k,1128) * lu(k,1113)
    4908   141111616 :          lu(k,1229) = lu(k,1229) - lu(k,1114) * lu(k,1228)
    4909   141111616 :          lu(k,1230) = lu(k,1230) - lu(k,1115) * lu(k,1228)
    4910   141111616 :          lu(k,1232) = lu(k,1232) - lu(k,1116) * lu(k,1228)
    4911   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1117) * lu(k,1228)
    4912   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1118) * lu(k,1228)
    4913   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1119) * lu(k,1228)
    4914   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1120) * lu(k,1228)
    4915   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1121) * lu(k,1228)
    4916   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1122) * lu(k,1228)
    4917   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1123) * lu(k,1228)
    4918   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1124) * lu(k,1228)
    4919   141111616 :          lu(k,1241) = lu(k,1241) - lu(k,1125) * lu(k,1228)
    4920   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1126) * lu(k,1228)
    4921   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1127) * lu(k,1228)
    4922   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1128) * lu(k,1228)
    4923   141111616 :          lu(k,1313) = lu(k,1313) - lu(k,1114) * lu(k,1312)
    4924   141111616 :          lu(k,1314) = lu(k,1314) - lu(k,1115) * lu(k,1312)
    4925   141111616 :          lu(k,1316) = lu(k,1316) - lu(k,1116) * lu(k,1312)
    4926   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1117) * lu(k,1312)
    4927   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1118) * lu(k,1312)
    4928   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1119) * lu(k,1312)
    4929   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1120) * lu(k,1312)
    4930   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1121) * lu(k,1312)
    4931   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1122) * lu(k,1312)
    4932   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1123) * lu(k,1312)
    4933   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1124) * lu(k,1312)
    4934   141111616 :          lu(k,1328) = lu(k,1328) - lu(k,1125) * lu(k,1312)
    4935   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1126) * lu(k,1312)
    4936   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1127) * lu(k,1312)
    4937   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1128) * lu(k,1312)
    4938   141111616 :          lu(k,1489) = lu(k,1489) - lu(k,1114) * lu(k,1488)
    4939   141111616 :          lu(k,1490) = lu(k,1490) - lu(k,1115) * lu(k,1488)
    4940   141111616 :          lu(k,1492) = lu(k,1492) - lu(k,1116) * lu(k,1488)
    4941   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1117) * lu(k,1488)
    4942   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1118) * lu(k,1488)
    4943   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1119) * lu(k,1488)
    4944   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1120) * lu(k,1488)
    4945   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1121) * lu(k,1488)
    4946   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1122) * lu(k,1488)
    4947   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1123) * lu(k,1488)
    4948   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1124) * lu(k,1488)
    4949   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1125) * lu(k,1488)
    4950   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1126) * lu(k,1488)
    4951   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1127) * lu(k,1488)
    4952   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1128) * lu(k,1488)
    4953   141111616 :          lu(k,1672) = lu(k,1672) - lu(k,1114) * lu(k,1671)
    4954   141111616 :          lu(k,1673) = lu(k,1673) - lu(k,1115) * lu(k,1671)
    4955   141111616 :          lu(k,1675) = lu(k,1675) - lu(k,1116) * lu(k,1671)
    4956   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1117) * lu(k,1671)
    4957   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1118) * lu(k,1671)
    4958   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1119) * lu(k,1671)
    4959   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1120) * lu(k,1671)
    4960   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1121) * lu(k,1671)
    4961   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1122) * lu(k,1671)
    4962   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1123) * lu(k,1671)
    4963   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1124) * lu(k,1671)
    4964   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1125) * lu(k,1671)
    4965   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1126) * lu(k,1671)
    4966   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1127) * lu(k,1671)
    4967   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1128) * lu(k,1671)
    4968   141111616 :          lu(k,1788) = lu(k,1788) - lu(k,1114) * lu(k,1787)
    4969   141111616 :          lu(k,1789) = lu(k,1789) - lu(k,1115) * lu(k,1787)
    4970   141111616 :          lu(k,1791) = lu(k,1791) - lu(k,1116) * lu(k,1787)
    4971   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1117) * lu(k,1787)
    4972   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1118) * lu(k,1787)
    4973   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1119) * lu(k,1787)
    4974   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1120) * lu(k,1787)
    4975   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1121) * lu(k,1787)
    4976   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1122) * lu(k,1787)
    4977   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1123) * lu(k,1787)
    4978   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1124) * lu(k,1787)
    4979   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1125) * lu(k,1787)
    4980   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1126) * lu(k,1787)
    4981   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1127) * lu(k,1787)
    4982   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1128) * lu(k,1787)
    4983   141111616 :          lu(k,1848) = lu(k,1848) - lu(k,1114) * lu(k,1847)
    4984   141111616 :          lu(k,1849) = lu(k,1849) - lu(k,1115) * lu(k,1847)
    4985   141111616 :          lu(k,1851) = lu(k,1851) - lu(k,1116) * lu(k,1847)
    4986   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1117) * lu(k,1847)
    4987   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1118) * lu(k,1847)
    4988   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1119) * lu(k,1847)
    4989   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1120) * lu(k,1847)
    4990   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1121) * lu(k,1847)
    4991   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1122) * lu(k,1847)
    4992   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1123) * lu(k,1847)
    4993   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1124) * lu(k,1847)
    4994   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1125) * lu(k,1847)
    4995   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1126) * lu(k,1847)
    4996   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1127) * lu(k,1847)
    4997   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1128) * lu(k,1847)
    4998   141111616 :          lu(k,2003) = lu(k,2003) - lu(k,1114) * lu(k,2002)
    4999   141111616 :          lu(k,2004) = lu(k,2004) - lu(k,1115) * lu(k,2002)
    5000   141111616 :          lu(k,2006) = lu(k,2006) - lu(k,1116) * lu(k,2002)
    5001   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1117) * lu(k,2002)
    5002   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1118) * lu(k,2002)
    5003   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1119) * lu(k,2002)
    5004   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1120) * lu(k,2002)
    5005   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1121) * lu(k,2002)
    5006   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1122) * lu(k,2002)
    5007   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1123) * lu(k,2002)
    5008   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1124) * lu(k,2002)
    5009   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1125) * lu(k,2002)
    5010   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1126) * lu(k,2002)
    5011   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1127) * lu(k,2002)
    5012   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1128) * lu(k,2002)
    5013   141111616 :          lu(k,1135) = 1._r8 / lu(k,1135)
    5014   141111616 :          lu(k,1136) = lu(k,1136) * lu(k,1135)
    5015   141111616 :          lu(k,1137) = lu(k,1137) * lu(k,1135)
    5016   141111616 :          lu(k,1138) = lu(k,1138) * lu(k,1135)
    5017   141111616 :          lu(k,1139) = lu(k,1139) * lu(k,1135)
    5018   141111616 :          lu(k,1140) = lu(k,1140) * lu(k,1135)
    5019   141111616 :          lu(k,1141) = lu(k,1141) * lu(k,1135)
    5020   141111616 :          lu(k,1142) = lu(k,1142) * lu(k,1135)
    5021   141111616 :          lu(k,1143) = lu(k,1143) * lu(k,1135)
    5022   141111616 :          lu(k,1144) = lu(k,1144) * lu(k,1135)
    5023   141111616 :          lu(k,1145) = lu(k,1145) * lu(k,1135)
    5024   141111616 :          lu(k,1146) = lu(k,1146) * lu(k,1135)
    5025   141111616 :          lu(k,1147) = lu(k,1147) * lu(k,1135)
    5026   141111616 :          lu(k,1148) = lu(k,1148) * lu(k,1135)
    5027   141111616 :          lu(k,1182) = lu(k,1182) - lu(k,1136) * lu(k,1181)
    5028   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,1137) * lu(k,1181)
    5029   141111616 :          lu(k,1186) = lu(k,1186) - lu(k,1138) * lu(k,1181)
    5030   141111616 :          lu(k,1187) = lu(k,1187) - lu(k,1139) * lu(k,1181)
    5031   141111616 :          lu(k,1188) = lu(k,1188) - lu(k,1140) * lu(k,1181)
    5032   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,1141) * lu(k,1181)
    5033   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,1142) * lu(k,1181)
    5034   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,1143) * lu(k,1181)
    5035   141111616 :          lu(k,1192) = lu(k,1192) - lu(k,1144) * lu(k,1181)
    5036   141111616 :          lu(k,1193) = lu(k,1193) - lu(k,1145) * lu(k,1181)
    5037   141111616 :          lu(k,1194) = lu(k,1194) - lu(k,1146) * lu(k,1181)
    5038   141111616 :          lu(k,1195) = lu(k,1195) - lu(k,1147) * lu(k,1181)
    5039   141111616 :          lu(k,1196) = lu(k,1196) - lu(k,1148) * lu(k,1181)
    5040   141111616 :          lu(k,1230) = lu(k,1230) - lu(k,1136) * lu(k,1229)
    5041   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1137) * lu(k,1229)
    5042   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1138) * lu(k,1229)
    5043   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1139) * lu(k,1229)
    5044   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1140) * lu(k,1229)
    5045   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1141) * lu(k,1229)
    5046   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1142) * lu(k,1229)
    5047   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1143) * lu(k,1229)
    5048   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1144) * lu(k,1229)
    5049   141111616 :          lu(k,1241) = lu(k,1241) - lu(k,1145) * lu(k,1229)
    5050   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1146) * lu(k,1229)
    5051   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1147) * lu(k,1229)
    5052   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1148) * lu(k,1229)
    5053   141111616 :          lu(k,1314) = lu(k,1314) - lu(k,1136) * lu(k,1313)
    5054   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1137) * lu(k,1313)
    5055   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1138) * lu(k,1313)
    5056   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1139) * lu(k,1313)
    5057   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1140) * lu(k,1313)
    5058   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1141) * lu(k,1313)
    5059   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1142) * lu(k,1313)
    5060   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1143) * lu(k,1313)
    5061   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1144) * lu(k,1313)
    5062   141111616 :          lu(k,1328) = lu(k,1328) - lu(k,1145) * lu(k,1313)
    5063   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1146) * lu(k,1313)
    5064   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1147) * lu(k,1313)
    5065   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1148) * lu(k,1313)
    5066   141111616 :          lu(k,1490) = lu(k,1490) - lu(k,1136) * lu(k,1489)
    5067   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1137) * lu(k,1489)
    5068   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1138) * lu(k,1489)
    5069   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1139) * lu(k,1489)
    5070   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1140) * lu(k,1489)
    5071   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1141) * lu(k,1489)
    5072   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1142) * lu(k,1489)
    5073   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1143) * lu(k,1489)
    5074   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1144) * lu(k,1489)
    5075   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1145) * lu(k,1489)
    5076   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1146) * lu(k,1489)
    5077   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1147) * lu(k,1489)
    5078   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1148) * lu(k,1489)
    5079   141111616 :          lu(k,1673) = lu(k,1673) - lu(k,1136) * lu(k,1672)
    5080   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1137) * lu(k,1672)
    5081   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1138) * lu(k,1672)
    5082   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1139) * lu(k,1672)
    5083   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1140) * lu(k,1672)
    5084   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1141) * lu(k,1672)
    5085   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1142) * lu(k,1672)
    5086   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1143) * lu(k,1672)
    5087   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1144) * lu(k,1672)
    5088   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1145) * lu(k,1672)
    5089   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1146) * lu(k,1672)
    5090   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1147) * lu(k,1672)
    5091   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1148) * lu(k,1672)
    5092   141111616 :          lu(k,1789) = lu(k,1789) - lu(k,1136) * lu(k,1788)
    5093   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1137) * lu(k,1788)
    5094   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1138) * lu(k,1788)
    5095   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1139) * lu(k,1788)
    5096   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1140) * lu(k,1788)
    5097   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1141) * lu(k,1788)
    5098   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1142) * lu(k,1788)
    5099   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1143) * lu(k,1788)
    5100   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1144) * lu(k,1788)
    5101   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1145) * lu(k,1788)
    5102   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1146) * lu(k,1788)
    5103   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1147) * lu(k,1788)
    5104   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1148) * lu(k,1788)
    5105   141111616 :          lu(k,1849) = lu(k,1849) - lu(k,1136) * lu(k,1848)
    5106   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1137) * lu(k,1848)
    5107   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1138) * lu(k,1848)
    5108   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1139) * lu(k,1848)
    5109   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1140) * lu(k,1848)
    5110   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1141) * lu(k,1848)
    5111   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1142) * lu(k,1848)
    5112   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1143) * lu(k,1848)
    5113   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1144) * lu(k,1848)
    5114   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1145) * lu(k,1848)
    5115   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1146) * lu(k,1848)
    5116   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1147) * lu(k,1848)
    5117   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1148) * lu(k,1848)
    5118   141111616 :          lu(k,2004) = lu(k,2004) - lu(k,1136) * lu(k,2003)
    5119   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1137) * lu(k,2003)
    5120   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1138) * lu(k,2003)
    5121   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1139) * lu(k,2003)
    5122   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1140) * lu(k,2003)
    5123   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1141) * lu(k,2003)
    5124   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1142) * lu(k,2003)
    5125   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1143) * lu(k,2003)
    5126   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1144) * lu(k,2003)
    5127   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1145) * lu(k,2003)
    5128   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1146) * lu(k,2003)
    5129   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1147) * lu(k,2003)
    5130   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1148) * lu(k,2003)
    5131   141111616 :          lu(k,1157) = 1._r8 / lu(k,1157)
    5132   141111616 :          lu(k,1158) = lu(k,1158) * lu(k,1157)
    5133   141111616 :          lu(k,1159) = lu(k,1159) * lu(k,1157)
    5134   141111616 :          lu(k,1160) = lu(k,1160) * lu(k,1157)
    5135   141111616 :          lu(k,1161) = lu(k,1161) * lu(k,1157)
    5136   141111616 :          lu(k,1162) = lu(k,1162) * lu(k,1157)
    5137   141111616 :          lu(k,1163) = lu(k,1163) * lu(k,1157)
    5138   141111616 :          lu(k,1164) = lu(k,1164) * lu(k,1157)
    5139   141111616 :          lu(k,1165) = lu(k,1165) * lu(k,1157)
    5140   141111616 :          lu(k,1166) = lu(k,1166) * lu(k,1157)
    5141   141111616 :          lu(k,1167) = lu(k,1167) * lu(k,1157)
    5142   141111616 :          lu(k,1168) = lu(k,1168) * lu(k,1157)
    5143   141111616 :          lu(k,1169) = lu(k,1169) * lu(k,1157)
    5144   141111616 :          lu(k,1184) = lu(k,1184) - lu(k,1158) * lu(k,1182)
    5145   141111616 :          lu(k,1185) = lu(k,1185) - lu(k,1159) * lu(k,1182)
    5146   141111616 :          lu(k,1186) = lu(k,1186) - lu(k,1160) * lu(k,1182)
    5147   141111616 :          lu(k,1187) = lu(k,1187) - lu(k,1161) * lu(k,1182)
    5148   141111616 :          lu(k,1188) = lu(k,1188) - lu(k,1162) * lu(k,1182)
    5149   141111616 :          lu(k,1189) = lu(k,1189) - lu(k,1163) * lu(k,1182)
    5150   141111616 :          lu(k,1190) = lu(k,1190) - lu(k,1164) * lu(k,1182)
    5151   141111616 :          lu(k,1191) = lu(k,1191) - lu(k,1165) * lu(k,1182)
    5152   141111616 :          lu(k,1192) = lu(k,1192) - lu(k,1166) * lu(k,1182)
    5153   141111616 :          lu(k,1194) = lu(k,1194) - lu(k,1167) * lu(k,1182)
    5154   141111616 :          lu(k,1195) = lu(k,1195) - lu(k,1168) * lu(k,1182)
    5155   141111616 :          lu(k,1196) = lu(k,1196) - lu(k,1169) * lu(k,1182)
    5156   141111616 :          lu(k,1232) = lu(k,1232) - lu(k,1158) * lu(k,1230)
    5157   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1159) * lu(k,1230)
    5158   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1160) * lu(k,1230)
    5159   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1161) * lu(k,1230)
    5160   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1162) * lu(k,1230)
    5161   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1163) * lu(k,1230)
    5162   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1164) * lu(k,1230)
    5163   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1165) * lu(k,1230)
    5164   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1166) * lu(k,1230)
    5165   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1167) * lu(k,1230)
    5166   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1168) * lu(k,1230)
    5167   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1169) * lu(k,1230)
    5168   141111616 :          lu(k,1316) = lu(k,1316) - lu(k,1158) * lu(k,1314)
    5169   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1159) * lu(k,1314)
    5170   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1160) * lu(k,1314)
    5171   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1161) * lu(k,1314)
    5172   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1162) * lu(k,1314)
    5173   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1163) * lu(k,1314)
    5174   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1164) * lu(k,1314)
    5175   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1165) * lu(k,1314)
    5176   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1166) * lu(k,1314)
    5177   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1167) * lu(k,1314)
    5178   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1168) * lu(k,1314)
    5179   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1169) * lu(k,1314)
    5180   141111616 :          lu(k,1492) = lu(k,1492) - lu(k,1158) * lu(k,1490)
    5181   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1159) * lu(k,1490)
    5182   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1160) * lu(k,1490)
    5183   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1161) * lu(k,1490)
    5184   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1162) * lu(k,1490)
    5185   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1163) * lu(k,1490)
    5186   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1164) * lu(k,1490)
    5187   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1165) * lu(k,1490)
    5188   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1166) * lu(k,1490)
    5189   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1167) * lu(k,1490)
    5190   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1168) * lu(k,1490)
    5191   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1169) * lu(k,1490)
    5192   141111616 :          lu(k,1675) = lu(k,1675) - lu(k,1158) * lu(k,1673)
    5193   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1159) * lu(k,1673)
    5194   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1160) * lu(k,1673)
    5195   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1161) * lu(k,1673)
    5196   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1162) * lu(k,1673)
    5197   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1163) * lu(k,1673)
    5198   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1164) * lu(k,1673)
    5199   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1165) * lu(k,1673)
    5200   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1166) * lu(k,1673)
    5201   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1167) * lu(k,1673)
    5202   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1168) * lu(k,1673)
    5203   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1169) * lu(k,1673)
    5204   141111616 :          lu(k,1791) = lu(k,1791) - lu(k,1158) * lu(k,1789)
    5205   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1159) * lu(k,1789)
    5206   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1160) * lu(k,1789)
    5207   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1161) * lu(k,1789)
    5208   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1162) * lu(k,1789)
    5209   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1163) * lu(k,1789)
    5210   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1164) * lu(k,1789)
    5211   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1165) * lu(k,1789)
    5212   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1166) * lu(k,1789)
    5213   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1167) * lu(k,1789)
    5214   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1168) * lu(k,1789)
    5215   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1169) * lu(k,1789)
    5216   141111616 :          lu(k,1851) = lu(k,1851) - lu(k,1158) * lu(k,1849)
    5217   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1159) * lu(k,1849)
    5218   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1160) * lu(k,1849)
    5219   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1161) * lu(k,1849)
    5220   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1162) * lu(k,1849)
    5221   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1163) * lu(k,1849)
    5222   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1164) * lu(k,1849)
    5223   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1165) * lu(k,1849)
    5224   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1166) * lu(k,1849)
    5225   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1167) * lu(k,1849)
    5226   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1168) * lu(k,1849)
    5227   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1169) * lu(k,1849)
    5228   141111616 :          lu(k,2006) = lu(k,2006) - lu(k,1158) * lu(k,2004)
    5229   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1159) * lu(k,2004)
    5230   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1160) * lu(k,2004)
    5231   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1161) * lu(k,2004)
    5232   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1162) * lu(k,2004)
    5233   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1163) * lu(k,2004)
    5234   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1164) * lu(k,2004)
    5235   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1165) * lu(k,2004)
    5236   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1166) * lu(k,2004)
    5237   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1167) * lu(k,2004)
    5238   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1168) * lu(k,2004)
    5239   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1169) * lu(k,2004)
    5240   141111616 :          lu(k,1183) = 1._r8 / lu(k,1183)
    5241   141111616 :          lu(k,1184) = lu(k,1184) * lu(k,1183)
    5242   141111616 :          lu(k,1185) = lu(k,1185) * lu(k,1183)
    5243   141111616 :          lu(k,1186) = lu(k,1186) * lu(k,1183)
    5244   141111616 :          lu(k,1187) = lu(k,1187) * lu(k,1183)
    5245   141111616 :          lu(k,1188) = lu(k,1188) * lu(k,1183)
    5246   141111616 :          lu(k,1189) = lu(k,1189) * lu(k,1183)
    5247   141111616 :          lu(k,1190) = lu(k,1190) * lu(k,1183)
    5248   141111616 :          lu(k,1191) = lu(k,1191) * lu(k,1183)
    5249   141111616 :          lu(k,1192) = lu(k,1192) * lu(k,1183)
    5250   141111616 :          lu(k,1193) = lu(k,1193) * lu(k,1183)
    5251   141111616 :          lu(k,1194) = lu(k,1194) * lu(k,1183)
    5252   141111616 :          lu(k,1195) = lu(k,1195) * lu(k,1183)
    5253   141111616 :          lu(k,1196) = lu(k,1196) * lu(k,1183)
    5254   141111616 :          lu(k,1232) = lu(k,1232) - lu(k,1184) * lu(k,1231)
    5255   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1185) * lu(k,1231)
    5256   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1186) * lu(k,1231)
    5257   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1187) * lu(k,1231)
    5258   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1188) * lu(k,1231)
    5259   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1189) * lu(k,1231)
    5260   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1190) * lu(k,1231)
    5261   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1191) * lu(k,1231)
    5262   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1192) * lu(k,1231)
    5263   141111616 :          lu(k,1241) = lu(k,1241) - lu(k,1193) * lu(k,1231)
    5264   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1194) * lu(k,1231)
    5265   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1195) * lu(k,1231)
    5266   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1196) * lu(k,1231)
    5267   141111616 :          lu(k,1316) = lu(k,1316) - lu(k,1184) * lu(k,1315)
    5268   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1185) * lu(k,1315)
    5269   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1186) * lu(k,1315)
    5270   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1187) * lu(k,1315)
    5271   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1188) * lu(k,1315)
    5272   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1189) * lu(k,1315)
    5273   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1190) * lu(k,1315)
    5274   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1191) * lu(k,1315)
    5275   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1192) * lu(k,1315)
    5276   141111616 :          lu(k,1328) = lu(k,1328) - lu(k,1193) * lu(k,1315)
    5277   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1194) * lu(k,1315)
    5278   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1195) * lu(k,1315)
    5279   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1196) * lu(k,1315)
    5280   141111616 :          lu(k,1492) = lu(k,1492) - lu(k,1184) * lu(k,1491)
    5281   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1185) * lu(k,1491)
    5282   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1186) * lu(k,1491)
    5283   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1187) * lu(k,1491)
    5284   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1188) * lu(k,1491)
    5285   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1189) * lu(k,1491)
    5286   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1190) * lu(k,1491)
    5287   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1191) * lu(k,1491)
    5288   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1192) * lu(k,1491)
    5289   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1193) * lu(k,1491)
    5290   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1194) * lu(k,1491)
    5291   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1195) * lu(k,1491)
    5292   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1196) * lu(k,1491)
    5293   141111616 :          lu(k,1675) = lu(k,1675) - lu(k,1184) * lu(k,1674)
    5294   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1185) * lu(k,1674)
    5295   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1186) * lu(k,1674)
    5296   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1187) * lu(k,1674)
    5297   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1188) * lu(k,1674)
    5298   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1189) * lu(k,1674)
    5299   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1190) * lu(k,1674)
    5300   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1191) * lu(k,1674)
    5301   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1192) * lu(k,1674)
    5302   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1193) * lu(k,1674)
    5303   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1194) * lu(k,1674)
    5304   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1195) * lu(k,1674)
    5305   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1196) * lu(k,1674)
    5306   141111616 :          lu(k,1791) = lu(k,1791) - lu(k,1184) * lu(k,1790)
    5307   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1185) * lu(k,1790)
    5308   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1186) * lu(k,1790)
    5309   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1187) * lu(k,1790)
    5310   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1188) * lu(k,1790)
    5311   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1189) * lu(k,1790)
    5312   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1190) * lu(k,1790)
    5313   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1191) * lu(k,1790)
    5314   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1192) * lu(k,1790)
    5315   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1193) * lu(k,1790)
    5316   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1194) * lu(k,1790)
    5317   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1195) * lu(k,1790)
    5318   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1196) * lu(k,1790)
    5319   141111616 :          lu(k,1851) = lu(k,1851) - lu(k,1184) * lu(k,1850)
    5320   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1185) * lu(k,1850)
    5321   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1186) * lu(k,1850)
    5322   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1187) * lu(k,1850)
    5323   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1188) * lu(k,1850)
    5324   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1189) * lu(k,1850)
    5325   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1190) * lu(k,1850)
    5326   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1191) * lu(k,1850)
    5327   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1192) * lu(k,1850)
    5328   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1193) * lu(k,1850)
    5329   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1194) * lu(k,1850)
    5330   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1195) * lu(k,1850)
    5331   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1196) * lu(k,1850)
    5332   141111616 :          lu(k,2006) = lu(k,2006) - lu(k,1184) * lu(k,2005)
    5333   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1185) * lu(k,2005)
    5334   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1186) * lu(k,2005)
    5335   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1187) * lu(k,2005)
    5336   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1188) * lu(k,2005)
    5337   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1189) * lu(k,2005)
    5338   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1190) * lu(k,2005)
    5339   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1191) * lu(k,2005)
    5340   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1192) * lu(k,2005)
    5341   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1193) * lu(k,2005)
    5342   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1194) * lu(k,2005)
    5343   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1195) * lu(k,2005)
    5344   145521354 :          lu(k,2025) = lu(k,2025) - lu(k,1196) * lu(k,2005)
    5345             :       end do
    5346     4409738 :       end subroutine lu_fac23
    5347     4409738 :       subroutine lu_fac24( avec_len, lu )
    5348             :       use chem_mods, only : nzcnt
    5349             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5350             :       implicit none
    5351             : !-----------------------------------------------------------------------
    5352             : ! ... dummy args
    5353             : !-----------------------------------------------------------------------
    5354             :       integer, intent(in) :: avec_len
    5355             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5356             : !-----------------------------------------------------------------------
    5357             : ! ... local variables
    5358             : !-----------------------------------------------------------------------
    5359             :       integer :: k
    5360   145521354 :       do k = 1,avec_len
    5361   141111616 :          lu(k,1202) = 1._r8 / lu(k,1202)
    5362   141111616 :          lu(k,1203) = lu(k,1203) * lu(k,1202)
    5363   141111616 :          lu(k,1204) = lu(k,1204) * lu(k,1202)
    5364   141111616 :          lu(k,1205) = lu(k,1205) * lu(k,1202)
    5365   141111616 :          lu(k,1206) = lu(k,1206) * lu(k,1202)
    5366   141111616 :          lu(k,1207) = lu(k,1207) * lu(k,1202)
    5367   141111616 :          lu(k,1208) = lu(k,1208) * lu(k,1202)
    5368   141111616 :          lu(k,1209) = lu(k,1209) * lu(k,1202)
    5369   141111616 :          lu(k,1210) = lu(k,1210) * lu(k,1202)
    5370   141111616 :          lu(k,1211) = lu(k,1211) * lu(k,1202)
    5371   141111616 :          lu(k,1212) = lu(k,1212) * lu(k,1202)
    5372   141111616 :          lu(k,1213) = lu(k,1213) * lu(k,1202)
    5373   141111616 :          lu(k,1214) = lu(k,1214) * lu(k,1202)
    5374   141111616 :          lu(k,1233) = lu(k,1233) - lu(k,1203) * lu(k,1232)
    5375   141111616 :          lu(k,1234) = lu(k,1234) - lu(k,1204) * lu(k,1232)
    5376   141111616 :          lu(k,1235) = lu(k,1235) - lu(k,1205) * lu(k,1232)
    5377   141111616 :          lu(k,1236) = lu(k,1236) - lu(k,1206) * lu(k,1232)
    5378   141111616 :          lu(k,1237) = lu(k,1237) - lu(k,1207) * lu(k,1232)
    5379   141111616 :          lu(k,1238) = lu(k,1238) - lu(k,1208) * lu(k,1232)
    5380   141111616 :          lu(k,1239) = lu(k,1239) - lu(k,1209) * lu(k,1232)
    5381   141111616 :          lu(k,1240) = lu(k,1240) - lu(k,1210) * lu(k,1232)
    5382   141111616 :          lu(k,1241) = lu(k,1241) - lu(k,1211) * lu(k,1232)
    5383   141111616 :          lu(k,1242) = lu(k,1242) - lu(k,1212) * lu(k,1232)
    5384   141111616 :          lu(k,1243) = lu(k,1243) - lu(k,1213) * lu(k,1232)
    5385   141111616 :          lu(k,1244) = lu(k,1244) - lu(k,1214) * lu(k,1232)
    5386   141111616 :          lu(k,1317) = lu(k,1317) - lu(k,1203) * lu(k,1316)
    5387   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1204) * lu(k,1316)
    5388   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1205) * lu(k,1316)
    5389   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1206) * lu(k,1316)
    5390   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1207) * lu(k,1316)
    5391   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1208) * lu(k,1316)
    5392   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1209) * lu(k,1316)
    5393   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1210) * lu(k,1316)
    5394   141111616 :          lu(k,1328) = lu(k,1328) - lu(k,1211) * lu(k,1316)
    5395   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1212) * lu(k,1316)
    5396   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1213) * lu(k,1316)
    5397   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1214) * lu(k,1316)
    5398   141111616 :          lu(k,1493) = lu(k,1493) - lu(k,1203) * lu(k,1492)
    5399   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1204) * lu(k,1492)
    5400   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1205) * lu(k,1492)
    5401   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1206) * lu(k,1492)
    5402   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1207) * lu(k,1492)
    5403   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1208) * lu(k,1492)
    5404   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1209) * lu(k,1492)
    5405   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1210) * lu(k,1492)
    5406   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1211) * lu(k,1492)
    5407   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1212) * lu(k,1492)
    5408   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1213) * lu(k,1492)
    5409   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1214) * lu(k,1492)
    5410   141111616 :          lu(k,1676) = lu(k,1676) - lu(k,1203) * lu(k,1675)
    5411   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1204) * lu(k,1675)
    5412   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1205) * lu(k,1675)
    5413   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1206) * lu(k,1675)
    5414   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1207) * lu(k,1675)
    5415   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1208) * lu(k,1675)
    5416   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1209) * lu(k,1675)
    5417   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1210) * lu(k,1675)
    5418   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1211) * lu(k,1675)
    5419   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1212) * lu(k,1675)
    5420   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1213) * lu(k,1675)
    5421   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1214) * lu(k,1675)
    5422   141111616 :          lu(k,1792) = lu(k,1792) - lu(k,1203) * lu(k,1791)
    5423   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1204) * lu(k,1791)
    5424   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1205) * lu(k,1791)
    5425   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1206) * lu(k,1791)
    5426   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1207) * lu(k,1791)
    5427   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1208) * lu(k,1791)
    5428   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1209) * lu(k,1791)
    5429   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1210) * lu(k,1791)
    5430   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1211) * lu(k,1791)
    5431   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1212) * lu(k,1791)
    5432   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1213) * lu(k,1791)
    5433   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1214) * lu(k,1791)
    5434   141111616 :          lu(k,1852) = lu(k,1852) - lu(k,1203) * lu(k,1851)
    5435   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1204) * lu(k,1851)
    5436   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1205) * lu(k,1851)
    5437   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1206) * lu(k,1851)
    5438   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1207) * lu(k,1851)
    5439   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1208) * lu(k,1851)
    5440   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1209) * lu(k,1851)
    5441   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1210) * lu(k,1851)
    5442   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1211) * lu(k,1851)
    5443   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1212) * lu(k,1851)
    5444   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1213) * lu(k,1851)
    5445   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1214) * lu(k,1851)
    5446   141111616 :          lu(k,1893) = lu(k,1893) - lu(k,1203) * lu(k,1892)
    5447   141111616 :          lu(k,1895) = lu(k,1895) - lu(k,1204) * lu(k,1892)
    5448   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,1205) * lu(k,1892)
    5449   141111616 :          lu(k,1897) = lu(k,1897) - lu(k,1206) * lu(k,1892)
    5450   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1207) * lu(k,1892)
    5451   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1208) * lu(k,1892)
    5452   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1209) * lu(k,1892)
    5453   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1210) * lu(k,1892)
    5454   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1211) * lu(k,1892)
    5455   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1212) * lu(k,1892)
    5456   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1213) * lu(k,1892)
    5457   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1214) * lu(k,1892)
    5458   141111616 :          lu(k,2007) = lu(k,2007) - lu(k,1203) * lu(k,2006)
    5459   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1204) * lu(k,2006)
    5460   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1205) * lu(k,2006)
    5461   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1206) * lu(k,2006)
    5462   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1207) * lu(k,2006)
    5463   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1208) * lu(k,2006)
    5464   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1209) * lu(k,2006)
    5465   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1210) * lu(k,2006)
    5466   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1211) * lu(k,2006)
    5467   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1212) * lu(k,2006)
    5468   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1213) * lu(k,2006)
    5469   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1214) * lu(k,2006)
    5470   141111616 :          lu(k,1233) = 1._r8 / lu(k,1233)
    5471   141111616 :          lu(k,1234) = lu(k,1234) * lu(k,1233)
    5472   141111616 :          lu(k,1235) = lu(k,1235) * lu(k,1233)
    5473   141111616 :          lu(k,1236) = lu(k,1236) * lu(k,1233)
    5474   141111616 :          lu(k,1237) = lu(k,1237) * lu(k,1233)
    5475   141111616 :          lu(k,1238) = lu(k,1238) * lu(k,1233)
    5476   141111616 :          lu(k,1239) = lu(k,1239) * lu(k,1233)
    5477   141111616 :          lu(k,1240) = lu(k,1240) * lu(k,1233)
    5478   141111616 :          lu(k,1241) = lu(k,1241) * lu(k,1233)
    5479   141111616 :          lu(k,1242) = lu(k,1242) * lu(k,1233)
    5480   141111616 :          lu(k,1243) = lu(k,1243) * lu(k,1233)
    5481   141111616 :          lu(k,1244) = lu(k,1244) * lu(k,1233)
    5482   141111616 :          lu(k,1318) = lu(k,1318) - lu(k,1234) * lu(k,1317)
    5483   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1235) * lu(k,1317)
    5484   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1236) * lu(k,1317)
    5485   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1237) * lu(k,1317)
    5486   141111616 :          lu(k,1323) = lu(k,1323) - lu(k,1238) * lu(k,1317)
    5487   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1239) * lu(k,1317)
    5488   141111616 :          lu(k,1327) = lu(k,1327) - lu(k,1240) * lu(k,1317)
    5489   141111616 :          lu(k,1328) = lu(k,1328) - lu(k,1241) * lu(k,1317)
    5490   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1242) * lu(k,1317)
    5491   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1243) * lu(k,1317)
    5492   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1244) * lu(k,1317)
    5493   141111616 :          lu(k,1495) = lu(k,1495) - lu(k,1234) * lu(k,1493)
    5494   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1235) * lu(k,1493)
    5495   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1236) * lu(k,1493)
    5496   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1237) * lu(k,1493)
    5497   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1238) * lu(k,1493)
    5498   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1239) * lu(k,1493)
    5499   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1240) * lu(k,1493)
    5500   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1241) * lu(k,1493)
    5501   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1242) * lu(k,1493)
    5502   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1243) * lu(k,1493)
    5503   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1244) * lu(k,1493)
    5504   141111616 :          lu(k,1678) = lu(k,1678) - lu(k,1234) * lu(k,1676)
    5505   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1235) * lu(k,1676)
    5506   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1236) * lu(k,1676)
    5507   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1237) * lu(k,1676)
    5508   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1238) * lu(k,1676)
    5509   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1239) * lu(k,1676)
    5510   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1240) * lu(k,1676)
    5511   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1241) * lu(k,1676)
    5512   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1242) * lu(k,1676)
    5513   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1243) * lu(k,1676)
    5514   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1244) * lu(k,1676)
    5515   141111616 :          lu(k,1794) = lu(k,1794) - lu(k,1234) * lu(k,1792)
    5516   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1235) * lu(k,1792)
    5517   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1236) * lu(k,1792)
    5518   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1237) * lu(k,1792)
    5519   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1238) * lu(k,1792)
    5520   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1239) * lu(k,1792)
    5521   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1240) * lu(k,1792)
    5522   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1241) * lu(k,1792)
    5523   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1242) * lu(k,1792)
    5524   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1243) * lu(k,1792)
    5525   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1244) * lu(k,1792)
    5526   141111616 :          lu(k,1854) = lu(k,1854) - lu(k,1234) * lu(k,1852)
    5527   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1235) * lu(k,1852)
    5528   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1236) * lu(k,1852)
    5529   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1237) * lu(k,1852)
    5530   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1238) * lu(k,1852)
    5531   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1239) * lu(k,1852)
    5532   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1240) * lu(k,1852)
    5533   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1241) * lu(k,1852)
    5534   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1242) * lu(k,1852)
    5535   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1243) * lu(k,1852)
    5536   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1244) * lu(k,1852)
    5537   141111616 :          lu(k,1895) = lu(k,1895) - lu(k,1234) * lu(k,1893)
    5538   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,1235) * lu(k,1893)
    5539   141111616 :          lu(k,1897) = lu(k,1897) - lu(k,1236) * lu(k,1893)
    5540   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1237) * lu(k,1893)
    5541   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1238) * lu(k,1893)
    5542   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1239) * lu(k,1893)
    5543   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1240) * lu(k,1893)
    5544   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1241) * lu(k,1893)
    5545   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1242) * lu(k,1893)
    5546   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1243) * lu(k,1893)
    5547   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1244) * lu(k,1893)
    5548   141111616 :          lu(k,1952) = lu(k,1952) - lu(k,1234) * lu(k,1950)
    5549   141111616 :          lu(k,1953) = lu(k,1953) - lu(k,1235) * lu(k,1950)
    5550   141111616 :          lu(k,1954) = lu(k,1954) - lu(k,1236) * lu(k,1950)
    5551   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1237) * lu(k,1950)
    5552   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,1238) * lu(k,1950)
    5553   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1239) * lu(k,1950)
    5554   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1240) * lu(k,1950)
    5555   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1241) * lu(k,1950)
    5556   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1242) * lu(k,1950)
    5557   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1243) * lu(k,1950)
    5558   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1244) * lu(k,1950)
    5559   141111616 :          lu(k,2009) = lu(k,2009) - lu(k,1234) * lu(k,2007)
    5560   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1235) * lu(k,2007)
    5561   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1236) * lu(k,2007)
    5562   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1237) * lu(k,2007)
    5563   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1238) * lu(k,2007)
    5564   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1239) * lu(k,2007)
    5565   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1240) * lu(k,2007)
    5566   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1241) * lu(k,2007)
    5567   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1242) * lu(k,2007)
    5568   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1243) * lu(k,2007)
    5569   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1244) * lu(k,2007)
    5570   141111616 :          lu(k,1247) = 1._r8 / lu(k,1247)
    5571   141111616 :          lu(k,1248) = lu(k,1248) * lu(k,1247)
    5572   141111616 :          lu(k,1249) = lu(k,1249) * lu(k,1247)
    5573   141111616 :          lu(k,1250) = lu(k,1250) * lu(k,1247)
    5574   141111616 :          lu(k,1251) = lu(k,1251) * lu(k,1247)
    5575   141111616 :          lu(k,1252) = lu(k,1252) * lu(k,1247)
    5576   141111616 :          lu(k,1253) = lu(k,1253) * lu(k,1247)
    5577   141111616 :          lu(k,1254) = lu(k,1254) * lu(k,1247)
    5578   141111616 :          lu(k,1255) = lu(k,1255) * lu(k,1247)
    5579   141111616 :          lu(k,1256) = lu(k,1256) * lu(k,1247)
    5580   141111616 :          lu(k,1342) = lu(k,1342) - lu(k,1248) * lu(k,1340)
    5581   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,1249) * lu(k,1340)
    5582   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,1250) * lu(k,1340)
    5583   141111616 :          lu(k,1346) = lu(k,1346) - lu(k,1251) * lu(k,1340)
    5584   141111616 :          lu(k,1347) = lu(k,1347) - lu(k,1252) * lu(k,1340)
    5585   141111616 :          lu(k,1348) = lu(k,1348) - lu(k,1253) * lu(k,1340)
    5586   141111616 :          lu(k,1349) = lu(k,1349) - lu(k,1254) * lu(k,1340)
    5587   141111616 :          lu(k,1352) = lu(k,1352) - lu(k,1255) * lu(k,1340)
    5588   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,1256) * lu(k,1340)
    5589   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1248) * lu(k,1494)
    5590   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,1249) * lu(k,1494)
    5591   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1250) * lu(k,1494)
    5592   141111616 :          lu(k,1500) = lu(k,1500) - lu(k,1251) * lu(k,1494)
    5593   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1252) * lu(k,1494)
    5594   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1253) * lu(k,1494)
    5595   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1254) * lu(k,1494)
    5596   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1255) * lu(k,1494)
    5597   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1256) * lu(k,1494)
    5598   141111616 :          lu(k,1520) = lu(k,1520) - lu(k,1248) * lu(k,1518)
    5599   141111616 :          lu(k,1522) = - lu(k,1249) * lu(k,1518)
    5600   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,1250) * lu(k,1518)
    5601   141111616 :          lu(k,1524) = lu(k,1524) - lu(k,1251) * lu(k,1518)
    5602   141111616 :          lu(k,1525) = - lu(k,1252) * lu(k,1518)
    5603   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1253) * lu(k,1518)
    5604   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,1254) * lu(k,1518)
    5605   141111616 :          lu(k,1530) = lu(k,1530) - lu(k,1255) * lu(k,1518)
    5606   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1256) * lu(k,1518)
    5607   141111616 :          lu(k,1543) = lu(k,1543) - lu(k,1248) * lu(k,1541)
    5608   141111616 :          lu(k,1545) = lu(k,1545) - lu(k,1249) * lu(k,1541)
    5609   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,1250) * lu(k,1541)
    5610   141111616 :          lu(k,1547) = lu(k,1547) - lu(k,1251) * lu(k,1541)
    5611   141111616 :          lu(k,1548) = lu(k,1548) - lu(k,1252) * lu(k,1541)
    5612   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1253) * lu(k,1541)
    5613   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,1254) * lu(k,1541)
    5614   141111616 :          lu(k,1553) = - lu(k,1255) * lu(k,1541)
    5615   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1256) * lu(k,1541)
    5616   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,1248) * lu(k,1571)
    5617   141111616 :          lu(k,1575) = lu(k,1575) - lu(k,1249) * lu(k,1571)
    5618   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1250) * lu(k,1571)
    5619   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,1251) * lu(k,1571)
    5620   141111616 :          lu(k,1578) = lu(k,1578) - lu(k,1252) * lu(k,1571)
    5621   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1253) * lu(k,1571)
    5622   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1254) * lu(k,1571)
    5623   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1255) * lu(k,1571)
    5624   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1256) * lu(k,1571)
    5625   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1248) * lu(k,1677)
    5626   141111616 :          lu(k,1681) = lu(k,1681) - lu(k,1249) * lu(k,1677)
    5627   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1250) * lu(k,1677)
    5628   141111616 :          lu(k,1683) = lu(k,1683) - lu(k,1251) * lu(k,1677)
    5629   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1252) * lu(k,1677)
    5630   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1253) * lu(k,1677)
    5631   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1254) * lu(k,1677)
    5632   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1255) * lu(k,1677)
    5633   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1256) * lu(k,1677)
    5634   141111616 :          lu(k,1705) = lu(k,1705) - lu(k,1248) * lu(k,1703)
    5635   141111616 :          lu(k,1707) = - lu(k,1249) * lu(k,1703)
    5636   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,1250) * lu(k,1703)
    5637   141111616 :          lu(k,1709) = lu(k,1709) - lu(k,1251) * lu(k,1703)
    5638   141111616 :          lu(k,1710) = lu(k,1710) - lu(k,1252) * lu(k,1703)
    5639   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1253) * lu(k,1703)
    5640   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1254) * lu(k,1703)
    5641   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1255) * lu(k,1703)
    5642   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1256) * lu(k,1703)
    5643   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1248) * lu(k,1793)
    5644   141111616 :          lu(k,1797) = - lu(k,1249) * lu(k,1793)
    5645   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1250) * lu(k,1793)
    5646   141111616 :          lu(k,1799) = lu(k,1799) - lu(k,1251) * lu(k,1793)
    5647   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1252) * lu(k,1793)
    5648   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1253) * lu(k,1793)
    5649   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1254) * lu(k,1793)
    5650   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1255) * lu(k,1793)
    5651   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1256) * lu(k,1793)
    5652   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1248) * lu(k,1853)
    5653   141111616 :          lu(k,1857) = lu(k,1857) - lu(k,1249) * lu(k,1853)
    5654   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1250) * lu(k,1853)
    5655   141111616 :          lu(k,1859) = lu(k,1859) - lu(k,1251) * lu(k,1853)
    5656   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1252) * lu(k,1853)
    5657   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1253) * lu(k,1853)
    5658   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1254) * lu(k,1853)
    5659   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1255) * lu(k,1853)
    5660   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1256) * lu(k,1853)
    5661   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,1248) * lu(k,1894)
    5662   141111616 :          lu(k,1898) = - lu(k,1249) * lu(k,1894)
    5663   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1250) * lu(k,1894)
    5664   141111616 :          lu(k,1900) = lu(k,1900) - lu(k,1251) * lu(k,1894)
    5665   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1252) * lu(k,1894)
    5666   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1253) * lu(k,1894)
    5667   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1254) * lu(k,1894)
    5668   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1255) * lu(k,1894)
    5669   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1256) * lu(k,1894)
    5670   141111616 :          lu(k,1919) = lu(k,1919) - lu(k,1248) * lu(k,1917)
    5671   141111616 :          lu(k,1921) = lu(k,1921) - lu(k,1249) * lu(k,1917)
    5672   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,1250) * lu(k,1917)
    5673   141111616 :          lu(k,1923) = lu(k,1923) - lu(k,1251) * lu(k,1917)
    5674   141111616 :          lu(k,1924) = - lu(k,1252) * lu(k,1917)
    5675   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1253) * lu(k,1917)
    5676   141111616 :          lu(k,1926) = - lu(k,1254) * lu(k,1917)
    5677   141111616 :          lu(k,1929) = - lu(k,1255) * lu(k,1917)
    5678   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1256) * lu(k,1917)
    5679   141111616 :          lu(k,1953) = lu(k,1953) - lu(k,1248) * lu(k,1951)
    5680   141111616 :          lu(k,1955) = lu(k,1955) - lu(k,1249) * lu(k,1951)
    5681   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1250) * lu(k,1951)
    5682   141111616 :          lu(k,1957) = - lu(k,1251) * lu(k,1951)
    5683   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,1252) * lu(k,1951)
    5684   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1253) * lu(k,1951)
    5685   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1254) * lu(k,1951)
    5686   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1255) * lu(k,1951)
    5687   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1256) * lu(k,1951)
    5688   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1248) * lu(k,2008)
    5689   141111616 :          lu(k,2012) = - lu(k,1249) * lu(k,2008)
    5690   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1250) * lu(k,2008)
    5691   141111616 :          lu(k,2014) = lu(k,2014) - lu(k,1251) * lu(k,2008)
    5692   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1252) * lu(k,2008)
    5693   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1253) * lu(k,2008)
    5694   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1254) * lu(k,2008)
    5695   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1255) * lu(k,2008)
    5696   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1256) * lu(k,2008)
    5697   141111616 :          lu(k,2035) = lu(k,2035) - lu(k,1248) * lu(k,2033)
    5698   141111616 :          lu(k,2037) = lu(k,2037) - lu(k,1249) * lu(k,2033)
    5699   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1250) * lu(k,2033)
    5700   141111616 :          lu(k,2039) = lu(k,2039) - lu(k,1251) * lu(k,2033)
    5701   141111616 :          lu(k,2040) = - lu(k,1252) * lu(k,2033)
    5702   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1253) * lu(k,2033)
    5703   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1254) * lu(k,2033)
    5704   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1255) * lu(k,2033)
    5705   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1256) * lu(k,2033)
    5706   141111616 :          lu(k,1260) = 1._r8 / lu(k,1260)
    5707   141111616 :          lu(k,1261) = lu(k,1261) * lu(k,1260)
    5708   141111616 :          lu(k,1262) = lu(k,1262) * lu(k,1260)
    5709   141111616 :          lu(k,1263) = lu(k,1263) * lu(k,1260)
    5710   141111616 :          lu(k,1264) = lu(k,1264) * lu(k,1260)
    5711   141111616 :          lu(k,1265) = lu(k,1265) * lu(k,1260)
    5712   141111616 :          lu(k,1266) = lu(k,1266) * lu(k,1260)
    5713   141111616 :          lu(k,1267) = lu(k,1267) * lu(k,1260)
    5714   141111616 :          lu(k,1268) = lu(k,1268) * lu(k,1260)
    5715   141111616 :          lu(k,1269) = lu(k,1269) * lu(k,1260)
    5716   141111616 :          lu(k,1270) = lu(k,1270) * lu(k,1260)
    5717   141111616 :          lu(k,1273) = lu(k,1273) - lu(k,1261) * lu(k,1272)
    5718   141111616 :          lu(k,1274) = lu(k,1274) - lu(k,1262) * lu(k,1272)
    5719   141111616 :          lu(k,1275) = lu(k,1275) - lu(k,1263) * lu(k,1272)
    5720   141111616 :          lu(k,1276) = lu(k,1276) - lu(k,1264) * lu(k,1272)
    5721   141111616 :          lu(k,1277) = lu(k,1277) - lu(k,1265) * lu(k,1272)
    5722   141111616 :          lu(k,1280) = - lu(k,1266) * lu(k,1272)
    5723   141111616 :          lu(k,1281) = lu(k,1281) - lu(k,1267) * lu(k,1272)
    5724   141111616 :          lu(k,1282) = lu(k,1282) - lu(k,1268) * lu(k,1272)
    5725   141111616 :          lu(k,1283) = lu(k,1283) - lu(k,1269) * lu(k,1272)
    5726   141111616 :          lu(k,1284) = lu(k,1284) - lu(k,1270) * lu(k,1272)
    5727   141111616 :          lu(k,1319) = lu(k,1319) - lu(k,1261) * lu(k,1318)
    5728   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1262) * lu(k,1318)
    5729   141111616 :          lu(k,1321) = - lu(k,1263) * lu(k,1318)
    5730   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1264) * lu(k,1318)
    5731   141111616 :          lu(k,1324) = - lu(k,1265) * lu(k,1318)
    5732   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1266) * lu(k,1318)
    5733   141111616 :          lu(k,1330) = - lu(k,1267) * lu(k,1318)
    5734   141111616 :          lu(k,1331) = lu(k,1331) - lu(k,1268) * lu(k,1318)
    5735   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1269) * lu(k,1318)
    5736   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1270) * lu(k,1318)
    5737   141111616 :          lu(k,1342) = lu(k,1342) - lu(k,1261) * lu(k,1341)
    5738   141111616 :          lu(k,1343) = lu(k,1343) - lu(k,1262) * lu(k,1341)
    5739   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,1263) * lu(k,1341)
    5740   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,1264) * lu(k,1341)
    5741   141111616 :          lu(k,1348) = lu(k,1348) - lu(k,1265) * lu(k,1341)
    5742   141111616 :          lu(k,1353) = - lu(k,1266) * lu(k,1341)
    5743   141111616 :          lu(k,1354) = lu(k,1354) - lu(k,1267) * lu(k,1341)
    5744   141111616 :          lu(k,1355) = lu(k,1355) - lu(k,1268) * lu(k,1341)
    5745   141111616 :          lu(k,1356) = lu(k,1356) - lu(k,1269) * lu(k,1341)
    5746   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,1270) * lu(k,1341)
    5747   141111616 :          lu(k,1496) = lu(k,1496) - lu(k,1261) * lu(k,1495)
    5748   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1262) * lu(k,1495)
    5749   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,1263) * lu(k,1495)
    5750   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1264) * lu(k,1495)
    5751   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1265) * lu(k,1495)
    5752   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1266) * lu(k,1495)
    5753   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,1267) * lu(k,1495)
    5754   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,1268) * lu(k,1495)
    5755   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1269) * lu(k,1495)
    5756   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1270) * lu(k,1495)
    5757   141111616 :          lu(k,1520) = lu(k,1520) - lu(k,1261) * lu(k,1519)
    5758   141111616 :          lu(k,1521) = - lu(k,1262) * lu(k,1519)
    5759   141111616 :          lu(k,1522) = lu(k,1522) - lu(k,1263) * lu(k,1519)
    5760   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,1264) * lu(k,1519)
    5761   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1265) * lu(k,1519)
    5762   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,1266) * lu(k,1519)
    5763   141111616 :          lu(k,1532) = lu(k,1532) - lu(k,1267) * lu(k,1519)
    5764   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,1268) * lu(k,1519)
    5765   141111616 :          lu(k,1534) = lu(k,1534) - lu(k,1269) * lu(k,1519)
    5766   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1270) * lu(k,1519)
    5767   141111616 :          lu(k,1543) = lu(k,1543) - lu(k,1261) * lu(k,1542)
    5768   141111616 :          lu(k,1544) = lu(k,1544) - lu(k,1262) * lu(k,1542)
    5769   141111616 :          lu(k,1545) = lu(k,1545) - lu(k,1263) * lu(k,1542)
    5770   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,1264) * lu(k,1542)
    5771   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1265) * lu(k,1542)
    5772   141111616 :          lu(k,1554) = lu(k,1554) - lu(k,1266) * lu(k,1542)
    5773   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1267) * lu(k,1542)
    5774   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1268) * lu(k,1542)
    5775   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1269) * lu(k,1542)
    5776   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1270) * lu(k,1542)
    5777   141111616 :          lu(k,1573) = lu(k,1573) - lu(k,1261) * lu(k,1572)
    5778   141111616 :          lu(k,1574) = lu(k,1574) - lu(k,1262) * lu(k,1572)
    5779   141111616 :          lu(k,1575) = lu(k,1575) - lu(k,1263) * lu(k,1572)
    5780   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1264) * lu(k,1572)
    5781   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1265) * lu(k,1572)
    5782   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1266) * lu(k,1572)
    5783   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1267) * lu(k,1572)
    5784   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1268) * lu(k,1572)
    5785   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1269) * lu(k,1572)
    5786   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1270) * lu(k,1572)
    5787   141111616 :          lu(k,1679) = lu(k,1679) - lu(k,1261) * lu(k,1678)
    5788   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1262) * lu(k,1678)
    5789   141111616 :          lu(k,1681) = lu(k,1681) - lu(k,1263) * lu(k,1678)
    5790   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1264) * lu(k,1678)
    5791   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1265) * lu(k,1678)
    5792   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1266) * lu(k,1678)
    5793   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1267) * lu(k,1678)
    5794   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1268) * lu(k,1678)
    5795   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1269) * lu(k,1678)
    5796   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1270) * lu(k,1678)
    5797   141111616 :          lu(k,1705) = lu(k,1705) - lu(k,1261) * lu(k,1704)
    5798   141111616 :          lu(k,1706) = lu(k,1706) - lu(k,1262) * lu(k,1704)
    5799   141111616 :          lu(k,1707) = lu(k,1707) - lu(k,1263) * lu(k,1704)
    5800   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,1264) * lu(k,1704)
    5801   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1265) * lu(k,1704)
    5802   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1266) * lu(k,1704)
    5803   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1267) * lu(k,1704)
    5804   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1268) * lu(k,1704)
    5805   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1269) * lu(k,1704)
    5806   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1270) * lu(k,1704)
    5807   141111616 :          lu(k,1795) = lu(k,1795) - lu(k,1261) * lu(k,1794)
    5808   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1262) * lu(k,1794)
    5809   141111616 :          lu(k,1797) = lu(k,1797) - lu(k,1263) * lu(k,1794)
    5810   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1264) * lu(k,1794)
    5811   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1265) * lu(k,1794)
    5812   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1266) * lu(k,1794)
    5813   141111616 :          lu(k,1807) = - lu(k,1267) * lu(k,1794)
    5814   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1268) * lu(k,1794)
    5815   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1269) * lu(k,1794)
    5816   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1270) * lu(k,1794)
    5817   141111616 :          lu(k,1855) = lu(k,1855) - lu(k,1261) * lu(k,1854)
    5818   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1262) * lu(k,1854)
    5819   141111616 :          lu(k,1857) = lu(k,1857) - lu(k,1263) * lu(k,1854)
    5820   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1264) * lu(k,1854)
    5821   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1265) * lu(k,1854)
    5822   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1266) * lu(k,1854)
    5823   141111616 :          lu(k,1867) = - lu(k,1267) * lu(k,1854)
    5824   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1268) * lu(k,1854)
    5825   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1269) * lu(k,1854)
    5826   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1270) * lu(k,1854)
    5827   141111616 :          lu(k,1896) = lu(k,1896) - lu(k,1261) * lu(k,1895)
    5828   141111616 :          lu(k,1897) = lu(k,1897) - lu(k,1262) * lu(k,1895)
    5829   141111616 :          lu(k,1898) = lu(k,1898) - lu(k,1263) * lu(k,1895)
    5830   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1264) * lu(k,1895)
    5831   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1265) * lu(k,1895)
    5832   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1266) * lu(k,1895)
    5833   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1267) * lu(k,1895)
    5834   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1268) * lu(k,1895)
    5835   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1269) * lu(k,1895)
    5836   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1270) * lu(k,1895)
    5837   141111616 :          lu(k,1919) = lu(k,1919) - lu(k,1261) * lu(k,1918)
    5838   141111616 :          lu(k,1920) = - lu(k,1262) * lu(k,1918)
    5839   141111616 :          lu(k,1921) = lu(k,1921) - lu(k,1263) * lu(k,1918)
    5840   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,1264) * lu(k,1918)
    5841   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1265) * lu(k,1918)
    5842   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1266) * lu(k,1918)
    5843   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1267) * lu(k,1918)
    5844   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1268) * lu(k,1918)
    5845   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1269) * lu(k,1918)
    5846   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1270) * lu(k,1918)
    5847   141111616 :          lu(k,1953) = lu(k,1953) - lu(k,1261) * lu(k,1952)
    5848   141111616 :          lu(k,1954) = lu(k,1954) - lu(k,1262) * lu(k,1952)
    5849   141111616 :          lu(k,1955) = lu(k,1955) - lu(k,1263) * lu(k,1952)
    5850   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1264) * lu(k,1952)
    5851   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1265) * lu(k,1952)
    5852   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1266) * lu(k,1952)
    5853   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1267) * lu(k,1952)
    5854   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1268) * lu(k,1952)
    5855   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1269) * lu(k,1952)
    5856   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1270) * lu(k,1952)
    5857   141111616 :          lu(k,2010) = lu(k,2010) - lu(k,1261) * lu(k,2009)
    5858   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1262) * lu(k,2009)
    5859   141111616 :          lu(k,2012) = lu(k,2012) - lu(k,1263) * lu(k,2009)
    5860   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1264) * lu(k,2009)
    5861   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1265) * lu(k,2009)
    5862   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1266) * lu(k,2009)
    5863   141111616 :          lu(k,2022) = - lu(k,1267) * lu(k,2009)
    5864   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1268) * lu(k,2009)
    5865   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1269) * lu(k,2009)
    5866   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1270) * lu(k,2009)
    5867   141111616 :          lu(k,2035) = lu(k,2035) - lu(k,1261) * lu(k,2034)
    5868   141111616 :          lu(k,2036) = lu(k,2036) - lu(k,1262) * lu(k,2034)
    5869   141111616 :          lu(k,2037) = lu(k,2037) - lu(k,1263) * lu(k,2034)
    5870   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1264) * lu(k,2034)
    5871   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1265) * lu(k,2034)
    5872   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1266) * lu(k,2034)
    5873   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1267) * lu(k,2034)
    5874   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1268) * lu(k,2034)
    5875   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1269) * lu(k,2034)
    5876   145521354 :          lu(k,2050) = lu(k,2050) - lu(k,1270) * lu(k,2034)
    5877             :       end do
    5878     4409738 :       end subroutine lu_fac24
    5879     4409738 :       subroutine lu_fac25( avec_len, lu )
    5880             :       use chem_mods, only : nzcnt
    5881             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5882             :       implicit none
    5883             : !-----------------------------------------------------------------------
    5884             : ! ... dummy args
    5885             : !-----------------------------------------------------------------------
    5886             :       integer, intent(in) :: avec_len
    5887             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5888             : !-----------------------------------------------------------------------
    5889             : ! ... local variables
    5890             : !-----------------------------------------------------------------------
    5891             :       integer :: k
    5892   145521354 :       do k = 1,avec_len
    5893   141111616 :          lu(k,1273) = 1._r8 / lu(k,1273)
    5894   141111616 :          lu(k,1274) = lu(k,1274) * lu(k,1273)
    5895   141111616 :          lu(k,1275) = lu(k,1275) * lu(k,1273)
    5896   141111616 :          lu(k,1276) = lu(k,1276) * lu(k,1273)
    5897   141111616 :          lu(k,1277) = lu(k,1277) * lu(k,1273)
    5898   141111616 :          lu(k,1278) = lu(k,1278) * lu(k,1273)
    5899   141111616 :          lu(k,1279) = lu(k,1279) * lu(k,1273)
    5900   141111616 :          lu(k,1280) = lu(k,1280) * lu(k,1273)
    5901   141111616 :          lu(k,1281) = lu(k,1281) * lu(k,1273)
    5902   141111616 :          lu(k,1282) = lu(k,1282) * lu(k,1273)
    5903   141111616 :          lu(k,1283) = lu(k,1283) * lu(k,1273)
    5904   141111616 :          lu(k,1284) = lu(k,1284) * lu(k,1273)
    5905   141111616 :          lu(k,1320) = lu(k,1320) - lu(k,1274) * lu(k,1319)
    5906   141111616 :          lu(k,1321) = lu(k,1321) - lu(k,1275) * lu(k,1319)
    5907   141111616 :          lu(k,1322) = lu(k,1322) - lu(k,1276) * lu(k,1319)
    5908   141111616 :          lu(k,1324) = lu(k,1324) - lu(k,1277) * lu(k,1319)
    5909   141111616 :          lu(k,1325) = lu(k,1325) - lu(k,1278) * lu(k,1319)
    5910   141111616 :          lu(k,1328) = lu(k,1328) - lu(k,1279) * lu(k,1319)
    5911   141111616 :          lu(k,1329) = lu(k,1329) - lu(k,1280) * lu(k,1319)
    5912   141111616 :          lu(k,1330) = lu(k,1330) - lu(k,1281) * lu(k,1319)
    5913   141111616 :          lu(k,1331) = lu(k,1331) - lu(k,1282) * lu(k,1319)
    5914   141111616 :          lu(k,1332) = lu(k,1332) - lu(k,1283) * lu(k,1319)
    5915   141111616 :          lu(k,1333) = lu(k,1333) - lu(k,1284) * lu(k,1319)
    5916   141111616 :          lu(k,1343) = lu(k,1343) - lu(k,1274) * lu(k,1342)
    5917   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,1275) * lu(k,1342)
    5918   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,1276) * lu(k,1342)
    5919   141111616 :          lu(k,1348) = lu(k,1348) - lu(k,1277) * lu(k,1342)
    5920   141111616 :          lu(k,1349) = lu(k,1349) - lu(k,1278) * lu(k,1342)
    5921   141111616 :          lu(k,1352) = lu(k,1352) - lu(k,1279) * lu(k,1342)
    5922   141111616 :          lu(k,1353) = lu(k,1353) - lu(k,1280) * lu(k,1342)
    5923   141111616 :          lu(k,1354) = lu(k,1354) - lu(k,1281) * lu(k,1342)
    5924   141111616 :          lu(k,1355) = lu(k,1355) - lu(k,1282) * lu(k,1342)
    5925   141111616 :          lu(k,1356) = lu(k,1356) - lu(k,1283) * lu(k,1342)
    5926   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,1284) * lu(k,1342)
    5927   141111616 :          lu(k,1497) = lu(k,1497) - lu(k,1274) * lu(k,1496)
    5928   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,1275) * lu(k,1496)
    5929   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1276) * lu(k,1496)
    5930   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1277) * lu(k,1496)
    5931   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1278) * lu(k,1496)
    5932   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1279) * lu(k,1496)
    5933   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1280) * lu(k,1496)
    5934   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,1281) * lu(k,1496)
    5935   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,1282) * lu(k,1496)
    5936   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1283) * lu(k,1496)
    5937   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1284) * lu(k,1496)
    5938   141111616 :          lu(k,1521) = lu(k,1521) - lu(k,1274) * lu(k,1520)
    5939   141111616 :          lu(k,1522) = lu(k,1522) - lu(k,1275) * lu(k,1520)
    5940   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,1276) * lu(k,1520)
    5941   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1277) * lu(k,1520)
    5942   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,1278) * lu(k,1520)
    5943   141111616 :          lu(k,1530) = lu(k,1530) - lu(k,1279) * lu(k,1520)
    5944   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,1280) * lu(k,1520)
    5945   141111616 :          lu(k,1532) = lu(k,1532) - lu(k,1281) * lu(k,1520)
    5946   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,1282) * lu(k,1520)
    5947   141111616 :          lu(k,1534) = lu(k,1534) - lu(k,1283) * lu(k,1520)
    5948   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1284) * lu(k,1520)
    5949   141111616 :          lu(k,1544) = lu(k,1544) - lu(k,1274) * lu(k,1543)
    5950   141111616 :          lu(k,1545) = lu(k,1545) - lu(k,1275) * lu(k,1543)
    5951   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,1276) * lu(k,1543)
    5952   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1277) * lu(k,1543)
    5953   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,1278) * lu(k,1543)
    5954   141111616 :          lu(k,1553) = lu(k,1553) - lu(k,1279) * lu(k,1543)
    5955   141111616 :          lu(k,1554) = lu(k,1554) - lu(k,1280) * lu(k,1543)
    5956   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1281) * lu(k,1543)
    5957   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1282) * lu(k,1543)
    5958   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1283) * lu(k,1543)
    5959   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1284) * lu(k,1543)
    5960   141111616 :          lu(k,1574) = lu(k,1574) - lu(k,1274) * lu(k,1573)
    5961   141111616 :          lu(k,1575) = lu(k,1575) - lu(k,1275) * lu(k,1573)
    5962   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1276) * lu(k,1573)
    5963   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1277) * lu(k,1573)
    5964   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1278) * lu(k,1573)
    5965   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1279) * lu(k,1573)
    5966   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1280) * lu(k,1573)
    5967   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1281) * lu(k,1573)
    5968   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1282) * lu(k,1573)
    5969   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1283) * lu(k,1573)
    5970   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1284) * lu(k,1573)
    5971   141111616 :          lu(k,1680) = lu(k,1680) - lu(k,1274) * lu(k,1679)
    5972   141111616 :          lu(k,1681) = lu(k,1681) - lu(k,1275) * lu(k,1679)
    5973   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1276) * lu(k,1679)
    5974   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1277) * lu(k,1679)
    5975   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1278) * lu(k,1679)
    5976   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1279) * lu(k,1679)
    5977   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1280) * lu(k,1679)
    5978   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1281) * lu(k,1679)
    5979   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1282) * lu(k,1679)
    5980   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1283) * lu(k,1679)
    5981   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1284) * lu(k,1679)
    5982   141111616 :          lu(k,1706) = lu(k,1706) - lu(k,1274) * lu(k,1705)
    5983   141111616 :          lu(k,1707) = lu(k,1707) - lu(k,1275) * lu(k,1705)
    5984   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,1276) * lu(k,1705)
    5985   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1277) * lu(k,1705)
    5986   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1278) * lu(k,1705)
    5987   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1279) * lu(k,1705)
    5988   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1280) * lu(k,1705)
    5989   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1281) * lu(k,1705)
    5990   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1282) * lu(k,1705)
    5991   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1283) * lu(k,1705)
    5992   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1284) * lu(k,1705)
    5993   141111616 :          lu(k,1796) = lu(k,1796) - lu(k,1274) * lu(k,1795)
    5994   141111616 :          lu(k,1797) = lu(k,1797) - lu(k,1275) * lu(k,1795)
    5995   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1276) * lu(k,1795)
    5996   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1277) * lu(k,1795)
    5997   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1278) * lu(k,1795)
    5998   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1279) * lu(k,1795)
    5999   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1280) * lu(k,1795)
    6000   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1281) * lu(k,1795)
    6001   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1282) * lu(k,1795)
    6002   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1283) * lu(k,1795)
    6003   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1284) * lu(k,1795)
    6004   141111616 :          lu(k,1856) = lu(k,1856) - lu(k,1274) * lu(k,1855)
    6005   141111616 :          lu(k,1857) = lu(k,1857) - lu(k,1275) * lu(k,1855)
    6006   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1276) * lu(k,1855)
    6007   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1277) * lu(k,1855)
    6008   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1278) * lu(k,1855)
    6009   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1279) * lu(k,1855)
    6010   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1280) * lu(k,1855)
    6011   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1281) * lu(k,1855)
    6012   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1282) * lu(k,1855)
    6013   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1283) * lu(k,1855)
    6014   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1284) * lu(k,1855)
    6015   141111616 :          lu(k,1897) = lu(k,1897) - lu(k,1274) * lu(k,1896)
    6016   141111616 :          lu(k,1898) = lu(k,1898) - lu(k,1275) * lu(k,1896)
    6017   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1276) * lu(k,1896)
    6018   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1277) * lu(k,1896)
    6019   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1278) * lu(k,1896)
    6020   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1279) * lu(k,1896)
    6021   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1280) * lu(k,1896)
    6022   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1281) * lu(k,1896)
    6023   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1282) * lu(k,1896)
    6024   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1283) * lu(k,1896)
    6025   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1284) * lu(k,1896)
    6026   141111616 :          lu(k,1920) = lu(k,1920) - lu(k,1274) * lu(k,1919)
    6027   141111616 :          lu(k,1921) = lu(k,1921) - lu(k,1275) * lu(k,1919)
    6028   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,1276) * lu(k,1919)
    6029   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1277) * lu(k,1919)
    6030   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1278) * lu(k,1919)
    6031   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1279) * lu(k,1919)
    6032   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1280) * lu(k,1919)
    6033   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1281) * lu(k,1919)
    6034   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1282) * lu(k,1919)
    6035   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1283) * lu(k,1919)
    6036   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1284) * lu(k,1919)
    6037   141111616 :          lu(k,1954) = lu(k,1954) - lu(k,1274) * lu(k,1953)
    6038   141111616 :          lu(k,1955) = lu(k,1955) - lu(k,1275) * lu(k,1953)
    6039   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1276) * lu(k,1953)
    6040   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1277) * lu(k,1953)
    6041   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1278) * lu(k,1953)
    6042   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1279) * lu(k,1953)
    6043   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1280) * lu(k,1953)
    6044   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1281) * lu(k,1953)
    6045   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1282) * lu(k,1953)
    6046   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1283) * lu(k,1953)
    6047   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1284) * lu(k,1953)
    6048   141111616 :          lu(k,2011) = lu(k,2011) - lu(k,1274) * lu(k,2010)
    6049   141111616 :          lu(k,2012) = lu(k,2012) - lu(k,1275) * lu(k,2010)
    6050   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1276) * lu(k,2010)
    6051   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1277) * lu(k,2010)
    6052   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1278) * lu(k,2010)
    6053   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1279) * lu(k,2010)
    6054   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1280) * lu(k,2010)
    6055   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1281) * lu(k,2010)
    6056   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1282) * lu(k,2010)
    6057   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1283) * lu(k,2010)
    6058   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1284) * lu(k,2010)
    6059   141111616 :          lu(k,2036) = lu(k,2036) - lu(k,1274) * lu(k,2035)
    6060   141111616 :          lu(k,2037) = lu(k,2037) - lu(k,1275) * lu(k,2035)
    6061   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1276) * lu(k,2035)
    6062   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1277) * lu(k,2035)
    6063   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1278) * lu(k,2035)
    6064   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1279) * lu(k,2035)
    6065   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1280) * lu(k,2035)
    6066   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1281) * lu(k,2035)
    6067   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1282) * lu(k,2035)
    6068   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1283) * lu(k,2035)
    6069   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1284) * lu(k,2035)
    6070   141111616 :          lu(k,1320) = 1._r8 / lu(k,1320)
    6071   141111616 :          lu(k,1321) = lu(k,1321) * lu(k,1320)
    6072   141111616 :          lu(k,1322) = lu(k,1322) * lu(k,1320)
    6073   141111616 :          lu(k,1323) = lu(k,1323) * lu(k,1320)
    6074   141111616 :          lu(k,1324) = lu(k,1324) * lu(k,1320)
    6075   141111616 :          lu(k,1325) = lu(k,1325) * lu(k,1320)
    6076   141111616 :          lu(k,1326) = lu(k,1326) * lu(k,1320)
    6077   141111616 :          lu(k,1327) = lu(k,1327) * lu(k,1320)
    6078   141111616 :          lu(k,1328) = lu(k,1328) * lu(k,1320)
    6079   141111616 :          lu(k,1329) = lu(k,1329) * lu(k,1320)
    6080   141111616 :          lu(k,1330) = lu(k,1330) * lu(k,1320)
    6081   141111616 :          lu(k,1331) = lu(k,1331) * lu(k,1320)
    6082   141111616 :          lu(k,1332) = lu(k,1332) * lu(k,1320)
    6083   141111616 :          lu(k,1333) = lu(k,1333) * lu(k,1320)
    6084   141111616 :          lu(k,1344) = lu(k,1344) - lu(k,1321) * lu(k,1343)
    6085   141111616 :          lu(k,1345) = lu(k,1345) - lu(k,1322) * lu(k,1343)
    6086   141111616 :          lu(k,1347) = lu(k,1347) - lu(k,1323) * lu(k,1343)
    6087   141111616 :          lu(k,1348) = lu(k,1348) - lu(k,1324) * lu(k,1343)
    6088   141111616 :          lu(k,1349) = lu(k,1349) - lu(k,1325) * lu(k,1343)
    6089   141111616 :          lu(k,1350) = lu(k,1350) - lu(k,1326) * lu(k,1343)
    6090   141111616 :          lu(k,1351) = lu(k,1351) - lu(k,1327) * lu(k,1343)
    6091   141111616 :          lu(k,1352) = lu(k,1352) - lu(k,1328) * lu(k,1343)
    6092   141111616 :          lu(k,1353) = lu(k,1353) - lu(k,1329) * lu(k,1343)
    6093   141111616 :          lu(k,1354) = lu(k,1354) - lu(k,1330) * lu(k,1343)
    6094   141111616 :          lu(k,1355) = lu(k,1355) - lu(k,1331) * lu(k,1343)
    6095   141111616 :          lu(k,1356) = lu(k,1356) - lu(k,1332) * lu(k,1343)
    6096   141111616 :          lu(k,1357) = lu(k,1357) - lu(k,1333) * lu(k,1343)
    6097   141111616 :          lu(k,1498) = lu(k,1498) - lu(k,1321) * lu(k,1497)
    6098   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1322) * lu(k,1497)
    6099   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1323) * lu(k,1497)
    6100   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1324) * lu(k,1497)
    6101   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1325) * lu(k,1497)
    6102   141111616 :          lu(k,1504) = lu(k,1504) - lu(k,1326) * lu(k,1497)
    6103   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1327) * lu(k,1497)
    6104   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1328) * lu(k,1497)
    6105   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1329) * lu(k,1497)
    6106   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,1330) * lu(k,1497)
    6107   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,1331) * lu(k,1497)
    6108   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1332) * lu(k,1497)
    6109   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1333) * lu(k,1497)
    6110   141111616 :          lu(k,1522) = lu(k,1522) - lu(k,1321) * lu(k,1521)
    6111   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,1322) * lu(k,1521)
    6112   141111616 :          lu(k,1525) = lu(k,1525) - lu(k,1323) * lu(k,1521)
    6113   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1324) * lu(k,1521)
    6114   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,1325) * lu(k,1521)
    6115   141111616 :          lu(k,1528) = lu(k,1528) - lu(k,1326) * lu(k,1521)
    6116   141111616 :          lu(k,1529) = lu(k,1529) - lu(k,1327) * lu(k,1521)
    6117   141111616 :          lu(k,1530) = lu(k,1530) - lu(k,1328) * lu(k,1521)
    6118   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,1329) * lu(k,1521)
    6119   141111616 :          lu(k,1532) = lu(k,1532) - lu(k,1330) * lu(k,1521)
    6120   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,1331) * lu(k,1521)
    6121   141111616 :          lu(k,1534) = lu(k,1534) - lu(k,1332) * lu(k,1521)
    6122   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1333) * lu(k,1521)
    6123   141111616 :          lu(k,1545) = lu(k,1545) - lu(k,1321) * lu(k,1544)
    6124   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,1322) * lu(k,1544)
    6125   141111616 :          lu(k,1548) = lu(k,1548) - lu(k,1323) * lu(k,1544)
    6126   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1324) * lu(k,1544)
    6127   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,1325) * lu(k,1544)
    6128   141111616 :          lu(k,1551) = - lu(k,1326) * lu(k,1544)
    6129   141111616 :          lu(k,1552) = lu(k,1552) - lu(k,1327) * lu(k,1544)
    6130   141111616 :          lu(k,1553) = lu(k,1553) - lu(k,1328) * lu(k,1544)
    6131   141111616 :          lu(k,1554) = lu(k,1554) - lu(k,1329) * lu(k,1544)
    6132   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1330) * lu(k,1544)
    6133   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1331) * lu(k,1544)
    6134   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1332) * lu(k,1544)
    6135   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1333) * lu(k,1544)
    6136   141111616 :          lu(k,1575) = lu(k,1575) - lu(k,1321) * lu(k,1574)
    6137   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1322) * lu(k,1574)
    6138   141111616 :          lu(k,1578) = lu(k,1578) - lu(k,1323) * lu(k,1574)
    6139   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1324) * lu(k,1574)
    6140   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1325) * lu(k,1574)
    6141   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,1326) * lu(k,1574)
    6142   141111616 :          lu(k,1582) = lu(k,1582) - lu(k,1327) * lu(k,1574)
    6143   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1328) * lu(k,1574)
    6144   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1329) * lu(k,1574)
    6145   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1330) * lu(k,1574)
    6146   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1331) * lu(k,1574)
    6147   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1332) * lu(k,1574)
    6148   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1333) * lu(k,1574)
    6149   141111616 :          lu(k,1681) = lu(k,1681) - lu(k,1321) * lu(k,1680)
    6150   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1322) * lu(k,1680)
    6151   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1323) * lu(k,1680)
    6152   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1324) * lu(k,1680)
    6153   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1325) * lu(k,1680)
    6154   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,1326) * lu(k,1680)
    6155   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1327) * lu(k,1680)
    6156   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1328) * lu(k,1680)
    6157   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1329) * lu(k,1680)
    6158   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1330) * lu(k,1680)
    6159   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1331) * lu(k,1680)
    6160   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1332) * lu(k,1680)
    6161   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1333) * lu(k,1680)
    6162   141111616 :          lu(k,1707) = lu(k,1707) - lu(k,1321) * lu(k,1706)
    6163   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,1322) * lu(k,1706)
    6164   141111616 :          lu(k,1710) = lu(k,1710) - lu(k,1323) * lu(k,1706)
    6165   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1324) * lu(k,1706)
    6166   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1325) * lu(k,1706)
    6167   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1326) * lu(k,1706)
    6168   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1327) * lu(k,1706)
    6169   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1328) * lu(k,1706)
    6170   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1329) * lu(k,1706)
    6171   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1330) * lu(k,1706)
    6172   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1331) * lu(k,1706)
    6173   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1332) * lu(k,1706)
    6174   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1333) * lu(k,1706)
    6175   141111616 :          lu(k,1797) = lu(k,1797) - lu(k,1321) * lu(k,1796)
    6176   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1322) * lu(k,1796)
    6177   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1323) * lu(k,1796)
    6178   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1324) * lu(k,1796)
    6179   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1325) * lu(k,1796)
    6180   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1326) * lu(k,1796)
    6181   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1327) * lu(k,1796)
    6182   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1328) * lu(k,1796)
    6183   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1329) * lu(k,1796)
    6184   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1330) * lu(k,1796)
    6185   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1331) * lu(k,1796)
    6186   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1332) * lu(k,1796)
    6187   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1333) * lu(k,1796)
    6188   141111616 :          lu(k,1857) = lu(k,1857) - lu(k,1321) * lu(k,1856)
    6189   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1322) * lu(k,1856)
    6190   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1323) * lu(k,1856)
    6191   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1324) * lu(k,1856)
    6192   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1325) * lu(k,1856)
    6193   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1326) * lu(k,1856)
    6194   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1327) * lu(k,1856)
    6195   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1328) * lu(k,1856)
    6196   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1329) * lu(k,1856)
    6197   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1330) * lu(k,1856)
    6198   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1331) * lu(k,1856)
    6199   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1332) * lu(k,1856)
    6200   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1333) * lu(k,1856)
    6201   141111616 :          lu(k,1898) = lu(k,1898) - lu(k,1321) * lu(k,1897)
    6202   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1322) * lu(k,1897)
    6203   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1323) * lu(k,1897)
    6204   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1324) * lu(k,1897)
    6205   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1325) * lu(k,1897)
    6206   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1326) * lu(k,1897)
    6207   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1327) * lu(k,1897)
    6208   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1328) * lu(k,1897)
    6209   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1329) * lu(k,1897)
    6210   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1330) * lu(k,1897)
    6211   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1331) * lu(k,1897)
    6212   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1332) * lu(k,1897)
    6213   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1333) * lu(k,1897)
    6214   141111616 :          lu(k,1921) = lu(k,1921) - lu(k,1321) * lu(k,1920)
    6215   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,1322) * lu(k,1920)
    6216   141111616 :          lu(k,1924) = lu(k,1924) - lu(k,1323) * lu(k,1920)
    6217   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1324) * lu(k,1920)
    6218   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1325) * lu(k,1920)
    6219   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1326) * lu(k,1920)
    6220   141111616 :          lu(k,1928) = - lu(k,1327) * lu(k,1920)
    6221   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1328) * lu(k,1920)
    6222   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1329) * lu(k,1920)
    6223   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1330) * lu(k,1920)
    6224   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1331) * lu(k,1920)
    6225   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1332) * lu(k,1920)
    6226   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1333) * lu(k,1920)
    6227   141111616 :          lu(k,1955) = lu(k,1955) - lu(k,1321) * lu(k,1954)
    6228   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1322) * lu(k,1954)
    6229   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,1323) * lu(k,1954)
    6230   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1324) * lu(k,1954)
    6231   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1325) * lu(k,1954)
    6232   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1326) * lu(k,1954)
    6233   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1327) * lu(k,1954)
    6234   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1328) * lu(k,1954)
    6235   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1329) * lu(k,1954)
    6236   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1330) * lu(k,1954)
    6237   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1331) * lu(k,1954)
    6238   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1332) * lu(k,1954)
    6239   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1333) * lu(k,1954)
    6240   141111616 :          lu(k,2012) = lu(k,2012) - lu(k,1321) * lu(k,2011)
    6241   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1322) * lu(k,2011)
    6242   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1323) * lu(k,2011)
    6243   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1324) * lu(k,2011)
    6244   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1325) * lu(k,2011)
    6245   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1326) * lu(k,2011)
    6246   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1327) * lu(k,2011)
    6247   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1328) * lu(k,2011)
    6248   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1329) * lu(k,2011)
    6249   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1330) * lu(k,2011)
    6250   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1331) * lu(k,2011)
    6251   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1332) * lu(k,2011)
    6252   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1333) * lu(k,2011)
    6253   141111616 :          lu(k,2037) = lu(k,2037) - lu(k,1321) * lu(k,2036)
    6254   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1322) * lu(k,2036)
    6255   141111616 :          lu(k,2040) = lu(k,2040) - lu(k,1323) * lu(k,2036)
    6256   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1324) * lu(k,2036)
    6257   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1325) * lu(k,2036)
    6258   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1326) * lu(k,2036)
    6259   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1327) * lu(k,2036)
    6260   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1328) * lu(k,2036)
    6261   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1329) * lu(k,2036)
    6262   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1330) * lu(k,2036)
    6263   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1331) * lu(k,2036)
    6264   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1332) * lu(k,2036)
    6265   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1333) * lu(k,2036)
    6266   141111616 :          lu(k,1344) = 1._r8 / lu(k,1344)
    6267   141111616 :          lu(k,1345) = lu(k,1345) * lu(k,1344)
    6268   141111616 :          lu(k,1346) = lu(k,1346) * lu(k,1344)
    6269   141111616 :          lu(k,1347) = lu(k,1347) * lu(k,1344)
    6270   141111616 :          lu(k,1348) = lu(k,1348) * lu(k,1344)
    6271   141111616 :          lu(k,1349) = lu(k,1349) * lu(k,1344)
    6272   141111616 :          lu(k,1350) = lu(k,1350) * lu(k,1344)
    6273   141111616 :          lu(k,1351) = lu(k,1351) * lu(k,1344)
    6274   141111616 :          lu(k,1352) = lu(k,1352) * lu(k,1344)
    6275   141111616 :          lu(k,1353) = lu(k,1353) * lu(k,1344)
    6276   141111616 :          lu(k,1354) = lu(k,1354) * lu(k,1344)
    6277   141111616 :          lu(k,1355) = lu(k,1355) * lu(k,1344)
    6278   141111616 :          lu(k,1356) = lu(k,1356) * lu(k,1344)
    6279   141111616 :          lu(k,1357) = lu(k,1357) * lu(k,1344)
    6280   141111616 :          lu(k,1499) = lu(k,1499) - lu(k,1345) * lu(k,1498)
    6281   141111616 :          lu(k,1500) = lu(k,1500) - lu(k,1346) * lu(k,1498)
    6282   141111616 :          lu(k,1501) = lu(k,1501) - lu(k,1347) * lu(k,1498)
    6283   141111616 :          lu(k,1502) = lu(k,1502) - lu(k,1348) * lu(k,1498)
    6284   141111616 :          lu(k,1503) = lu(k,1503) - lu(k,1349) * lu(k,1498)
    6285   141111616 :          lu(k,1504) = lu(k,1504) - lu(k,1350) * lu(k,1498)
    6286   141111616 :          lu(k,1505) = lu(k,1505) - lu(k,1351) * lu(k,1498)
    6287   141111616 :          lu(k,1506) = lu(k,1506) - lu(k,1352) * lu(k,1498)
    6288   141111616 :          lu(k,1507) = lu(k,1507) - lu(k,1353) * lu(k,1498)
    6289   141111616 :          lu(k,1508) = lu(k,1508) - lu(k,1354) * lu(k,1498)
    6290   141111616 :          lu(k,1509) = lu(k,1509) - lu(k,1355) * lu(k,1498)
    6291   141111616 :          lu(k,1510) = lu(k,1510) - lu(k,1356) * lu(k,1498)
    6292   141111616 :          lu(k,1511) = lu(k,1511) - lu(k,1357) * lu(k,1498)
    6293   141111616 :          lu(k,1523) = lu(k,1523) - lu(k,1345) * lu(k,1522)
    6294   141111616 :          lu(k,1524) = lu(k,1524) - lu(k,1346) * lu(k,1522)
    6295   141111616 :          lu(k,1525) = lu(k,1525) - lu(k,1347) * lu(k,1522)
    6296   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1348) * lu(k,1522)
    6297   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,1349) * lu(k,1522)
    6298   141111616 :          lu(k,1528) = lu(k,1528) - lu(k,1350) * lu(k,1522)
    6299   141111616 :          lu(k,1529) = lu(k,1529) - lu(k,1351) * lu(k,1522)
    6300   141111616 :          lu(k,1530) = lu(k,1530) - lu(k,1352) * lu(k,1522)
    6301   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,1353) * lu(k,1522)
    6302   141111616 :          lu(k,1532) = lu(k,1532) - lu(k,1354) * lu(k,1522)
    6303   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,1355) * lu(k,1522)
    6304   141111616 :          lu(k,1534) = lu(k,1534) - lu(k,1356) * lu(k,1522)
    6305   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1357) * lu(k,1522)
    6306   141111616 :          lu(k,1546) = lu(k,1546) - lu(k,1345) * lu(k,1545)
    6307   141111616 :          lu(k,1547) = lu(k,1547) - lu(k,1346) * lu(k,1545)
    6308   141111616 :          lu(k,1548) = lu(k,1548) - lu(k,1347) * lu(k,1545)
    6309   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1348) * lu(k,1545)
    6310   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,1349) * lu(k,1545)
    6311   141111616 :          lu(k,1551) = lu(k,1551) - lu(k,1350) * lu(k,1545)
    6312   141111616 :          lu(k,1552) = lu(k,1552) - lu(k,1351) * lu(k,1545)
    6313   141111616 :          lu(k,1553) = lu(k,1553) - lu(k,1352) * lu(k,1545)
    6314   141111616 :          lu(k,1554) = lu(k,1554) - lu(k,1353) * lu(k,1545)
    6315   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1354) * lu(k,1545)
    6316   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1355) * lu(k,1545)
    6317   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1356) * lu(k,1545)
    6318   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1357) * lu(k,1545)
    6319   141111616 :          lu(k,1576) = lu(k,1576) - lu(k,1345) * lu(k,1575)
    6320   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,1346) * lu(k,1575)
    6321   141111616 :          lu(k,1578) = lu(k,1578) - lu(k,1347) * lu(k,1575)
    6322   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1348) * lu(k,1575)
    6323   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1349) * lu(k,1575)
    6324   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,1350) * lu(k,1575)
    6325   141111616 :          lu(k,1582) = lu(k,1582) - lu(k,1351) * lu(k,1575)
    6326   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1352) * lu(k,1575)
    6327   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1353) * lu(k,1575)
    6328   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1354) * lu(k,1575)
    6329   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1355) * lu(k,1575)
    6330   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1356) * lu(k,1575)
    6331   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1357) * lu(k,1575)
    6332   141111616 :          lu(k,1682) = lu(k,1682) - lu(k,1345) * lu(k,1681)
    6333   141111616 :          lu(k,1683) = lu(k,1683) - lu(k,1346) * lu(k,1681)
    6334   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1347) * lu(k,1681)
    6335   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1348) * lu(k,1681)
    6336   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1349) * lu(k,1681)
    6337   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,1350) * lu(k,1681)
    6338   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1351) * lu(k,1681)
    6339   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1352) * lu(k,1681)
    6340   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1353) * lu(k,1681)
    6341   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1354) * lu(k,1681)
    6342   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1355) * lu(k,1681)
    6343   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1356) * lu(k,1681)
    6344   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1357) * lu(k,1681)
    6345   141111616 :          lu(k,1708) = lu(k,1708) - lu(k,1345) * lu(k,1707)
    6346   141111616 :          lu(k,1709) = lu(k,1709) - lu(k,1346) * lu(k,1707)
    6347   141111616 :          lu(k,1710) = lu(k,1710) - lu(k,1347) * lu(k,1707)
    6348   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1348) * lu(k,1707)
    6349   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1349) * lu(k,1707)
    6350   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1350) * lu(k,1707)
    6351   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1351) * lu(k,1707)
    6352   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1352) * lu(k,1707)
    6353   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1353) * lu(k,1707)
    6354   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1354) * lu(k,1707)
    6355   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1355) * lu(k,1707)
    6356   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1356) * lu(k,1707)
    6357   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1357) * lu(k,1707)
    6358   141111616 :          lu(k,1798) = lu(k,1798) - lu(k,1345) * lu(k,1797)
    6359   141111616 :          lu(k,1799) = lu(k,1799) - lu(k,1346) * lu(k,1797)
    6360   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1347) * lu(k,1797)
    6361   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1348) * lu(k,1797)
    6362   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1349) * lu(k,1797)
    6363   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1350) * lu(k,1797)
    6364   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1351) * lu(k,1797)
    6365   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1352) * lu(k,1797)
    6366   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1353) * lu(k,1797)
    6367   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1354) * lu(k,1797)
    6368   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1355) * lu(k,1797)
    6369   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1356) * lu(k,1797)
    6370   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1357) * lu(k,1797)
    6371   141111616 :          lu(k,1858) = lu(k,1858) - lu(k,1345) * lu(k,1857)
    6372   141111616 :          lu(k,1859) = lu(k,1859) - lu(k,1346) * lu(k,1857)
    6373   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1347) * lu(k,1857)
    6374   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1348) * lu(k,1857)
    6375   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1349) * lu(k,1857)
    6376   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1350) * lu(k,1857)
    6377   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1351) * lu(k,1857)
    6378   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1352) * lu(k,1857)
    6379   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1353) * lu(k,1857)
    6380   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1354) * lu(k,1857)
    6381   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1355) * lu(k,1857)
    6382   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1356) * lu(k,1857)
    6383   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1357) * lu(k,1857)
    6384   141111616 :          lu(k,1899) = lu(k,1899) - lu(k,1345) * lu(k,1898)
    6385   141111616 :          lu(k,1900) = lu(k,1900) - lu(k,1346) * lu(k,1898)
    6386   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1347) * lu(k,1898)
    6387   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1348) * lu(k,1898)
    6388   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1349) * lu(k,1898)
    6389   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1350) * lu(k,1898)
    6390   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1351) * lu(k,1898)
    6391   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1352) * lu(k,1898)
    6392   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1353) * lu(k,1898)
    6393   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1354) * lu(k,1898)
    6394   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1355) * lu(k,1898)
    6395   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1356) * lu(k,1898)
    6396   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1357) * lu(k,1898)
    6397   141111616 :          lu(k,1922) = lu(k,1922) - lu(k,1345) * lu(k,1921)
    6398   141111616 :          lu(k,1923) = lu(k,1923) - lu(k,1346) * lu(k,1921)
    6399   141111616 :          lu(k,1924) = lu(k,1924) - lu(k,1347) * lu(k,1921)
    6400   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1348) * lu(k,1921)
    6401   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1349) * lu(k,1921)
    6402   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1350) * lu(k,1921)
    6403   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1351) * lu(k,1921)
    6404   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1352) * lu(k,1921)
    6405   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1353) * lu(k,1921)
    6406   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1354) * lu(k,1921)
    6407   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1355) * lu(k,1921)
    6408   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1356) * lu(k,1921)
    6409   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1357) * lu(k,1921)
    6410   141111616 :          lu(k,1956) = lu(k,1956) - lu(k,1345) * lu(k,1955)
    6411   141111616 :          lu(k,1957) = lu(k,1957) - lu(k,1346) * lu(k,1955)
    6412   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,1347) * lu(k,1955)
    6413   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1348) * lu(k,1955)
    6414   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1349) * lu(k,1955)
    6415   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1350) * lu(k,1955)
    6416   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1351) * lu(k,1955)
    6417   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1352) * lu(k,1955)
    6418   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1353) * lu(k,1955)
    6419   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1354) * lu(k,1955)
    6420   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1355) * lu(k,1955)
    6421   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1356) * lu(k,1955)
    6422   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1357) * lu(k,1955)
    6423   141111616 :          lu(k,2013) = lu(k,2013) - lu(k,1345) * lu(k,2012)
    6424   141111616 :          lu(k,2014) = lu(k,2014) - lu(k,1346) * lu(k,2012)
    6425   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1347) * lu(k,2012)
    6426   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1348) * lu(k,2012)
    6427   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1349) * lu(k,2012)
    6428   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1350) * lu(k,2012)
    6429   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1351) * lu(k,2012)
    6430   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1352) * lu(k,2012)
    6431   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1353) * lu(k,2012)
    6432   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1354) * lu(k,2012)
    6433   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1355) * lu(k,2012)
    6434   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1356) * lu(k,2012)
    6435   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1357) * lu(k,2012)
    6436   141111616 :          lu(k,2038) = lu(k,2038) - lu(k,1345) * lu(k,2037)
    6437   141111616 :          lu(k,2039) = lu(k,2039) - lu(k,1346) * lu(k,2037)
    6438   141111616 :          lu(k,2040) = lu(k,2040) - lu(k,1347) * lu(k,2037)
    6439   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1348) * lu(k,2037)
    6440   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1349) * lu(k,2037)
    6441   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1350) * lu(k,2037)
    6442   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1351) * lu(k,2037)
    6443   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1352) * lu(k,2037)
    6444   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1353) * lu(k,2037)
    6445   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1354) * lu(k,2037)
    6446   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1355) * lu(k,2037)
    6447   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1356) * lu(k,2037)
    6448   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1357) * lu(k,2037)
    6449   141111616 :          lu(k,1499) = 1._r8 / lu(k,1499)
    6450   141111616 :          lu(k,1500) = lu(k,1500) * lu(k,1499)
    6451   141111616 :          lu(k,1501) = lu(k,1501) * lu(k,1499)
    6452   141111616 :          lu(k,1502) = lu(k,1502) * lu(k,1499)
    6453   141111616 :          lu(k,1503) = lu(k,1503) * lu(k,1499)
    6454   141111616 :          lu(k,1504) = lu(k,1504) * lu(k,1499)
    6455   141111616 :          lu(k,1505) = lu(k,1505) * lu(k,1499)
    6456   141111616 :          lu(k,1506) = lu(k,1506) * lu(k,1499)
    6457   141111616 :          lu(k,1507) = lu(k,1507) * lu(k,1499)
    6458   141111616 :          lu(k,1508) = lu(k,1508) * lu(k,1499)
    6459   141111616 :          lu(k,1509) = lu(k,1509) * lu(k,1499)
    6460   141111616 :          lu(k,1510) = lu(k,1510) * lu(k,1499)
    6461   141111616 :          lu(k,1511) = lu(k,1511) * lu(k,1499)
    6462   141111616 :          lu(k,1524) = lu(k,1524) - lu(k,1500) * lu(k,1523)
    6463   141111616 :          lu(k,1525) = lu(k,1525) - lu(k,1501) * lu(k,1523)
    6464   141111616 :          lu(k,1526) = lu(k,1526) - lu(k,1502) * lu(k,1523)
    6465   141111616 :          lu(k,1527) = lu(k,1527) - lu(k,1503) * lu(k,1523)
    6466   141111616 :          lu(k,1528) = lu(k,1528) - lu(k,1504) * lu(k,1523)
    6467   141111616 :          lu(k,1529) = lu(k,1529) - lu(k,1505) * lu(k,1523)
    6468   141111616 :          lu(k,1530) = lu(k,1530) - lu(k,1506) * lu(k,1523)
    6469   141111616 :          lu(k,1531) = lu(k,1531) - lu(k,1507) * lu(k,1523)
    6470   141111616 :          lu(k,1532) = lu(k,1532) - lu(k,1508) * lu(k,1523)
    6471   141111616 :          lu(k,1533) = lu(k,1533) - lu(k,1509) * lu(k,1523)
    6472   141111616 :          lu(k,1534) = lu(k,1534) - lu(k,1510) * lu(k,1523)
    6473   141111616 :          lu(k,1535) = lu(k,1535) - lu(k,1511) * lu(k,1523)
    6474   141111616 :          lu(k,1547) = lu(k,1547) - lu(k,1500) * lu(k,1546)
    6475   141111616 :          lu(k,1548) = lu(k,1548) - lu(k,1501) * lu(k,1546)
    6476   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1502) * lu(k,1546)
    6477   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,1503) * lu(k,1546)
    6478   141111616 :          lu(k,1551) = lu(k,1551) - lu(k,1504) * lu(k,1546)
    6479   141111616 :          lu(k,1552) = lu(k,1552) - lu(k,1505) * lu(k,1546)
    6480   141111616 :          lu(k,1553) = lu(k,1553) - lu(k,1506) * lu(k,1546)
    6481   141111616 :          lu(k,1554) = lu(k,1554) - lu(k,1507) * lu(k,1546)
    6482   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1508) * lu(k,1546)
    6483   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1509) * lu(k,1546)
    6484   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1510) * lu(k,1546)
    6485   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1511) * lu(k,1546)
    6486   141111616 :          lu(k,1577) = lu(k,1577) - lu(k,1500) * lu(k,1576)
    6487   141111616 :          lu(k,1578) = lu(k,1578) - lu(k,1501) * lu(k,1576)
    6488   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1502) * lu(k,1576)
    6489   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1503) * lu(k,1576)
    6490   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,1504) * lu(k,1576)
    6491   141111616 :          lu(k,1582) = lu(k,1582) - lu(k,1505) * lu(k,1576)
    6492   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1506) * lu(k,1576)
    6493   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1507) * lu(k,1576)
    6494   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1508) * lu(k,1576)
    6495   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1509) * lu(k,1576)
    6496   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1510) * lu(k,1576)
    6497   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1511) * lu(k,1576)
    6498   141111616 :          lu(k,1683) = lu(k,1683) - lu(k,1500) * lu(k,1682)
    6499   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1501) * lu(k,1682)
    6500   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1502) * lu(k,1682)
    6501   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1503) * lu(k,1682)
    6502   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,1504) * lu(k,1682)
    6503   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1505) * lu(k,1682)
    6504   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1506) * lu(k,1682)
    6505   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1507) * lu(k,1682)
    6506   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1508) * lu(k,1682)
    6507   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1509) * lu(k,1682)
    6508   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1510) * lu(k,1682)
    6509   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1511) * lu(k,1682)
    6510   141111616 :          lu(k,1709) = lu(k,1709) - lu(k,1500) * lu(k,1708)
    6511   141111616 :          lu(k,1710) = lu(k,1710) - lu(k,1501) * lu(k,1708)
    6512   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1502) * lu(k,1708)
    6513   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1503) * lu(k,1708)
    6514   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1504) * lu(k,1708)
    6515   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1505) * lu(k,1708)
    6516   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1506) * lu(k,1708)
    6517   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1507) * lu(k,1708)
    6518   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1508) * lu(k,1708)
    6519   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1509) * lu(k,1708)
    6520   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1510) * lu(k,1708)
    6521   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1511) * lu(k,1708)
    6522   141111616 :          lu(k,1799) = lu(k,1799) - lu(k,1500) * lu(k,1798)
    6523   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1501) * lu(k,1798)
    6524   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1502) * lu(k,1798)
    6525   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1503) * lu(k,1798)
    6526   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1504) * lu(k,1798)
    6527   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1505) * lu(k,1798)
    6528   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1506) * lu(k,1798)
    6529   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1507) * lu(k,1798)
    6530   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1508) * lu(k,1798)
    6531   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1509) * lu(k,1798)
    6532   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1510) * lu(k,1798)
    6533   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1511) * lu(k,1798)
    6534   141111616 :          lu(k,1859) = lu(k,1859) - lu(k,1500) * lu(k,1858)
    6535   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1501) * lu(k,1858)
    6536   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1502) * lu(k,1858)
    6537   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1503) * lu(k,1858)
    6538   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1504) * lu(k,1858)
    6539   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1505) * lu(k,1858)
    6540   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1506) * lu(k,1858)
    6541   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1507) * lu(k,1858)
    6542   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1508) * lu(k,1858)
    6543   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1509) * lu(k,1858)
    6544   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1510) * lu(k,1858)
    6545   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1511) * lu(k,1858)
    6546   141111616 :          lu(k,1900) = lu(k,1900) - lu(k,1500) * lu(k,1899)
    6547   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1501) * lu(k,1899)
    6548   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1502) * lu(k,1899)
    6549   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1503) * lu(k,1899)
    6550   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1504) * lu(k,1899)
    6551   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1505) * lu(k,1899)
    6552   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1506) * lu(k,1899)
    6553   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1507) * lu(k,1899)
    6554   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1508) * lu(k,1899)
    6555   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1509) * lu(k,1899)
    6556   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1510) * lu(k,1899)
    6557   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1511) * lu(k,1899)
    6558   141111616 :          lu(k,1923) = lu(k,1923) - lu(k,1500) * lu(k,1922)
    6559   141111616 :          lu(k,1924) = lu(k,1924) - lu(k,1501) * lu(k,1922)
    6560   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1502) * lu(k,1922)
    6561   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1503) * lu(k,1922)
    6562   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1504) * lu(k,1922)
    6563   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1505) * lu(k,1922)
    6564   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1506) * lu(k,1922)
    6565   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1507) * lu(k,1922)
    6566   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1508) * lu(k,1922)
    6567   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1509) * lu(k,1922)
    6568   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1510) * lu(k,1922)
    6569   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1511) * lu(k,1922)
    6570   141111616 :          lu(k,1957) = lu(k,1957) - lu(k,1500) * lu(k,1956)
    6571   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,1501) * lu(k,1956)
    6572   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1502) * lu(k,1956)
    6573   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1503) * lu(k,1956)
    6574   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1504) * lu(k,1956)
    6575   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1505) * lu(k,1956)
    6576   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1506) * lu(k,1956)
    6577   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1507) * lu(k,1956)
    6578   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1508) * lu(k,1956)
    6579   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1509) * lu(k,1956)
    6580   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1510) * lu(k,1956)
    6581   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1511) * lu(k,1956)
    6582   141111616 :          lu(k,2014) = lu(k,2014) - lu(k,1500) * lu(k,2013)
    6583   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1501) * lu(k,2013)
    6584   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1502) * lu(k,2013)
    6585   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1503) * lu(k,2013)
    6586   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1504) * lu(k,2013)
    6587   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1505) * lu(k,2013)
    6588   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1506) * lu(k,2013)
    6589   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1507) * lu(k,2013)
    6590   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1508) * lu(k,2013)
    6591   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1509) * lu(k,2013)
    6592   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1510) * lu(k,2013)
    6593   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1511) * lu(k,2013)
    6594   141111616 :          lu(k,2039) = lu(k,2039) - lu(k,1500) * lu(k,2038)
    6595   141111616 :          lu(k,2040) = lu(k,2040) - lu(k,1501) * lu(k,2038)
    6596   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1502) * lu(k,2038)
    6597   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1503) * lu(k,2038)
    6598   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1504) * lu(k,2038)
    6599   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1505) * lu(k,2038)
    6600   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1506) * lu(k,2038)
    6601   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1507) * lu(k,2038)
    6602   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1508) * lu(k,2038)
    6603   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1509) * lu(k,2038)
    6604   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1510) * lu(k,2038)
    6605   145521354 :          lu(k,2050) = lu(k,2050) - lu(k,1511) * lu(k,2038)
    6606             :       end do
    6607     4409738 :       end subroutine lu_fac25
    6608     4409738 :       subroutine lu_fac26( avec_len, lu )
    6609             :       use chem_mods, only : nzcnt
    6610             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6611             :       implicit none
    6612             : !-----------------------------------------------------------------------
    6613             : ! ... dummy args
    6614             : !-----------------------------------------------------------------------
    6615             :       integer, intent(in) :: avec_len
    6616             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6617             : !-----------------------------------------------------------------------
    6618             : ! ... local variables
    6619             : !-----------------------------------------------------------------------
    6620             :       integer :: k
    6621   145521354 :       do k = 1,avec_len
    6622   141111616 :          lu(k,1524) = 1._r8 / lu(k,1524)
    6623   141111616 :          lu(k,1525) = lu(k,1525) * lu(k,1524)
    6624   141111616 :          lu(k,1526) = lu(k,1526) * lu(k,1524)
    6625   141111616 :          lu(k,1527) = lu(k,1527) * lu(k,1524)
    6626   141111616 :          lu(k,1528) = lu(k,1528) * lu(k,1524)
    6627   141111616 :          lu(k,1529) = lu(k,1529) * lu(k,1524)
    6628   141111616 :          lu(k,1530) = lu(k,1530) * lu(k,1524)
    6629   141111616 :          lu(k,1531) = lu(k,1531) * lu(k,1524)
    6630   141111616 :          lu(k,1532) = lu(k,1532) * lu(k,1524)
    6631   141111616 :          lu(k,1533) = lu(k,1533) * lu(k,1524)
    6632   141111616 :          lu(k,1534) = lu(k,1534) * lu(k,1524)
    6633   141111616 :          lu(k,1535) = lu(k,1535) * lu(k,1524)
    6634   141111616 :          lu(k,1548) = lu(k,1548) - lu(k,1525) * lu(k,1547)
    6635   141111616 :          lu(k,1549) = lu(k,1549) - lu(k,1526) * lu(k,1547)
    6636   141111616 :          lu(k,1550) = lu(k,1550) - lu(k,1527) * lu(k,1547)
    6637   141111616 :          lu(k,1551) = lu(k,1551) - lu(k,1528) * lu(k,1547)
    6638   141111616 :          lu(k,1552) = lu(k,1552) - lu(k,1529) * lu(k,1547)
    6639   141111616 :          lu(k,1553) = lu(k,1553) - lu(k,1530) * lu(k,1547)
    6640   141111616 :          lu(k,1554) = lu(k,1554) - lu(k,1531) * lu(k,1547)
    6641   141111616 :          lu(k,1555) = lu(k,1555) - lu(k,1532) * lu(k,1547)
    6642   141111616 :          lu(k,1556) = lu(k,1556) - lu(k,1533) * lu(k,1547)
    6643   141111616 :          lu(k,1557) = lu(k,1557) - lu(k,1534) * lu(k,1547)
    6644   141111616 :          lu(k,1558) = lu(k,1558) - lu(k,1535) * lu(k,1547)
    6645   141111616 :          lu(k,1578) = lu(k,1578) - lu(k,1525) * lu(k,1577)
    6646   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1526) * lu(k,1577)
    6647   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1527) * lu(k,1577)
    6648   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,1528) * lu(k,1577)
    6649   141111616 :          lu(k,1582) = lu(k,1582) - lu(k,1529) * lu(k,1577)
    6650   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1530) * lu(k,1577)
    6651   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1531) * lu(k,1577)
    6652   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1532) * lu(k,1577)
    6653   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1533) * lu(k,1577)
    6654   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1534) * lu(k,1577)
    6655   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1535) * lu(k,1577)
    6656   141111616 :          lu(k,1684) = lu(k,1684) - lu(k,1525) * lu(k,1683)
    6657   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1526) * lu(k,1683)
    6658   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1527) * lu(k,1683)
    6659   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,1528) * lu(k,1683)
    6660   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1529) * lu(k,1683)
    6661   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1530) * lu(k,1683)
    6662   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1531) * lu(k,1683)
    6663   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1532) * lu(k,1683)
    6664   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1533) * lu(k,1683)
    6665   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1534) * lu(k,1683)
    6666   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1535) * lu(k,1683)
    6667   141111616 :          lu(k,1710) = lu(k,1710) - lu(k,1525) * lu(k,1709)
    6668   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1526) * lu(k,1709)
    6669   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1527) * lu(k,1709)
    6670   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1528) * lu(k,1709)
    6671   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1529) * lu(k,1709)
    6672   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1530) * lu(k,1709)
    6673   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1531) * lu(k,1709)
    6674   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1532) * lu(k,1709)
    6675   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1533) * lu(k,1709)
    6676   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1534) * lu(k,1709)
    6677   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1535) * lu(k,1709)
    6678   141111616 :          lu(k,1800) = lu(k,1800) - lu(k,1525) * lu(k,1799)
    6679   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1526) * lu(k,1799)
    6680   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1527) * lu(k,1799)
    6681   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1528) * lu(k,1799)
    6682   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1529) * lu(k,1799)
    6683   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1530) * lu(k,1799)
    6684   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1531) * lu(k,1799)
    6685   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1532) * lu(k,1799)
    6686   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1533) * lu(k,1799)
    6687   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1534) * lu(k,1799)
    6688   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1535) * lu(k,1799)
    6689   141111616 :          lu(k,1860) = lu(k,1860) - lu(k,1525) * lu(k,1859)
    6690   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1526) * lu(k,1859)
    6691   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1527) * lu(k,1859)
    6692   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1528) * lu(k,1859)
    6693   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1529) * lu(k,1859)
    6694   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1530) * lu(k,1859)
    6695   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1531) * lu(k,1859)
    6696   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1532) * lu(k,1859)
    6697   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1533) * lu(k,1859)
    6698   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1534) * lu(k,1859)
    6699   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1535) * lu(k,1859)
    6700   141111616 :          lu(k,1901) = lu(k,1901) - lu(k,1525) * lu(k,1900)
    6701   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1526) * lu(k,1900)
    6702   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1527) * lu(k,1900)
    6703   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1528) * lu(k,1900)
    6704   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1529) * lu(k,1900)
    6705   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1530) * lu(k,1900)
    6706   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1531) * lu(k,1900)
    6707   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1532) * lu(k,1900)
    6708   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1533) * lu(k,1900)
    6709   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1534) * lu(k,1900)
    6710   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1535) * lu(k,1900)
    6711   141111616 :          lu(k,1924) = lu(k,1924) - lu(k,1525) * lu(k,1923)
    6712   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1526) * lu(k,1923)
    6713   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1527) * lu(k,1923)
    6714   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1528) * lu(k,1923)
    6715   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1529) * lu(k,1923)
    6716   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1530) * lu(k,1923)
    6717   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1531) * lu(k,1923)
    6718   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1532) * lu(k,1923)
    6719   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1533) * lu(k,1923)
    6720   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1534) * lu(k,1923)
    6721   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1535) * lu(k,1923)
    6722   141111616 :          lu(k,1958) = lu(k,1958) - lu(k,1525) * lu(k,1957)
    6723   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1526) * lu(k,1957)
    6724   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1527) * lu(k,1957)
    6725   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1528) * lu(k,1957)
    6726   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1529) * lu(k,1957)
    6727   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1530) * lu(k,1957)
    6728   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1531) * lu(k,1957)
    6729   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1532) * lu(k,1957)
    6730   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1533) * lu(k,1957)
    6731   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1534) * lu(k,1957)
    6732   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1535) * lu(k,1957)
    6733   141111616 :          lu(k,2015) = lu(k,2015) - lu(k,1525) * lu(k,2014)
    6734   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1526) * lu(k,2014)
    6735   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1527) * lu(k,2014)
    6736   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1528) * lu(k,2014)
    6737   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1529) * lu(k,2014)
    6738   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1530) * lu(k,2014)
    6739   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1531) * lu(k,2014)
    6740   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1532) * lu(k,2014)
    6741   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1533) * lu(k,2014)
    6742   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1534) * lu(k,2014)
    6743   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1535) * lu(k,2014)
    6744   141111616 :          lu(k,2040) = lu(k,2040) - lu(k,1525) * lu(k,2039)
    6745   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1526) * lu(k,2039)
    6746   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1527) * lu(k,2039)
    6747   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1528) * lu(k,2039)
    6748   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1529) * lu(k,2039)
    6749   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1530) * lu(k,2039)
    6750   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1531) * lu(k,2039)
    6751   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1532) * lu(k,2039)
    6752   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1533) * lu(k,2039)
    6753   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1534) * lu(k,2039)
    6754   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1535) * lu(k,2039)
    6755   141111616 :          lu(k,1548) = 1._r8 / lu(k,1548)
    6756   141111616 :          lu(k,1549) = lu(k,1549) * lu(k,1548)
    6757   141111616 :          lu(k,1550) = lu(k,1550) * lu(k,1548)
    6758   141111616 :          lu(k,1551) = lu(k,1551) * lu(k,1548)
    6759   141111616 :          lu(k,1552) = lu(k,1552) * lu(k,1548)
    6760   141111616 :          lu(k,1553) = lu(k,1553) * lu(k,1548)
    6761   141111616 :          lu(k,1554) = lu(k,1554) * lu(k,1548)
    6762   141111616 :          lu(k,1555) = lu(k,1555) * lu(k,1548)
    6763   141111616 :          lu(k,1556) = lu(k,1556) * lu(k,1548)
    6764   141111616 :          lu(k,1557) = lu(k,1557) * lu(k,1548)
    6765   141111616 :          lu(k,1558) = lu(k,1558) * lu(k,1548)
    6766   141111616 :          lu(k,1579) = lu(k,1579) - lu(k,1549) * lu(k,1578)
    6767   141111616 :          lu(k,1580) = lu(k,1580) - lu(k,1550) * lu(k,1578)
    6768   141111616 :          lu(k,1581) = lu(k,1581) - lu(k,1551) * lu(k,1578)
    6769   141111616 :          lu(k,1582) = lu(k,1582) - lu(k,1552) * lu(k,1578)
    6770   141111616 :          lu(k,1583) = lu(k,1583) - lu(k,1553) * lu(k,1578)
    6771   141111616 :          lu(k,1584) = lu(k,1584) - lu(k,1554) * lu(k,1578)
    6772   141111616 :          lu(k,1585) = lu(k,1585) - lu(k,1555) * lu(k,1578)
    6773   141111616 :          lu(k,1586) = lu(k,1586) - lu(k,1556) * lu(k,1578)
    6774   141111616 :          lu(k,1587) = lu(k,1587) - lu(k,1557) * lu(k,1578)
    6775   141111616 :          lu(k,1588) = lu(k,1588) - lu(k,1558) * lu(k,1578)
    6776   141111616 :          lu(k,1685) = lu(k,1685) - lu(k,1549) * lu(k,1684)
    6777   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1550) * lu(k,1684)
    6778   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,1551) * lu(k,1684)
    6779   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1552) * lu(k,1684)
    6780   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1553) * lu(k,1684)
    6781   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1554) * lu(k,1684)
    6782   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1555) * lu(k,1684)
    6783   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1556) * lu(k,1684)
    6784   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1557) * lu(k,1684)
    6785   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1558) * lu(k,1684)
    6786   141111616 :          lu(k,1711) = lu(k,1711) - lu(k,1549) * lu(k,1710)
    6787   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1550) * lu(k,1710)
    6788   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1551) * lu(k,1710)
    6789   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1552) * lu(k,1710)
    6790   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1553) * lu(k,1710)
    6791   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1554) * lu(k,1710)
    6792   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1555) * lu(k,1710)
    6793   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1556) * lu(k,1710)
    6794   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1557) * lu(k,1710)
    6795   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1558) * lu(k,1710)
    6796   141111616 :          lu(k,1801) = lu(k,1801) - lu(k,1549) * lu(k,1800)
    6797   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1550) * lu(k,1800)
    6798   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1551) * lu(k,1800)
    6799   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1552) * lu(k,1800)
    6800   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1553) * lu(k,1800)
    6801   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1554) * lu(k,1800)
    6802   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1555) * lu(k,1800)
    6803   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1556) * lu(k,1800)
    6804   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1557) * lu(k,1800)
    6805   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1558) * lu(k,1800)
    6806   141111616 :          lu(k,1861) = lu(k,1861) - lu(k,1549) * lu(k,1860)
    6807   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1550) * lu(k,1860)
    6808   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1551) * lu(k,1860)
    6809   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1552) * lu(k,1860)
    6810   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1553) * lu(k,1860)
    6811   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1554) * lu(k,1860)
    6812   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1555) * lu(k,1860)
    6813   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1556) * lu(k,1860)
    6814   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1557) * lu(k,1860)
    6815   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1558) * lu(k,1860)
    6816   141111616 :          lu(k,1902) = lu(k,1902) - lu(k,1549) * lu(k,1901)
    6817   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1550) * lu(k,1901)
    6818   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1551) * lu(k,1901)
    6819   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1552) * lu(k,1901)
    6820   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1553) * lu(k,1901)
    6821   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1554) * lu(k,1901)
    6822   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1555) * lu(k,1901)
    6823   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1556) * lu(k,1901)
    6824   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1557) * lu(k,1901)
    6825   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1558) * lu(k,1901)
    6826   141111616 :          lu(k,1925) = lu(k,1925) - lu(k,1549) * lu(k,1924)
    6827   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1550) * lu(k,1924)
    6828   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1551) * lu(k,1924)
    6829   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1552) * lu(k,1924)
    6830   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1553) * lu(k,1924)
    6831   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1554) * lu(k,1924)
    6832   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1555) * lu(k,1924)
    6833   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1556) * lu(k,1924)
    6834   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1557) * lu(k,1924)
    6835   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1558) * lu(k,1924)
    6836   141111616 :          lu(k,1959) = lu(k,1959) - lu(k,1549) * lu(k,1958)
    6837   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1550) * lu(k,1958)
    6838   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1551) * lu(k,1958)
    6839   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1552) * lu(k,1958)
    6840   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1553) * lu(k,1958)
    6841   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1554) * lu(k,1958)
    6842   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1555) * lu(k,1958)
    6843   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1556) * lu(k,1958)
    6844   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1557) * lu(k,1958)
    6845   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1558) * lu(k,1958)
    6846   141111616 :          lu(k,2016) = lu(k,2016) - lu(k,1549) * lu(k,2015)
    6847   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1550) * lu(k,2015)
    6848   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1551) * lu(k,2015)
    6849   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1552) * lu(k,2015)
    6850   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1553) * lu(k,2015)
    6851   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1554) * lu(k,2015)
    6852   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1555) * lu(k,2015)
    6853   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1556) * lu(k,2015)
    6854   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1557) * lu(k,2015)
    6855   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1558) * lu(k,2015)
    6856   141111616 :          lu(k,2041) = lu(k,2041) - lu(k,1549) * lu(k,2040)
    6857   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1550) * lu(k,2040)
    6858   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1551) * lu(k,2040)
    6859   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1552) * lu(k,2040)
    6860   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1553) * lu(k,2040)
    6861   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1554) * lu(k,2040)
    6862   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1555) * lu(k,2040)
    6863   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1556) * lu(k,2040)
    6864   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1557) * lu(k,2040)
    6865   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1558) * lu(k,2040)
    6866   141111616 :          lu(k,1579) = 1._r8 / lu(k,1579)
    6867   141111616 :          lu(k,1580) = lu(k,1580) * lu(k,1579)
    6868   141111616 :          lu(k,1581) = lu(k,1581) * lu(k,1579)
    6869   141111616 :          lu(k,1582) = lu(k,1582) * lu(k,1579)
    6870   141111616 :          lu(k,1583) = lu(k,1583) * lu(k,1579)
    6871   141111616 :          lu(k,1584) = lu(k,1584) * lu(k,1579)
    6872   141111616 :          lu(k,1585) = lu(k,1585) * lu(k,1579)
    6873   141111616 :          lu(k,1586) = lu(k,1586) * lu(k,1579)
    6874   141111616 :          lu(k,1587) = lu(k,1587) * lu(k,1579)
    6875   141111616 :          lu(k,1588) = lu(k,1588) * lu(k,1579)
    6876   141111616 :          lu(k,1686) = lu(k,1686) - lu(k,1580) * lu(k,1685)
    6877   141111616 :          lu(k,1687) = lu(k,1687) - lu(k,1581) * lu(k,1685)
    6878   141111616 :          lu(k,1688) = lu(k,1688) - lu(k,1582) * lu(k,1685)
    6879   141111616 :          lu(k,1689) = lu(k,1689) - lu(k,1583) * lu(k,1685)
    6880   141111616 :          lu(k,1690) = lu(k,1690) - lu(k,1584) * lu(k,1685)
    6881   141111616 :          lu(k,1691) = lu(k,1691) - lu(k,1585) * lu(k,1685)
    6882   141111616 :          lu(k,1692) = lu(k,1692) - lu(k,1586) * lu(k,1685)
    6883   141111616 :          lu(k,1693) = lu(k,1693) - lu(k,1587) * lu(k,1685)
    6884   141111616 :          lu(k,1694) = lu(k,1694) - lu(k,1588) * lu(k,1685)
    6885   141111616 :          lu(k,1712) = lu(k,1712) - lu(k,1580) * lu(k,1711)
    6886   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1581) * lu(k,1711)
    6887   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1582) * lu(k,1711)
    6888   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1583) * lu(k,1711)
    6889   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1584) * lu(k,1711)
    6890   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1585) * lu(k,1711)
    6891   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1586) * lu(k,1711)
    6892   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1587) * lu(k,1711)
    6893   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1588) * lu(k,1711)
    6894   141111616 :          lu(k,1802) = lu(k,1802) - lu(k,1580) * lu(k,1801)
    6895   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1581) * lu(k,1801)
    6896   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1582) * lu(k,1801)
    6897   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1583) * lu(k,1801)
    6898   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1584) * lu(k,1801)
    6899   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1585) * lu(k,1801)
    6900   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1586) * lu(k,1801)
    6901   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1587) * lu(k,1801)
    6902   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1588) * lu(k,1801)
    6903   141111616 :          lu(k,1862) = lu(k,1862) - lu(k,1580) * lu(k,1861)
    6904   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1581) * lu(k,1861)
    6905   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1582) * lu(k,1861)
    6906   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1583) * lu(k,1861)
    6907   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1584) * lu(k,1861)
    6908   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1585) * lu(k,1861)
    6909   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1586) * lu(k,1861)
    6910   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1587) * lu(k,1861)
    6911   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1588) * lu(k,1861)
    6912   141111616 :          lu(k,1903) = lu(k,1903) - lu(k,1580) * lu(k,1902)
    6913   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1581) * lu(k,1902)
    6914   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1582) * lu(k,1902)
    6915   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1583) * lu(k,1902)
    6916   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1584) * lu(k,1902)
    6917   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1585) * lu(k,1902)
    6918   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1586) * lu(k,1902)
    6919   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1587) * lu(k,1902)
    6920   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1588) * lu(k,1902)
    6921   141111616 :          lu(k,1926) = lu(k,1926) - lu(k,1580) * lu(k,1925)
    6922   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1581) * lu(k,1925)
    6923   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1582) * lu(k,1925)
    6924   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1583) * lu(k,1925)
    6925   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1584) * lu(k,1925)
    6926   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1585) * lu(k,1925)
    6927   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1586) * lu(k,1925)
    6928   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1587) * lu(k,1925)
    6929   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1588) * lu(k,1925)
    6930   141111616 :          lu(k,1960) = lu(k,1960) - lu(k,1580) * lu(k,1959)
    6931   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1581) * lu(k,1959)
    6932   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1582) * lu(k,1959)
    6933   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1583) * lu(k,1959)
    6934   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1584) * lu(k,1959)
    6935   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1585) * lu(k,1959)
    6936   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1586) * lu(k,1959)
    6937   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1587) * lu(k,1959)
    6938   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1588) * lu(k,1959)
    6939   141111616 :          lu(k,2017) = lu(k,2017) - lu(k,1580) * lu(k,2016)
    6940   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1581) * lu(k,2016)
    6941   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1582) * lu(k,2016)
    6942   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1583) * lu(k,2016)
    6943   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1584) * lu(k,2016)
    6944   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1585) * lu(k,2016)
    6945   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1586) * lu(k,2016)
    6946   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1587) * lu(k,2016)
    6947   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1588) * lu(k,2016)
    6948   141111616 :          lu(k,2042) = lu(k,2042) - lu(k,1580) * lu(k,2041)
    6949   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1581) * lu(k,2041)
    6950   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1582) * lu(k,2041)
    6951   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1583) * lu(k,2041)
    6952   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1584) * lu(k,2041)
    6953   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1585) * lu(k,2041)
    6954   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1586) * lu(k,2041)
    6955   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1587) * lu(k,2041)
    6956   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1588) * lu(k,2041)
    6957   141111616 :          lu(k,1686) = 1._r8 / lu(k,1686)
    6958   141111616 :          lu(k,1687) = lu(k,1687) * lu(k,1686)
    6959   141111616 :          lu(k,1688) = lu(k,1688) * lu(k,1686)
    6960   141111616 :          lu(k,1689) = lu(k,1689) * lu(k,1686)
    6961   141111616 :          lu(k,1690) = lu(k,1690) * lu(k,1686)
    6962   141111616 :          lu(k,1691) = lu(k,1691) * lu(k,1686)
    6963   141111616 :          lu(k,1692) = lu(k,1692) * lu(k,1686)
    6964   141111616 :          lu(k,1693) = lu(k,1693) * lu(k,1686)
    6965   141111616 :          lu(k,1694) = lu(k,1694) * lu(k,1686)
    6966   141111616 :          lu(k,1713) = lu(k,1713) - lu(k,1687) * lu(k,1712)
    6967   141111616 :          lu(k,1714) = lu(k,1714) - lu(k,1688) * lu(k,1712)
    6968   141111616 :          lu(k,1715) = lu(k,1715) - lu(k,1689) * lu(k,1712)
    6969   141111616 :          lu(k,1716) = lu(k,1716) - lu(k,1690) * lu(k,1712)
    6970   141111616 :          lu(k,1717) = lu(k,1717) - lu(k,1691) * lu(k,1712)
    6971   141111616 :          lu(k,1718) = lu(k,1718) - lu(k,1692) * lu(k,1712)
    6972   141111616 :          lu(k,1719) = lu(k,1719) - lu(k,1693) * lu(k,1712)
    6973   141111616 :          lu(k,1720) = lu(k,1720) - lu(k,1694) * lu(k,1712)
    6974   141111616 :          lu(k,1803) = lu(k,1803) - lu(k,1687) * lu(k,1802)
    6975   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1688) * lu(k,1802)
    6976   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1689) * lu(k,1802)
    6977   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1690) * lu(k,1802)
    6978   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1691) * lu(k,1802)
    6979   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1692) * lu(k,1802)
    6980   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1693) * lu(k,1802)
    6981   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1694) * lu(k,1802)
    6982   141111616 :          lu(k,1863) = lu(k,1863) - lu(k,1687) * lu(k,1862)
    6983   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1688) * lu(k,1862)
    6984   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1689) * lu(k,1862)
    6985   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1690) * lu(k,1862)
    6986   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1691) * lu(k,1862)
    6987   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1692) * lu(k,1862)
    6988   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1693) * lu(k,1862)
    6989   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1694) * lu(k,1862)
    6990   141111616 :          lu(k,1904) = lu(k,1904) - lu(k,1687) * lu(k,1903)
    6991   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1688) * lu(k,1903)
    6992   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1689) * lu(k,1903)
    6993   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1690) * lu(k,1903)
    6994   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1691) * lu(k,1903)
    6995   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1692) * lu(k,1903)
    6996   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1693) * lu(k,1903)
    6997   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1694) * lu(k,1903)
    6998   141111616 :          lu(k,1927) = lu(k,1927) - lu(k,1687) * lu(k,1926)
    6999   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1688) * lu(k,1926)
    7000   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1689) * lu(k,1926)
    7001   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1690) * lu(k,1926)
    7002   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1691) * lu(k,1926)
    7003   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1692) * lu(k,1926)
    7004   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1693) * lu(k,1926)
    7005   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1694) * lu(k,1926)
    7006   141111616 :          lu(k,1961) = lu(k,1961) - lu(k,1687) * lu(k,1960)
    7007   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1688) * lu(k,1960)
    7008   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1689) * lu(k,1960)
    7009   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1690) * lu(k,1960)
    7010   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1691) * lu(k,1960)
    7011   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1692) * lu(k,1960)
    7012   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1693) * lu(k,1960)
    7013   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1694) * lu(k,1960)
    7014   141111616 :          lu(k,2018) = lu(k,2018) - lu(k,1687) * lu(k,2017)
    7015   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1688) * lu(k,2017)
    7016   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1689) * lu(k,2017)
    7017   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1690) * lu(k,2017)
    7018   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1691) * lu(k,2017)
    7019   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1692) * lu(k,2017)
    7020   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1693) * lu(k,2017)
    7021   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1694) * lu(k,2017)
    7022   141111616 :          lu(k,2043) = lu(k,2043) - lu(k,1687) * lu(k,2042)
    7023   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1688) * lu(k,2042)
    7024   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1689) * lu(k,2042)
    7025   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1690) * lu(k,2042)
    7026   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1691) * lu(k,2042)
    7027   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1692) * lu(k,2042)
    7028   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1693) * lu(k,2042)
    7029   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1694) * lu(k,2042)
    7030   141111616 :          lu(k,1713) = 1._r8 / lu(k,1713)
    7031   141111616 :          lu(k,1714) = lu(k,1714) * lu(k,1713)
    7032   141111616 :          lu(k,1715) = lu(k,1715) * lu(k,1713)
    7033   141111616 :          lu(k,1716) = lu(k,1716) * lu(k,1713)
    7034   141111616 :          lu(k,1717) = lu(k,1717) * lu(k,1713)
    7035   141111616 :          lu(k,1718) = lu(k,1718) * lu(k,1713)
    7036   141111616 :          lu(k,1719) = lu(k,1719) * lu(k,1713)
    7037   141111616 :          lu(k,1720) = lu(k,1720) * lu(k,1713)
    7038   141111616 :          lu(k,1804) = lu(k,1804) - lu(k,1714) * lu(k,1803)
    7039   141111616 :          lu(k,1805) = lu(k,1805) - lu(k,1715) * lu(k,1803)
    7040   141111616 :          lu(k,1806) = lu(k,1806) - lu(k,1716) * lu(k,1803)
    7041   141111616 :          lu(k,1807) = lu(k,1807) - lu(k,1717) * lu(k,1803)
    7042   141111616 :          lu(k,1808) = lu(k,1808) - lu(k,1718) * lu(k,1803)
    7043   141111616 :          lu(k,1809) = lu(k,1809) - lu(k,1719) * lu(k,1803)
    7044   141111616 :          lu(k,1810) = lu(k,1810) - lu(k,1720) * lu(k,1803)
    7045   141111616 :          lu(k,1864) = lu(k,1864) - lu(k,1714) * lu(k,1863)
    7046   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1715) * lu(k,1863)
    7047   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1716) * lu(k,1863)
    7048   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1717) * lu(k,1863)
    7049   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1718) * lu(k,1863)
    7050   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1719) * lu(k,1863)
    7051   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1720) * lu(k,1863)
    7052   141111616 :          lu(k,1905) = lu(k,1905) - lu(k,1714) * lu(k,1904)
    7053   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1715) * lu(k,1904)
    7054   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1716) * lu(k,1904)
    7055   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1717) * lu(k,1904)
    7056   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1718) * lu(k,1904)
    7057   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1719) * lu(k,1904)
    7058   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1720) * lu(k,1904)
    7059   141111616 :          lu(k,1928) = lu(k,1928) - lu(k,1714) * lu(k,1927)
    7060   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1715) * lu(k,1927)
    7061   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1716) * lu(k,1927)
    7062   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1717) * lu(k,1927)
    7063   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1718) * lu(k,1927)
    7064   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1719) * lu(k,1927)
    7065   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1720) * lu(k,1927)
    7066   141111616 :          lu(k,1962) = lu(k,1962) - lu(k,1714) * lu(k,1961)
    7067   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1715) * lu(k,1961)
    7068   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1716) * lu(k,1961)
    7069   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1717) * lu(k,1961)
    7070   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1718) * lu(k,1961)
    7071   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1719) * lu(k,1961)
    7072   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1720) * lu(k,1961)
    7073   141111616 :          lu(k,2019) = lu(k,2019) - lu(k,1714) * lu(k,2018)
    7074   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1715) * lu(k,2018)
    7075   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1716) * lu(k,2018)
    7076   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1717) * lu(k,2018)
    7077   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1718) * lu(k,2018)
    7078   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1719) * lu(k,2018)
    7079   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1720) * lu(k,2018)
    7080   141111616 :          lu(k,2044) = lu(k,2044) - lu(k,1714) * lu(k,2043)
    7081   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1715) * lu(k,2043)
    7082   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1716) * lu(k,2043)
    7083   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1717) * lu(k,2043)
    7084   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1718) * lu(k,2043)
    7085   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1719) * lu(k,2043)
    7086   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1720) * lu(k,2043)
    7087   141111616 :          lu(k,1804) = 1._r8 / lu(k,1804)
    7088   141111616 :          lu(k,1805) = lu(k,1805) * lu(k,1804)
    7089   141111616 :          lu(k,1806) = lu(k,1806) * lu(k,1804)
    7090   141111616 :          lu(k,1807) = lu(k,1807) * lu(k,1804)
    7091   141111616 :          lu(k,1808) = lu(k,1808) * lu(k,1804)
    7092   141111616 :          lu(k,1809) = lu(k,1809) * lu(k,1804)
    7093   141111616 :          lu(k,1810) = lu(k,1810) * lu(k,1804)
    7094   141111616 :          lu(k,1865) = lu(k,1865) - lu(k,1805) * lu(k,1864)
    7095   141111616 :          lu(k,1866) = lu(k,1866) - lu(k,1806) * lu(k,1864)
    7096   141111616 :          lu(k,1867) = lu(k,1867) - lu(k,1807) * lu(k,1864)
    7097   141111616 :          lu(k,1868) = lu(k,1868) - lu(k,1808) * lu(k,1864)
    7098   141111616 :          lu(k,1869) = lu(k,1869) - lu(k,1809) * lu(k,1864)
    7099   141111616 :          lu(k,1870) = lu(k,1870) - lu(k,1810) * lu(k,1864)
    7100   141111616 :          lu(k,1906) = lu(k,1906) - lu(k,1805) * lu(k,1905)
    7101   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1806) * lu(k,1905)
    7102   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1807) * lu(k,1905)
    7103   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1808) * lu(k,1905)
    7104   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1809) * lu(k,1905)
    7105   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1810) * lu(k,1905)
    7106   141111616 :          lu(k,1929) = lu(k,1929) - lu(k,1805) * lu(k,1928)
    7107   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1806) * lu(k,1928)
    7108   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1807) * lu(k,1928)
    7109   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1808) * lu(k,1928)
    7110   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1809) * lu(k,1928)
    7111   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1810) * lu(k,1928)
    7112   141111616 :          lu(k,1963) = lu(k,1963) - lu(k,1805) * lu(k,1962)
    7113   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1806) * lu(k,1962)
    7114   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1807) * lu(k,1962)
    7115   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1808) * lu(k,1962)
    7116   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1809) * lu(k,1962)
    7117   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1810) * lu(k,1962)
    7118   141111616 :          lu(k,2020) = lu(k,2020) - lu(k,1805) * lu(k,2019)
    7119   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1806) * lu(k,2019)
    7120   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1807) * lu(k,2019)
    7121   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1808) * lu(k,2019)
    7122   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1809) * lu(k,2019)
    7123   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1810) * lu(k,2019)
    7124   141111616 :          lu(k,2045) = lu(k,2045) - lu(k,1805) * lu(k,2044)
    7125   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1806) * lu(k,2044)
    7126   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1807) * lu(k,2044)
    7127   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1808) * lu(k,2044)
    7128   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1809) * lu(k,2044)
    7129   145521354 :          lu(k,2050) = lu(k,2050) - lu(k,1810) * lu(k,2044)
    7130             :       end do
    7131     4409738 :       end subroutine lu_fac26
    7132     4409738 :       subroutine lu_fac27( avec_len, lu )
    7133             :       use chem_mods, only : nzcnt
    7134             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7135             :       implicit none
    7136             : !-----------------------------------------------------------------------
    7137             : ! ... dummy args
    7138             : !-----------------------------------------------------------------------
    7139             :       integer, intent(in) :: avec_len
    7140             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7141             : !-----------------------------------------------------------------------
    7142             : ! ... local variables
    7143             : !-----------------------------------------------------------------------
    7144             :       integer :: k
    7145   145521354 :       do k = 1,avec_len
    7146   141111616 :          lu(k,1865) = 1._r8 / lu(k,1865)
    7147   141111616 :          lu(k,1866) = lu(k,1866) * lu(k,1865)
    7148   141111616 :          lu(k,1867) = lu(k,1867) * lu(k,1865)
    7149   141111616 :          lu(k,1868) = lu(k,1868) * lu(k,1865)
    7150   141111616 :          lu(k,1869) = lu(k,1869) * lu(k,1865)
    7151   141111616 :          lu(k,1870) = lu(k,1870) * lu(k,1865)
    7152   141111616 :          lu(k,1907) = lu(k,1907) - lu(k,1866) * lu(k,1906)
    7153   141111616 :          lu(k,1908) = lu(k,1908) - lu(k,1867) * lu(k,1906)
    7154   141111616 :          lu(k,1909) = lu(k,1909) - lu(k,1868) * lu(k,1906)
    7155   141111616 :          lu(k,1910) = lu(k,1910) - lu(k,1869) * lu(k,1906)
    7156   141111616 :          lu(k,1911) = lu(k,1911) - lu(k,1870) * lu(k,1906)
    7157   141111616 :          lu(k,1930) = lu(k,1930) - lu(k,1866) * lu(k,1929)
    7158   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1867) * lu(k,1929)
    7159   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1868) * lu(k,1929)
    7160   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1869) * lu(k,1929)
    7161   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1870) * lu(k,1929)
    7162   141111616 :          lu(k,1964) = lu(k,1964) - lu(k,1866) * lu(k,1963)
    7163   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1867) * lu(k,1963)
    7164   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1868) * lu(k,1963)
    7165   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1869) * lu(k,1963)
    7166   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1870) * lu(k,1963)
    7167   141111616 :          lu(k,2021) = lu(k,2021) - lu(k,1866) * lu(k,2020)
    7168   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1867) * lu(k,2020)
    7169   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1868) * lu(k,2020)
    7170   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1869) * lu(k,2020)
    7171   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1870) * lu(k,2020)
    7172   141111616 :          lu(k,2046) = lu(k,2046) - lu(k,1866) * lu(k,2045)
    7173   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1867) * lu(k,2045)
    7174   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1868) * lu(k,2045)
    7175   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1869) * lu(k,2045)
    7176   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1870) * lu(k,2045)
    7177   141111616 :          lu(k,1907) = 1._r8 / lu(k,1907)
    7178   141111616 :          lu(k,1908) = lu(k,1908) * lu(k,1907)
    7179   141111616 :          lu(k,1909) = lu(k,1909) * lu(k,1907)
    7180   141111616 :          lu(k,1910) = lu(k,1910) * lu(k,1907)
    7181   141111616 :          lu(k,1911) = lu(k,1911) * lu(k,1907)
    7182   141111616 :          lu(k,1931) = lu(k,1931) - lu(k,1908) * lu(k,1930)
    7183   141111616 :          lu(k,1932) = lu(k,1932) - lu(k,1909) * lu(k,1930)
    7184   141111616 :          lu(k,1933) = lu(k,1933) - lu(k,1910) * lu(k,1930)
    7185   141111616 :          lu(k,1934) = lu(k,1934) - lu(k,1911) * lu(k,1930)
    7186   141111616 :          lu(k,1965) = lu(k,1965) - lu(k,1908) * lu(k,1964)
    7187   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1909) * lu(k,1964)
    7188   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1910) * lu(k,1964)
    7189   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1911) * lu(k,1964)
    7190   141111616 :          lu(k,2022) = lu(k,2022) - lu(k,1908) * lu(k,2021)
    7191   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1909) * lu(k,2021)
    7192   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1910) * lu(k,2021)
    7193   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1911) * lu(k,2021)
    7194   141111616 :          lu(k,2047) = lu(k,2047) - lu(k,1908) * lu(k,2046)
    7195   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1909) * lu(k,2046)
    7196   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1910) * lu(k,2046)
    7197   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1911) * lu(k,2046)
    7198   141111616 :          lu(k,1931) = 1._r8 / lu(k,1931)
    7199   141111616 :          lu(k,1932) = lu(k,1932) * lu(k,1931)
    7200   141111616 :          lu(k,1933) = lu(k,1933) * lu(k,1931)
    7201   141111616 :          lu(k,1934) = lu(k,1934) * lu(k,1931)
    7202   141111616 :          lu(k,1966) = lu(k,1966) - lu(k,1932) * lu(k,1965)
    7203   141111616 :          lu(k,1967) = lu(k,1967) - lu(k,1933) * lu(k,1965)
    7204   141111616 :          lu(k,1968) = lu(k,1968) - lu(k,1934) * lu(k,1965)
    7205   141111616 :          lu(k,2023) = lu(k,2023) - lu(k,1932) * lu(k,2022)
    7206   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1933) * lu(k,2022)
    7207   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1934) * lu(k,2022)
    7208   141111616 :          lu(k,2048) = lu(k,2048) - lu(k,1932) * lu(k,2047)
    7209   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1933) * lu(k,2047)
    7210   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1934) * lu(k,2047)
    7211   141111616 :          lu(k,1966) = 1._r8 / lu(k,1966)
    7212   141111616 :          lu(k,1967) = lu(k,1967) * lu(k,1966)
    7213   141111616 :          lu(k,1968) = lu(k,1968) * lu(k,1966)
    7214   141111616 :          lu(k,2024) = lu(k,2024) - lu(k,1967) * lu(k,2023)
    7215   141111616 :          lu(k,2025) = lu(k,2025) - lu(k,1968) * lu(k,2023)
    7216   141111616 :          lu(k,2049) = lu(k,2049) - lu(k,1967) * lu(k,2048)
    7217   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,1968) * lu(k,2048)
    7218   141111616 :          lu(k,2024) = 1._r8 / lu(k,2024)
    7219   141111616 :          lu(k,2025) = lu(k,2025) * lu(k,2024)
    7220   141111616 :          lu(k,2050) = lu(k,2050) - lu(k,2025) * lu(k,2049)
    7221   145521354 :          lu(k,2050) = 1._r8 / lu(k,2050)
    7222             :       end do
    7223     4409738 :       end subroutine lu_fac27
    7224     4409738 :       subroutine lu_fac( avec_len, lu )
    7225             :       use chem_mods, only : nzcnt
    7226             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7227             :       implicit none
    7228             : !-----------------------------------------------------------------------
    7229             : ! ... dummy args
    7230             : !-----------------------------------------------------------------------
    7231             :       integer, intent(in) :: avec_len
    7232             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7233     4409738 :       call lu_fac01( avec_len, lu )
    7234     4409738 :       call lu_fac02( avec_len, lu )
    7235     4409738 :       call lu_fac03( avec_len, lu )
    7236     4409738 :       call lu_fac04( avec_len, lu )
    7237     4409738 :       call lu_fac05( avec_len, lu )
    7238     4409738 :       call lu_fac06( avec_len, lu )
    7239     4409738 :       call lu_fac07( avec_len, lu )
    7240     4409738 :       call lu_fac08( avec_len, lu )
    7241     4409738 :       call lu_fac09( avec_len, lu )
    7242     4409738 :       call lu_fac10( avec_len, lu )
    7243     4409738 :       call lu_fac11( avec_len, lu )
    7244     4409738 :       call lu_fac12( avec_len, lu )
    7245     4409738 :       call lu_fac13( avec_len, lu )
    7246     4409738 :       call lu_fac14( avec_len, lu )
    7247     4409738 :       call lu_fac15( avec_len, lu )
    7248     4409738 :       call lu_fac16( avec_len, lu )
    7249     4409738 :       call lu_fac17( avec_len, lu )
    7250     4409738 :       call lu_fac18( avec_len, lu )
    7251     4409738 :       call lu_fac19( avec_len, lu )
    7252     4409738 :       call lu_fac20( avec_len, lu )
    7253     4409738 :       call lu_fac21( avec_len, lu )
    7254     4409738 :       call lu_fac22( avec_len, lu )
    7255     4409738 :       call lu_fac23( avec_len, lu )
    7256     4409738 :       call lu_fac24( avec_len, lu )
    7257     4409738 :       call lu_fac25( avec_len, lu )
    7258     4409738 :       call lu_fac26( avec_len, lu )
    7259     4409738 :       call lu_fac27( avec_len, lu )
    7260     4409738 :       end subroutine lu_fac
    7261             :       end module mo_lu_factor

Generated by: LCOV version 1.14