LCOV - code coverage report
Current view: top level - chemistry/pp_waccm_ma_noaero - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 3060 3060 100.0 %
Date: 2025-03-14 01:33:33 Functions: 11 11 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     9751000 :       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   318792954 :       do k = 1,avec_len
      20   309041954 :          lu(k,1) = 1._r8 / lu(k,1)
      21   309041954 :          lu(k,2) = 1._r8 / lu(k,2)
      22   309041954 :          lu(k,3) = lu(k,3) * lu(k,2)
      23   309041954 :          lu(k,4) = lu(k,4) * lu(k,2)
      24   309041954 :          lu(k,449) = lu(k,449) - lu(k,3) * lu(k,433)
      25   309041954 :          lu(k,450) = lu(k,450) - lu(k,4) * lu(k,433)
      26   309041954 :          lu(k,5) = 1._r8 / lu(k,5)
      27   309041954 :          lu(k,6) = lu(k,6) * lu(k,5)
      28   309041954 :          lu(k,7) = lu(k,7) * lu(k,5)
      29   309041954 :          lu(k,520) = lu(k,520) - lu(k,6) * lu(k,517)
      30   309041954 :          lu(k,533) = lu(k,533) - lu(k,7) * lu(k,517)
      31   309041954 :          lu(k,624) = - lu(k,6) * lu(k,614)
      32   309041954 :          lu(k,642) = - lu(k,7) * lu(k,614)
      33   309041954 :          lu(k,8) = 1._r8 / lu(k,8)
      34   309041954 :          lu(k,9) = lu(k,9) * lu(k,8)
      35   309041954 :          lu(k,10) = lu(k,10) * lu(k,8)
      36   309041954 :          lu(k,29) = lu(k,29) - lu(k,9) * lu(k,28)
      37   309041954 :          lu(k,32) = lu(k,32) - lu(k,10) * lu(k,28)
      38   309041954 :          lu(k,723) = lu(k,723) - lu(k,9) * lu(k,721)
      39   309041954 :          lu(k,745) = lu(k,745) - lu(k,10) * lu(k,721)
      40   309041954 :          lu(k,11) = 1._r8 / lu(k,11)
      41   309041954 :          lu(k,12) = lu(k,12) * lu(k,11)
      42   309041954 :          lu(k,15) = lu(k,15) - lu(k,12) * lu(k,13)
      43   309041954 :          lu(k,423) = lu(k,423) - lu(k,12) * lu(k,390)
      44   309041954 :          lu(k,507) = lu(k,507) - lu(k,12) * lu(k,486)
      45   309041954 :          lu(k,576) = lu(k,576) - lu(k,12) * lu(k,564)
      46   309041954 :          lu(k,14) = 1._r8 / lu(k,14)
      47   309041954 :          lu(k,15) = lu(k,15) * lu(k,14)
      48   309041954 :          lu(k,423) = lu(k,423) - lu(k,15) * lu(k,391)
      49   309041954 :          lu(k,507) = lu(k,507) - lu(k,15) * lu(k,487)
      50   309041954 :          lu(k,532) = lu(k,532) - lu(k,15) * lu(k,518)
      51   309041954 :          lu(k,576) = lu(k,576) - lu(k,15) * lu(k,565)
      52   309041954 :          lu(k,16) = 1._r8 / lu(k,16)
      53   309041954 :          lu(k,17) = lu(k,17) * lu(k,16)
      54   309041954 :          lu(k,147) = lu(k,147) - lu(k,17) * lu(k,142)
      55   309041954 :          lu(k,249) = lu(k,249) - lu(k,17) * lu(k,241)
      56   309041954 :          lu(k,316) = lu(k,316) - lu(k,17) * lu(k,302)
      57   309041954 :          lu(k,450) = lu(k,450) - lu(k,17) * lu(k,434)
      58   309041954 :          lu(k,475) = lu(k,475) - lu(k,17) * lu(k,461)
      59   309041954 :          lu(k,18) = 1._r8 / lu(k,18)
      60   309041954 :          lu(k,19) = lu(k,19) * lu(k,18)
      61   309041954 :          lu(k,20) = lu(k,20) * lu(k,18)
      62   309041954 :          lu(k,21) = lu(k,21) * lu(k,18)
      63   309041954 :          lu(k,520) = lu(k,520) - lu(k,19) * lu(k,519)
      64   309041954 :          lu(k,531) = lu(k,531) - lu(k,20) * lu(k,519)
      65   309041954 :          lu(k,533) = lu(k,533) - lu(k,21) * lu(k,519)
      66   309041954 :          lu(k,624) = lu(k,624) - lu(k,19) * lu(k,615)
      67   309041954 :          lu(k,640) = lu(k,640) - lu(k,20) * lu(k,615)
      68   309041954 :          lu(k,642) = lu(k,642) - lu(k,21) * lu(k,615)
      69   309041954 :          lu(k,22) = 1._r8 / lu(k,22)
      70   309041954 :          lu(k,23) = lu(k,23) * lu(k,22)
      71   309041954 :          lu(k,24) = lu(k,24) * lu(k,22)
      72   309041954 :          lu(k,135) = lu(k,135) - lu(k,23) * lu(k,133)
      73   309041954 :          lu(k,138) = - lu(k,24) * lu(k,133)
      74   309041954 :          lu(k,309) = - lu(k,23) * lu(k,303)
      75   309041954 :          lu(k,316) = lu(k,316) - lu(k,24) * lu(k,303)
      76   309041954 :          lu(k,443) = lu(k,443) - lu(k,23) * lu(k,435)
      77   309041954 :          lu(k,450) = lu(k,450) - lu(k,24) * lu(k,435)
      78   309041954 :          lu(k,703) = lu(k,703) - lu(k,23) * lu(k,695)
      79   309041954 :          lu(k,710) = lu(k,710) - lu(k,24) * lu(k,695)
      80   309041954 :          lu(k,25) = 1._r8 / lu(k,25)
      81   309041954 :          lu(k,26) = lu(k,26) * lu(k,25)
      82   309041954 :          lu(k,27) = lu(k,27) * lu(k,25)
      83   309041954 :          lu(k,125) = lu(k,125) - lu(k,26) * lu(k,124)
      84   309041954 :          lu(k,127) = lu(k,127) - lu(k,27) * lu(k,124)
      85   309041954 :          lu(k,254) = lu(k,254) - lu(k,26) * lu(k,253)
      86   309041954 :          lu(k,256) = - lu(k,27) * lu(k,253)
      87   309041954 :          lu(k,675) = lu(k,675) - lu(k,26) * lu(k,674)
      88   309041954 :          lu(k,677) = lu(k,677) - lu(k,27) * lu(k,674)
      89   309041954 :          lu(k,724) = lu(k,724) - lu(k,26) * lu(k,722)
      90   309041954 :          lu(k,728) = lu(k,728) - lu(k,27) * lu(k,722)
      91   309041954 :          lu(k,29) = 1._r8 / lu(k,29)
      92   309041954 :          lu(k,30) = lu(k,30) * lu(k,29)
      93   309041954 :          lu(k,31) = lu(k,31) * lu(k,29)
      94   309041954 :          lu(k,32) = lu(k,32) * lu(k,29)
      95   309041954 :          lu(k,235) = lu(k,235) - lu(k,30) * lu(k,234)
      96   309041954 :          lu(k,238) = lu(k,238) - lu(k,31) * lu(k,234)
      97   309041954 :          lu(k,240) = - lu(k,32) * lu(k,234)
      98   309041954 :          lu(k,628) = lu(k,628) - lu(k,30) * lu(k,616)
      99   309041954 :          lu(k,638) = lu(k,638) - lu(k,31) * lu(k,616)
     100   309041954 :          lu(k,650) = lu(k,650) - lu(k,32) * lu(k,616)
     101   309041954 :          lu(k,725) = - lu(k,30) * lu(k,723)
     102   309041954 :          lu(k,733) = lu(k,733) - lu(k,31) * lu(k,723)
     103   309041954 :          lu(k,745) = lu(k,745) - lu(k,32) * lu(k,723)
     104   309041954 :          lu(k,33) = 1._r8 / lu(k,33)
     105   309041954 :          lu(k,34) = lu(k,34) * lu(k,33)
     106   309041954 :          lu(k,35) = lu(k,35) * lu(k,33)
     107   309041954 :          lu(k,36) = lu(k,36) * lu(k,33)
     108   309041954 :          lu(k,37) = lu(k,37) * lu(k,33)
     109   309041954 :          lu(k,38) = lu(k,38) * lu(k,33)
     110   309041954 :          lu(k,344) = lu(k,344) - lu(k,34) * lu(k,341)
     111   309041954 :          lu(k,345) = lu(k,345) - lu(k,35) * lu(k,341)
     112   309041954 :          lu(k,350) = lu(k,350) - lu(k,36) * lu(k,341)
     113   309041954 :          lu(k,351) = lu(k,351) - lu(k,37) * lu(k,341)
     114   309041954 :          lu(k,360) = lu(k,360) - lu(k,38) * lu(k,341)
     115   309041954 :          lu(k,628) = lu(k,628) - lu(k,34) * lu(k,617)
     116   309041954 :          lu(k,630) = lu(k,630) - lu(k,35) * lu(k,617)
     117   309041954 :          lu(k,636) = lu(k,636) - lu(k,36) * lu(k,617)
     118   309041954 :          lu(k,637) = lu(k,637) - lu(k,37) * lu(k,617)
     119   309041954 :          lu(k,646) = lu(k,646) - lu(k,38) * lu(k,617)
     120   309041954 :          lu(k,39) = 1._r8 / lu(k,39)
     121   309041954 :          lu(k,40) = lu(k,40) * lu(k,39)
     122   309041954 :          lu(k,41) = lu(k,41) * lu(k,39)
     123   309041954 :          lu(k,42) = lu(k,42) * lu(k,39)
     124   309041954 :          lu(k,43) = lu(k,43) * lu(k,39)
     125   309041954 :          lu(k,44) = lu(k,44) * lu(k,39)
     126   309041954 :          lu(k,345) = lu(k,345) - lu(k,40) * lu(k,342)
     127   309041954 :          lu(k,350) = lu(k,350) - lu(k,41) * lu(k,342)
     128   309041954 :          lu(k,352) = lu(k,352) - lu(k,42) * lu(k,342)
     129   309041954 :          lu(k,359) = lu(k,359) - lu(k,43) * lu(k,342)
     130   309041954 :          lu(k,361) = lu(k,361) - lu(k,44) * lu(k,342)
     131   309041954 :          lu(k,593) = lu(k,593) - lu(k,40) * lu(k,586)
     132   309041954 :          lu(k,599) = lu(k,599) - lu(k,41) * lu(k,586)
     133   309041954 :          lu(k,601) = lu(k,601) - lu(k,42) * lu(k,586)
     134   309041954 :          lu(k,608) = lu(k,608) - lu(k,43) * lu(k,586)
     135   309041954 :          lu(k,610) = lu(k,610) - lu(k,44) * lu(k,586)
     136   309041954 :          lu(k,45) = 1._r8 / lu(k,45)
     137   309041954 :          lu(k,46) = lu(k,46) * lu(k,45)
     138   309041954 :          lu(k,47) = lu(k,47) * lu(k,45)
     139   309041954 :          lu(k,48) = lu(k,48) * lu(k,45)
     140   309041954 :          lu(k,49) = lu(k,49) * lu(k,45)
     141   309041954 :          lu(k,265) = lu(k,265) - lu(k,46) * lu(k,263)
     142   309041954 :          lu(k,266) = lu(k,266) - lu(k,47) * lu(k,263)
     143   309041954 :          lu(k,270) = lu(k,270) - lu(k,48) * lu(k,263)
     144   309041954 :          lu(k,271) = lu(k,271) - lu(k,49) * lu(k,263)
     145   309041954 :          lu(k,438) = lu(k,438) - lu(k,46) * lu(k,436)
     146   309041954 :          lu(k,441) = lu(k,441) - lu(k,47) * lu(k,436)
     147   309041954 :          lu(k,448) = lu(k,448) - lu(k,48) * lu(k,436)
     148   309041954 :          lu(k,449) = lu(k,449) - lu(k,49) * lu(k,436)
     149   309041954 :          lu(k,699) = lu(k,699) - lu(k,46) * lu(k,696)
     150   309041954 :          lu(k,701) = lu(k,701) - lu(k,47) * lu(k,696)
     151   309041954 :          lu(k,708) = lu(k,708) - lu(k,48) * lu(k,696)
     152   318792954 :          lu(k,709) = lu(k,709) - lu(k,49) * lu(k,696)
     153             :       end do
     154     9751000 :       end subroutine lu_fac01
     155     9751000 :       subroutine lu_fac02( avec_len, lu )
     156             :       use chem_mods, only : nzcnt
     157             :       use shr_kind_mod, only : r8 => shr_kind_r8
     158             :       implicit none
     159             : !-----------------------------------------------------------------------
     160             : ! ... dummy args
     161             : !-----------------------------------------------------------------------
     162             :       integer, intent(in) :: avec_len
     163             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     164             : !-----------------------------------------------------------------------
     165             : ! ... local variables
     166             : !-----------------------------------------------------------------------
     167             :       integer :: k
     168   318792954 :       do k = 1,avec_len
     169   309041954 :          lu(k,50) = 1._r8 / lu(k,50)
     170   309041954 :          lu(k,51) = lu(k,51) * lu(k,50)
     171   309041954 :          lu(k,52) = lu(k,52) * lu(k,50)
     172   309041954 :          lu(k,53) = lu(k,53) * lu(k,50)
     173   309041954 :          lu(k,54) = lu(k,54) * lu(k,50)
     174   309041954 :          lu(k,55) = lu(k,55) * lu(k,50)
     175   309041954 :          lu(k,56) = lu(k,56) * lu(k,50)
     176   309041954 :          lu(k,57) = lu(k,57) * lu(k,50)
     177   309041954 :          lu(k,396) = lu(k,396) - lu(k,51) * lu(k,392)
     178   309041954 :          lu(k,399) = - lu(k,52) * lu(k,392)
     179   309041954 :          lu(k,410) = - lu(k,53) * lu(k,392)
     180   309041954 :          lu(k,413) = lu(k,413) - lu(k,54) * lu(k,392)
     181   309041954 :          lu(k,414) = lu(k,414) - lu(k,55) * lu(k,392)
     182   309041954 :          lu(k,420) = lu(k,420) - lu(k,56) * lu(k,392)
     183   309041954 :          lu(k,428) = lu(k,428) - lu(k,57) * lu(k,392)
     184   309041954 :          lu(k,621) = lu(k,621) - lu(k,51) * lu(k,618)
     185   309041954 :          lu(k,623) = lu(k,623) - lu(k,52) * lu(k,618)
     186   309041954 :          lu(k,628) = lu(k,628) - lu(k,53) * lu(k,618)
     187   309041954 :          lu(k,631) = lu(k,631) - lu(k,54) * lu(k,618)
     188   309041954 :          lu(k,632) = lu(k,632) - lu(k,55) * lu(k,618)
     189   309041954 :          lu(k,638) = lu(k,638) - lu(k,56) * lu(k,618)
     190   309041954 :          lu(k,646) = lu(k,646) - lu(k,57) * lu(k,618)
     191   309041954 :          lu(k,58) = 1._r8 / lu(k,58)
     192   309041954 :          lu(k,59) = lu(k,59) * lu(k,58)
     193   309041954 :          lu(k,60) = lu(k,60) * lu(k,58)
     194   309041954 :          lu(k,61) = lu(k,61) * lu(k,58)
     195   309041954 :          lu(k,62) = lu(k,62) * lu(k,58)
     196   309041954 :          lu(k,63) = lu(k,63) * lu(k,58)
     197   309041954 :          lu(k,327) = - lu(k,59) * lu(k,326)
     198   309041954 :          lu(k,328) = lu(k,328) - lu(k,60) * lu(k,326)
     199   309041954 :          lu(k,334) = lu(k,334) - lu(k,61) * lu(k,326)
     200   309041954 :          lu(k,337) = - lu(k,62) * lu(k,326)
     201   309041954 :          lu(k,340) = - lu(k,63) * lu(k,326)
     202   309041954 :          lu(k,371) = lu(k,371) - lu(k,59) * lu(k,365)
     203   309041954 :          lu(k,374) = lu(k,374) - lu(k,60) * lu(k,365)
     204   309041954 :          lu(k,382) = - lu(k,61) * lu(k,365)
     205   309041954 :          lu(k,385) = lu(k,385) - lu(k,62) * lu(k,365)
     206   309041954 :          lu(k,389) = lu(k,389) - lu(k,63) * lu(k,365)
     207   309041954 :          lu(k,632) = lu(k,632) - lu(k,59) * lu(k,619)
     208   309041954 :          lu(k,635) = lu(k,635) - lu(k,60) * lu(k,619)
     209   309041954 :          lu(k,643) = lu(k,643) - lu(k,61) * lu(k,619)
     210   309041954 :          lu(k,646) = lu(k,646) - lu(k,62) * lu(k,619)
     211   309041954 :          lu(k,650) = lu(k,650) - lu(k,63) * lu(k,619)
     212   309041954 :          lu(k,64) = 1._r8 / lu(k,64)
     213   309041954 :          lu(k,65) = lu(k,65) * lu(k,64)
     214   309041954 :          lu(k,66) = lu(k,66) * lu(k,64)
     215   309041954 :          lu(k,67) = lu(k,67) * lu(k,64)
     216   309041954 :          lu(k,68) = lu(k,68) * lu(k,64)
     217   309041954 :          lu(k,69) = lu(k,69) * lu(k,64)
     218   309041954 :          lu(k,70) = lu(k,70) * lu(k,64)
     219   309041954 :          lu(k,375) = lu(k,375) - lu(k,65) * lu(k,366)
     220   309041954 :          lu(k,376) = lu(k,376) - lu(k,66) * lu(k,366)
     221   309041954 :          lu(k,380) = lu(k,380) - lu(k,67) * lu(k,366)
     222   309041954 :          lu(k,384) = lu(k,384) - lu(k,68) * lu(k,366)
     223   309041954 :          lu(k,385) = lu(k,385) - lu(k,69) * lu(k,366)
     224   309041954 :          lu(k,389) = lu(k,389) - lu(k,70) * lu(k,366)
     225   309041954 :          lu(k,599) = lu(k,599) - lu(k,65) * lu(k,587)
     226   309041954 :          lu(k,600) = lu(k,600) - lu(k,66) * lu(k,587)
     227   309041954 :          lu(k,604) = lu(k,604) - lu(k,67) * lu(k,587)
     228   309041954 :          lu(k,608) = lu(k,608) - lu(k,68) * lu(k,587)
     229   309041954 :          lu(k,609) = lu(k,609) - lu(k,69) * lu(k,587)
     230   309041954 :          lu(k,613) = - lu(k,70) * lu(k,587)
     231   309041954 :          lu(k,636) = lu(k,636) - lu(k,65) * lu(k,620)
     232   309041954 :          lu(k,637) = lu(k,637) - lu(k,66) * lu(k,620)
     233   309041954 :          lu(k,641) = lu(k,641) - lu(k,67) * lu(k,620)
     234   309041954 :          lu(k,645) = lu(k,645) - lu(k,68) * lu(k,620)
     235   309041954 :          lu(k,646) = lu(k,646) - lu(k,69) * lu(k,620)
     236   309041954 :          lu(k,650) = lu(k,650) - lu(k,70) * lu(k,620)
     237   309041954 :          lu(k,71) = 1._r8 / lu(k,71)
     238   309041954 :          lu(k,72) = lu(k,72) * lu(k,71)
     239   309041954 :          lu(k,73) = lu(k,73) * lu(k,71)
     240   309041954 :          lu(k,74) = lu(k,74) * lu(k,71)
     241   309041954 :          lu(k,75) = lu(k,75) * lu(k,71)
     242   309041954 :          lu(k,76) = lu(k,76) * lu(k,71)
     243   309041954 :          lu(k,77) = lu(k,77) * lu(k,71)
     244   309041954 :          lu(k,190) = lu(k,190) - lu(k,72) * lu(k,189)
     245   309041954 :          lu(k,191) = lu(k,191) - lu(k,73) * lu(k,189)
     246   309041954 :          lu(k,193) = - lu(k,74) * lu(k,189)
     247   309041954 :          lu(k,194) = lu(k,194) - lu(k,75) * lu(k,189)
     248   309041954 :          lu(k,201) = lu(k,201) - lu(k,76) * lu(k,189)
     249   309041954 :          lu(k,205) = - lu(k,77) * lu(k,189)
     250   309041954 :          lu(k,394) = lu(k,394) - lu(k,72) * lu(k,393)
     251   309041954 :          lu(k,398) = lu(k,398) - lu(k,73) * lu(k,393)
     252   309041954 :          lu(k,404) = lu(k,404) - lu(k,74) * lu(k,393)
     253   309041954 :          lu(k,405) = lu(k,405) - lu(k,75) * lu(k,393)
     254   309041954 :          lu(k,420) = lu(k,420) - lu(k,76) * lu(k,393)
     255   309041954 :          lu(k,429) = lu(k,429) - lu(k,77) * lu(k,393)
     256   309041954 :          lu(k,489) = lu(k,489) - lu(k,72) * lu(k,488)
     257   309041954 :          lu(k,490) = lu(k,490) - lu(k,73) * lu(k,488)
     258   309041954 :          lu(k,493) = lu(k,493) - lu(k,74) * lu(k,488)
     259   309041954 :          lu(k,494) = lu(k,494) - lu(k,75) * lu(k,488)
     260   309041954 :          lu(k,504) = lu(k,504) - lu(k,76) * lu(k,488)
     261   309041954 :          lu(k,513) = lu(k,513) - lu(k,77) * lu(k,488)
     262   309041954 :          lu(k,78) = 1._r8 / lu(k,78)
     263   309041954 :          lu(k,79) = lu(k,79) * lu(k,78)
     264   309041954 :          lu(k,80) = lu(k,80) * lu(k,78)
     265   309041954 :          lu(k,81) = lu(k,81) * lu(k,78)
     266   309041954 :          lu(k,82) = lu(k,82) * lu(k,78)
     267   309041954 :          lu(k,83) = lu(k,83) * lu(k,78)
     268   309041954 :          lu(k,191) = lu(k,191) - lu(k,79) * lu(k,190)
     269   309041954 :          lu(k,194) = lu(k,194) - lu(k,80) * lu(k,190)
     270   309041954 :          lu(k,195) = lu(k,195) - lu(k,81) * lu(k,190)
     271   309041954 :          lu(k,201) = lu(k,201) - lu(k,82) * lu(k,190)
     272   309041954 :          lu(k,202) = - lu(k,83) * lu(k,190)
     273   309041954 :          lu(k,398) = lu(k,398) - lu(k,79) * lu(k,394)
     274   309041954 :          lu(k,405) = lu(k,405) - lu(k,80) * lu(k,394)
     275   309041954 :          lu(k,406) = - lu(k,81) * lu(k,394)
     276   309041954 :          lu(k,420) = lu(k,420) - lu(k,82) * lu(k,394)
     277   309041954 :          lu(k,423) = lu(k,423) - lu(k,83) * lu(k,394)
     278   309041954 :          lu(k,490) = lu(k,490) - lu(k,79) * lu(k,489)
     279   309041954 :          lu(k,494) = lu(k,494) - lu(k,80) * lu(k,489)
     280   309041954 :          lu(k,495) = lu(k,495) - lu(k,81) * lu(k,489)
     281   309041954 :          lu(k,504) = lu(k,504) - lu(k,82) * lu(k,489)
     282   309041954 :          lu(k,507) = lu(k,507) - lu(k,83) * lu(k,489)
     283   309041954 :          lu(k,84) = 1._r8 / lu(k,84)
     284   309041954 :          lu(k,85) = lu(k,85) * lu(k,84)
     285   309041954 :          lu(k,86) = lu(k,86) * lu(k,84)
     286   309041954 :          lu(k,87) = lu(k,87) * lu(k,84)
     287   309041954 :          lu(k,88) = lu(k,88) * lu(k,84)
     288   309041954 :          lu(k,89) = lu(k,89) * lu(k,84)
     289   309041954 :          lu(k,90) = lu(k,90) * lu(k,84)
     290   309041954 :          lu(k,91) = lu(k,91) * lu(k,84)
     291   309041954 :          lu(k,401) = lu(k,401) - lu(k,85) * lu(k,395)
     292   309041954 :          lu(k,412) = - lu(k,86) * lu(k,395)
     293   309041954 :          lu(k,415) = lu(k,415) - lu(k,87) * lu(k,395)
     294   309041954 :          lu(k,418) = lu(k,418) - lu(k,88) * lu(k,395)
     295   309041954 :          lu(k,420) = lu(k,420) - lu(k,89) * lu(k,395)
     296   309041954 :          lu(k,427) = lu(k,427) - lu(k,90) * lu(k,395)
     297   309041954 :          lu(k,431) = lu(k,431) - lu(k,91) * lu(k,395)
     298   309041954 :          lu(k,589) = - lu(k,85) * lu(k,588)
     299   309041954 :          lu(k,593) = lu(k,593) - lu(k,86) * lu(k,588)
     300   309041954 :          lu(k,596) = - lu(k,87) * lu(k,588)
     301   309041954 :          lu(k,599) = lu(k,599) - lu(k,88) * lu(k,588)
     302   309041954 :          lu(k,601) = lu(k,601) - lu(k,89) * lu(k,588)
     303   309041954 :          lu(k,608) = lu(k,608) - lu(k,90) * lu(k,588)
     304   309041954 :          lu(k,612) = lu(k,612) - lu(k,91) * lu(k,588)
     305   309041954 :          lu(k,698) = lu(k,698) - lu(k,85) * lu(k,697)
     306   309041954 :          lu(k,700) = - lu(k,86) * lu(k,697)
     307   309041954 :          lu(k,703) = lu(k,703) - lu(k,87) * lu(k,697)
     308   309041954 :          lu(k,706) = - lu(k,88) * lu(k,697)
     309   309041954 :          lu(k,708) = lu(k,708) - lu(k,89) * lu(k,697)
     310   309041954 :          lu(k,715) = lu(k,715) - lu(k,90) * lu(k,697)
     311   318792954 :          lu(k,719) = lu(k,719) - lu(k,91) * lu(k,697)
     312             :       end do
     313     9751000 :       end subroutine lu_fac02
     314     9751000 :       subroutine lu_fac03( avec_len, lu )
     315             :       use chem_mods, only : nzcnt
     316             :       use shr_kind_mod, only : r8 => shr_kind_r8
     317             :       implicit none
     318             : !-----------------------------------------------------------------------
     319             : ! ... dummy args
     320             : !-----------------------------------------------------------------------
     321             :       integer, intent(in) :: avec_len
     322             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     323             : !-----------------------------------------------------------------------
     324             : ! ... local variables
     325             : !-----------------------------------------------------------------------
     326             :       integer :: k
     327   318792954 :       do k = 1,avec_len
     328   309041954 :          lu(k,92) = 1._r8 / lu(k,92)
     329   309041954 :          lu(k,93) = lu(k,93) * lu(k,92)
     330   309041954 :          lu(k,94) = lu(k,94) * lu(k,92)
     331   309041954 :          lu(k,95) = lu(k,95) * lu(k,92)
     332   309041954 :          lu(k,175) = - lu(k,93) * lu(k,167)
     333   309041954 :          lu(k,176) = - lu(k,94) * lu(k,167)
     334   309041954 :          lu(k,179) = - lu(k,95) * lu(k,167)
     335   309041954 :          lu(k,290) = - lu(k,93) * lu(k,288)
     336   309041954 :          lu(k,292) = lu(k,292) - lu(k,94) * lu(k,288)
     337   309041954 :          lu(k,298) = - lu(k,95) * lu(k,288)
     338   309041954 :          lu(k,347) = - lu(k,93) * lu(k,343)
     339   309041954 :          lu(k,351) = lu(k,351) - lu(k,94) * lu(k,343)
     340   309041954 :          lu(k,360) = lu(k,360) - lu(k,95) * lu(k,343)
     341   309041954 :          lu(k,414) = lu(k,414) - lu(k,93) * lu(k,396)
     342   309041954 :          lu(k,419) = lu(k,419) - lu(k,94) * lu(k,396)
     343   309041954 :          lu(k,428) = lu(k,428) - lu(k,95) * lu(k,396)
     344   309041954 :          lu(k,467) = lu(k,467) - lu(k,93) * lu(k,462)
     345   309041954 :          lu(k,472) = lu(k,472) - lu(k,94) * lu(k,462)
     346   309041954 :          lu(k,481) = lu(k,481) - lu(k,95) * lu(k,462)
     347   309041954 :          lu(k,545) = lu(k,545) - lu(k,93) * lu(k,542)
     348   309041954 :          lu(k,550) = lu(k,550) - lu(k,94) * lu(k,542)
     349   309041954 :          lu(k,559) = lu(k,559) - lu(k,95) * lu(k,542)
     350   309041954 :          lu(k,632) = lu(k,632) - lu(k,93) * lu(k,621)
     351   309041954 :          lu(k,637) = lu(k,637) - lu(k,94) * lu(k,621)
     352   309041954 :          lu(k,646) = lu(k,646) - lu(k,95) * lu(k,621)
     353   309041954 :          lu(k,96) = 1._r8 / lu(k,96)
     354   309041954 :          lu(k,97) = lu(k,97) * lu(k,96)
     355   309041954 :          lu(k,98) = lu(k,98) * lu(k,96)
     356   309041954 :          lu(k,99) = lu(k,99) * lu(k,96)
     357   309041954 :          lu(k,100) = lu(k,100) * lu(k,96)
     358   309041954 :          lu(k,101) = lu(k,101) * lu(k,96)
     359   309041954 :          lu(k,102) = lu(k,102) * lu(k,96)
     360   309041954 :          lu(k,373) = lu(k,373) - lu(k,97) * lu(k,367)
     361   309041954 :          lu(k,376) = lu(k,376) - lu(k,98) * lu(k,367)
     362   309041954 :          lu(k,377) = lu(k,377) - lu(k,99) * lu(k,367)
     363   309041954 :          lu(k,379) = lu(k,379) - lu(k,100) * lu(k,367)
     364   309041954 :          lu(k,385) = lu(k,385) - lu(k,101) * lu(k,367)
     365   309041954 :          lu(k,389) = lu(k,389) - lu(k,102) * lu(k,367)
     366   309041954 :          lu(k,416) = lu(k,416) - lu(k,97) * lu(k,397)
     367   309041954 :          lu(k,419) = lu(k,419) - lu(k,98) * lu(k,397)
     368   309041954 :          lu(k,420) = lu(k,420) - lu(k,99) * lu(k,397)
     369   309041954 :          lu(k,422) = lu(k,422) - lu(k,100) * lu(k,397)
     370   309041954 :          lu(k,428) = lu(k,428) - lu(k,101) * lu(k,397)
     371   309041954 :          lu(k,432) = - lu(k,102) * lu(k,397)
     372   309041954 :          lu(k,469) = lu(k,469) - lu(k,97) * lu(k,463)
     373   309041954 :          lu(k,472) = lu(k,472) - lu(k,98) * lu(k,463)
     374   309041954 :          lu(k,473) = - lu(k,99) * lu(k,463)
     375   309041954 :          lu(k,475) = lu(k,475) - lu(k,100) * lu(k,463)
     376   309041954 :          lu(k,481) = lu(k,481) - lu(k,101) * lu(k,463)
     377   309041954 :          lu(k,485) = - lu(k,102) * lu(k,463)
     378   309041954 :          lu(k,634) = lu(k,634) - lu(k,97) * lu(k,622)
     379   309041954 :          lu(k,637) = lu(k,637) - lu(k,98) * lu(k,622)
     380   309041954 :          lu(k,638) = lu(k,638) - lu(k,99) * lu(k,622)
     381   309041954 :          lu(k,640) = lu(k,640) - lu(k,100) * lu(k,622)
     382   309041954 :          lu(k,646) = lu(k,646) - lu(k,101) * lu(k,622)
     383   309041954 :          lu(k,650) = lu(k,650) - lu(k,102) * lu(k,622)
     384   309041954 :          lu(k,103) = 1._r8 / lu(k,103)
     385   309041954 :          lu(k,104) = lu(k,104) * lu(k,103)
     386   309041954 :          lu(k,105) = lu(k,105) * lu(k,103)
     387   309041954 :          lu(k,106) = lu(k,106) * lu(k,103)
     388   309041954 :          lu(k,107) = lu(k,107) * lu(k,103)
     389   309041954 :          lu(k,108) = lu(k,108) * lu(k,103)
     390   309041954 :          lu(k,109) = lu(k,109) * lu(k,103)
     391   309041954 :          lu(k,110) = lu(k,110) * lu(k,103)
     392   309041954 :          lu(k,111) = lu(k,111) * lu(k,103)
     393   309041954 :          lu(k,192) = lu(k,192) - lu(k,104) * lu(k,191)
     394   309041954 :          lu(k,194) = lu(k,194) - lu(k,105) * lu(k,191)
     395   309041954 :          lu(k,195) = lu(k,195) - lu(k,106) * lu(k,191)
     396   309041954 :          lu(k,196) = lu(k,196) - lu(k,107) * lu(k,191)
     397   309041954 :          lu(k,197) = lu(k,197) - lu(k,108) * lu(k,191)
     398   309041954 :          lu(k,198) = lu(k,198) - lu(k,109) * lu(k,191)
     399   309041954 :          lu(k,201) = lu(k,201) - lu(k,110) * lu(k,191)
     400   309041954 :          lu(k,202) = lu(k,202) - lu(k,111) * lu(k,191)
     401   309041954 :          lu(k,400) = lu(k,400) - lu(k,104) * lu(k,398)
     402   309041954 :          lu(k,405) = lu(k,405) - lu(k,105) * lu(k,398)
     403   309041954 :          lu(k,406) = lu(k,406) - lu(k,106) * lu(k,398)
     404   309041954 :          lu(k,407) = lu(k,407) - lu(k,107) * lu(k,398)
     405   309041954 :          lu(k,408) = lu(k,408) - lu(k,108) * lu(k,398)
     406   309041954 :          lu(k,409) = lu(k,409) - lu(k,109) * lu(k,398)
     407   309041954 :          lu(k,420) = lu(k,420) - lu(k,110) * lu(k,398)
     408   309041954 :          lu(k,423) = lu(k,423) - lu(k,111) * lu(k,398)
     409   309041954 :          lu(k,492) = lu(k,492) - lu(k,104) * lu(k,490)
     410   309041954 :          lu(k,494) = lu(k,494) - lu(k,105) * lu(k,490)
     411   309041954 :          lu(k,495) = lu(k,495) - lu(k,106) * lu(k,490)
     412   309041954 :          lu(k,496) = lu(k,496) - lu(k,107) * lu(k,490)
     413   309041954 :          lu(k,497) = lu(k,497) - lu(k,108) * lu(k,490)
     414   309041954 :          lu(k,498) = lu(k,498) - lu(k,109) * lu(k,490)
     415   309041954 :          lu(k,504) = lu(k,504) - lu(k,110) * lu(k,490)
     416   309041954 :          lu(k,507) = lu(k,507) - lu(k,111) * lu(k,490)
     417   309041954 :          lu(k,112) = 1._r8 / lu(k,112)
     418   309041954 :          lu(k,113) = lu(k,113) * lu(k,112)
     419   309041954 :          lu(k,114) = lu(k,114) * lu(k,112)
     420   309041954 :          lu(k,115) = lu(k,115) * lu(k,112)
     421   309041954 :          lu(k,116) = lu(k,116) * lu(k,112)
     422   309041954 :          lu(k,117) = lu(k,117) * lu(k,112)
     423   309041954 :          lu(k,118) = lu(k,118) * lu(k,112)
     424   309041954 :          lu(k,266) = lu(k,266) - lu(k,113) * lu(k,264)
     425   309041954 :          lu(k,267) = lu(k,267) - lu(k,114) * lu(k,264)
     426   309041954 :          lu(k,270) = lu(k,270) - lu(k,115) * lu(k,264)
     427   309041954 :          lu(k,273) = lu(k,273) - lu(k,116) * lu(k,264)
     428   309041954 :          lu(k,274) = lu(k,274) - lu(k,117) * lu(k,264)
     429   309041954 :          lu(k,276) = lu(k,276) - lu(k,118) * lu(k,264)
     430   309041954 :          lu(k,413) = lu(k,413) - lu(k,113) * lu(k,399)
     431   309041954 :          lu(k,414) = lu(k,414) - lu(k,114) * lu(k,399)
     432   309041954 :          lu(k,420) = lu(k,420) - lu(k,115) * lu(k,399)
     433   309041954 :          lu(k,423) = lu(k,423) - lu(k,116) * lu(k,399)
     434   309041954 :          lu(k,426) = lu(k,426) - lu(k,117) * lu(k,399)
     435   309041954 :          lu(k,428) = lu(k,428) - lu(k,118) * lu(k,399)
     436   309041954 :          lu(k,500) = lu(k,500) - lu(k,113) * lu(k,491)
     437   309041954 :          lu(k,501) = lu(k,501) - lu(k,114) * lu(k,491)
     438   309041954 :          lu(k,504) = lu(k,504) - lu(k,115) * lu(k,491)
     439   309041954 :          lu(k,507) = lu(k,507) - lu(k,116) * lu(k,491)
     440   309041954 :          lu(k,510) = lu(k,510) - lu(k,117) * lu(k,491)
     441   309041954 :          lu(k,512) = - lu(k,118) * lu(k,491)
     442   309041954 :          lu(k,568) = lu(k,568) - lu(k,113) * lu(k,566)
     443   309041954 :          lu(k,569) = lu(k,569) - lu(k,114) * lu(k,566)
     444   309041954 :          lu(k,573) = lu(k,573) - lu(k,115) * lu(k,566)
     445   309041954 :          lu(k,576) = lu(k,576) - lu(k,116) * lu(k,566)
     446   309041954 :          lu(k,579) = lu(k,579) - lu(k,117) * lu(k,566)
     447   309041954 :          lu(k,581) = lu(k,581) - lu(k,118) * lu(k,566)
     448   309041954 :          lu(k,631) = lu(k,631) - lu(k,113) * lu(k,623)
     449   309041954 :          lu(k,632) = lu(k,632) - lu(k,114) * lu(k,623)
     450   309041954 :          lu(k,638) = lu(k,638) - lu(k,115) * lu(k,623)
     451   309041954 :          lu(k,641) = lu(k,641) - lu(k,116) * lu(k,623)
     452   309041954 :          lu(k,644) = lu(k,644) - lu(k,117) * lu(k,623)
     453   309041954 :          lu(k,646) = lu(k,646) - lu(k,118) * lu(k,623)
     454   309041954 :          lu(k,119) = 1._r8 / lu(k,119)
     455   309041954 :          lu(k,120) = lu(k,120) * lu(k,119)
     456   309041954 :          lu(k,121) = lu(k,121) * lu(k,119)
     457   309041954 :          lu(k,122) = lu(k,122) * lu(k,119)
     458   309041954 :          lu(k,123) = lu(k,123) * lu(k,119)
     459   309041954 :          lu(k,162) = - lu(k,120) * lu(k,158)
     460   309041954 :          lu(k,163) = - lu(k,121) * lu(k,158)
     461   309041954 :          lu(k,164) = lu(k,164) - lu(k,122) * lu(k,158)
     462   309041954 :          lu(k,165) = lu(k,165) - lu(k,123) * lu(k,158)
     463   309041954 :          lu(k,172) = - lu(k,120) * lu(k,168)
     464   309041954 :          lu(k,173) = lu(k,173) - lu(k,121) * lu(k,168)
     465   309041954 :          lu(k,174) = lu(k,174) - lu(k,122) * lu(k,168)
     466   309041954 :          lu(k,177) = lu(k,177) - lu(k,123) * lu(k,168)
     467   309041954 :          lu(k,182) = lu(k,182) - lu(k,120) * lu(k,180)
     468   309041954 :          lu(k,183) = - lu(k,121) * lu(k,180)
     469   309041954 :          lu(k,184) = lu(k,184) - lu(k,122) * lu(k,180)
     470   309041954 :          lu(k,185) = lu(k,185) - lu(k,123) * lu(k,180)
     471   309041954 :          lu(k,196) = lu(k,196) - lu(k,120) * lu(k,192)
     472   309041954 :          lu(k,197) = lu(k,197) - lu(k,121) * lu(k,192)
     473   309041954 :          lu(k,198) = lu(k,198) - lu(k,122) * lu(k,192)
     474   309041954 :          lu(k,201) = lu(k,201) - lu(k,123) * lu(k,192)
     475   309041954 :          lu(k,223) = lu(k,223) - lu(k,120) * lu(k,219)
     476   309041954 :          lu(k,224) = - lu(k,121) * lu(k,219)
     477   309041954 :          lu(k,225) = lu(k,225) - lu(k,122) * lu(k,219)
     478   309041954 :          lu(k,228) = lu(k,228) - lu(k,123) * lu(k,219)
     479   309041954 :          lu(k,407) = lu(k,407) - lu(k,120) * lu(k,400)
     480   309041954 :          lu(k,408) = lu(k,408) - lu(k,121) * lu(k,400)
     481   309041954 :          lu(k,409) = lu(k,409) - lu(k,122) * lu(k,400)
     482   309041954 :          lu(k,420) = lu(k,420) - lu(k,123) * lu(k,400)
     483   309041954 :          lu(k,496) = lu(k,496) - lu(k,120) * lu(k,492)
     484   309041954 :          lu(k,497) = lu(k,497) - lu(k,121) * lu(k,492)
     485   309041954 :          lu(k,498) = lu(k,498) - lu(k,122) * lu(k,492)
     486   309041954 :          lu(k,504) = lu(k,504) - lu(k,123) * lu(k,492)
     487   309041954 :          lu(k,653) = lu(k,653) - lu(k,120) * lu(k,651)
     488   309041954 :          lu(k,654) = - lu(k,121) * lu(k,651)
     489   309041954 :          lu(k,655) = lu(k,655) - lu(k,122) * lu(k,651)
     490   309041954 :          lu(k,661) = lu(k,661) - lu(k,123) * lu(k,651)
     491   309041954 :          lu(k,125) = 1._r8 / lu(k,125)
     492   309041954 :          lu(k,126) = lu(k,126) * lu(k,125)
     493   309041954 :          lu(k,127) = lu(k,127) * lu(k,125)
     494   309041954 :          lu(k,128) = lu(k,128) * lu(k,125)
     495   309041954 :          lu(k,129) = lu(k,129) * lu(k,125)
     496   309041954 :          lu(k,130) = lu(k,130) * lu(k,125)
     497   309041954 :          lu(k,131) = lu(k,131) * lu(k,125)
     498   309041954 :          lu(k,132) = lu(k,132) * lu(k,125)
     499   309041954 :          lu(k,255) = lu(k,255) - lu(k,126) * lu(k,254)
     500   309041954 :          lu(k,256) = lu(k,256) - lu(k,127) * lu(k,254)
     501   309041954 :          lu(k,257) = - lu(k,128) * lu(k,254)
     502   309041954 :          lu(k,258) = lu(k,258) - lu(k,129) * lu(k,254)
     503   309041954 :          lu(k,260) = lu(k,260) - lu(k,130) * lu(k,254)
     504   309041954 :          lu(k,261) = - lu(k,131) * lu(k,254)
     505   309041954 :          lu(k,262) = lu(k,262) - lu(k,132) * lu(k,254)
     506   309041954 :          lu(k,522) = - lu(k,126) * lu(k,520)
     507   309041954 :          lu(k,523) = lu(k,523) - lu(k,127) * lu(k,520)
     508   309041954 :          lu(k,526) = lu(k,526) - lu(k,128) * lu(k,520)
     509   309041954 :          lu(k,527) = - lu(k,129) * lu(k,520)
     510   309041954 :          lu(k,537) = lu(k,537) - lu(k,130) * lu(k,520)
     511   309041954 :          lu(k,539) = lu(k,539) - lu(k,131) * lu(k,520)
     512   309041954 :          lu(k,541) = lu(k,541) - lu(k,132) * lu(k,520)
     513   309041954 :          lu(k,630) = lu(k,630) - lu(k,126) * lu(k,624)
     514   309041954 :          lu(k,632) = lu(k,632) - lu(k,127) * lu(k,624)
     515   309041954 :          lu(k,635) = lu(k,635) - lu(k,128) * lu(k,624)
     516   309041954 :          lu(k,636) = lu(k,636) - lu(k,129) * lu(k,624)
     517   309041954 :          lu(k,646) = lu(k,646) - lu(k,130) * lu(k,624)
     518   309041954 :          lu(k,648) = lu(k,648) - lu(k,131) * lu(k,624)
     519   309041954 :          lu(k,650) = lu(k,650) - lu(k,132) * lu(k,624)
     520   309041954 :          lu(k,676) = - lu(k,126) * lu(k,675)
     521   309041954 :          lu(k,677) = lu(k,677) - lu(k,127) * lu(k,675)
     522   309041954 :          lu(k,679) = - lu(k,128) * lu(k,675)
     523   309041954 :          lu(k,680) = - lu(k,129) * lu(k,675)
     524   309041954 :          lu(k,690) = lu(k,690) - lu(k,130) * lu(k,675)
     525   309041954 :          lu(k,692) = lu(k,692) - lu(k,131) * lu(k,675)
     526   309041954 :          lu(k,694) = lu(k,694) - lu(k,132) * lu(k,675)
     527   309041954 :          lu(k,726) = - lu(k,126) * lu(k,724)
     528   309041954 :          lu(k,728) = lu(k,728) - lu(k,127) * lu(k,724)
     529   309041954 :          lu(k,730) = - lu(k,128) * lu(k,724)
     530   309041954 :          lu(k,731) = - lu(k,129) * lu(k,724)
     531   309041954 :          lu(k,741) = lu(k,741) - lu(k,130) * lu(k,724)
     532   309041954 :          lu(k,743) = lu(k,743) - lu(k,131) * lu(k,724)
     533   318792954 :          lu(k,745) = lu(k,745) - lu(k,132) * lu(k,724)
     534             :       end do
     535     9751000 :       end subroutine lu_fac03
     536     9751000 :       subroutine lu_fac04( avec_len, lu )
     537             :       use chem_mods, only : nzcnt
     538             :       use shr_kind_mod, only : r8 => shr_kind_r8
     539             :       implicit none
     540             : !-----------------------------------------------------------------------
     541             : ! ... dummy args
     542             : !-----------------------------------------------------------------------
     543             :       integer, intent(in) :: avec_len
     544             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     545             : !-----------------------------------------------------------------------
     546             : ! ... local variables
     547             : !-----------------------------------------------------------------------
     548             :       integer :: k
     549   318792954 :       do k = 1,avec_len
     550   309041954 :          lu(k,134) = 1._r8 / lu(k,134)
     551   309041954 :          lu(k,135) = lu(k,135) * lu(k,134)
     552   309041954 :          lu(k,136) = lu(k,136) * lu(k,134)
     553   309041954 :          lu(k,137) = lu(k,137) * lu(k,134)
     554   309041954 :          lu(k,138) = lu(k,138) * lu(k,134)
     555   309041954 :          lu(k,139) = lu(k,139) * lu(k,134)
     556   309041954 :          lu(k,140) = lu(k,140) * lu(k,134)
     557   309041954 :          lu(k,141) = lu(k,141) * lu(k,134)
     558   309041954 :          lu(k,309) = lu(k,309) - lu(k,135) * lu(k,304)
     559   309041954 :          lu(k,310) = lu(k,310) - lu(k,136) * lu(k,304)
     560   309041954 :          lu(k,314) = lu(k,314) - lu(k,137) * lu(k,304)
     561   309041954 :          lu(k,316) = lu(k,316) - lu(k,138) * lu(k,304)
     562   309041954 :          lu(k,322) = lu(k,322) - lu(k,139) * lu(k,304)
     563   309041954 :          lu(k,324) = - lu(k,140) * lu(k,304)
     564   309041954 :          lu(k,325) = lu(k,325) - lu(k,141) * lu(k,304)
     565   309041954 :          lu(k,372) = lu(k,372) - lu(k,135) * lu(k,368)
     566   309041954 :          lu(k,373) = lu(k,373) - lu(k,136) * lu(k,368)
     567   309041954 :          lu(k,377) = lu(k,377) - lu(k,137) * lu(k,368)
     568   309041954 :          lu(k,379) = lu(k,379) - lu(k,138) * lu(k,368)
     569   309041954 :          lu(k,385) = lu(k,385) - lu(k,139) * lu(k,368)
     570   309041954 :          lu(k,388) = lu(k,388) - lu(k,140) * lu(k,368)
     571   309041954 :          lu(k,389) = lu(k,389) - lu(k,141) * lu(k,368)
     572   309041954 :          lu(k,415) = lu(k,415) - lu(k,135) * lu(k,401)
     573   309041954 :          lu(k,416) = lu(k,416) - lu(k,136) * lu(k,401)
     574   309041954 :          lu(k,420) = lu(k,420) - lu(k,137) * lu(k,401)
     575   309041954 :          lu(k,422) = lu(k,422) - lu(k,138) * lu(k,401)
     576   309041954 :          lu(k,428) = lu(k,428) - lu(k,139) * lu(k,401)
     577   309041954 :          lu(k,431) = lu(k,431) - lu(k,140) * lu(k,401)
     578   309041954 :          lu(k,432) = lu(k,432) - lu(k,141) * lu(k,401)
     579   309041954 :          lu(k,596) = lu(k,596) - lu(k,135) * lu(k,589)
     580   309041954 :          lu(k,597) = - lu(k,136) * lu(k,589)
     581   309041954 :          lu(k,601) = lu(k,601) - lu(k,137) * lu(k,589)
     582   309041954 :          lu(k,603) = - lu(k,138) * lu(k,589)
     583   309041954 :          lu(k,609) = lu(k,609) - lu(k,139) * lu(k,589)
     584   309041954 :          lu(k,612) = lu(k,612) - lu(k,140) * lu(k,589)
     585   309041954 :          lu(k,613) = lu(k,613) - lu(k,141) * lu(k,589)
     586   309041954 :          lu(k,703) = lu(k,703) - lu(k,135) * lu(k,698)
     587   309041954 :          lu(k,704) = - lu(k,136) * lu(k,698)
     588   309041954 :          lu(k,708) = lu(k,708) - lu(k,137) * lu(k,698)
     589   309041954 :          lu(k,710) = lu(k,710) - lu(k,138) * lu(k,698)
     590   309041954 :          lu(k,716) = lu(k,716) - lu(k,139) * lu(k,698)
     591   309041954 :          lu(k,719) = lu(k,719) - lu(k,140) * lu(k,698)
     592   309041954 :          lu(k,720) = - lu(k,141) * lu(k,698)
     593   309041954 :          lu(k,143) = 1._r8 / lu(k,143)
     594   309041954 :          lu(k,144) = lu(k,144) * lu(k,143)
     595   309041954 :          lu(k,145) = lu(k,145) * lu(k,143)
     596   309041954 :          lu(k,146) = lu(k,146) * lu(k,143)
     597   309041954 :          lu(k,147) = lu(k,147) * lu(k,143)
     598   309041954 :          lu(k,148) = lu(k,148) * lu(k,143)
     599   309041954 :          lu(k,149) = lu(k,149) * lu(k,143)
     600   309041954 :          lu(k,245) = lu(k,245) - lu(k,144) * lu(k,242)
     601   309041954 :          lu(k,247) = lu(k,247) - lu(k,145) * lu(k,242)
     602   309041954 :          lu(k,248) = lu(k,248) - lu(k,146) * lu(k,242)
     603   309041954 :          lu(k,249) = lu(k,249) - lu(k,147) * lu(k,242)
     604   309041954 :          lu(k,251) = lu(k,251) - lu(k,148) * lu(k,242)
     605   309041954 :          lu(k,252) = - lu(k,149) * lu(k,242)
     606   309041954 :          lu(k,310) = lu(k,310) - lu(k,144) * lu(k,305)
     607   309041954 :          lu(k,314) = lu(k,314) - lu(k,145) * lu(k,305)
     608   309041954 :          lu(k,315) = lu(k,315) - lu(k,146) * lu(k,305)
     609   309041954 :          lu(k,316) = lu(k,316) - lu(k,147) * lu(k,305)
     610   309041954 :          lu(k,322) = lu(k,322) - lu(k,148) * lu(k,305)
     611   309041954 :          lu(k,325) = lu(k,325) - lu(k,149) * lu(k,305)
     612   309041954 :          lu(k,373) = lu(k,373) - lu(k,144) * lu(k,369)
     613   309041954 :          lu(k,377) = lu(k,377) - lu(k,145) * lu(k,369)
     614   309041954 :          lu(k,378) = lu(k,378) - lu(k,146) * lu(k,369)
     615   309041954 :          lu(k,379) = lu(k,379) - lu(k,147) * lu(k,369)
     616   309041954 :          lu(k,385) = lu(k,385) - lu(k,148) * lu(k,369)
     617   309041954 :          lu(k,389) = lu(k,389) - lu(k,149) * lu(k,369)
     618   309041954 :          lu(k,416) = lu(k,416) - lu(k,144) * lu(k,402)
     619   309041954 :          lu(k,420) = lu(k,420) - lu(k,145) * lu(k,402)
     620   309041954 :          lu(k,421) = lu(k,421) - lu(k,146) * lu(k,402)
     621   309041954 :          lu(k,422) = lu(k,422) - lu(k,147) * lu(k,402)
     622   309041954 :          lu(k,428) = lu(k,428) - lu(k,148) * lu(k,402)
     623   309041954 :          lu(k,432) = lu(k,432) - lu(k,149) * lu(k,402)
     624   309041954 :          lu(k,444) = lu(k,444) - lu(k,144) * lu(k,437)
     625   309041954 :          lu(k,448) = lu(k,448) - lu(k,145) * lu(k,437)
     626   309041954 :          lu(k,449) = lu(k,449) - lu(k,146) * lu(k,437)
     627   309041954 :          lu(k,450) = lu(k,450) - lu(k,147) * lu(k,437)
     628   309041954 :          lu(k,456) = lu(k,456) - lu(k,148) * lu(k,437)
     629   309041954 :          lu(k,460) = - lu(k,149) * lu(k,437)
     630   309041954 :          lu(k,469) = lu(k,469) - lu(k,144) * lu(k,464)
     631   309041954 :          lu(k,473) = lu(k,473) - lu(k,145) * lu(k,464)
     632   309041954 :          lu(k,474) = lu(k,474) - lu(k,146) * lu(k,464)
     633   309041954 :          lu(k,475) = lu(k,475) - lu(k,147) * lu(k,464)
     634   309041954 :          lu(k,481) = lu(k,481) - lu(k,148) * lu(k,464)
     635   309041954 :          lu(k,485) = lu(k,485) - lu(k,149) * lu(k,464)
     636   309041954 :          lu(k,634) = lu(k,634) - lu(k,144) * lu(k,625)
     637   309041954 :          lu(k,638) = lu(k,638) - lu(k,145) * lu(k,625)
     638   309041954 :          lu(k,639) = lu(k,639) - lu(k,146) * lu(k,625)
     639   309041954 :          lu(k,640) = lu(k,640) - lu(k,147) * lu(k,625)
     640   309041954 :          lu(k,646) = lu(k,646) - lu(k,148) * lu(k,625)
     641   309041954 :          lu(k,650) = lu(k,650) - lu(k,149) * lu(k,625)
     642   309041954 :          lu(k,150) = 1._r8 / lu(k,150)
     643   309041954 :          lu(k,151) = lu(k,151) * lu(k,150)
     644   309041954 :          lu(k,152) = lu(k,152) * lu(k,150)
     645   309041954 :          lu(k,153) = lu(k,153) * lu(k,150)
     646   309041954 :          lu(k,154) = lu(k,154) * lu(k,150)
     647   309041954 :          lu(k,155) = lu(k,155) * lu(k,150)
     648   309041954 :          lu(k,156) = lu(k,156) * lu(k,150)
     649   309041954 :          lu(k,157) = lu(k,157) * lu(k,150)
     650   309041954 :          lu(k,290) = lu(k,290) - lu(k,151) * lu(k,289)
     651   309041954 :          lu(k,291) = lu(k,291) - lu(k,152) * lu(k,289)
     652   309041954 :          lu(k,293) = - lu(k,153) * lu(k,289)
     653   309041954 :          lu(k,295) = - lu(k,154) * lu(k,289)
     654   309041954 :          lu(k,298) = lu(k,298) - lu(k,155) * lu(k,289)
     655   309041954 :          lu(k,300) = lu(k,300) - lu(k,156) * lu(k,289)
     656   309041954 :          lu(k,301) = - lu(k,157) * lu(k,289)
     657   309041954 :          lu(k,371) = lu(k,371) - lu(k,151) * lu(k,370)
     658   309041954 :          lu(k,372) = lu(k,372) - lu(k,152) * lu(k,370)
     659   309041954 :          lu(k,377) = lu(k,377) - lu(k,153) * lu(k,370)
     660   309041954 :          lu(k,381) = - lu(k,154) * lu(k,370)
     661   309041954 :          lu(k,385) = lu(k,385) - lu(k,155) * lu(k,370)
     662   309041954 :          lu(k,388) = lu(k,388) - lu(k,156) * lu(k,370)
     663   309041954 :          lu(k,389) = lu(k,389) - lu(k,157) * lu(k,370)
     664   309041954 :          lu(k,414) = lu(k,414) - lu(k,151) * lu(k,403)
     665   309041954 :          lu(k,415) = lu(k,415) - lu(k,152) * lu(k,403)
     666   309041954 :          lu(k,420) = lu(k,420) - lu(k,153) * lu(k,403)
     667   309041954 :          lu(k,424) = - lu(k,154) * lu(k,403)
     668   309041954 :          lu(k,428) = lu(k,428) - lu(k,155) * lu(k,403)
     669   309041954 :          lu(k,431) = lu(k,431) - lu(k,156) * lu(k,403)
     670   309041954 :          lu(k,432) = lu(k,432) - lu(k,157) * lu(k,403)
     671   309041954 :          lu(k,523) = lu(k,523) - lu(k,151) * lu(k,521)
     672   309041954 :          lu(k,524) = lu(k,524) - lu(k,152) * lu(k,521)
     673   309041954 :          lu(k,529) = lu(k,529) - lu(k,153) * lu(k,521)
     674   309041954 :          lu(k,533) = lu(k,533) - lu(k,154) * lu(k,521)
     675   309041954 :          lu(k,537) = lu(k,537) - lu(k,155) * lu(k,521)
     676   309041954 :          lu(k,540) = lu(k,540) - lu(k,156) * lu(k,521)
     677   309041954 :          lu(k,541) = lu(k,541) - lu(k,157) * lu(k,521)
     678   309041954 :          lu(k,545) = lu(k,545) - lu(k,151) * lu(k,543)
     679   309041954 :          lu(k,546) = lu(k,546) - lu(k,152) * lu(k,543)
     680   309041954 :          lu(k,551) = lu(k,551) - lu(k,153) * lu(k,543)
     681   309041954 :          lu(k,555) = - lu(k,154) * lu(k,543)
     682   309041954 :          lu(k,559) = lu(k,559) - lu(k,155) * lu(k,543)
     683   309041954 :          lu(k,562) = - lu(k,156) * lu(k,543)
     684   309041954 :          lu(k,563) = lu(k,563) - lu(k,157) * lu(k,543)
     685   309041954 :          lu(k,632) = lu(k,632) - lu(k,151) * lu(k,626)
     686   309041954 :          lu(k,633) = lu(k,633) - lu(k,152) * lu(k,626)
     687   309041954 :          lu(k,638) = lu(k,638) - lu(k,153) * lu(k,626)
     688   309041954 :          lu(k,642) = lu(k,642) - lu(k,154) * lu(k,626)
     689   309041954 :          lu(k,646) = lu(k,646) - lu(k,155) * lu(k,626)
     690   309041954 :          lu(k,649) = lu(k,649) - lu(k,156) * lu(k,626)
     691   309041954 :          lu(k,650) = lu(k,650) - lu(k,157) * lu(k,626)
     692   309041954 :          lu(k,159) = 1._r8 / lu(k,159)
     693   309041954 :          lu(k,160) = lu(k,160) * lu(k,159)
     694   309041954 :          lu(k,161) = lu(k,161) * lu(k,159)
     695   309041954 :          lu(k,162) = lu(k,162) * lu(k,159)
     696   309041954 :          lu(k,163) = lu(k,163) * lu(k,159)
     697   309041954 :          lu(k,164) = lu(k,164) * lu(k,159)
     698   309041954 :          lu(k,165) = lu(k,165) * lu(k,159)
     699   309041954 :          lu(k,166) = lu(k,166) * lu(k,159)
     700   309041954 :          lu(k,170) = lu(k,170) - lu(k,160) * lu(k,169)
     701   309041954 :          lu(k,171) = lu(k,171) - lu(k,161) * lu(k,169)
     702   309041954 :          lu(k,172) = lu(k,172) - lu(k,162) * lu(k,169)
     703   309041954 :          lu(k,173) = lu(k,173) - lu(k,163) * lu(k,169)
     704   309041954 :          lu(k,174) = lu(k,174) - lu(k,164) * lu(k,169)
     705   309041954 :          lu(k,177) = lu(k,177) - lu(k,165) * lu(k,169)
     706   309041954 :          lu(k,178) = lu(k,178) - lu(k,166) * lu(k,169)
     707   309041954 :          lu(k,194) = lu(k,194) - lu(k,160) * lu(k,193)
     708   309041954 :          lu(k,195) = lu(k,195) - lu(k,161) * lu(k,193)
     709   309041954 :          lu(k,196) = lu(k,196) - lu(k,162) * lu(k,193)
     710   309041954 :          lu(k,197) = lu(k,197) - lu(k,163) * lu(k,193)
     711   309041954 :          lu(k,198) = lu(k,198) - lu(k,164) * lu(k,193)
     712   309041954 :          lu(k,201) = lu(k,201) - lu(k,165) * lu(k,193)
     713   309041954 :          lu(k,202) = lu(k,202) - lu(k,166) * lu(k,193)
     714   309041954 :          lu(k,207) = lu(k,207) - lu(k,160) * lu(k,206)
     715   309041954 :          lu(k,208) = - lu(k,161) * lu(k,206)
     716   309041954 :          lu(k,209) = - lu(k,162) * lu(k,206)
     717   309041954 :          lu(k,210) = lu(k,210) - lu(k,163) * lu(k,206)
     718   309041954 :          lu(k,211) = lu(k,211) - lu(k,164) * lu(k,206)
     719   309041954 :          lu(k,214) = lu(k,214) - lu(k,165) * lu(k,206)
     720   309041954 :          lu(k,215) = lu(k,215) - lu(k,166) * lu(k,206)
     721   309041954 :          lu(k,221) = - lu(k,160) * lu(k,220)
     722   309041954 :          lu(k,222) = lu(k,222) - lu(k,161) * lu(k,220)
     723   309041954 :          lu(k,223) = lu(k,223) - lu(k,162) * lu(k,220)
     724   309041954 :          lu(k,224) = lu(k,224) - lu(k,163) * lu(k,220)
     725   309041954 :          lu(k,225) = lu(k,225) - lu(k,164) * lu(k,220)
     726   309041954 :          lu(k,228) = lu(k,228) - lu(k,165) * lu(k,220)
     727   309041954 :          lu(k,229) = lu(k,229) - lu(k,166) * lu(k,220)
     728   309041954 :          lu(k,405) = lu(k,405) - lu(k,160) * lu(k,404)
     729   309041954 :          lu(k,406) = lu(k,406) - lu(k,161) * lu(k,404)
     730   309041954 :          lu(k,407) = lu(k,407) - lu(k,162) * lu(k,404)
     731   309041954 :          lu(k,408) = lu(k,408) - lu(k,163) * lu(k,404)
     732   309041954 :          lu(k,409) = lu(k,409) - lu(k,164) * lu(k,404)
     733   309041954 :          lu(k,420) = lu(k,420) - lu(k,165) * lu(k,404)
     734   309041954 :          lu(k,423) = lu(k,423) - lu(k,166) * lu(k,404)
     735   309041954 :          lu(k,494) = lu(k,494) - lu(k,160) * lu(k,493)
     736   309041954 :          lu(k,495) = lu(k,495) - lu(k,161) * lu(k,493)
     737   309041954 :          lu(k,496) = lu(k,496) - lu(k,162) * lu(k,493)
     738   309041954 :          lu(k,497) = lu(k,497) - lu(k,163) * lu(k,493)
     739   309041954 :          lu(k,498) = lu(k,498) - lu(k,164) * lu(k,493)
     740   309041954 :          lu(k,504) = lu(k,504) - lu(k,165) * lu(k,493)
     741   309041954 :          lu(k,507) = lu(k,507) - lu(k,166) * lu(k,493)
     742   309041954 :          lu(k,170) = 1._r8 / lu(k,170)
     743   309041954 :          lu(k,171) = lu(k,171) * lu(k,170)
     744   309041954 :          lu(k,172) = lu(k,172) * lu(k,170)
     745   309041954 :          lu(k,173) = lu(k,173) * lu(k,170)
     746   309041954 :          lu(k,174) = lu(k,174) * lu(k,170)
     747   309041954 :          lu(k,175) = lu(k,175) * lu(k,170)
     748   309041954 :          lu(k,176) = lu(k,176) * lu(k,170)
     749   309041954 :          lu(k,177) = lu(k,177) * lu(k,170)
     750   309041954 :          lu(k,178) = lu(k,178) * lu(k,170)
     751   309041954 :          lu(k,179) = lu(k,179) * lu(k,170)
     752   309041954 :          lu(k,195) = lu(k,195) - lu(k,171) * lu(k,194)
     753   309041954 :          lu(k,196) = lu(k,196) - lu(k,172) * lu(k,194)
     754   309041954 :          lu(k,197) = lu(k,197) - lu(k,173) * lu(k,194)
     755   309041954 :          lu(k,198) = lu(k,198) - lu(k,174) * lu(k,194)
     756   309041954 :          lu(k,199) = - lu(k,175) * lu(k,194)
     757   309041954 :          lu(k,200) = - lu(k,176) * lu(k,194)
     758   309041954 :          lu(k,201) = lu(k,201) - lu(k,177) * lu(k,194)
     759   309041954 :          lu(k,202) = lu(k,202) - lu(k,178) * lu(k,194)
     760   309041954 :          lu(k,204) = - lu(k,179) * lu(k,194)
     761   309041954 :          lu(k,208) = lu(k,208) - lu(k,171) * lu(k,207)
     762   309041954 :          lu(k,209) = lu(k,209) - lu(k,172) * lu(k,207)
     763   309041954 :          lu(k,210) = lu(k,210) - lu(k,173) * lu(k,207)
     764   309041954 :          lu(k,211) = lu(k,211) - lu(k,174) * lu(k,207)
     765   309041954 :          lu(k,212) = - lu(k,175) * lu(k,207)
     766   309041954 :          lu(k,213) = - lu(k,176) * lu(k,207)
     767   309041954 :          lu(k,214) = lu(k,214) - lu(k,177) * lu(k,207)
     768   309041954 :          lu(k,215) = lu(k,215) - lu(k,178) * lu(k,207)
     769   309041954 :          lu(k,217) = - lu(k,179) * lu(k,207)
     770   309041954 :          lu(k,222) = lu(k,222) - lu(k,171) * lu(k,221)
     771   309041954 :          lu(k,223) = lu(k,223) - lu(k,172) * lu(k,221)
     772   309041954 :          lu(k,224) = lu(k,224) - lu(k,173) * lu(k,221)
     773   309041954 :          lu(k,225) = lu(k,225) - lu(k,174) * lu(k,221)
     774   309041954 :          lu(k,226) = lu(k,226) - lu(k,175) * lu(k,221)
     775   309041954 :          lu(k,227) = - lu(k,176) * lu(k,221)
     776   309041954 :          lu(k,228) = lu(k,228) - lu(k,177) * lu(k,221)
     777   309041954 :          lu(k,229) = lu(k,229) - lu(k,178) * lu(k,221)
     778   309041954 :          lu(k,232) = lu(k,232) - lu(k,179) * lu(k,221)
     779   309041954 :          lu(k,406) = lu(k,406) - lu(k,171) * lu(k,405)
     780   309041954 :          lu(k,407) = lu(k,407) - lu(k,172) * lu(k,405)
     781   309041954 :          lu(k,408) = lu(k,408) - lu(k,173) * lu(k,405)
     782   309041954 :          lu(k,409) = lu(k,409) - lu(k,174) * lu(k,405)
     783   309041954 :          lu(k,414) = lu(k,414) - lu(k,175) * lu(k,405)
     784   309041954 :          lu(k,419) = lu(k,419) - lu(k,176) * lu(k,405)
     785   309041954 :          lu(k,420) = lu(k,420) - lu(k,177) * lu(k,405)
     786   309041954 :          lu(k,423) = lu(k,423) - lu(k,178) * lu(k,405)
     787   309041954 :          lu(k,428) = lu(k,428) - lu(k,179) * lu(k,405)
     788   309041954 :          lu(k,495) = lu(k,495) - lu(k,171) * lu(k,494)
     789   309041954 :          lu(k,496) = lu(k,496) - lu(k,172) * lu(k,494)
     790   309041954 :          lu(k,497) = lu(k,497) - lu(k,173) * lu(k,494)
     791   309041954 :          lu(k,498) = lu(k,498) - lu(k,174) * lu(k,494)
     792   309041954 :          lu(k,501) = lu(k,501) - lu(k,175) * lu(k,494)
     793   309041954 :          lu(k,503) = lu(k,503) - lu(k,176) * lu(k,494)
     794   309041954 :          lu(k,504) = lu(k,504) - lu(k,177) * lu(k,494)
     795   309041954 :          lu(k,507) = lu(k,507) - lu(k,178) * lu(k,494)
     796   318792954 :          lu(k,512) = lu(k,512) - lu(k,179) * lu(k,494)
     797             :       end do
     798     9751000 :       end subroutine lu_fac04
     799     9751000 :       subroutine lu_fac05( avec_len, lu )
     800             :       use chem_mods, only : nzcnt
     801             :       use shr_kind_mod, only : r8 => shr_kind_r8
     802             :       implicit none
     803             : !-----------------------------------------------------------------------
     804             : ! ... dummy args
     805             : !-----------------------------------------------------------------------
     806             :       integer, intent(in) :: avec_len
     807             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     808             : !-----------------------------------------------------------------------
     809             : ! ... local variables
     810             : !-----------------------------------------------------------------------
     811             :       integer :: k
     812   318792954 :       do k = 1,avec_len
     813   309041954 :          lu(k,181) = 1._r8 / lu(k,181)
     814   309041954 :          lu(k,182) = lu(k,182) * lu(k,181)
     815   309041954 :          lu(k,183) = lu(k,183) * lu(k,181)
     816   309041954 :          lu(k,184) = lu(k,184) * lu(k,181)
     817   309041954 :          lu(k,185) = lu(k,185) * lu(k,181)
     818   309041954 :          lu(k,186) = lu(k,186) * lu(k,181)
     819   309041954 :          lu(k,187) = lu(k,187) * lu(k,181)
     820   309041954 :          lu(k,188) = lu(k,188) * lu(k,181)
     821   309041954 :          lu(k,196) = lu(k,196) - lu(k,182) * lu(k,195)
     822   309041954 :          lu(k,197) = lu(k,197) - lu(k,183) * lu(k,195)
     823   309041954 :          lu(k,198) = lu(k,198) - lu(k,184) * lu(k,195)
     824   309041954 :          lu(k,201) = lu(k,201) - lu(k,185) * lu(k,195)
     825   309041954 :          lu(k,202) = lu(k,202) - lu(k,186) * lu(k,195)
     826   309041954 :          lu(k,203) = lu(k,203) - lu(k,187) * lu(k,195)
     827   309041954 :          lu(k,205) = lu(k,205) - lu(k,188) * lu(k,195)
     828   309041954 :          lu(k,209) = lu(k,209) - lu(k,182) * lu(k,208)
     829   309041954 :          lu(k,210) = lu(k,210) - lu(k,183) * lu(k,208)
     830   309041954 :          lu(k,211) = lu(k,211) - lu(k,184) * lu(k,208)
     831   309041954 :          lu(k,214) = lu(k,214) - lu(k,185) * lu(k,208)
     832   309041954 :          lu(k,215) = lu(k,215) - lu(k,186) * lu(k,208)
     833   309041954 :          lu(k,216) = lu(k,216) - lu(k,187) * lu(k,208)
     834   309041954 :          lu(k,218) = lu(k,218) - lu(k,188) * lu(k,208)
     835   309041954 :          lu(k,223) = lu(k,223) - lu(k,182) * lu(k,222)
     836   309041954 :          lu(k,224) = lu(k,224) - lu(k,183) * lu(k,222)
     837   309041954 :          lu(k,225) = lu(k,225) - lu(k,184) * lu(k,222)
     838   309041954 :          lu(k,228) = lu(k,228) - lu(k,185) * lu(k,222)
     839   309041954 :          lu(k,229) = lu(k,229) - lu(k,186) * lu(k,222)
     840   309041954 :          lu(k,230) = - lu(k,187) * lu(k,222)
     841   309041954 :          lu(k,233) = lu(k,233) - lu(k,188) * lu(k,222)
     842   309041954 :          lu(k,407) = lu(k,407) - lu(k,182) * lu(k,406)
     843   309041954 :          lu(k,408) = lu(k,408) - lu(k,183) * lu(k,406)
     844   309041954 :          lu(k,409) = lu(k,409) - lu(k,184) * lu(k,406)
     845   309041954 :          lu(k,420) = lu(k,420) - lu(k,185) * lu(k,406)
     846   309041954 :          lu(k,423) = lu(k,423) - lu(k,186) * lu(k,406)
     847   309041954 :          lu(k,424) = lu(k,424) - lu(k,187) * lu(k,406)
     848   309041954 :          lu(k,429) = lu(k,429) - lu(k,188) * lu(k,406)
     849   309041954 :          lu(k,496) = lu(k,496) - lu(k,182) * lu(k,495)
     850   309041954 :          lu(k,497) = lu(k,497) - lu(k,183) * lu(k,495)
     851   309041954 :          lu(k,498) = lu(k,498) - lu(k,184) * lu(k,495)
     852   309041954 :          lu(k,504) = lu(k,504) - lu(k,185) * lu(k,495)
     853   309041954 :          lu(k,507) = lu(k,507) - lu(k,186) * lu(k,495)
     854   309041954 :          lu(k,508) = lu(k,508) - lu(k,187) * lu(k,495)
     855   309041954 :          lu(k,513) = lu(k,513) - lu(k,188) * lu(k,495)
     856   309041954 :          lu(k,653) = lu(k,653) - lu(k,182) * lu(k,652)
     857   309041954 :          lu(k,654) = lu(k,654) - lu(k,183) * lu(k,652)
     858   309041954 :          lu(k,655) = lu(k,655) - lu(k,184) * lu(k,652)
     859   309041954 :          lu(k,661) = lu(k,661) - lu(k,185) * lu(k,652)
     860   309041954 :          lu(k,664) = lu(k,664) - lu(k,186) * lu(k,652)
     861   309041954 :          lu(k,665) = - lu(k,187) * lu(k,652)
     862   309041954 :          lu(k,670) = lu(k,670) - lu(k,188) * lu(k,652)
     863   309041954 :          lu(k,196) = 1._r8 / lu(k,196)
     864   309041954 :          lu(k,197) = lu(k,197) * lu(k,196)
     865   309041954 :          lu(k,198) = lu(k,198) * lu(k,196)
     866   309041954 :          lu(k,199) = lu(k,199) * lu(k,196)
     867   309041954 :          lu(k,200) = lu(k,200) * lu(k,196)
     868   309041954 :          lu(k,201) = lu(k,201) * lu(k,196)
     869   309041954 :          lu(k,202) = lu(k,202) * lu(k,196)
     870   309041954 :          lu(k,203) = lu(k,203) * lu(k,196)
     871   309041954 :          lu(k,204) = lu(k,204) * lu(k,196)
     872   309041954 :          lu(k,205) = lu(k,205) * lu(k,196)
     873   309041954 :          lu(k,210) = lu(k,210) - lu(k,197) * lu(k,209)
     874   309041954 :          lu(k,211) = lu(k,211) - lu(k,198) * lu(k,209)
     875   309041954 :          lu(k,212) = lu(k,212) - lu(k,199) * lu(k,209)
     876   309041954 :          lu(k,213) = lu(k,213) - lu(k,200) * lu(k,209)
     877   309041954 :          lu(k,214) = lu(k,214) - lu(k,201) * lu(k,209)
     878   309041954 :          lu(k,215) = lu(k,215) - lu(k,202) * lu(k,209)
     879   309041954 :          lu(k,216) = lu(k,216) - lu(k,203) * lu(k,209)
     880   309041954 :          lu(k,217) = lu(k,217) - lu(k,204) * lu(k,209)
     881   309041954 :          lu(k,218) = lu(k,218) - lu(k,205) * lu(k,209)
     882   309041954 :          lu(k,224) = lu(k,224) - lu(k,197) * lu(k,223)
     883   309041954 :          lu(k,225) = lu(k,225) - lu(k,198) * lu(k,223)
     884   309041954 :          lu(k,226) = lu(k,226) - lu(k,199) * lu(k,223)
     885   309041954 :          lu(k,227) = lu(k,227) - lu(k,200) * lu(k,223)
     886   309041954 :          lu(k,228) = lu(k,228) - lu(k,201) * lu(k,223)
     887   309041954 :          lu(k,229) = lu(k,229) - lu(k,202) * lu(k,223)
     888   309041954 :          lu(k,230) = lu(k,230) - lu(k,203) * lu(k,223)
     889   309041954 :          lu(k,232) = lu(k,232) - lu(k,204) * lu(k,223)
     890   309041954 :          lu(k,233) = lu(k,233) - lu(k,205) * lu(k,223)
     891   309041954 :          lu(k,408) = lu(k,408) - lu(k,197) * lu(k,407)
     892   309041954 :          lu(k,409) = lu(k,409) - lu(k,198) * lu(k,407)
     893   309041954 :          lu(k,414) = lu(k,414) - lu(k,199) * lu(k,407)
     894   309041954 :          lu(k,419) = lu(k,419) - lu(k,200) * lu(k,407)
     895   309041954 :          lu(k,420) = lu(k,420) - lu(k,201) * lu(k,407)
     896   309041954 :          lu(k,423) = lu(k,423) - lu(k,202) * lu(k,407)
     897   309041954 :          lu(k,424) = lu(k,424) - lu(k,203) * lu(k,407)
     898   309041954 :          lu(k,428) = lu(k,428) - lu(k,204) * lu(k,407)
     899   309041954 :          lu(k,429) = lu(k,429) - lu(k,205) * lu(k,407)
     900   309041954 :          lu(k,497) = lu(k,497) - lu(k,197) * lu(k,496)
     901   309041954 :          lu(k,498) = lu(k,498) - lu(k,198) * lu(k,496)
     902   309041954 :          lu(k,501) = lu(k,501) - lu(k,199) * lu(k,496)
     903   309041954 :          lu(k,503) = lu(k,503) - lu(k,200) * lu(k,496)
     904   309041954 :          lu(k,504) = lu(k,504) - lu(k,201) * lu(k,496)
     905   309041954 :          lu(k,507) = lu(k,507) - lu(k,202) * lu(k,496)
     906   309041954 :          lu(k,508) = lu(k,508) - lu(k,203) * lu(k,496)
     907   309041954 :          lu(k,512) = lu(k,512) - lu(k,204) * lu(k,496)
     908   309041954 :          lu(k,513) = lu(k,513) - lu(k,205) * lu(k,496)
     909   309041954 :          lu(k,654) = lu(k,654) - lu(k,197) * lu(k,653)
     910   309041954 :          lu(k,655) = lu(k,655) - lu(k,198) * lu(k,653)
     911   309041954 :          lu(k,656) = - lu(k,199) * lu(k,653)
     912   309041954 :          lu(k,660) = lu(k,660) - lu(k,200) * lu(k,653)
     913   309041954 :          lu(k,661) = lu(k,661) - lu(k,201) * lu(k,653)
     914   309041954 :          lu(k,664) = lu(k,664) - lu(k,202) * lu(k,653)
     915   309041954 :          lu(k,665) = lu(k,665) - lu(k,203) * lu(k,653)
     916   309041954 :          lu(k,669) = lu(k,669) - lu(k,204) * lu(k,653)
     917   309041954 :          lu(k,670) = lu(k,670) - lu(k,205) * lu(k,653)
     918   309041954 :          lu(k,210) = 1._r8 / lu(k,210)
     919   309041954 :          lu(k,211) = lu(k,211) * lu(k,210)
     920   309041954 :          lu(k,212) = lu(k,212) * lu(k,210)
     921   309041954 :          lu(k,213) = lu(k,213) * lu(k,210)
     922   309041954 :          lu(k,214) = lu(k,214) * lu(k,210)
     923   309041954 :          lu(k,215) = lu(k,215) * lu(k,210)
     924   309041954 :          lu(k,216) = lu(k,216) * lu(k,210)
     925   309041954 :          lu(k,217) = lu(k,217) * lu(k,210)
     926   309041954 :          lu(k,218) = lu(k,218) * lu(k,210)
     927   309041954 :          lu(k,225) = lu(k,225) - lu(k,211) * lu(k,224)
     928   309041954 :          lu(k,226) = lu(k,226) - lu(k,212) * lu(k,224)
     929   309041954 :          lu(k,227) = lu(k,227) - lu(k,213) * lu(k,224)
     930   309041954 :          lu(k,228) = lu(k,228) - lu(k,214) * lu(k,224)
     931   309041954 :          lu(k,229) = lu(k,229) - lu(k,215) * lu(k,224)
     932   309041954 :          lu(k,230) = lu(k,230) - lu(k,216) * lu(k,224)
     933   309041954 :          lu(k,232) = lu(k,232) - lu(k,217) * lu(k,224)
     934   309041954 :          lu(k,233) = lu(k,233) - lu(k,218) * lu(k,224)
     935   309041954 :          lu(k,409) = lu(k,409) - lu(k,211) * lu(k,408)
     936   309041954 :          lu(k,414) = lu(k,414) - lu(k,212) * lu(k,408)
     937   309041954 :          lu(k,419) = lu(k,419) - lu(k,213) * lu(k,408)
     938   309041954 :          lu(k,420) = lu(k,420) - lu(k,214) * lu(k,408)
     939   309041954 :          lu(k,423) = lu(k,423) - lu(k,215) * lu(k,408)
     940   309041954 :          lu(k,424) = lu(k,424) - lu(k,216) * lu(k,408)
     941   309041954 :          lu(k,428) = lu(k,428) - lu(k,217) * lu(k,408)
     942   309041954 :          lu(k,429) = lu(k,429) - lu(k,218) * lu(k,408)
     943   309041954 :          lu(k,498) = lu(k,498) - lu(k,211) * lu(k,497)
     944   309041954 :          lu(k,501) = lu(k,501) - lu(k,212) * lu(k,497)
     945   309041954 :          lu(k,503) = lu(k,503) - lu(k,213) * lu(k,497)
     946   309041954 :          lu(k,504) = lu(k,504) - lu(k,214) * lu(k,497)
     947   309041954 :          lu(k,507) = lu(k,507) - lu(k,215) * lu(k,497)
     948   309041954 :          lu(k,508) = lu(k,508) - lu(k,216) * lu(k,497)
     949   309041954 :          lu(k,512) = lu(k,512) - lu(k,217) * lu(k,497)
     950   309041954 :          lu(k,513) = lu(k,513) - lu(k,218) * lu(k,497)
     951   309041954 :          lu(k,655) = lu(k,655) - lu(k,211) * lu(k,654)
     952   309041954 :          lu(k,656) = lu(k,656) - lu(k,212) * lu(k,654)
     953   309041954 :          lu(k,660) = lu(k,660) - lu(k,213) * lu(k,654)
     954   309041954 :          lu(k,661) = lu(k,661) - lu(k,214) * lu(k,654)
     955   309041954 :          lu(k,664) = lu(k,664) - lu(k,215) * lu(k,654)
     956   309041954 :          lu(k,665) = lu(k,665) - lu(k,216) * lu(k,654)
     957   309041954 :          lu(k,669) = lu(k,669) - lu(k,217) * lu(k,654)
     958   309041954 :          lu(k,670) = lu(k,670) - lu(k,218) * lu(k,654)
     959   309041954 :          lu(k,225) = 1._r8 / lu(k,225)
     960   309041954 :          lu(k,226) = lu(k,226) * lu(k,225)
     961   309041954 :          lu(k,227) = lu(k,227) * lu(k,225)
     962   309041954 :          lu(k,228) = lu(k,228) * lu(k,225)
     963   309041954 :          lu(k,229) = lu(k,229) * lu(k,225)
     964   309041954 :          lu(k,230) = lu(k,230) * lu(k,225)
     965   309041954 :          lu(k,231) = lu(k,231) * lu(k,225)
     966   309041954 :          lu(k,232) = lu(k,232) * lu(k,225)
     967   309041954 :          lu(k,233) = lu(k,233) * lu(k,225)
     968   309041954 :          lu(k,414) = lu(k,414) - lu(k,226) * lu(k,409)
     969   309041954 :          lu(k,419) = lu(k,419) - lu(k,227) * lu(k,409)
     970   309041954 :          lu(k,420) = lu(k,420) - lu(k,228) * lu(k,409)
     971   309041954 :          lu(k,423) = lu(k,423) - lu(k,229) * lu(k,409)
     972   309041954 :          lu(k,424) = lu(k,424) - lu(k,230) * lu(k,409)
     973   309041954 :          lu(k,427) = lu(k,427) - lu(k,231) * lu(k,409)
     974   309041954 :          lu(k,428) = lu(k,428) - lu(k,232) * lu(k,409)
     975   309041954 :          lu(k,429) = lu(k,429) - lu(k,233) * lu(k,409)
     976   309041954 :          lu(k,501) = lu(k,501) - lu(k,226) * lu(k,498)
     977   309041954 :          lu(k,503) = lu(k,503) - lu(k,227) * lu(k,498)
     978   309041954 :          lu(k,504) = lu(k,504) - lu(k,228) * lu(k,498)
     979   309041954 :          lu(k,507) = lu(k,507) - lu(k,229) * lu(k,498)
     980   309041954 :          lu(k,508) = lu(k,508) - lu(k,230) * lu(k,498)
     981   309041954 :          lu(k,511) = - lu(k,231) * lu(k,498)
     982   309041954 :          lu(k,512) = lu(k,512) - lu(k,232) * lu(k,498)
     983   309041954 :          lu(k,513) = lu(k,513) - lu(k,233) * lu(k,498)
     984   309041954 :          lu(k,595) = - lu(k,226) * lu(k,590)
     985   309041954 :          lu(k,600) = lu(k,600) - lu(k,227) * lu(k,590)
     986   309041954 :          lu(k,601) = lu(k,601) - lu(k,228) * lu(k,590)
     987   309041954 :          lu(k,604) = lu(k,604) - lu(k,229) * lu(k,590)
     988   309041954 :          lu(k,605) = - lu(k,230) * lu(k,590)
     989   309041954 :          lu(k,608) = lu(k,608) - lu(k,231) * lu(k,590)
     990   309041954 :          lu(k,609) = lu(k,609) - lu(k,232) * lu(k,590)
     991   309041954 :          lu(k,610) = lu(k,610) - lu(k,233) * lu(k,590)
     992   309041954 :          lu(k,632) = lu(k,632) - lu(k,226) * lu(k,627)
     993   309041954 :          lu(k,637) = lu(k,637) - lu(k,227) * lu(k,627)
     994   309041954 :          lu(k,638) = lu(k,638) - lu(k,228) * lu(k,627)
     995   309041954 :          lu(k,641) = lu(k,641) - lu(k,229) * lu(k,627)
     996   309041954 :          lu(k,642) = lu(k,642) - lu(k,230) * lu(k,627)
     997   309041954 :          lu(k,645) = lu(k,645) - lu(k,231) * lu(k,627)
     998   309041954 :          lu(k,646) = lu(k,646) - lu(k,232) * lu(k,627)
     999   309041954 :          lu(k,647) = lu(k,647) - lu(k,233) * lu(k,627)
    1000   309041954 :          lu(k,656) = lu(k,656) - lu(k,226) * lu(k,655)
    1001   309041954 :          lu(k,660) = lu(k,660) - lu(k,227) * lu(k,655)
    1002   309041954 :          lu(k,661) = lu(k,661) - lu(k,228) * lu(k,655)
    1003   309041954 :          lu(k,664) = lu(k,664) - lu(k,229) * lu(k,655)
    1004   309041954 :          lu(k,665) = lu(k,665) - lu(k,230) * lu(k,655)
    1005   309041954 :          lu(k,668) = lu(k,668) - lu(k,231) * lu(k,655)
    1006   309041954 :          lu(k,669) = lu(k,669) - lu(k,232) * lu(k,655)
    1007   309041954 :          lu(k,670) = lu(k,670) - lu(k,233) * lu(k,655)
    1008   309041954 :          lu(k,235) = 1._r8 / lu(k,235)
    1009   309041954 :          lu(k,236) = lu(k,236) * lu(k,235)
    1010   309041954 :          lu(k,237) = lu(k,237) * lu(k,235)
    1011   309041954 :          lu(k,238) = lu(k,238) * lu(k,235)
    1012   309041954 :          lu(k,239) = lu(k,239) * lu(k,235)
    1013   309041954 :          lu(k,240) = lu(k,240) * lu(k,235)
    1014   309041954 :          lu(k,266) = lu(k,266) - lu(k,236) * lu(k,265)
    1015   309041954 :          lu(k,269) = - lu(k,237) * lu(k,265)
    1016   309041954 :          lu(k,270) = lu(k,270) - lu(k,238) * lu(k,265)
    1017   309041954 :          lu(k,276) = lu(k,276) - lu(k,239) * lu(k,265)
    1018   309041954 :          lu(k,279) = - lu(k,240) * lu(k,265)
    1019   309041954 :          lu(k,346) = - lu(k,236) * lu(k,344)
    1020   309041954 :          lu(k,351) = lu(k,351) - lu(k,237) * lu(k,344)
    1021   309041954 :          lu(k,352) = lu(k,352) - lu(k,238) * lu(k,344)
    1022   309041954 :          lu(k,360) = lu(k,360) - lu(k,239) * lu(k,344)
    1023   309041954 :          lu(k,364) = - lu(k,240) * lu(k,344)
    1024   309041954 :          lu(k,413) = lu(k,413) - lu(k,236) * lu(k,410)
    1025   309041954 :          lu(k,419) = lu(k,419) - lu(k,237) * lu(k,410)
    1026   309041954 :          lu(k,420) = lu(k,420) - lu(k,238) * lu(k,410)
    1027   309041954 :          lu(k,428) = lu(k,428) - lu(k,239) * lu(k,410)
    1028   309041954 :          lu(k,432) = lu(k,432) - lu(k,240) * lu(k,410)
    1029   309041954 :          lu(k,441) = lu(k,441) - lu(k,236) * lu(k,438)
    1030   309041954 :          lu(k,447) = lu(k,447) - lu(k,237) * lu(k,438)
    1031   309041954 :          lu(k,448) = lu(k,448) - lu(k,238) * lu(k,438)
    1032   309041954 :          lu(k,456) = lu(k,456) - lu(k,239) * lu(k,438)
    1033   309041954 :          lu(k,460) = lu(k,460) - lu(k,240) * lu(k,438)
    1034   309041954 :          lu(k,500) = lu(k,500) - lu(k,236) * lu(k,499)
    1035   309041954 :          lu(k,503) = lu(k,503) - lu(k,237) * lu(k,499)
    1036   309041954 :          lu(k,504) = lu(k,504) - lu(k,238) * lu(k,499)
    1037   309041954 :          lu(k,512) = lu(k,512) - lu(k,239) * lu(k,499)
    1038   309041954 :          lu(k,516) = - lu(k,240) * lu(k,499)
    1039   309041954 :          lu(k,568) = lu(k,568) - lu(k,236) * lu(k,567)
    1040   309041954 :          lu(k,572) = lu(k,572) - lu(k,237) * lu(k,567)
    1041   309041954 :          lu(k,573) = lu(k,573) - lu(k,238) * lu(k,567)
    1042   309041954 :          lu(k,581) = lu(k,581) - lu(k,239) * lu(k,567)
    1043   309041954 :          lu(k,585) = - lu(k,240) * lu(k,567)
    1044   309041954 :          lu(k,594) = lu(k,594) - lu(k,236) * lu(k,591)
    1045   309041954 :          lu(k,600) = lu(k,600) - lu(k,237) * lu(k,591)
    1046   309041954 :          lu(k,601) = lu(k,601) - lu(k,238) * lu(k,591)
    1047   309041954 :          lu(k,609) = lu(k,609) - lu(k,239) * lu(k,591)
    1048   309041954 :          lu(k,613) = lu(k,613) - lu(k,240) * lu(k,591)
    1049   309041954 :          lu(k,631) = lu(k,631) - lu(k,236) * lu(k,628)
    1050   309041954 :          lu(k,637) = lu(k,637) - lu(k,237) * lu(k,628)
    1051   309041954 :          lu(k,638) = lu(k,638) - lu(k,238) * lu(k,628)
    1052   309041954 :          lu(k,646) = lu(k,646) - lu(k,239) * lu(k,628)
    1053   309041954 :          lu(k,650) = lu(k,650) - lu(k,240) * lu(k,628)
    1054   309041954 :          lu(k,701) = lu(k,701) - lu(k,236) * lu(k,699)
    1055   309041954 :          lu(k,707) = lu(k,707) - lu(k,237) * lu(k,699)
    1056   309041954 :          lu(k,708) = lu(k,708) - lu(k,238) * lu(k,699)
    1057   309041954 :          lu(k,716) = lu(k,716) - lu(k,239) * lu(k,699)
    1058   309041954 :          lu(k,720) = lu(k,720) - lu(k,240) * lu(k,699)
    1059   309041954 :          lu(k,727) = - lu(k,236) * lu(k,725)
    1060   309041954 :          lu(k,732) = - lu(k,237) * lu(k,725)
    1061   309041954 :          lu(k,733) = lu(k,733) - lu(k,238) * lu(k,725)
    1062   309041954 :          lu(k,741) = lu(k,741) - lu(k,239) * lu(k,725)
    1063   318792954 :          lu(k,745) = lu(k,745) - lu(k,240) * lu(k,725)
    1064             :       end do
    1065     9751000 :       end subroutine lu_fac05
    1066     9751000 :       subroutine lu_fac06( avec_len, lu )
    1067             :       use chem_mods, only : nzcnt
    1068             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1069             :       implicit none
    1070             : !-----------------------------------------------------------------------
    1071             : ! ... dummy args
    1072             : !-----------------------------------------------------------------------
    1073             :       integer, intent(in) :: avec_len
    1074             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1075             : !-----------------------------------------------------------------------
    1076             : ! ... local variables
    1077             : !-----------------------------------------------------------------------
    1078             :       integer :: k
    1079   318792954 :       do k = 1,avec_len
    1080   309041954 :          lu(k,243) = 1._r8 / lu(k,243)
    1081   309041954 :          lu(k,244) = lu(k,244) * lu(k,243)
    1082   309041954 :          lu(k,245) = lu(k,245) * lu(k,243)
    1083   309041954 :          lu(k,246) = lu(k,246) * lu(k,243)
    1084   309041954 :          lu(k,247) = lu(k,247) * lu(k,243)
    1085   309041954 :          lu(k,248) = lu(k,248) * lu(k,243)
    1086   309041954 :          lu(k,249) = lu(k,249) * lu(k,243)
    1087   309041954 :          lu(k,250) = lu(k,250) * lu(k,243)
    1088   309041954 :          lu(k,251) = lu(k,251) * lu(k,243)
    1089   309041954 :          lu(k,252) = lu(k,252) * lu(k,243)
    1090   309041954 :          lu(k,307) = lu(k,307) - lu(k,244) * lu(k,306)
    1091   309041954 :          lu(k,310) = lu(k,310) - lu(k,245) * lu(k,306)
    1092   309041954 :          lu(k,312) = - lu(k,246) * lu(k,306)
    1093   309041954 :          lu(k,314) = lu(k,314) - lu(k,247) * lu(k,306)
    1094   309041954 :          lu(k,315) = lu(k,315) - lu(k,248) * lu(k,306)
    1095   309041954 :          lu(k,316) = lu(k,316) - lu(k,249) * lu(k,306)
    1096   309041954 :          lu(k,321) = - lu(k,250) * lu(k,306)
    1097   309041954 :          lu(k,322) = lu(k,322) - lu(k,251) * lu(k,306)
    1098   309041954 :          lu(k,325) = lu(k,325) - lu(k,252) * lu(k,306)
    1099   309041954 :          lu(k,412) = lu(k,412) - lu(k,244) * lu(k,411)
    1100   309041954 :          lu(k,416) = lu(k,416) - lu(k,245) * lu(k,411)
    1101   309041954 :          lu(k,418) = lu(k,418) - lu(k,246) * lu(k,411)
    1102   309041954 :          lu(k,420) = lu(k,420) - lu(k,247) * lu(k,411)
    1103   309041954 :          lu(k,421) = lu(k,421) - lu(k,248) * lu(k,411)
    1104   309041954 :          lu(k,422) = lu(k,422) - lu(k,249) * lu(k,411)
    1105   309041954 :          lu(k,427) = lu(k,427) - lu(k,250) * lu(k,411)
    1106   309041954 :          lu(k,428) = lu(k,428) - lu(k,251) * lu(k,411)
    1107   309041954 :          lu(k,432) = lu(k,432) - lu(k,252) * lu(k,411)
    1108   309041954 :          lu(k,440) = - lu(k,244) * lu(k,439)
    1109   309041954 :          lu(k,444) = lu(k,444) - lu(k,245) * lu(k,439)
    1110   309041954 :          lu(k,446) = - lu(k,246) * lu(k,439)
    1111   309041954 :          lu(k,448) = lu(k,448) - lu(k,247) * lu(k,439)
    1112   309041954 :          lu(k,449) = lu(k,449) - lu(k,248) * lu(k,439)
    1113   309041954 :          lu(k,450) = lu(k,450) - lu(k,249) * lu(k,439)
    1114   309041954 :          lu(k,455) = lu(k,455) - lu(k,250) * lu(k,439)
    1115   309041954 :          lu(k,456) = lu(k,456) - lu(k,251) * lu(k,439)
    1116   309041954 :          lu(k,460) = lu(k,460) - lu(k,252) * lu(k,439)
    1117   309041954 :          lu(k,466) = - lu(k,244) * lu(k,465)
    1118   309041954 :          lu(k,469) = lu(k,469) - lu(k,245) * lu(k,465)
    1119   309041954 :          lu(k,471) = lu(k,471) - lu(k,246) * lu(k,465)
    1120   309041954 :          lu(k,473) = lu(k,473) - lu(k,247) * lu(k,465)
    1121   309041954 :          lu(k,474) = lu(k,474) - lu(k,248) * lu(k,465)
    1122   309041954 :          lu(k,475) = lu(k,475) - lu(k,249) * lu(k,465)
    1123   309041954 :          lu(k,480) = - lu(k,250) * lu(k,465)
    1124   309041954 :          lu(k,481) = lu(k,481) - lu(k,251) * lu(k,465)
    1125   309041954 :          lu(k,485) = lu(k,485) - lu(k,252) * lu(k,465)
    1126   309041954 :          lu(k,593) = lu(k,593) - lu(k,244) * lu(k,592)
    1127   309041954 :          lu(k,597) = lu(k,597) - lu(k,245) * lu(k,592)
    1128   309041954 :          lu(k,599) = lu(k,599) - lu(k,246) * lu(k,592)
    1129   309041954 :          lu(k,601) = lu(k,601) - lu(k,247) * lu(k,592)
    1130   309041954 :          lu(k,602) = lu(k,602) - lu(k,248) * lu(k,592)
    1131   309041954 :          lu(k,603) = lu(k,603) - lu(k,249) * lu(k,592)
    1132   309041954 :          lu(k,608) = lu(k,608) - lu(k,250) * lu(k,592)
    1133   309041954 :          lu(k,609) = lu(k,609) - lu(k,251) * lu(k,592)
    1134   309041954 :          lu(k,613) = lu(k,613) - lu(k,252) * lu(k,592)
    1135   309041954 :          lu(k,630) = lu(k,630) - lu(k,244) * lu(k,629)
    1136   309041954 :          lu(k,634) = lu(k,634) - lu(k,245) * lu(k,629)
    1137   309041954 :          lu(k,636) = lu(k,636) - lu(k,246) * lu(k,629)
    1138   309041954 :          lu(k,638) = lu(k,638) - lu(k,247) * lu(k,629)
    1139   309041954 :          lu(k,639) = lu(k,639) - lu(k,248) * lu(k,629)
    1140   309041954 :          lu(k,640) = lu(k,640) - lu(k,249) * lu(k,629)
    1141   309041954 :          lu(k,645) = lu(k,645) - lu(k,250) * lu(k,629)
    1142   309041954 :          lu(k,646) = lu(k,646) - lu(k,251) * lu(k,629)
    1143   309041954 :          lu(k,650) = lu(k,650) - lu(k,252) * lu(k,629)
    1144   309041954 :          lu(k,255) = 1._r8 / lu(k,255)
    1145   309041954 :          lu(k,256) = lu(k,256) * lu(k,255)
    1146   309041954 :          lu(k,257) = lu(k,257) * lu(k,255)
    1147   309041954 :          lu(k,258) = lu(k,258) * lu(k,255)
    1148   309041954 :          lu(k,259) = lu(k,259) * lu(k,255)
    1149   309041954 :          lu(k,260) = lu(k,260) * lu(k,255)
    1150   309041954 :          lu(k,261) = lu(k,261) * lu(k,255)
    1151   309041954 :          lu(k,262) = lu(k,262) * lu(k,255)
    1152   309041954 :          lu(k,308) = lu(k,308) - lu(k,256) * lu(k,307)
    1153   309041954 :          lu(k,311) = - lu(k,257) * lu(k,307)
    1154   309041954 :          lu(k,312) = lu(k,312) - lu(k,258) * lu(k,307)
    1155   309041954 :          lu(k,321) = lu(k,321) - lu(k,259) * lu(k,307)
    1156   309041954 :          lu(k,322) = lu(k,322) - lu(k,260) * lu(k,307)
    1157   309041954 :          lu(k,323) = - lu(k,261) * lu(k,307)
    1158   309041954 :          lu(k,325) = lu(k,325) - lu(k,262) * lu(k,307)
    1159   309041954 :          lu(k,347) = lu(k,347) - lu(k,256) * lu(k,345)
    1160   309041954 :          lu(k,349) = - lu(k,257) * lu(k,345)
    1161   309041954 :          lu(k,350) = lu(k,350) - lu(k,258) * lu(k,345)
    1162   309041954 :          lu(k,359) = lu(k,359) - lu(k,259) * lu(k,345)
    1163   309041954 :          lu(k,360) = lu(k,360) - lu(k,260) * lu(k,345)
    1164   309041954 :          lu(k,362) = - lu(k,261) * lu(k,345)
    1165   309041954 :          lu(k,364) = lu(k,364) - lu(k,262) * lu(k,345)
    1166   309041954 :          lu(k,414) = lu(k,414) - lu(k,256) * lu(k,412)
    1167   309041954 :          lu(k,417) = - lu(k,257) * lu(k,412)
    1168   309041954 :          lu(k,418) = lu(k,418) - lu(k,258) * lu(k,412)
    1169   309041954 :          lu(k,427) = lu(k,427) - lu(k,259) * lu(k,412)
    1170   309041954 :          lu(k,428) = lu(k,428) - lu(k,260) * lu(k,412)
    1171   309041954 :          lu(k,430) = lu(k,430) - lu(k,261) * lu(k,412)
    1172   309041954 :          lu(k,432) = lu(k,432) - lu(k,262) * lu(k,412)
    1173   309041954 :          lu(k,442) = - lu(k,256) * lu(k,440)
    1174   309041954 :          lu(k,445) = lu(k,445) - lu(k,257) * lu(k,440)
    1175   309041954 :          lu(k,446) = lu(k,446) - lu(k,258) * lu(k,440)
    1176   309041954 :          lu(k,455) = lu(k,455) - lu(k,259) * lu(k,440)
    1177   309041954 :          lu(k,456) = lu(k,456) - lu(k,260) * lu(k,440)
    1178   309041954 :          lu(k,458) = - lu(k,261) * lu(k,440)
    1179   309041954 :          lu(k,460) = lu(k,460) - lu(k,262) * lu(k,440)
    1180   309041954 :          lu(k,467) = lu(k,467) - lu(k,256) * lu(k,466)
    1181   309041954 :          lu(k,470) = lu(k,470) - lu(k,257) * lu(k,466)
    1182   309041954 :          lu(k,471) = lu(k,471) - lu(k,258) * lu(k,466)
    1183   309041954 :          lu(k,480) = lu(k,480) - lu(k,259) * lu(k,466)
    1184   309041954 :          lu(k,481) = lu(k,481) - lu(k,260) * lu(k,466)
    1185   309041954 :          lu(k,483) = lu(k,483) - lu(k,261) * lu(k,466)
    1186   309041954 :          lu(k,485) = lu(k,485) - lu(k,262) * lu(k,466)
    1187   309041954 :          lu(k,523) = lu(k,523) - lu(k,256) * lu(k,522)
    1188   309041954 :          lu(k,526) = lu(k,526) - lu(k,257) * lu(k,522)
    1189   309041954 :          lu(k,527) = lu(k,527) - lu(k,258) * lu(k,522)
    1190   309041954 :          lu(k,536) = - lu(k,259) * lu(k,522)
    1191   309041954 :          lu(k,537) = lu(k,537) - lu(k,260) * lu(k,522)
    1192   309041954 :          lu(k,539) = lu(k,539) - lu(k,261) * lu(k,522)
    1193   309041954 :          lu(k,541) = lu(k,541) - lu(k,262) * lu(k,522)
    1194   309041954 :          lu(k,545) = lu(k,545) - lu(k,256) * lu(k,544)
    1195   309041954 :          lu(k,548) = - lu(k,257) * lu(k,544)
    1196   309041954 :          lu(k,549) = lu(k,549) - lu(k,258) * lu(k,544)
    1197   309041954 :          lu(k,558) = - lu(k,259) * lu(k,544)
    1198   309041954 :          lu(k,559) = lu(k,559) - lu(k,260) * lu(k,544)
    1199   309041954 :          lu(k,561) = lu(k,561) - lu(k,261) * lu(k,544)
    1200   309041954 :          lu(k,563) = lu(k,563) - lu(k,262) * lu(k,544)
    1201   309041954 :          lu(k,595) = lu(k,595) - lu(k,256) * lu(k,593)
    1202   309041954 :          lu(k,598) = - lu(k,257) * lu(k,593)
    1203   309041954 :          lu(k,599) = lu(k,599) - lu(k,258) * lu(k,593)
    1204   309041954 :          lu(k,608) = lu(k,608) - lu(k,259) * lu(k,593)
    1205   309041954 :          lu(k,609) = lu(k,609) - lu(k,260) * lu(k,593)
    1206   309041954 :          lu(k,611) = - lu(k,261) * lu(k,593)
    1207   309041954 :          lu(k,613) = lu(k,613) - lu(k,262) * lu(k,593)
    1208   309041954 :          lu(k,632) = lu(k,632) - lu(k,256) * lu(k,630)
    1209   309041954 :          lu(k,635) = lu(k,635) - lu(k,257) * lu(k,630)
    1210   309041954 :          lu(k,636) = lu(k,636) - lu(k,258) * lu(k,630)
    1211   309041954 :          lu(k,645) = lu(k,645) - lu(k,259) * lu(k,630)
    1212   309041954 :          lu(k,646) = lu(k,646) - lu(k,260) * lu(k,630)
    1213   309041954 :          lu(k,648) = lu(k,648) - lu(k,261) * lu(k,630)
    1214   309041954 :          lu(k,650) = lu(k,650) - lu(k,262) * lu(k,630)
    1215   309041954 :          lu(k,677) = lu(k,677) - lu(k,256) * lu(k,676)
    1216   309041954 :          lu(k,679) = lu(k,679) - lu(k,257) * lu(k,676)
    1217   309041954 :          lu(k,680) = lu(k,680) - lu(k,258) * lu(k,676)
    1218   309041954 :          lu(k,689) = - lu(k,259) * lu(k,676)
    1219   309041954 :          lu(k,690) = lu(k,690) - lu(k,260) * lu(k,676)
    1220   309041954 :          lu(k,692) = lu(k,692) - lu(k,261) * lu(k,676)
    1221   309041954 :          lu(k,694) = lu(k,694) - lu(k,262) * lu(k,676)
    1222   309041954 :          lu(k,702) = - lu(k,256) * lu(k,700)
    1223   309041954 :          lu(k,705) = - lu(k,257) * lu(k,700)
    1224   309041954 :          lu(k,706) = lu(k,706) - lu(k,258) * lu(k,700)
    1225   309041954 :          lu(k,715) = lu(k,715) - lu(k,259) * lu(k,700)
    1226   309041954 :          lu(k,716) = lu(k,716) - lu(k,260) * lu(k,700)
    1227   309041954 :          lu(k,718) = - lu(k,261) * lu(k,700)
    1228   309041954 :          lu(k,720) = lu(k,720) - lu(k,262) * lu(k,700)
    1229   309041954 :          lu(k,728) = lu(k,728) - lu(k,256) * lu(k,726)
    1230   309041954 :          lu(k,730) = lu(k,730) - lu(k,257) * lu(k,726)
    1231   309041954 :          lu(k,731) = lu(k,731) - lu(k,258) * lu(k,726)
    1232   309041954 :          lu(k,740) = - lu(k,259) * lu(k,726)
    1233   309041954 :          lu(k,741) = lu(k,741) - lu(k,260) * lu(k,726)
    1234   309041954 :          lu(k,743) = lu(k,743) - lu(k,261) * lu(k,726)
    1235   309041954 :          lu(k,745) = lu(k,745) - lu(k,262) * lu(k,726)
    1236   309041954 :          lu(k,266) = 1._r8 / lu(k,266)
    1237   309041954 :          lu(k,267) = lu(k,267) * lu(k,266)
    1238   309041954 :          lu(k,268) = lu(k,268) * lu(k,266)
    1239   309041954 :          lu(k,269) = lu(k,269) * lu(k,266)
    1240   309041954 :          lu(k,270) = lu(k,270) * lu(k,266)
    1241   309041954 :          lu(k,271) = lu(k,271) * lu(k,266)
    1242   309041954 :          lu(k,272) = lu(k,272) * lu(k,266)
    1243   309041954 :          lu(k,273) = lu(k,273) * lu(k,266)
    1244   309041954 :          lu(k,274) = lu(k,274) * lu(k,266)
    1245   309041954 :          lu(k,275) = lu(k,275) * lu(k,266)
    1246   309041954 :          lu(k,276) = lu(k,276) * lu(k,266)
    1247   309041954 :          lu(k,277) = lu(k,277) * lu(k,266)
    1248   309041954 :          lu(k,278) = lu(k,278) * lu(k,266)
    1249   309041954 :          lu(k,279) = lu(k,279) * lu(k,266)
    1250   309041954 :          lu(k,347) = lu(k,347) - lu(k,267) * lu(k,346)
    1251   309041954 :          lu(k,348) = - lu(k,268) * lu(k,346)
    1252   309041954 :          lu(k,351) = lu(k,351) - lu(k,269) * lu(k,346)
    1253   309041954 :          lu(k,352) = lu(k,352) - lu(k,270) * lu(k,346)
    1254   309041954 :          lu(k,353) = - lu(k,271) * lu(k,346)
    1255   309041954 :          lu(k,354) = - lu(k,272) * lu(k,346)
    1256   309041954 :          lu(k,355) = lu(k,355) - lu(k,273) * lu(k,346)
    1257   309041954 :          lu(k,358) = - lu(k,274) * lu(k,346)
    1258   309041954 :          lu(k,359) = lu(k,359) - lu(k,275) * lu(k,346)
    1259   309041954 :          lu(k,360) = lu(k,360) - lu(k,276) * lu(k,346)
    1260   309041954 :          lu(k,361) = lu(k,361) - lu(k,277) * lu(k,346)
    1261   309041954 :          lu(k,363) = - lu(k,278) * lu(k,346)
    1262   309041954 :          lu(k,364) = lu(k,364) - lu(k,279) * lu(k,346)
    1263   309041954 :          lu(k,414) = lu(k,414) - lu(k,267) * lu(k,413)
    1264   309041954 :          lu(k,415) = lu(k,415) - lu(k,268) * lu(k,413)
    1265   309041954 :          lu(k,419) = lu(k,419) - lu(k,269) * lu(k,413)
    1266   309041954 :          lu(k,420) = lu(k,420) - lu(k,270) * lu(k,413)
    1267   309041954 :          lu(k,421) = lu(k,421) - lu(k,271) * lu(k,413)
    1268   309041954 :          lu(k,422) = lu(k,422) - lu(k,272) * lu(k,413)
    1269   309041954 :          lu(k,423) = lu(k,423) - lu(k,273) * lu(k,413)
    1270   309041954 :          lu(k,426) = lu(k,426) - lu(k,274) * lu(k,413)
    1271   309041954 :          lu(k,427) = lu(k,427) - lu(k,275) * lu(k,413)
    1272   309041954 :          lu(k,428) = lu(k,428) - lu(k,276) * lu(k,413)
    1273   309041954 :          lu(k,429) = lu(k,429) - lu(k,277) * lu(k,413)
    1274   309041954 :          lu(k,431) = lu(k,431) - lu(k,278) * lu(k,413)
    1275   309041954 :          lu(k,432) = lu(k,432) - lu(k,279) * lu(k,413)
    1276   309041954 :          lu(k,442) = lu(k,442) - lu(k,267) * lu(k,441)
    1277   309041954 :          lu(k,443) = lu(k,443) - lu(k,268) * lu(k,441)
    1278   309041954 :          lu(k,447) = lu(k,447) - lu(k,269) * lu(k,441)
    1279   309041954 :          lu(k,448) = lu(k,448) - lu(k,270) * lu(k,441)
    1280   309041954 :          lu(k,449) = lu(k,449) - lu(k,271) * lu(k,441)
    1281   309041954 :          lu(k,450) = lu(k,450) - lu(k,272) * lu(k,441)
    1282   309041954 :          lu(k,451) = lu(k,451) - lu(k,273) * lu(k,441)
    1283   309041954 :          lu(k,454) = - lu(k,274) * lu(k,441)
    1284   309041954 :          lu(k,455) = lu(k,455) - lu(k,275) * lu(k,441)
    1285   309041954 :          lu(k,456) = lu(k,456) - lu(k,276) * lu(k,441)
    1286   309041954 :          lu(k,457) = lu(k,457) - lu(k,277) * lu(k,441)
    1287   309041954 :          lu(k,459) = lu(k,459) - lu(k,278) * lu(k,441)
    1288   309041954 :          lu(k,460) = lu(k,460) - lu(k,279) * lu(k,441)
    1289   309041954 :          lu(k,501) = lu(k,501) - lu(k,267) * lu(k,500)
    1290   309041954 :          lu(k,502) = - lu(k,268) * lu(k,500)
    1291   309041954 :          lu(k,503) = lu(k,503) - lu(k,269) * lu(k,500)
    1292   309041954 :          lu(k,504) = lu(k,504) - lu(k,270) * lu(k,500)
    1293   309041954 :          lu(k,505) = - lu(k,271) * lu(k,500)
    1294   309041954 :          lu(k,506) = - lu(k,272) * lu(k,500)
    1295   309041954 :          lu(k,507) = lu(k,507) - lu(k,273) * lu(k,500)
    1296   309041954 :          lu(k,510) = lu(k,510) - lu(k,274) * lu(k,500)
    1297   309041954 :          lu(k,511) = lu(k,511) - lu(k,275) * lu(k,500)
    1298   309041954 :          lu(k,512) = lu(k,512) - lu(k,276) * lu(k,500)
    1299   309041954 :          lu(k,513) = lu(k,513) - lu(k,277) * lu(k,500)
    1300   309041954 :          lu(k,515) = - lu(k,278) * lu(k,500)
    1301   309041954 :          lu(k,516) = lu(k,516) - lu(k,279) * lu(k,500)
    1302   309041954 :          lu(k,569) = lu(k,569) - lu(k,267) * lu(k,568)
    1303   309041954 :          lu(k,570) = lu(k,570) - lu(k,268) * lu(k,568)
    1304   309041954 :          lu(k,572) = lu(k,572) - lu(k,269) * lu(k,568)
    1305   309041954 :          lu(k,573) = lu(k,573) - lu(k,270) * lu(k,568)
    1306   309041954 :          lu(k,574) = lu(k,574) - lu(k,271) * lu(k,568)
    1307   309041954 :          lu(k,575) = lu(k,575) - lu(k,272) * lu(k,568)
    1308   309041954 :          lu(k,576) = lu(k,576) - lu(k,273) * lu(k,568)
    1309   309041954 :          lu(k,579) = lu(k,579) - lu(k,274) * lu(k,568)
    1310   309041954 :          lu(k,580) = lu(k,580) - lu(k,275) * lu(k,568)
    1311   309041954 :          lu(k,581) = lu(k,581) - lu(k,276) * lu(k,568)
    1312   309041954 :          lu(k,582) = lu(k,582) - lu(k,277) * lu(k,568)
    1313   309041954 :          lu(k,584) = lu(k,584) - lu(k,278) * lu(k,568)
    1314   309041954 :          lu(k,585) = lu(k,585) - lu(k,279) * lu(k,568)
    1315   309041954 :          lu(k,595) = lu(k,595) - lu(k,267) * lu(k,594)
    1316   309041954 :          lu(k,596) = lu(k,596) - lu(k,268) * lu(k,594)
    1317   309041954 :          lu(k,600) = lu(k,600) - lu(k,269) * lu(k,594)
    1318   309041954 :          lu(k,601) = lu(k,601) - lu(k,270) * lu(k,594)
    1319   309041954 :          lu(k,602) = lu(k,602) - lu(k,271) * lu(k,594)
    1320   309041954 :          lu(k,603) = lu(k,603) - lu(k,272) * lu(k,594)
    1321   309041954 :          lu(k,604) = lu(k,604) - lu(k,273) * lu(k,594)
    1322   309041954 :          lu(k,607) = lu(k,607) - lu(k,274) * lu(k,594)
    1323   309041954 :          lu(k,608) = lu(k,608) - lu(k,275) * lu(k,594)
    1324   309041954 :          lu(k,609) = lu(k,609) - lu(k,276) * lu(k,594)
    1325   309041954 :          lu(k,610) = lu(k,610) - lu(k,277) * lu(k,594)
    1326   309041954 :          lu(k,612) = lu(k,612) - lu(k,278) * lu(k,594)
    1327   309041954 :          lu(k,613) = lu(k,613) - lu(k,279) * lu(k,594)
    1328   309041954 :          lu(k,632) = lu(k,632) - lu(k,267) * lu(k,631)
    1329   309041954 :          lu(k,633) = lu(k,633) - lu(k,268) * lu(k,631)
    1330   309041954 :          lu(k,637) = lu(k,637) - lu(k,269) * lu(k,631)
    1331   309041954 :          lu(k,638) = lu(k,638) - lu(k,270) * lu(k,631)
    1332   309041954 :          lu(k,639) = lu(k,639) - lu(k,271) * lu(k,631)
    1333   309041954 :          lu(k,640) = lu(k,640) - lu(k,272) * lu(k,631)
    1334   309041954 :          lu(k,641) = lu(k,641) - lu(k,273) * lu(k,631)
    1335   309041954 :          lu(k,644) = lu(k,644) - lu(k,274) * lu(k,631)
    1336   309041954 :          lu(k,645) = lu(k,645) - lu(k,275) * lu(k,631)
    1337   309041954 :          lu(k,646) = lu(k,646) - lu(k,276) * lu(k,631)
    1338   309041954 :          lu(k,647) = lu(k,647) - lu(k,277) * lu(k,631)
    1339   309041954 :          lu(k,649) = lu(k,649) - lu(k,278) * lu(k,631)
    1340   309041954 :          lu(k,650) = lu(k,650) - lu(k,279) * lu(k,631)
    1341   309041954 :          lu(k,702) = lu(k,702) - lu(k,267) * lu(k,701)
    1342   309041954 :          lu(k,703) = lu(k,703) - lu(k,268) * lu(k,701)
    1343   309041954 :          lu(k,707) = lu(k,707) - lu(k,269) * lu(k,701)
    1344   309041954 :          lu(k,708) = lu(k,708) - lu(k,270) * lu(k,701)
    1345   309041954 :          lu(k,709) = lu(k,709) - lu(k,271) * lu(k,701)
    1346   309041954 :          lu(k,710) = lu(k,710) - lu(k,272) * lu(k,701)
    1347   309041954 :          lu(k,711) = lu(k,711) - lu(k,273) * lu(k,701)
    1348   309041954 :          lu(k,714) = - lu(k,274) * lu(k,701)
    1349   309041954 :          lu(k,715) = lu(k,715) - lu(k,275) * lu(k,701)
    1350   309041954 :          lu(k,716) = lu(k,716) - lu(k,276) * lu(k,701)
    1351   309041954 :          lu(k,717) = lu(k,717) - lu(k,277) * lu(k,701)
    1352   309041954 :          lu(k,719) = lu(k,719) - lu(k,278) * lu(k,701)
    1353   309041954 :          lu(k,720) = lu(k,720) - lu(k,279) * lu(k,701)
    1354   309041954 :          lu(k,728) = lu(k,728) - lu(k,267) * lu(k,727)
    1355   309041954 :          lu(k,729) = - lu(k,268) * lu(k,727)
    1356   309041954 :          lu(k,732) = lu(k,732) - lu(k,269) * lu(k,727)
    1357   309041954 :          lu(k,733) = lu(k,733) - lu(k,270) * lu(k,727)
    1358   309041954 :          lu(k,734) = - lu(k,271) * lu(k,727)
    1359   309041954 :          lu(k,735) = - lu(k,272) * lu(k,727)
    1360   309041954 :          lu(k,736) = - lu(k,273) * lu(k,727)
    1361   309041954 :          lu(k,739) = - lu(k,274) * lu(k,727)
    1362   309041954 :          lu(k,740) = lu(k,740) - lu(k,275) * lu(k,727)
    1363   309041954 :          lu(k,741) = lu(k,741) - lu(k,276) * lu(k,727)
    1364   309041954 :          lu(k,742) = - lu(k,277) * lu(k,727)
    1365   309041954 :          lu(k,744) = - lu(k,278) * lu(k,727)
    1366   318792954 :          lu(k,745) = lu(k,745) - lu(k,279) * lu(k,727)
    1367             :       end do
    1368     9751000 :       end subroutine lu_fac06
    1369     9751000 :       subroutine lu_fac07( avec_len, lu )
    1370             :       use chem_mods, only : nzcnt
    1371             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1372             :       implicit none
    1373             : !-----------------------------------------------------------------------
    1374             : ! ... dummy args
    1375             : !-----------------------------------------------------------------------
    1376             :       integer, intent(in) :: avec_len
    1377             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1378             : !-----------------------------------------------------------------------
    1379             : ! ... local variables
    1380             : !-----------------------------------------------------------------------
    1381             :       integer :: k
    1382   318792954 :       do k = 1,avec_len
    1383   309041954 :          lu(k,280) = 1._r8 / lu(k,280)
    1384   309041954 :          lu(k,281) = lu(k,281) * lu(k,280)
    1385   309041954 :          lu(k,282) = lu(k,282) * lu(k,280)
    1386   309041954 :          lu(k,283) = lu(k,283) * lu(k,280)
    1387   309041954 :          lu(k,284) = lu(k,284) * lu(k,280)
    1388   309041954 :          lu(k,285) = lu(k,285) * lu(k,280)
    1389   309041954 :          lu(k,286) = lu(k,286) * lu(k,280)
    1390   309041954 :          lu(k,287) = lu(k,287) * lu(k,280)
    1391   309041954 :          lu(k,292) = lu(k,292) - lu(k,281) * lu(k,290)
    1392   309041954 :          lu(k,293) = lu(k,293) - lu(k,282) * lu(k,290)
    1393   309041954 :          lu(k,294) = lu(k,294) - lu(k,283) * lu(k,290)
    1394   309041954 :          lu(k,297) = lu(k,297) - lu(k,284) * lu(k,290)
    1395   309041954 :          lu(k,298) = lu(k,298) - lu(k,285) * lu(k,290)
    1396   309041954 :          lu(k,299) = - lu(k,286) * lu(k,290)
    1397   309041954 :          lu(k,301) = lu(k,301) - lu(k,287) * lu(k,290)
    1398   309041954 :          lu(k,313) = - lu(k,281) * lu(k,308)
    1399   309041954 :          lu(k,314) = lu(k,314) - lu(k,282) * lu(k,308)
    1400   309041954 :          lu(k,317) = - lu(k,283) * lu(k,308)
    1401   309041954 :          lu(k,320) = - lu(k,284) * lu(k,308)
    1402   309041954 :          lu(k,322) = lu(k,322) - lu(k,285) * lu(k,308)
    1403   309041954 :          lu(k,323) = lu(k,323) - lu(k,286) * lu(k,308)
    1404   309041954 :          lu(k,325) = lu(k,325) - lu(k,287) * lu(k,308)
    1405   309041954 :          lu(k,329) = lu(k,329) - lu(k,281) * lu(k,327)
    1406   309041954 :          lu(k,330) = - lu(k,282) * lu(k,327)
    1407   309041954 :          lu(k,333) = lu(k,333) - lu(k,283) * lu(k,327)
    1408   309041954 :          lu(k,335) = - lu(k,284) * lu(k,327)
    1409   309041954 :          lu(k,337) = lu(k,337) - lu(k,285) * lu(k,327)
    1410   309041954 :          lu(k,339) = - lu(k,286) * lu(k,327)
    1411   309041954 :          lu(k,340) = lu(k,340) - lu(k,287) * lu(k,327)
    1412   309041954 :          lu(k,351) = lu(k,351) - lu(k,281) * lu(k,347)
    1413   309041954 :          lu(k,352) = lu(k,352) - lu(k,282) * lu(k,347)
    1414   309041954 :          lu(k,355) = lu(k,355) - lu(k,283) * lu(k,347)
    1415   309041954 :          lu(k,358) = lu(k,358) - lu(k,284) * lu(k,347)
    1416   309041954 :          lu(k,360) = lu(k,360) - lu(k,285) * lu(k,347)
    1417   309041954 :          lu(k,362) = lu(k,362) - lu(k,286) * lu(k,347)
    1418   309041954 :          lu(k,364) = lu(k,364) - lu(k,287) * lu(k,347)
    1419   309041954 :          lu(k,376) = lu(k,376) - lu(k,281) * lu(k,371)
    1420   309041954 :          lu(k,377) = lu(k,377) - lu(k,282) * lu(k,371)
    1421   309041954 :          lu(k,380) = lu(k,380) - lu(k,283) * lu(k,371)
    1422   309041954 :          lu(k,383) = lu(k,383) - lu(k,284) * lu(k,371)
    1423   309041954 :          lu(k,385) = lu(k,385) - lu(k,285) * lu(k,371)
    1424   309041954 :          lu(k,387) = lu(k,387) - lu(k,286) * lu(k,371)
    1425   309041954 :          lu(k,389) = lu(k,389) - lu(k,287) * lu(k,371)
    1426   309041954 :          lu(k,419) = lu(k,419) - lu(k,281) * lu(k,414)
    1427   309041954 :          lu(k,420) = lu(k,420) - lu(k,282) * lu(k,414)
    1428   309041954 :          lu(k,423) = lu(k,423) - lu(k,283) * lu(k,414)
    1429   309041954 :          lu(k,426) = lu(k,426) - lu(k,284) * lu(k,414)
    1430   309041954 :          lu(k,428) = lu(k,428) - lu(k,285) * lu(k,414)
    1431   309041954 :          lu(k,430) = lu(k,430) - lu(k,286) * lu(k,414)
    1432   309041954 :          lu(k,432) = lu(k,432) - lu(k,287) * lu(k,414)
    1433   309041954 :          lu(k,447) = lu(k,447) - lu(k,281) * lu(k,442)
    1434   309041954 :          lu(k,448) = lu(k,448) - lu(k,282) * lu(k,442)
    1435   309041954 :          lu(k,451) = lu(k,451) - lu(k,283) * lu(k,442)
    1436   309041954 :          lu(k,454) = lu(k,454) - lu(k,284) * lu(k,442)
    1437   309041954 :          lu(k,456) = lu(k,456) - lu(k,285) * lu(k,442)
    1438   309041954 :          lu(k,458) = lu(k,458) - lu(k,286) * lu(k,442)
    1439   309041954 :          lu(k,460) = lu(k,460) - lu(k,287) * lu(k,442)
    1440   309041954 :          lu(k,472) = lu(k,472) - lu(k,281) * lu(k,467)
    1441   309041954 :          lu(k,473) = lu(k,473) - lu(k,282) * lu(k,467)
    1442   309041954 :          lu(k,476) = lu(k,476) - lu(k,283) * lu(k,467)
    1443   309041954 :          lu(k,479) = lu(k,479) - lu(k,284) * lu(k,467)
    1444   309041954 :          lu(k,481) = lu(k,481) - lu(k,285) * lu(k,467)
    1445   309041954 :          lu(k,483) = lu(k,483) - lu(k,286) * lu(k,467)
    1446   309041954 :          lu(k,485) = lu(k,485) - lu(k,287) * lu(k,467)
    1447   309041954 :          lu(k,503) = lu(k,503) - lu(k,281) * lu(k,501)
    1448   309041954 :          lu(k,504) = lu(k,504) - lu(k,282) * lu(k,501)
    1449   309041954 :          lu(k,507) = lu(k,507) - lu(k,283) * lu(k,501)
    1450   309041954 :          lu(k,510) = lu(k,510) - lu(k,284) * lu(k,501)
    1451   309041954 :          lu(k,512) = lu(k,512) - lu(k,285) * lu(k,501)
    1452   309041954 :          lu(k,514) = - lu(k,286) * lu(k,501)
    1453   309041954 :          lu(k,516) = lu(k,516) - lu(k,287) * lu(k,501)
    1454   309041954 :          lu(k,528) = lu(k,528) - lu(k,281) * lu(k,523)
    1455   309041954 :          lu(k,529) = lu(k,529) - lu(k,282) * lu(k,523)
    1456   309041954 :          lu(k,532) = lu(k,532) - lu(k,283) * lu(k,523)
    1457   309041954 :          lu(k,535) = lu(k,535) - lu(k,284) * lu(k,523)
    1458   309041954 :          lu(k,537) = lu(k,537) - lu(k,285) * lu(k,523)
    1459   309041954 :          lu(k,539) = lu(k,539) - lu(k,286) * lu(k,523)
    1460   309041954 :          lu(k,541) = lu(k,541) - lu(k,287) * lu(k,523)
    1461   309041954 :          lu(k,550) = lu(k,550) - lu(k,281) * lu(k,545)
    1462   309041954 :          lu(k,551) = lu(k,551) - lu(k,282) * lu(k,545)
    1463   309041954 :          lu(k,554) = - lu(k,283) * lu(k,545)
    1464   309041954 :          lu(k,557) = - lu(k,284) * lu(k,545)
    1465   309041954 :          lu(k,559) = lu(k,559) - lu(k,285) * lu(k,545)
    1466   309041954 :          lu(k,561) = lu(k,561) - lu(k,286) * lu(k,545)
    1467   309041954 :          lu(k,563) = lu(k,563) - lu(k,287) * lu(k,545)
    1468   309041954 :          lu(k,572) = lu(k,572) - lu(k,281) * lu(k,569)
    1469   309041954 :          lu(k,573) = lu(k,573) - lu(k,282) * lu(k,569)
    1470   309041954 :          lu(k,576) = lu(k,576) - lu(k,283) * lu(k,569)
    1471   309041954 :          lu(k,579) = lu(k,579) - lu(k,284) * lu(k,569)
    1472   309041954 :          lu(k,581) = lu(k,581) - lu(k,285) * lu(k,569)
    1473   309041954 :          lu(k,583) = - lu(k,286) * lu(k,569)
    1474   309041954 :          lu(k,585) = lu(k,585) - lu(k,287) * lu(k,569)
    1475   309041954 :          lu(k,600) = lu(k,600) - lu(k,281) * lu(k,595)
    1476   309041954 :          lu(k,601) = lu(k,601) - lu(k,282) * lu(k,595)
    1477   309041954 :          lu(k,604) = lu(k,604) - lu(k,283) * lu(k,595)
    1478   309041954 :          lu(k,607) = lu(k,607) - lu(k,284) * lu(k,595)
    1479   309041954 :          lu(k,609) = lu(k,609) - lu(k,285) * lu(k,595)
    1480   309041954 :          lu(k,611) = lu(k,611) - lu(k,286) * lu(k,595)
    1481   309041954 :          lu(k,613) = lu(k,613) - lu(k,287) * lu(k,595)
    1482   309041954 :          lu(k,637) = lu(k,637) - lu(k,281) * lu(k,632)
    1483   309041954 :          lu(k,638) = lu(k,638) - lu(k,282) * lu(k,632)
    1484   309041954 :          lu(k,641) = lu(k,641) - lu(k,283) * lu(k,632)
    1485   309041954 :          lu(k,644) = lu(k,644) - lu(k,284) * lu(k,632)
    1486   309041954 :          lu(k,646) = lu(k,646) - lu(k,285) * lu(k,632)
    1487   309041954 :          lu(k,648) = lu(k,648) - lu(k,286) * lu(k,632)
    1488   309041954 :          lu(k,650) = lu(k,650) - lu(k,287) * lu(k,632)
    1489   309041954 :          lu(k,660) = lu(k,660) - lu(k,281) * lu(k,656)
    1490   309041954 :          lu(k,661) = lu(k,661) - lu(k,282) * lu(k,656)
    1491   309041954 :          lu(k,664) = lu(k,664) - lu(k,283) * lu(k,656)
    1492   309041954 :          lu(k,667) = lu(k,667) - lu(k,284) * lu(k,656)
    1493   309041954 :          lu(k,669) = lu(k,669) - lu(k,285) * lu(k,656)
    1494   309041954 :          lu(k,671) = - lu(k,286) * lu(k,656)
    1495   309041954 :          lu(k,673) = - lu(k,287) * lu(k,656)
    1496   309041954 :          lu(k,681) = - lu(k,281) * lu(k,677)
    1497   309041954 :          lu(k,682) = lu(k,682) - lu(k,282) * lu(k,677)
    1498   309041954 :          lu(k,685) = - lu(k,283) * lu(k,677)
    1499   309041954 :          lu(k,688) = - lu(k,284) * lu(k,677)
    1500   309041954 :          lu(k,690) = lu(k,690) - lu(k,285) * lu(k,677)
    1501   309041954 :          lu(k,692) = lu(k,692) - lu(k,286) * lu(k,677)
    1502   309041954 :          lu(k,694) = lu(k,694) - lu(k,287) * lu(k,677)
    1503   309041954 :          lu(k,707) = lu(k,707) - lu(k,281) * lu(k,702)
    1504   309041954 :          lu(k,708) = lu(k,708) - lu(k,282) * lu(k,702)
    1505   309041954 :          lu(k,711) = lu(k,711) - lu(k,283) * lu(k,702)
    1506   309041954 :          lu(k,714) = lu(k,714) - lu(k,284) * lu(k,702)
    1507   309041954 :          lu(k,716) = lu(k,716) - lu(k,285) * lu(k,702)
    1508   309041954 :          lu(k,718) = lu(k,718) - lu(k,286) * lu(k,702)
    1509   309041954 :          lu(k,720) = lu(k,720) - lu(k,287) * lu(k,702)
    1510   309041954 :          lu(k,732) = lu(k,732) - lu(k,281) * lu(k,728)
    1511   309041954 :          lu(k,733) = lu(k,733) - lu(k,282) * lu(k,728)
    1512   309041954 :          lu(k,736) = lu(k,736) - lu(k,283) * lu(k,728)
    1513   309041954 :          lu(k,739) = lu(k,739) - lu(k,284) * lu(k,728)
    1514   309041954 :          lu(k,741) = lu(k,741) - lu(k,285) * lu(k,728)
    1515   309041954 :          lu(k,743) = lu(k,743) - lu(k,286) * lu(k,728)
    1516   309041954 :          lu(k,745) = lu(k,745) - lu(k,287) * lu(k,728)
    1517   309041954 :          lu(k,291) = 1._r8 / lu(k,291)
    1518   309041954 :          lu(k,292) = lu(k,292) * lu(k,291)
    1519   309041954 :          lu(k,293) = lu(k,293) * lu(k,291)
    1520   309041954 :          lu(k,294) = lu(k,294) * lu(k,291)
    1521   309041954 :          lu(k,295) = lu(k,295) * lu(k,291)
    1522   309041954 :          lu(k,296) = lu(k,296) * lu(k,291)
    1523   309041954 :          lu(k,297) = lu(k,297) * lu(k,291)
    1524   309041954 :          lu(k,298) = lu(k,298) * lu(k,291)
    1525   309041954 :          lu(k,299) = lu(k,299) * lu(k,291)
    1526   309041954 :          lu(k,300) = lu(k,300) * lu(k,291)
    1527   309041954 :          lu(k,301) = lu(k,301) * lu(k,291)
    1528   309041954 :          lu(k,313) = lu(k,313) - lu(k,292) * lu(k,309)
    1529   309041954 :          lu(k,314) = lu(k,314) - lu(k,293) * lu(k,309)
    1530   309041954 :          lu(k,317) = lu(k,317) - lu(k,294) * lu(k,309)
    1531   309041954 :          lu(k,318) = lu(k,318) - lu(k,295) * lu(k,309)
    1532   309041954 :          lu(k,319) = - lu(k,296) * lu(k,309)
    1533   309041954 :          lu(k,320) = lu(k,320) - lu(k,297) * lu(k,309)
    1534   309041954 :          lu(k,322) = lu(k,322) - lu(k,298) * lu(k,309)
    1535   309041954 :          lu(k,323) = lu(k,323) - lu(k,299) * lu(k,309)
    1536   309041954 :          lu(k,324) = lu(k,324) - lu(k,300) * lu(k,309)
    1537   309041954 :          lu(k,325) = lu(k,325) - lu(k,301) * lu(k,309)
    1538   309041954 :          lu(k,351) = lu(k,351) - lu(k,292) * lu(k,348)
    1539   309041954 :          lu(k,352) = lu(k,352) - lu(k,293) * lu(k,348)
    1540   309041954 :          lu(k,355) = lu(k,355) - lu(k,294) * lu(k,348)
    1541   309041954 :          lu(k,356) = - lu(k,295) * lu(k,348)
    1542   309041954 :          lu(k,357) = lu(k,357) - lu(k,296) * lu(k,348)
    1543   309041954 :          lu(k,358) = lu(k,358) - lu(k,297) * lu(k,348)
    1544   309041954 :          lu(k,360) = lu(k,360) - lu(k,298) * lu(k,348)
    1545   309041954 :          lu(k,362) = lu(k,362) - lu(k,299) * lu(k,348)
    1546   309041954 :          lu(k,363) = lu(k,363) - lu(k,300) * lu(k,348)
    1547   309041954 :          lu(k,364) = lu(k,364) - lu(k,301) * lu(k,348)
    1548   309041954 :          lu(k,376) = lu(k,376) - lu(k,292) * lu(k,372)
    1549   309041954 :          lu(k,377) = lu(k,377) - lu(k,293) * lu(k,372)
    1550   309041954 :          lu(k,380) = lu(k,380) - lu(k,294) * lu(k,372)
    1551   309041954 :          lu(k,381) = lu(k,381) - lu(k,295) * lu(k,372)
    1552   309041954 :          lu(k,382) = lu(k,382) - lu(k,296) * lu(k,372)
    1553   309041954 :          lu(k,383) = lu(k,383) - lu(k,297) * lu(k,372)
    1554   309041954 :          lu(k,385) = lu(k,385) - lu(k,298) * lu(k,372)
    1555   309041954 :          lu(k,387) = lu(k,387) - lu(k,299) * lu(k,372)
    1556   309041954 :          lu(k,388) = lu(k,388) - lu(k,300) * lu(k,372)
    1557   309041954 :          lu(k,389) = lu(k,389) - lu(k,301) * lu(k,372)
    1558   309041954 :          lu(k,419) = lu(k,419) - lu(k,292) * lu(k,415)
    1559   309041954 :          lu(k,420) = lu(k,420) - lu(k,293) * lu(k,415)
    1560   309041954 :          lu(k,423) = lu(k,423) - lu(k,294) * lu(k,415)
    1561   309041954 :          lu(k,424) = lu(k,424) - lu(k,295) * lu(k,415)
    1562   309041954 :          lu(k,425) = lu(k,425) - lu(k,296) * lu(k,415)
    1563   309041954 :          lu(k,426) = lu(k,426) - lu(k,297) * lu(k,415)
    1564   309041954 :          lu(k,428) = lu(k,428) - lu(k,298) * lu(k,415)
    1565   309041954 :          lu(k,430) = lu(k,430) - lu(k,299) * lu(k,415)
    1566   309041954 :          lu(k,431) = lu(k,431) - lu(k,300) * lu(k,415)
    1567   309041954 :          lu(k,432) = lu(k,432) - lu(k,301) * lu(k,415)
    1568   309041954 :          lu(k,447) = lu(k,447) - lu(k,292) * lu(k,443)
    1569   309041954 :          lu(k,448) = lu(k,448) - lu(k,293) * lu(k,443)
    1570   309041954 :          lu(k,451) = lu(k,451) - lu(k,294) * lu(k,443)
    1571   309041954 :          lu(k,452) = - lu(k,295) * lu(k,443)
    1572   309041954 :          lu(k,453) = lu(k,453) - lu(k,296) * lu(k,443)
    1573   309041954 :          lu(k,454) = lu(k,454) - lu(k,297) * lu(k,443)
    1574   309041954 :          lu(k,456) = lu(k,456) - lu(k,298) * lu(k,443)
    1575   309041954 :          lu(k,458) = lu(k,458) - lu(k,299) * lu(k,443)
    1576   309041954 :          lu(k,459) = lu(k,459) - lu(k,300) * lu(k,443)
    1577   309041954 :          lu(k,460) = lu(k,460) - lu(k,301) * lu(k,443)
    1578   309041954 :          lu(k,472) = lu(k,472) - lu(k,292) * lu(k,468)
    1579   309041954 :          lu(k,473) = lu(k,473) - lu(k,293) * lu(k,468)
    1580   309041954 :          lu(k,476) = lu(k,476) - lu(k,294) * lu(k,468)
    1581   309041954 :          lu(k,477) = - lu(k,295) * lu(k,468)
    1582   309041954 :          lu(k,478) = lu(k,478) - lu(k,296) * lu(k,468)
    1583   309041954 :          lu(k,479) = lu(k,479) - lu(k,297) * lu(k,468)
    1584   309041954 :          lu(k,481) = lu(k,481) - lu(k,298) * lu(k,468)
    1585   309041954 :          lu(k,483) = lu(k,483) - lu(k,299) * lu(k,468)
    1586   309041954 :          lu(k,484) = - lu(k,300) * lu(k,468)
    1587   309041954 :          lu(k,485) = lu(k,485) - lu(k,301) * lu(k,468)
    1588   309041954 :          lu(k,503) = lu(k,503) - lu(k,292) * lu(k,502)
    1589   309041954 :          lu(k,504) = lu(k,504) - lu(k,293) * lu(k,502)
    1590   309041954 :          lu(k,507) = lu(k,507) - lu(k,294) * lu(k,502)
    1591   309041954 :          lu(k,508) = lu(k,508) - lu(k,295) * lu(k,502)
    1592   309041954 :          lu(k,509) = - lu(k,296) * lu(k,502)
    1593   309041954 :          lu(k,510) = lu(k,510) - lu(k,297) * lu(k,502)
    1594   309041954 :          lu(k,512) = lu(k,512) - lu(k,298) * lu(k,502)
    1595   309041954 :          lu(k,514) = lu(k,514) - lu(k,299) * lu(k,502)
    1596   309041954 :          lu(k,515) = lu(k,515) - lu(k,300) * lu(k,502)
    1597   309041954 :          lu(k,516) = lu(k,516) - lu(k,301) * lu(k,502)
    1598   309041954 :          lu(k,528) = lu(k,528) - lu(k,292) * lu(k,524)
    1599   309041954 :          lu(k,529) = lu(k,529) - lu(k,293) * lu(k,524)
    1600   309041954 :          lu(k,532) = lu(k,532) - lu(k,294) * lu(k,524)
    1601   309041954 :          lu(k,533) = lu(k,533) - lu(k,295) * lu(k,524)
    1602   309041954 :          lu(k,534) = lu(k,534) - lu(k,296) * lu(k,524)
    1603   309041954 :          lu(k,535) = lu(k,535) - lu(k,297) * lu(k,524)
    1604   309041954 :          lu(k,537) = lu(k,537) - lu(k,298) * lu(k,524)
    1605   309041954 :          lu(k,539) = lu(k,539) - lu(k,299) * lu(k,524)
    1606   309041954 :          lu(k,540) = lu(k,540) - lu(k,300) * lu(k,524)
    1607   309041954 :          lu(k,541) = lu(k,541) - lu(k,301) * lu(k,524)
    1608   309041954 :          lu(k,550) = lu(k,550) - lu(k,292) * lu(k,546)
    1609   309041954 :          lu(k,551) = lu(k,551) - lu(k,293) * lu(k,546)
    1610   309041954 :          lu(k,554) = lu(k,554) - lu(k,294) * lu(k,546)
    1611   309041954 :          lu(k,555) = lu(k,555) - lu(k,295) * lu(k,546)
    1612   309041954 :          lu(k,556) = lu(k,556) - lu(k,296) * lu(k,546)
    1613   309041954 :          lu(k,557) = lu(k,557) - lu(k,297) * lu(k,546)
    1614   309041954 :          lu(k,559) = lu(k,559) - lu(k,298) * lu(k,546)
    1615   309041954 :          lu(k,561) = lu(k,561) - lu(k,299) * lu(k,546)
    1616   309041954 :          lu(k,562) = lu(k,562) - lu(k,300) * lu(k,546)
    1617   309041954 :          lu(k,563) = lu(k,563) - lu(k,301) * lu(k,546)
    1618   309041954 :          lu(k,572) = lu(k,572) - lu(k,292) * lu(k,570)
    1619   309041954 :          lu(k,573) = lu(k,573) - lu(k,293) * lu(k,570)
    1620   309041954 :          lu(k,576) = lu(k,576) - lu(k,294) * lu(k,570)
    1621   309041954 :          lu(k,577) = lu(k,577) - lu(k,295) * lu(k,570)
    1622   309041954 :          lu(k,578) = - lu(k,296) * lu(k,570)
    1623   309041954 :          lu(k,579) = lu(k,579) - lu(k,297) * lu(k,570)
    1624   309041954 :          lu(k,581) = lu(k,581) - lu(k,298) * lu(k,570)
    1625   309041954 :          lu(k,583) = lu(k,583) - lu(k,299) * lu(k,570)
    1626   309041954 :          lu(k,584) = lu(k,584) - lu(k,300) * lu(k,570)
    1627   309041954 :          lu(k,585) = lu(k,585) - lu(k,301) * lu(k,570)
    1628   309041954 :          lu(k,600) = lu(k,600) - lu(k,292) * lu(k,596)
    1629   309041954 :          lu(k,601) = lu(k,601) - lu(k,293) * lu(k,596)
    1630   309041954 :          lu(k,604) = lu(k,604) - lu(k,294) * lu(k,596)
    1631   309041954 :          lu(k,605) = lu(k,605) - lu(k,295) * lu(k,596)
    1632   309041954 :          lu(k,606) = - lu(k,296) * lu(k,596)
    1633   309041954 :          lu(k,607) = lu(k,607) - lu(k,297) * lu(k,596)
    1634   309041954 :          lu(k,609) = lu(k,609) - lu(k,298) * lu(k,596)
    1635   309041954 :          lu(k,611) = lu(k,611) - lu(k,299) * lu(k,596)
    1636   309041954 :          lu(k,612) = lu(k,612) - lu(k,300) * lu(k,596)
    1637   309041954 :          lu(k,613) = lu(k,613) - lu(k,301) * lu(k,596)
    1638   309041954 :          lu(k,637) = lu(k,637) - lu(k,292) * lu(k,633)
    1639   309041954 :          lu(k,638) = lu(k,638) - lu(k,293) * lu(k,633)
    1640   309041954 :          lu(k,641) = lu(k,641) - lu(k,294) * lu(k,633)
    1641   309041954 :          lu(k,642) = lu(k,642) - lu(k,295) * lu(k,633)
    1642   309041954 :          lu(k,643) = lu(k,643) - lu(k,296) * lu(k,633)
    1643   309041954 :          lu(k,644) = lu(k,644) - lu(k,297) * lu(k,633)
    1644   309041954 :          lu(k,646) = lu(k,646) - lu(k,298) * lu(k,633)
    1645   309041954 :          lu(k,648) = lu(k,648) - lu(k,299) * lu(k,633)
    1646   309041954 :          lu(k,649) = lu(k,649) - lu(k,300) * lu(k,633)
    1647   309041954 :          lu(k,650) = lu(k,650) - lu(k,301) * lu(k,633)
    1648   309041954 :          lu(k,660) = lu(k,660) - lu(k,292) * lu(k,657)
    1649   309041954 :          lu(k,661) = lu(k,661) - lu(k,293) * lu(k,657)
    1650   309041954 :          lu(k,664) = lu(k,664) - lu(k,294) * lu(k,657)
    1651   309041954 :          lu(k,665) = lu(k,665) - lu(k,295) * lu(k,657)
    1652   309041954 :          lu(k,666) = lu(k,666) - lu(k,296) * lu(k,657)
    1653   309041954 :          lu(k,667) = lu(k,667) - lu(k,297) * lu(k,657)
    1654   309041954 :          lu(k,669) = lu(k,669) - lu(k,298) * lu(k,657)
    1655   309041954 :          lu(k,671) = lu(k,671) - lu(k,299) * lu(k,657)
    1656   309041954 :          lu(k,672) = lu(k,672) - lu(k,300) * lu(k,657)
    1657   309041954 :          lu(k,673) = lu(k,673) - lu(k,301) * lu(k,657)
    1658   309041954 :          lu(k,707) = lu(k,707) - lu(k,292) * lu(k,703)
    1659   309041954 :          lu(k,708) = lu(k,708) - lu(k,293) * lu(k,703)
    1660   309041954 :          lu(k,711) = lu(k,711) - lu(k,294) * lu(k,703)
    1661   309041954 :          lu(k,712) = - lu(k,295) * lu(k,703)
    1662   309041954 :          lu(k,713) = - lu(k,296) * lu(k,703)
    1663   309041954 :          lu(k,714) = lu(k,714) - lu(k,297) * lu(k,703)
    1664   309041954 :          lu(k,716) = lu(k,716) - lu(k,298) * lu(k,703)
    1665   309041954 :          lu(k,718) = lu(k,718) - lu(k,299) * lu(k,703)
    1666   309041954 :          lu(k,719) = lu(k,719) - lu(k,300) * lu(k,703)
    1667   309041954 :          lu(k,720) = lu(k,720) - lu(k,301) * lu(k,703)
    1668   309041954 :          lu(k,732) = lu(k,732) - lu(k,292) * lu(k,729)
    1669   309041954 :          lu(k,733) = lu(k,733) - lu(k,293) * lu(k,729)
    1670   309041954 :          lu(k,736) = lu(k,736) - lu(k,294) * lu(k,729)
    1671   309041954 :          lu(k,737) = lu(k,737) - lu(k,295) * lu(k,729)
    1672   309041954 :          lu(k,738) = - lu(k,296) * lu(k,729)
    1673   309041954 :          lu(k,739) = lu(k,739) - lu(k,297) * lu(k,729)
    1674   309041954 :          lu(k,741) = lu(k,741) - lu(k,298) * lu(k,729)
    1675   309041954 :          lu(k,743) = lu(k,743) - lu(k,299) * lu(k,729)
    1676   309041954 :          lu(k,744) = lu(k,744) - lu(k,300) * lu(k,729)
    1677   309041954 :          lu(k,745) = lu(k,745) - lu(k,301) * lu(k,729)
    1678   309041954 :          lu(k,310) = 1._r8 / lu(k,310)
    1679   309041954 :          lu(k,311) = lu(k,311) * lu(k,310)
    1680   309041954 :          lu(k,312) = lu(k,312) * lu(k,310)
    1681   309041954 :          lu(k,313) = lu(k,313) * lu(k,310)
    1682   309041954 :          lu(k,314) = lu(k,314) * lu(k,310)
    1683   309041954 :          lu(k,315) = lu(k,315) * lu(k,310)
    1684   309041954 :          lu(k,316) = lu(k,316) * lu(k,310)
    1685   309041954 :          lu(k,317) = lu(k,317) * lu(k,310)
    1686   309041954 :          lu(k,318) = lu(k,318) * lu(k,310)
    1687   309041954 :          lu(k,319) = lu(k,319) * lu(k,310)
    1688   309041954 :          lu(k,320) = lu(k,320) * lu(k,310)
    1689   309041954 :          lu(k,321) = lu(k,321) * lu(k,310)
    1690   309041954 :          lu(k,322) = lu(k,322) * lu(k,310)
    1691   309041954 :          lu(k,323) = lu(k,323) * lu(k,310)
    1692   309041954 :          lu(k,324) = lu(k,324) * lu(k,310)
    1693   309041954 :          lu(k,325) = lu(k,325) * lu(k,310)
    1694   309041954 :          lu(k,374) = lu(k,374) - lu(k,311) * lu(k,373)
    1695   309041954 :          lu(k,375) = lu(k,375) - lu(k,312) * lu(k,373)
    1696   309041954 :          lu(k,376) = lu(k,376) - lu(k,313) * lu(k,373)
    1697   309041954 :          lu(k,377) = lu(k,377) - lu(k,314) * lu(k,373)
    1698   309041954 :          lu(k,378) = lu(k,378) - lu(k,315) * lu(k,373)
    1699   309041954 :          lu(k,379) = lu(k,379) - lu(k,316) * lu(k,373)
    1700   309041954 :          lu(k,380) = lu(k,380) - lu(k,317) * lu(k,373)
    1701   309041954 :          lu(k,381) = lu(k,381) - lu(k,318) * lu(k,373)
    1702   309041954 :          lu(k,382) = lu(k,382) - lu(k,319) * lu(k,373)
    1703   309041954 :          lu(k,383) = lu(k,383) - lu(k,320) * lu(k,373)
    1704   309041954 :          lu(k,384) = lu(k,384) - lu(k,321) * lu(k,373)
    1705   309041954 :          lu(k,385) = lu(k,385) - lu(k,322) * lu(k,373)
    1706   309041954 :          lu(k,387) = lu(k,387) - lu(k,323) * lu(k,373)
    1707   309041954 :          lu(k,388) = lu(k,388) - lu(k,324) * lu(k,373)
    1708   309041954 :          lu(k,389) = lu(k,389) - lu(k,325) * lu(k,373)
    1709   309041954 :          lu(k,417) = lu(k,417) - lu(k,311) * lu(k,416)
    1710   309041954 :          lu(k,418) = lu(k,418) - lu(k,312) * lu(k,416)
    1711   309041954 :          lu(k,419) = lu(k,419) - lu(k,313) * lu(k,416)
    1712   309041954 :          lu(k,420) = lu(k,420) - lu(k,314) * lu(k,416)
    1713   309041954 :          lu(k,421) = lu(k,421) - lu(k,315) * lu(k,416)
    1714   309041954 :          lu(k,422) = lu(k,422) - lu(k,316) * lu(k,416)
    1715   309041954 :          lu(k,423) = lu(k,423) - lu(k,317) * lu(k,416)
    1716   309041954 :          lu(k,424) = lu(k,424) - lu(k,318) * lu(k,416)
    1717   309041954 :          lu(k,425) = lu(k,425) - lu(k,319) * lu(k,416)
    1718   309041954 :          lu(k,426) = lu(k,426) - lu(k,320) * lu(k,416)
    1719   309041954 :          lu(k,427) = lu(k,427) - lu(k,321) * lu(k,416)
    1720   309041954 :          lu(k,428) = lu(k,428) - lu(k,322) * lu(k,416)
    1721   309041954 :          lu(k,430) = lu(k,430) - lu(k,323) * lu(k,416)
    1722   309041954 :          lu(k,431) = lu(k,431) - lu(k,324) * lu(k,416)
    1723   309041954 :          lu(k,432) = lu(k,432) - lu(k,325) * lu(k,416)
    1724   309041954 :          lu(k,445) = lu(k,445) - lu(k,311) * lu(k,444)
    1725   309041954 :          lu(k,446) = lu(k,446) - lu(k,312) * lu(k,444)
    1726   309041954 :          lu(k,447) = lu(k,447) - lu(k,313) * lu(k,444)
    1727   309041954 :          lu(k,448) = lu(k,448) - lu(k,314) * lu(k,444)
    1728   309041954 :          lu(k,449) = lu(k,449) - lu(k,315) * lu(k,444)
    1729   309041954 :          lu(k,450) = lu(k,450) - lu(k,316) * lu(k,444)
    1730   309041954 :          lu(k,451) = lu(k,451) - lu(k,317) * lu(k,444)
    1731   309041954 :          lu(k,452) = lu(k,452) - lu(k,318) * lu(k,444)
    1732   309041954 :          lu(k,453) = lu(k,453) - lu(k,319) * lu(k,444)
    1733   309041954 :          lu(k,454) = lu(k,454) - lu(k,320) * lu(k,444)
    1734   309041954 :          lu(k,455) = lu(k,455) - lu(k,321) * lu(k,444)
    1735   309041954 :          lu(k,456) = lu(k,456) - lu(k,322) * lu(k,444)
    1736   309041954 :          lu(k,458) = lu(k,458) - lu(k,323) * lu(k,444)
    1737   309041954 :          lu(k,459) = lu(k,459) - lu(k,324) * lu(k,444)
    1738   309041954 :          lu(k,460) = lu(k,460) - lu(k,325) * lu(k,444)
    1739   309041954 :          lu(k,470) = lu(k,470) - lu(k,311) * lu(k,469)
    1740   309041954 :          lu(k,471) = lu(k,471) - lu(k,312) * lu(k,469)
    1741   309041954 :          lu(k,472) = lu(k,472) - lu(k,313) * lu(k,469)
    1742   309041954 :          lu(k,473) = lu(k,473) - lu(k,314) * lu(k,469)
    1743   309041954 :          lu(k,474) = lu(k,474) - lu(k,315) * lu(k,469)
    1744   309041954 :          lu(k,475) = lu(k,475) - lu(k,316) * lu(k,469)
    1745   309041954 :          lu(k,476) = lu(k,476) - lu(k,317) * lu(k,469)
    1746   309041954 :          lu(k,477) = lu(k,477) - lu(k,318) * lu(k,469)
    1747   309041954 :          lu(k,478) = lu(k,478) - lu(k,319) * lu(k,469)
    1748   309041954 :          lu(k,479) = lu(k,479) - lu(k,320) * lu(k,469)
    1749   309041954 :          lu(k,480) = lu(k,480) - lu(k,321) * lu(k,469)
    1750   309041954 :          lu(k,481) = lu(k,481) - lu(k,322) * lu(k,469)
    1751   309041954 :          lu(k,483) = lu(k,483) - lu(k,323) * lu(k,469)
    1752   309041954 :          lu(k,484) = lu(k,484) - lu(k,324) * lu(k,469)
    1753   309041954 :          lu(k,485) = lu(k,485) - lu(k,325) * lu(k,469)
    1754   309041954 :          lu(k,526) = lu(k,526) - lu(k,311) * lu(k,525)
    1755   309041954 :          lu(k,527) = lu(k,527) - lu(k,312) * lu(k,525)
    1756   309041954 :          lu(k,528) = lu(k,528) - lu(k,313) * lu(k,525)
    1757   309041954 :          lu(k,529) = lu(k,529) - lu(k,314) * lu(k,525)
    1758   309041954 :          lu(k,530) = lu(k,530) - lu(k,315) * lu(k,525)
    1759   309041954 :          lu(k,531) = lu(k,531) - lu(k,316) * lu(k,525)
    1760   309041954 :          lu(k,532) = lu(k,532) - lu(k,317) * lu(k,525)
    1761   309041954 :          lu(k,533) = lu(k,533) - lu(k,318) * lu(k,525)
    1762   309041954 :          lu(k,534) = lu(k,534) - lu(k,319) * lu(k,525)
    1763   309041954 :          lu(k,535) = lu(k,535) - lu(k,320) * lu(k,525)
    1764   309041954 :          lu(k,536) = lu(k,536) - lu(k,321) * lu(k,525)
    1765   309041954 :          lu(k,537) = lu(k,537) - lu(k,322) * lu(k,525)
    1766   309041954 :          lu(k,539) = lu(k,539) - lu(k,323) * lu(k,525)
    1767   309041954 :          lu(k,540) = lu(k,540) - lu(k,324) * lu(k,525)
    1768   309041954 :          lu(k,541) = lu(k,541) - lu(k,325) * lu(k,525)
    1769   309041954 :          lu(k,548) = lu(k,548) - lu(k,311) * lu(k,547)
    1770   309041954 :          lu(k,549) = lu(k,549) - lu(k,312) * lu(k,547)
    1771   309041954 :          lu(k,550) = lu(k,550) - lu(k,313) * lu(k,547)
    1772   309041954 :          lu(k,551) = lu(k,551) - lu(k,314) * lu(k,547)
    1773   309041954 :          lu(k,552) = - lu(k,315) * lu(k,547)
    1774   309041954 :          lu(k,553) = lu(k,553) - lu(k,316) * lu(k,547)
    1775   309041954 :          lu(k,554) = lu(k,554) - lu(k,317) * lu(k,547)
    1776   309041954 :          lu(k,555) = lu(k,555) - lu(k,318) * lu(k,547)
    1777   309041954 :          lu(k,556) = lu(k,556) - lu(k,319) * lu(k,547)
    1778   309041954 :          lu(k,557) = lu(k,557) - lu(k,320) * lu(k,547)
    1779   309041954 :          lu(k,558) = lu(k,558) - lu(k,321) * lu(k,547)
    1780   309041954 :          lu(k,559) = lu(k,559) - lu(k,322) * lu(k,547)
    1781   309041954 :          lu(k,561) = lu(k,561) - lu(k,323) * lu(k,547)
    1782   309041954 :          lu(k,562) = lu(k,562) - lu(k,324) * lu(k,547)
    1783   309041954 :          lu(k,563) = lu(k,563) - lu(k,325) * lu(k,547)
    1784   309041954 :          lu(k,598) = lu(k,598) - lu(k,311) * lu(k,597)
    1785   309041954 :          lu(k,599) = lu(k,599) - lu(k,312) * lu(k,597)
    1786   309041954 :          lu(k,600) = lu(k,600) - lu(k,313) * lu(k,597)
    1787   309041954 :          lu(k,601) = lu(k,601) - lu(k,314) * lu(k,597)
    1788   309041954 :          lu(k,602) = lu(k,602) - lu(k,315) * lu(k,597)
    1789   309041954 :          lu(k,603) = lu(k,603) - lu(k,316) * lu(k,597)
    1790   309041954 :          lu(k,604) = lu(k,604) - lu(k,317) * lu(k,597)
    1791   309041954 :          lu(k,605) = lu(k,605) - lu(k,318) * lu(k,597)
    1792   309041954 :          lu(k,606) = lu(k,606) - lu(k,319) * lu(k,597)
    1793   309041954 :          lu(k,607) = lu(k,607) - lu(k,320) * lu(k,597)
    1794   309041954 :          lu(k,608) = lu(k,608) - lu(k,321) * lu(k,597)
    1795   309041954 :          lu(k,609) = lu(k,609) - lu(k,322) * lu(k,597)
    1796   309041954 :          lu(k,611) = lu(k,611) - lu(k,323) * lu(k,597)
    1797   309041954 :          lu(k,612) = lu(k,612) - lu(k,324) * lu(k,597)
    1798   309041954 :          lu(k,613) = lu(k,613) - lu(k,325) * lu(k,597)
    1799   309041954 :          lu(k,635) = lu(k,635) - lu(k,311) * lu(k,634)
    1800   309041954 :          lu(k,636) = lu(k,636) - lu(k,312) * lu(k,634)
    1801   309041954 :          lu(k,637) = lu(k,637) - lu(k,313) * lu(k,634)
    1802   309041954 :          lu(k,638) = lu(k,638) - lu(k,314) * lu(k,634)
    1803   309041954 :          lu(k,639) = lu(k,639) - lu(k,315) * lu(k,634)
    1804   309041954 :          lu(k,640) = lu(k,640) - lu(k,316) * lu(k,634)
    1805   309041954 :          lu(k,641) = lu(k,641) - lu(k,317) * lu(k,634)
    1806   309041954 :          lu(k,642) = lu(k,642) - lu(k,318) * lu(k,634)
    1807   309041954 :          lu(k,643) = lu(k,643) - lu(k,319) * lu(k,634)
    1808   309041954 :          lu(k,644) = lu(k,644) - lu(k,320) * lu(k,634)
    1809   309041954 :          lu(k,645) = lu(k,645) - lu(k,321) * lu(k,634)
    1810   309041954 :          lu(k,646) = lu(k,646) - lu(k,322) * lu(k,634)
    1811   309041954 :          lu(k,648) = lu(k,648) - lu(k,323) * lu(k,634)
    1812   309041954 :          lu(k,649) = lu(k,649) - lu(k,324) * lu(k,634)
    1813   309041954 :          lu(k,650) = lu(k,650) - lu(k,325) * lu(k,634)
    1814   309041954 :          lu(k,679) = lu(k,679) - lu(k,311) * lu(k,678)
    1815   309041954 :          lu(k,680) = lu(k,680) - lu(k,312) * lu(k,678)
    1816   309041954 :          lu(k,681) = lu(k,681) - lu(k,313) * lu(k,678)
    1817   309041954 :          lu(k,682) = lu(k,682) - lu(k,314) * lu(k,678)
    1818   309041954 :          lu(k,683) = - lu(k,315) * lu(k,678)
    1819   309041954 :          lu(k,684) = lu(k,684) - lu(k,316) * lu(k,678)
    1820   309041954 :          lu(k,685) = lu(k,685) - lu(k,317) * lu(k,678)
    1821   309041954 :          lu(k,686) = lu(k,686) - lu(k,318) * lu(k,678)
    1822   309041954 :          lu(k,687) = - lu(k,319) * lu(k,678)
    1823   309041954 :          lu(k,688) = lu(k,688) - lu(k,320) * lu(k,678)
    1824   309041954 :          lu(k,689) = lu(k,689) - lu(k,321) * lu(k,678)
    1825   309041954 :          lu(k,690) = lu(k,690) - lu(k,322) * lu(k,678)
    1826   309041954 :          lu(k,692) = lu(k,692) - lu(k,323) * lu(k,678)
    1827   309041954 :          lu(k,693) = - lu(k,324) * lu(k,678)
    1828   309041954 :          lu(k,694) = lu(k,694) - lu(k,325) * lu(k,678)
    1829   309041954 :          lu(k,705) = lu(k,705) - lu(k,311) * lu(k,704)
    1830   309041954 :          lu(k,706) = lu(k,706) - lu(k,312) * lu(k,704)
    1831   309041954 :          lu(k,707) = lu(k,707) - lu(k,313) * lu(k,704)
    1832   309041954 :          lu(k,708) = lu(k,708) - lu(k,314) * lu(k,704)
    1833   309041954 :          lu(k,709) = lu(k,709) - lu(k,315) * lu(k,704)
    1834   309041954 :          lu(k,710) = lu(k,710) - lu(k,316) * lu(k,704)
    1835   309041954 :          lu(k,711) = lu(k,711) - lu(k,317) * lu(k,704)
    1836   309041954 :          lu(k,712) = lu(k,712) - lu(k,318) * lu(k,704)
    1837   309041954 :          lu(k,713) = lu(k,713) - lu(k,319) * lu(k,704)
    1838   309041954 :          lu(k,714) = lu(k,714) - lu(k,320) * lu(k,704)
    1839   309041954 :          lu(k,715) = lu(k,715) - lu(k,321) * lu(k,704)
    1840   309041954 :          lu(k,716) = lu(k,716) - lu(k,322) * lu(k,704)
    1841   309041954 :          lu(k,718) = lu(k,718) - lu(k,323) * lu(k,704)
    1842   309041954 :          lu(k,719) = lu(k,719) - lu(k,324) * lu(k,704)
    1843   318792954 :          lu(k,720) = lu(k,720) - lu(k,325) * lu(k,704)
    1844             :       end do
    1845     9751000 :       end subroutine lu_fac07
    1846     9751000 :       subroutine lu_fac08( avec_len, lu )
    1847             :       use chem_mods, only : nzcnt
    1848             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1849             :       implicit none
    1850             : !-----------------------------------------------------------------------
    1851             : ! ... dummy args
    1852             : !-----------------------------------------------------------------------
    1853             :       integer, intent(in) :: avec_len
    1854             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1855             : !-----------------------------------------------------------------------
    1856             : ! ... local variables
    1857             : !-----------------------------------------------------------------------
    1858             :       integer :: k
    1859   318792954 :       do k = 1,avec_len
    1860   309041954 :          lu(k,328) = 1._r8 / lu(k,328)
    1861   309041954 :          lu(k,329) = lu(k,329) * lu(k,328)
    1862   309041954 :          lu(k,330) = lu(k,330) * lu(k,328)
    1863   309041954 :          lu(k,331) = lu(k,331) * lu(k,328)
    1864   309041954 :          lu(k,332) = lu(k,332) * lu(k,328)
    1865   309041954 :          lu(k,333) = lu(k,333) * lu(k,328)
    1866   309041954 :          lu(k,334) = lu(k,334) * lu(k,328)
    1867   309041954 :          lu(k,335) = lu(k,335) * lu(k,328)
    1868   309041954 :          lu(k,336) = lu(k,336) * lu(k,328)
    1869   309041954 :          lu(k,337) = lu(k,337) * lu(k,328)
    1870   309041954 :          lu(k,338) = lu(k,338) * lu(k,328)
    1871   309041954 :          lu(k,339) = lu(k,339) * lu(k,328)
    1872   309041954 :          lu(k,340) = lu(k,340) * lu(k,328)
    1873   309041954 :          lu(k,351) = lu(k,351) - lu(k,329) * lu(k,349)
    1874   309041954 :          lu(k,352) = lu(k,352) - lu(k,330) * lu(k,349)
    1875   309041954 :          lu(k,353) = lu(k,353) - lu(k,331) * lu(k,349)
    1876   309041954 :          lu(k,354) = lu(k,354) - lu(k,332) * lu(k,349)
    1877   309041954 :          lu(k,355) = lu(k,355) - lu(k,333) * lu(k,349)
    1878   309041954 :          lu(k,357) = lu(k,357) - lu(k,334) * lu(k,349)
    1879   309041954 :          lu(k,358) = lu(k,358) - lu(k,335) * lu(k,349)
    1880   309041954 :          lu(k,359) = lu(k,359) - lu(k,336) * lu(k,349)
    1881   309041954 :          lu(k,360) = lu(k,360) - lu(k,337) * lu(k,349)
    1882   309041954 :          lu(k,361) = lu(k,361) - lu(k,338) * lu(k,349)
    1883   309041954 :          lu(k,362) = lu(k,362) - lu(k,339) * lu(k,349)
    1884   309041954 :          lu(k,364) = lu(k,364) - lu(k,340) * lu(k,349)
    1885   309041954 :          lu(k,376) = lu(k,376) - lu(k,329) * lu(k,374)
    1886   309041954 :          lu(k,377) = lu(k,377) - lu(k,330) * lu(k,374)
    1887   309041954 :          lu(k,378) = lu(k,378) - lu(k,331) * lu(k,374)
    1888   309041954 :          lu(k,379) = lu(k,379) - lu(k,332) * lu(k,374)
    1889   309041954 :          lu(k,380) = lu(k,380) - lu(k,333) * lu(k,374)
    1890   309041954 :          lu(k,382) = lu(k,382) - lu(k,334) * lu(k,374)
    1891   309041954 :          lu(k,383) = lu(k,383) - lu(k,335) * lu(k,374)
    1892   309041954 :          lu(k,384) = lu(k,384) - lu(k,336) * lu(k,374)
    1893   309041954 :          lu(k,385) = lu(k,385) - lu(k,337) * lu(k,374)
    1894   309041954 :          lu(k,386) = lu(k,386) - lu(k,338) * lu(k,374)
    1895   309041954 :          lu(k,387) = lu(k,387) - lu(k,339) * lu(k,374)
    1896   309041954 :          lu(k,389) = lu(k,389) - lu(k,340) * lu(k,374)
    1897   309041954 :          lu(k,419) = lu(k,419) - lu(k,329) * lu(k,417)
    1898   309041954 :          lu(k,420) = lu(k,420) - lu(k,330) * lu(k,417)
    1899   309041954 :          lu(k,421) = lu(k,421) - lu(k,331) * lu(k,417)
    1900   309041954 :          lu(k,422) = lu(k,422) - lu(k,332) * lu(k,417)
    1901   309041954 :          lu(k,423) = lu(k,423) - lu(k,333) * lu(k,417)
    1902   309041954 :          lu(k,425) = lu(k,425) - lu(k,334) * lu(k,417)
    1903   309041954 :          lu(k,426) = lu(k,426) - lu(k,335) * lu(k,417)
    1904   309041954 :          lu(k,427) = lu(k,427) - lu(k,336) * lu(k,417)
    1905   309041954 :          lu(k,428) = lu(k,428) - lu(k,337) * lu(k,417)
    1906   309041954 :          lu(k,429) = lu(k,429) - lu(k,338) * lu(k,417)
    1907   309041954 :          lu(k,430) = lu(k,430) - lu(k,339) * lu(k,417)
    1908   309041954 :          lu(k,432) = lu(k,432) - lu(k,340) * lu(k,417)
    1909   309041954 :          lu(k,447) = lu(k,447) - lu(k,329) * lu(k,445)
    1910   309041954 :          lu(k,448) = lu(k,448) - lu(k,330) * lu(k,445)
    1911   309041954 :          lu(k,449) = lu(k,449) - lu(k,331) * lu(k,445)
    1912   309041954 :          lu(k,450) = lu(k,450) - lu(k,332) * lu(k,445)
    1913   309041954 :          lu(k,451) = lu(k,451) - lu(k,333) * lu(k,445)
    1914   309041954 :          lu(k,453) = lu(k,453) - lu(k,334) * lu(k,445)
    1915   309041954 :          lu(k,454) = lu(k,454) - lu(k,335) * lu(k,445)
    1916   309041954 :          lu(k,455) = lu(k,455) - lu(k,336) * lu(k,445)
    1917   309041954 :          lu(k,456) = lu(k,456) - lu(k,337) * lu(k,445)
    1918   309041954 :          lu(k,457) = lu(k,457) - lu(k,338) * lu(k,445)
    1919   309041954 :          lu(k,458) = lu(k,458) - lu(k,339) * lu(k,445)
    1920   309041954 :          lu(k,460) = lu(k,460) - lu(k,340) * lu(k,445)
    1921   309041954 :          lu(k,472) = lu(k,472) - lu(k,329) * lu(k,470)
    1922   309041954 :          lu(k,473) = lu(k,473) - lu(k,330) * lu(k,470)
    1923   309041954 :          lu(k,474) = lu(k,474) - lu(k,331) * lu(k,470)
    1924   309041954 :          lu(k,475) = lu(k,475) - lu(k,332) * lu(k,470)
    1925   309041954 :          lu(k,476) = lu(k,476) - lu(k,333) * lu(k,470)
    1926   309041954 :          lu(k,478) = lu(k,478) - lu(k,334) * lu(k,470)
    1927   309041954 :          lu(k,479) = lu(k,479) - lu(k,335) * lu(k,470)
    1928   309041954 :          lu(k,480) = lu(k,480) - lu(k,336) * lu(k,470)
    1929   309041954 :          lu(k,481) = lu(k,481) - lu(k,337) * lu(k,470)
    1930   309041954 :          lu(k,482) = - lu(k,338) * lu(k,470)
    1931   309041954 :          lu(k,483) = lu(k,483) - lu(k,339) * lu(k,470)
    1932   309041954 :          lu(k,485) = lu(k,485) - lu(k,340) * lu(k,470)
    1933   309041954 :          lu(k,528) = lu(k,528) - lu(k,329) * lu(k,526)
    1934   309041954 :          lu(k,529) = lu(k,529) - lu(k,330) * lu(k,526)
    1935   309041954 :          lu(k,530) = lu(k,530) - lu(k,331) * lu(k,526)
    1936   309041954 :          lu(k,531) = lu(k,531) - lu(k,332) * lu(k,526)
    1937   309041954 :          lu(k,532) = lu(k,532) - lu(k,333) * lu(k,526)
    1938   309041954 :          lu(k,534) = lu(k,534) - lu(k,334) * lu(k,526)
    1939   309041954 :          lu(k,535) = lu(k,535) - lu(k,335) * lu(k,526)
    1940   309041954 :          lu(k,536) = lu(k,536) - lu(k,336) * lu(k,526)
    1941   309041954 :          lu(k,537) = lu(k,537) - lu(k,337) * lu(k,526)
    1942   309041954 :          lu(k,538) = lu(k,538) - lu(k,338) * lu(k,526)
    1943   309041954 :          lu(k,539) = lu(k,539) - lu(k,339) * lu(k,526)
    1944   309041954 :          lu(k,541) = lu(k,541) - lu(k,340) * lu(k,526)
    1945   309041954 :          lu(k,550) = lu(k,550) - lu(k,329) * lu(k,548)
    1946   309041954 :          lu(k,551) = lu(k,551) - lu(k,330) * lu(k,548)
    1947   309041954 :          lu(k,552) = lu(k,552) - lu(k,331) * lu(k,548)
    1948   309041954 :          lu(k,553) = lu(k,553) - lu(k,332) * lu(k,548)
    1949   309041954 :          lu(k,554) = lu(k,554) - lu(k,333) * lu(k,548)
    1950   309041954 :          lu(k,556) = lu(k,556) - lu(k,334) * lu(k,548)
    1951   309041954 :          lu(k,557) = lu(k,557) - lu(k,335) * lu(k,548)
    1952   309041954 :          lu(k,558) = lu(k,558) - lu(k,336) * lu(k,548)
    1953   309041954 :          lu(k,559) = lu(k,559) - lu(k,337) * lu(k,548)
    1954   309041954 :          lu(k,560) = - lu(k,338) * lu(k,548)
    1955   309041954 :          lu(k,561) = lu(k,561) - lu(k,339) * lu(k,548)
    1956   309041954 :          lu(k,563) = lu(k,563) - lu(k,340) * lu(k,548)
    1957   309041954 :          lu(k,600) = lu(k,600) - lu(k,329) * lu(k,598)
    1958   309041954 :          lu(k,601) = lu(k,601) - lu(k,330) * lu(k,598)
    1959   309041954 :          lu(k,602) = lu(k,602) - lu(k,331) * lu(k,598)
    1960   309041954 :          lu(k,603) = lu(k,603) - lu(k,332) * lu(k,598)
    1961   309041954 :          lu(k,604) = lu(k,604) - lu(k,333) * lu(k,598)
    1962   309041954 :          lu(k,606) = lu(k,606) - lu(k,334) * lu(k,598)
    1963   309041954 :          lu(k,607) = lu(k,607) - lu(k,335) * lu(k,598)
    1964   309041954 :          lu(k,608) = lu(k,608) - lu(k,336) * lu(k,598)
    1965   309041954 :          lu(k,609) = lu(k,609) - lu(k,337) * lu(k,598)
    1966   309041954 :          lu(k,610) = lu(k,610) - lu(k,338) * lu(k,598)
    1967   309041954 :          lu(k,611) = lu(k,611) - lu(k,339) * lu(k,598)
    1968   309041954 :          lu(k,613) = lu(k,613) - lu(k,340) * lu(k,598)
    1969   309041954 :          lu(k,637) = lu(k,637) - lu(k,329) * lu(k,635)
    1970   309041954 :          lu(k,638) = lu(k,638) - lu(k,330) * lu(k,635)
    1971   309041954 :          lu(k,639) = lu(k,639) - lu(k,331) * lu(k,635)
    1972   309041954 :          lu(k,640) = lu(k,640) - lu(k,332) * lu(k,635)
    1973   309041954 :          lu(k,641) = lu(k,641) - lu(k,333) * lu(k,635)
    1974   309041954 :          lu(k,643) = lu(k,643) - lu(k,334) * lu(k,635)
    1975   309041954 :          lu(k,644) = lu(k,644) - lu(k,335) * lu(k,635)
    1976   309041954 :          lu(k,645) = lu(k,645) - lu(k,336) * lu(k,635)
    1977   309041954 :          lu(k,646) = lu(k,646) - lu(k,337) * lu(k,635)
    1978   309041954 :          lu(k,647) = lu(k,647) - lu(k,338) * lu(k,635)
    1979   309041954 :          lu(k,648) = lu(k,648) - lu(k,339) * lu(k,635)
    1980   309041954 :          lu(k,650) = lu(k,650) - lu(k,340) * lu(k,635)
    1981   309041954 :          lu(k,660) = lu(k,660) - lu(k,329) * lu(k,658)
    1982   309041954 :          lu(k,661) = lu(k,661) - lu(k,330) * lu(k,658)
    1983   309041954 :          lu(k,662) = lu(k,662) - lu(k,331) * lu(k,658)
    1984   309041954 :          lu(k,663) = lu(k,663) - lu(k,332) * lu(k,658)
    1985   309041954 :          lu(k,664) = lu(k,664) - lu(k,333) * lu(k,658)
    1986   309041954 :          lu(k,666) = lu(k,666) - lu(k,334) * lu(k,658)
    1987   309041954 :          lu(k,667) = lu(k,667) - lu(k,335) * lu(k,658)
    1988   309041954 :          lu(k,668) = lu(k,668) - lu(k,336) * lu(k,658)
    1989   309041954 :          lu(k,669) = lu(k,669) - lu(k,337) * lu(k,658)
    1990   309041954 :          lu(k,670) = lu(k,670) - lu(k,338) * lu(k,658)
    1991   309041954 :          lu(k,671) = lu(k,671) - lu(k,339) * lu(k,658)
    1992   309041954 :          lu(k,673) = lu(k,673) - lu(k,340) * lu(k,658)
    1993   309041954 :          lu(k,681) = lu(k,681) - lu(k,329) * lu(k,679)
    1994   309041954 :          lu(k,682) = lu(k,682) - lu(k,330) * lu(k,679)
    1995   309041954 :          lu(k,683) = lu(k,683) - lu(k,331) * lu(k,679)
    1996   309041954 :          lu(k,684) = lu(k,684) - lu(k,332) * lu(k,679)
    1997   309041954 :          lu(k,685) = lu(k,685) - lu(k,333) * lu(k,679)
    1998   309041954 :          lu(k,687) = lu(k,687) - lu(k,334) * lu(k,679)
    1999   309041954 :          lu(k,688) = lu(k,688) - lu(k,335) * lu(k,679)
    2000   309041954 :          lu(k,689) = lu(k,689) - lu(k,336) * lu(k,679)
    2001   309041954 :          lu(k,690) = lu(k,690) - lu(k,337) * lu(k,679)
    2002   309041954 :          lu(k,691) = - lu(k,338) * lu(k,679)
    2003   309041954 :          lu(k,692) = lu(k,692) - lu(k,339) * lu(k,679)
    2004   309041954 :          lu(k,694) = lu(k,694) - lu(k,340) * lu(k,679)
    2005   309041954 :          lu(k,707) = lu(k,707) - lu(k,329) * lu(k,705)
    2006   309041954 :          lu(k,708) = lu(k,708) - lu(k,330) * lu(k,705)
    2007   309041954 :          lu(k,709) = lu(k,709) - lu(k,331) * lu(k,705)
    2008   309041954 :          lu(k,710) = lu(k,710) - lu(k,332) * lu(k,705)
    2009   309041954 :          lu(k,711) = lu(k,711) - lu(k,333) * lu(k,705)
    2010   309041954 :          lu(k,713) = lu(k,713) - lu(k,334) * lu(k,705)
    2011   309041954 :          lu(k,714) = lu(k,714) - lu(k,335) * lu(k,705)
    2012   309041954 :          lu(k,715) = lu(k,715) - lu(k,336) * lu(k,705)
    2013   309041954 :          lu(k,716) = lu(k,716) - lu(k,337) * lu(k,705)
    2014   309041954 :          lu(k,717) = lu(k,717) - lu(k,338) * lu(k,705)
    2015   309041954 :          lu(k,718) = lu(k,718) - lu(k,339) * lu(k,705)
    2016   309041954 :          lu(k,720) = lu(k,720) - lu(k,340) * lu(k,705)
    2017   309041954 :          lu(k,732) = lu(k,732) - lu(k,329) * lu(k,730)
    2018   309041954 :          lu(k,733) = lu(k,733) - lu(k,330) * lu(k,730)
    2019   309041954 :          lu(k,734) = lu(k,734) - lu(k,331) * lu(k,730)
    2020   309041954 :          lu(k,735) = lu(k,735) - lu(k,332) * lu(k,730)
    2021   309041954 :          lu(k,736) = lu(k,736) - lu(k,333) * lu(k,730)
    2022   309041954 :          lu(k,738) = lu(k,738) - lu(k,334) * lu(k,730)
    2023   309041954 :          lu(k,739) = lu(k,739) - lu(k,335) * lu(k,730)
    2024   309041954 :          lu(k,740) = lu(k,740) - lu(k,336) * lu(k,730)
    2025   309041954 :          lu(k,741) = lu(k,741) - lu(k,337) * lu(k,730)
    2026   309041954 :          lu(k,742) = lu(k,742) - lu(k,338) * lu(k,730)
    2027   309041954 :          lu(k,743) = lu(k,743) - lu(k,339) * lu(k,730)
    2028   309041954 :          lu(k,745) = lu(k,745) - lu(k,340) * lu(k,730)
    2029   309041954 :          lu(k,350) = 1._r8 / lu(k,350)
    2030   309041954 :          lu(k,351) = lu(k,351) * lu(k,350)
    2031   309041954 :          lu(k,352) = lu(k,352) * lu(k,350)
    2032   309041954 :          lu(k,353) = lu(k,353) * lu(k,350)
    2033   309041954 :          lu(k,354) = lu(k,354) * lu(k,350)
    2034   309041954 :          lu(k,355) = lu(k,355) * lu(k,350)
    2035   309041954 :          lu(k,356) = lu(k,356) * lu(k,350)
    2036   309041954 :          lu(k,357) = lu(k,357) * lu(k,350)
    2037   309041954 :          lu(k,358) = lu(k,358) * lu(k,350)
    2038   309041954 :          lu(k,359) = lu(k,359) * lu(k,350)
    2039   309041954 :          lu(k,360) = lu(k,360) * lu(k,350)
    2040   309041954 :          lu(k,361) = lu(k,361) * lu(k,350)
    2041   309041954 :          lu(k,362) = lu(k,362) * lu(k,350)
    2042   309041954 :          lu(k,363) = lu(k,363) * lu(k,350)
    2043   309041954 :          lu(k,364) = lu(k,364) * lu(k,350)
    2044   309041954 :          lu(k,376) = lu(k,376) - lu(k,351) * lu(k,375)
    2045   309041954 :          lu(k,377) = lu(k,377) - lu(k,352) * lu(k,375)
    2046   309041954 :          lu(k,378) = lu(k,378) - lu(k,353) * lu(k,375)
    2047   309041954 :          lu(k,379) = lu(k,379) - lu(k,354) * lu(k,375)
    2048   309041954 :          lu(k,380) = lu(k,380) - lu(k,355) * lu(k,375)
    2049   309041954 :          lu(k,381) = lu(k,381) - lu(k,356) * lu(k,375)
    2050   309041954 :          lu(k,382) = lu(k,382) - lu(k,357) * lu(k,375)
    2051   309041954 :          lu(k,383) = lu(k,383) - lu(k,358) * lu(k,375)
    2052   309041954 :          lu(k,384) = lu(k,384) - lu(k,359) * lu(k,375)
    2053   309041954 :          lu(k,385) = lu(k,385) - lu(k,360) * lu(k,375)
    2054   309041954 :          lu(k,386) = lu(k,386) - lu(k,361) * lu(k,375)
    2055   309041954 :          lu(k,387) = lu(k,387) - lu(k,362) * lu(k,375)
    2056   309041954 :          lu(k,388) = lu(k,388) - lu(k,363) * lu(k,375)
    2057   309041954 :          lu(k,389) = lu(k,389) - lu(k,364) * lu(k,375)
    2058   309041954 :          lu(k,419) = lu(k,419) - lu(k,351) * lu(k,418)
    2059   309041954 :          lu(k,420) = lu(k,420) - lu(k,352) * lu(k,418)
    2060   309041954 :          lu(k,421) = lu(k,421) - lu(k,353) * lu(k,418)
    2061   309041954 :          lu(k,422) = lu(k,422) - lu(k,354) * lu(k,418)
    2062   309041954 :          lu(k,423) = lu(k,423) - lu(k,355) * lu(k,418)
    2063   309041954 :          lu(k,424) = lu(k,424) - lu(k,356) * lu(k,418)
    2064   309041954 :          lu(k,425) = lu(k,425) - lu(k,357) * lu(k,418)
    2065   309041954 :          lu(k,426) = lu(k,426) - lu(k,358) * lu(k,418)
    2066   309041954 :          lu(k,427) = lu(k,427) - lu(k,359) * lu(k,418)
    2067   309041954 :          lu(k,428) = lu(k,428) - lu(k,360) * lu(k,418)
    2068   309041954 :          lu(k,429) = lu(k,429) - lu(k,361) * lu(k,418)
    2069   309041954 :          lu(k,430) = lu(k,430) - lu(k,362) * lu(k,418)
    2070   309041954 :          lu(k,431) = lu(k,431) - lu(k,363) * lu(k,418)
    2071   309041954 :          lu(k,432) = lu(k,432) - lu(k,364) * lu(k,418)
    2072   309041954 :          lu(k,447) = lu(k,447) - lu(k,351) * lu(k,446)
    2073   309041954 :          lu(k,448) = lu(k,448) - lu(k,352) * lu(k,446)
    2074   309041954 :          lu(k,449) = lu(k,449) - lu(k,353) * lu(k,446)
    2075   309041954 :          lu(k,450) = lu(k,450) - lu(k,354) * lu(k,446)
    2076   309041954 :          lu(k,451) = lu(k,451) - lu(k,355) * lu(k,446)
    2077   309041954 :          lu(k,452) = lu(k,452) - lu(k,356) * lu(k,446)
    2078   309041954 :          lu(k,453) = lu(k,453) - lu(k,357) * lu(k,446)
    2079   309041954 :          lu(k,454) = lu(k,454) - lu(k,358) * lu(k,446)
    2080   309041954 :          lu(k,455) = lu(k,455) - lu(k,359) * lu(k,446)
    2081   309041954 :          lu(k,456) = lu(k,456) - lu(k,360) * lu(k,446)
    2082   309041954 :          lu(k,457) = lu(k,457) - lu(k,361) * lu(k,446)
    2083   309041954 :          lu(k,458) = lu(k,458) - lu(k,362) * lu(k,446)
    2084   309041954 :          lu(k,459) = lu(k,459) - lu(k,363) * lu(k,446)
    2085   309041954 :          lu(k,460) = lu(k,460) - lu(k,364) * lu(k,446)
    2086   309041954 :          lu(k,472) = lu(k,472) - lu(k,351) * lu(k,471)
    2087   309041954 :          lu(k,473) = lu(k,473) - lu(k,352) * lu(k,471)
    2088   309041954 :          lu(k,474) = lu(k,474) - lu(k,353) * lu(k,471)
    2089   309041954 :          lu(k,475) = lu(k,475) - lu(k,354) * lu(k,471)
    2090   309041954 :          lu(k,476) = lu(k,476) - lu(k,355) * lu(k,471)
    2091   309041954 :          lu(k,477) = lu(k,477) - lu(k,356) * lu(k,471)
    2092   309041954 :          lu(k,478) = lu(k,478) - lu(k,357) * lu(k,471)
    2093   309041954 :          lu(k,479) = lu(k,479) - lu(k,358) * lu(k,471)
    2094   309041954 :          lu(k,480) = lu(k,480) - lu(k,359) * lu(k,471)
    2095   309041954 :          lu(k,481) = lu(k,481) - lu(k,360) * lu(k,471)
    2096   309041954 :          lu(k,482) = lu(k,482) - lu(k,361) * lu(k,471)
    2097   309041954 :          lu(k,483) = lu(k,483) - lu(k,362) * lu(k,471)
    2098   309041954 :          lu(k,484) = lu(k,484) - lu(k,363) * lu(k,471)
    2099   309041954 :          lu(k,485) = lu(k,485) - lu(k,364) * lu(k,471)
    2100   309041954 :          lu(k,528) = lu(k,528) - lu(k,351) * lu(k,527)
    2101   309041954 :          lu(k,529) = lu(k,529) - lu(k,352) * lu(k,527)
    2102   309041954 :          lu(k,530) = lu(k,530) - lu(k,353) * lu(k,527)
    2103   309041954 :          lu(k,531) = lu(k,531) - lu(k,354) * lu(k,527)
    2104   309041954 :          lu(k,532) = lu(k,532) - lu(k,355) * lu(k,527)
    2105   309041954 :          lu(k,533) = lu(k,533) - lu(k,356) * lu(k,527)
    2106   309041954 :          lu(k,534) = lu(k,534) - lu(k,357) * lu(k,527)
    2107   309041954 :          lu(k,535) = lu(k,535) - lu(k,358) * lu(k,527)
    2108   309041954 :          lu(k,536) = lu(k,536) - lu(k,359) * lu(k,527)
    2109   309041954 :          lu(k,537) = lu(k,537) - lu(k,360) * lu(k,527)
    2110   309041954 :          lu(k,538) = lu(k,538) - lu(k,361) * lu(k,527)
    2111   309041954 :          lu(k,539) = lu(k,539) - lu(k,362) * lu(k,527)
    2112   309041954 :          lu(k,540) = lu(k,540) - lu(k,363) * lu(k,527)
    2113   309041954 :          lu(k,541) = lu(k,541) - lu(k,364) * lu(k,527)
    2114   309041954 :          lu(k,550) = lu(k,550) - lu(k,351) * lu(k,549)
    2115   309041954 :          lu(k,551) = lu(k,551) - lu(k,352) * lu(k,549)
    2116   309041954 :          lu(k,552) = lu(k,552) - lu(k,353) * lu(k,549)
    2117   309041954 :          lu(k,553) = lu(k,553) - lu(k,354) * lu(k,549)
    2118   309041954 :          lu(k,554) = lu(k,554) - lu(k,355) * lu(k,549)
    2119   309041954 :          lu(k,555) = lu(k,555) - lu(k,356) * lu(k,549)
    2120   309041954 :          lu(k,556) = lu(k,556) - lu(k,357) * lu(k,549)
    2121   309041954 :          lu(k,557) = lu(k,557) - lu(k,358) * lu(k,549)
    2122   309041954 :          lu(k,558) = lu(k,558) - lu(k,359) * lu(k,549)
    2123   309041954 :          lu(k,559) = lu(k,559) - lu(k,360) * lu(k,549)
    2124   309041954 :          lu(k,560) = lu(k,560) - lu(k,361) * lu(k,549)
    2125   309041954 :          lu(k,561) = lu(k,561) - lu(k,362) * lu(k,549)
    2126   309041954 :          lu(k,562) = lu(k,562) - lu(k,363) * lu(k,549)
    2127   309041954 :          lu(k,563) = lu(k,563) - lu(k,364) * lu(k,549)
    2128   309041954 :          lu(k,572) = lu(k,572) - lu(k,351) * lu(k,571)
    2129   309041954 :          lu(k,573) = lu(k,573) - lu(k,352) * lu(k,571)
    2130   309041954 :          lu(k,574) = lu(k,574) - lu(k,353) * lu(k,571)
    2131   309041954 :          lu(k,575) = lu(k,575) - lu(k,354) * lu(k,571)
    2132   309041954 :          lu(k,576) = lu(k,576) - lu(k,355) * lu(k,571)
    2133   309041954 :          lu(k,577) = lu(k,577) - lu(k,356) * lu(k,571)
    2134   309041954 :          lu(k,578) = lu(k,578) - lu(k,357) * lu(k,571)
    2135   309041954 :          lu(k,579) = lu(k,579) - lu(k,358) * lu(k,571)
    2136   309041954 :          lu(k,580) = lu(k,580) - lu(k,359) * lu(k,571)
    2137   309041954 :          lu(k,581) = lu(k,581) - lu(k,360) * lu(k,571)
    2138   309041954 :          lu(k,582) = lu(k,582) - lu(k,361) * lu(k,571)
    2139   309041954 :          lu(k,583) = lu(k,583) - lu(k,362) * lu(k,571)
    2140   309041954 :          lu(k,584) = lu(k,584) - lu(k,363) * lu(k,571)
    2141   309041954 :          lu(k,585) = lu(k,585) - lu(k,364) * lu(k,571)
    2142   309041954 :          lu(k,600) = lu(k,600) - lu(k,351) * lu(k,599)
    2143   309041954 :          lu(k,601) = lu(k,601) - lu(k,352) * lu(k,599)
    2144   309041954 :          lu(k,602) = lu(k,602) - lu(k,353) * lu(k,599)
    2145   309041954 :          lu(k,603) = lu(k,603) - lu(k,354) * lu(k,599)
    2146   309041954 :          lu(k,604) = lu(k,604) - lu(k,355) * lu(k,599)
    2147   309041954 :          lu(k,605) = lu(k,605) - lu(k,356) * lu(k,599)
    2148   309041954 :          lu(k,606) = lu(k,606) - lu(k,357) * lu(k,599)
    2149   309041954 :          lu(k,607) = lu(k,607) - lu(k,358) * lu(k,599)
    2150   309041954 :          lu(k,608) = lu(k,608) - lu(k,359) * lu(k,599)
    2151   309041954 :          lu(k,609) = lu(k,609) - lu(k,360) * lu(k,599)
    2152   309041954 :          lu(k,610) = lu(k,610) - lu(k,361) * lu(k,599)
    2153   309041954 :          lu(k,611) = lu(k,611) - lu(k,362) * lu(k,599)
    2154   309041954 :          lu(k,612) = lu(k,612) - lu(k,363) * lu(k,599)
    2155   309041954 :          lu(k,613) = lu(k,613) - lu(k,364) * lu(k,599)
    2156   309041954 :          lu(k,637) = lu(k,637) - lu(k,351) * lu(k,636)
    2157   309041954 :          lu(k,638) = lu(k,638) - lu(k,352) * lu(k,636)
    2158   309041954 :          lu(k,639) = lu(k,639) - lu(k,353) * lu(k,636)
    2159   309041954 :          lu(k,640) = lu(k,640) - lu(k,354) * lu(k,636)
    2160   309041954 :          lu(k,641) = lu(k,641) - lu(k,355) * lu(k,636)
    2161   309041954 :          lu(k,642) = lu(k,642) - lu(k,356) * lu(k,636)
    2162   309041954 :          lu(k,643) = lu(k,643) - lu(k,357) * lu(k,636)
    2163   309041954 :          lu(k,644) = lu(k,644) - lu(k,358) * lu(k,636)
    2164   309041954 :          lu(k,645) = lu(k,645) - lu(k,359) * lu(k,636)
    2165   309041954 :          lu(k,646) = lu(k,646) - lu(k,360) * lu(k,636)
    2166   309041954 :          lu(k,647) = lu(k,647) - lu(k,361) * lu(k,636)
    2167   309041954 :          lu(k,648) = lu(k,648) - lu(k,362) * lu(k,636)
    2168   309041954 :          lu(k,649) = lu(k,649) - lu(k,363) * lu(k,636)
    2169   309041954 :          lu(k,650) = lu(k,650) - lu(k,364) * lu(k,636)
    2170   309041954 :          lu(k,660) = lu(k,660) - lu(k,351) * lu(k,659)
    2171   309041954 :          lu(k,661) = lu(k,661) - lu(k,352) * lu(k,659)
    2172   309041954 :          lu(k,662) = lu(k,662) - lu(k,353) * lu(k,659)
    2173   309041954 :          lu(k,663) = lu(k,663) - lu(k,354) * lu(k,659)
    2174   309041954 :          lu(k,664) = lu(k,664) - lu(k,355) * lu(k,659)
    2175   309041954 :          lu(k,665) = lu(k,665) - lu(k,356) * lu(k,659)
    2176   309041954 :          lu(k,666) = lu(k,666) - lu(k,357) * lu(k,659)
    2177   309041954 :          lu(k,667) = lu(k,667) - lu(k,358) * lu(k,659)
    2178   309041954 :          lu(k,668) = lu(k,668) - lu(k,359) * lu(k,659)
    2179   309041954 :          lu(k,669) = lu(k,669) - lu(k,360) * lu(k,659)
    2180   309041954 :          lu(k,670) = lu(k,670) - lu(k,361) * lu(k,659)
    2181   309041954 :          lu(k,671) = lu(k,671) - lu(k,362) * lu(k,659)
    2182   309041954 :          lu(k,672) = lu(k,672) - lu(k,363) * lu(k,659)
    2183   309041954 :          lu(k,673) = lu(k,673) - lu(k,364) * lu(k,659)
    2184   309041954 :          lu(k,681) = lu(k,681) - lu(k,351) * lu(k,680)
    2185   309041954 :          lu(k,682) = lu(k,682) - lu(k,352) * lu(k,680)
    2186   309041954 :          lu(k,683) = lu(k,683) - lu(k,353) * lu(k,680)
    2187   309041954 :          lu(k,684) = lu(k,684) - lu(k,354) * lu(k,680)
    2188   309041954 :          lu(k,685) = lu(k,685) - lu(k,355) * lu(k,680)
    2189   309041954 :          lu(k,686) = lu(k,686) - lu(k,356) * lu(k,680)
    2190   309041954 :          lu(k,687) = lu(k,687) - lu(k,357) * lu(k,680)
    2191   309041954 :          lu(k,688) = lu(k,688) - lu(k,358) * lu(k,680)
    2192   309041954 :          lu(k,689) = lu(k,689) - lu(k,359) * lu(k,680)
    2193   309041954 :          lu(k,690) = lu(k,690) - lu(k,360) * lu(k,680)
    2194   309041954 :          lu(k,691) = lu(k,691) - lu(k,361) * lu(k,680)
    2195   309041954 :          lu(k,692) = lu(k,692) - lu(k,362) * lu(k,680)
    2196   309041954 :          lu(k,693) = lu(k,693) - lu(k,363) * lu(k,680)
    2197   309041954 :          lu(k,694) = lu(k,694) - lu(k,364) * lu(k,680)
    2198   309041954 :          lu(k,707) = lu(k,707) - lu(k,351) * lu(k,706)
    2199   309041954 :          lu(k,708) = lu(k,708) - lu(k,352) * lu(k,706)
    2200   309041954 :          lu(k,709) = lu(k,709) - lu(k,353) * lu(k,706)
    2201   309041954 :          lu(k,710) = lu(k,710) - lu(k,354) * lu(k,706)
    2202   309041954 :          lu(k,711) = lu(k,711) - lu(k,355) * lu(k,706)
    2203   309041954 :          lu(k,712) = lu(k,712) - lu(k,356) * lu(k,706)
    2204   309041954 :          lu(k,713) = lu(k,713) - lu(k,357) * lu(k,706)
    2205   309041954 :          lu(k,714) = lu(k,714) - lu(k,358) * lu(k,706)
    2206   309041954 :          lu(k,715) = lu(k,715) - lu(k,359) * lu(k,706)
    2207   309041954 :          lu(k,716) = lu(k,716) - lu(k,360) * lu(k,706)
    2208   309041954 :          lu(k,717) = lu(k,717) - lu(k,361) * lu(k,706)
    2209   309041954 :          lu(k,718) = lu(k,718) - lu(k,362) * lu(k,706)
    2210   309041954 :          lu(k,719) = lu(k,719) - lu(k,363) * lu(k,706)
    2211   309041954 :          lu(k,720) = lu(k,720) - lu(k,364) * lu(k,706)
    2212   309041954 :          lu(k,732) = lu(k,732) - lu(k,351) * lu(k,731)
    2213   309041954 :          lu(k,733) = lu(k,733) - lu(k,352) * lu(k,731)
    2214   309041954 :          lu(k,734) = lu(k,734) - lu(k,353) * lu(k,731)
    2215   309041954 :          lu(k,735) = lu(k,735) - lu(k,354) * lu(k,731)
    2216   309041954 :          lu(k,736) = lu(k,736) - lu(k,355) * lu(k,731)
    2217   309041954 :          lu(k,737) = lu(k,737) - lu(k,356) * lu(k,731)
    2218   309041954 :          lu(k,738) = lu(k,738) - lu(k,357) * lu(k,731)
    2219   309041954 :          lu(k,739) = lu(k,739) - lu(k,358) * lu(k,731)
    2220   309041954 :          lu(k,740) = lu(k,740) - lu(k,359) * lu(k,731)
    2221   309041954 :          lu(k,741) = lu(k,741) - lu(k,360) * lu(k,731)
    2222   309041954 :          lu(k,742) = lu(k,742) - lu(k,361) * lu(k,731)
    2223   309041954 :          lu(k,743) = lu(k,743) - lu(k,362) * lu(k,731)
    2224   309041954 :          lu(k,744) = lu(k,744) - lu(k,363) * lu(k,731)
    2225   309041954 :          lu(k,745) = lu(k,745) - lu(k,364) * lu(k,731)
    2226   309041954 :          lu(k,376) = 1._r8 / lu(k,376)
    2227   309041954 :          lu(k,377) = lu(k,377) * lu(k,376)
    2228   309041954 :          lu(k,378) = lu(k,378) * lu(k,376)
    2229   309041954 :          lu(k,379) = lu(k,379) * lu(k,376)
    2230   309041954 :          lu(k,380) = lu(k,380) * lu(k,376)
    2231   309041954 :          lu(k,381) = lu(k,381) * lu(k,376)
    2232   309041954 :          lu(k,382) = lu(k,382) * lu(k,376)
    2233   309041954 :          lu(k,383) = lu(k,383) * lu(k,376)
    2234   309041954 :          lu(k,384) = lu(k,384) * lu(k,376)
    2235   309041954 :          lu(k,385) = lu(k,385) * lu(k,376)
    2236   309041954 :          lu(k,386) = lu(k,386) * lu(k,376)
    2237   309041954 :          lu(k,387) = lu(k,387) * lu(k,376)
    2238   309041954 :          lu(k,388) = lu(k,388) * lu(k,376)
    2239   309041954 :          lu(k,389) = lu(k,389) * lu(k,376)
    2240   309041954 :          lu(k,420) = lu(k,420) - lu(k,377) * lu(k,419)
    2241   309041954 :          lu(k,421) = lu(k,421) - lu(k,378) * lu(k,419)
    2242   309041954 :          lu(k,422) = lu(k,422) - lu(k,379) * lu(k,419)
    2243   309041954 :          lu(k,423) = lu(k,423) - lu(k,380) * lu(k,419)
    2244   309041954 :          lu(k,424) = lu(k,424) - lu(k,381) * lu(k,419)
    2245   309041954 :          lu(k,425) = lu(k,425) - lu(k,382) * lu(k,419)
    2246   309041954 :          lu(k,426) = lu(k,426) - lu(k,383) * lu(k,419)
    2247   309041954 :          lu(k,427) = lu(k,427) - lu(k,384) * lu(k,419)
    2248   309041954 :          lu(k,428) = lu(k,428) - lu(k,385) * lu(k,419)
    2249   309041954 :          lu(k,429) = lu(k,429) - lu(k,386) * lu(k,419)
    2250   309041954 :          lu(k,430) = lu(k,430) - lu(k,387) * lu(k,419)
    2251   309041954 :          lu(k,431) = lu(k,431) - lu(k,388) * lu(k,419)
    2252   309041954 :          lu(k,432) = lu(k,432) - lu(k,389) * lu(k,419)
    2253   309041954 :          lu(k,448) = lu(k,448) - lu(k,377) * lu(k,447)
    2254   309041954 :          lu(k,449) = lu(k,449) - lu(k,378) * lu(k,447)
    2255   309041954 :          lu(k,450) = lu(k,450) - lu(k,379) * lu(k,447)
    2256   309041954 :          lu(k,451) = lu(k,451) - lu(k,380) * lu(k,447)
    2257   309041954 :          lu(k,452) = lu(k,452) - lu(k,381) * lu(k,447)
    2258   309041954 :          lu(k,453) = lu(k,453) - lu(k,382) * lu(k,447)
    2259   309041954 :          lu(k,454) = lu(k,454) - lu(k,383) * lu(k,447)
    2260   309041954 :          lu(k,455) = lu(k,455) - lu(k,384) * lu(k,447)
    2261   309041954 :          lu(k,456) = lu(k,456) - lu(k,385) * lu(k,447)
    2262   309041954 :          lu(k,457) = lu(k,457) - lu(k,386) * lu(k,447)
    2263   309041954 :          lu(k,458) = lu(k,458) - lu(k,387) * lu(k,447)
    2264   309041954 :          lu(k,459) = lu(k,459) - lu(k,388) * lu(k,447)
    2265   309041954 :          lu(k,460) = lu(k,460) - lu(k,389) * lu(k,447)
    2266   309041954 :          lu(k,473) = lu(k,473) - lu(k,377) * lu(k,472)
    2267   309041954 :          lu(k,474) = lu(k,474) - lu(k,378) * lu(k,472)
    2268   309041954 :          lu(k,475) = lu(k,475) - lu(k,379) * lu(k,472)
    2269   309041954 :          lu(k,476) = lu(k,476) - lu(k,380) * lu(k,472)
    2270   309041954 :          lu(k,477) = lu(k,477) - lu(k,381) * lu(k,472)
    2271   309041954 :          lu(k,478) = lu(k,478) - lu(k,382) * lu(k,472)
    2272   309041954 :          lu(k,479) = lu(k,479) - lu(k,383) * lu(k,472)
    2273   309041954 :          lu(k,480) = lu(k,480) - lu(k,384) * lu(k,472)
    2274   309041954 :          lu(k,481) = lu(k,481) - lu(k,385) * lu(k,472)
    2275   309041954 :          lu(k,482) = lu(k,482) - lu(k,386) * lu(k,472)
    2276   309041954 :          lu(k,483) = lu(k,483) - lu(k,387) * lu(k,472)
    2277   309041954 :          lu(k,484) = lu(k,484) - lu(k,388) * lu(k,472)
    2278   309041954 :          lu(k,485) = lu(k,485) - lu(k,389) * lu(k,472)
    2279   309041954 :          lu(k,504) = lu(k,504) - lu(k,377) * lu(k,503)
    2280   309041954 :          lu(k,505) = lu(k,505) - lu(k,378) * lu(k,503)
    2281   309041954 :          lu(k,506) = lu(k,506) - lu(k,379) * lu(k,503)
    2282   309041954 :          lu(k,507) = lu(k,507) - lu(k,380) * lu(k,503)
    2283   309041954 :          lu(k,508) = lu(k,508) - lu(k,381) * lu(k,503)
    2284   309041954 :          lu(k,509) = lu(k,509) - lu(k,382) * lu(k,503)
    2285   309041954 :          lu(k,510) = lu(k,510) - lu(k,383) * lu(k,503)
    2286   309041954 :          lu(k,511) = lu(k,511) - lu(k,384) * lu(k,503)
    2287   309041954 :          lu(k,512) = lu(k,512) - lu(k,385) * lu(k,503)
    2288   309041954 :          lu(k,513) = lu(k,513) - lu(k,386) * lu(k,503)
    2289   309041954 :          lu(k,514) = lu(k,514) - lu(k,387) * lu(k,503)
    2290   309041954 :          lu(k,515) = lu(k,515) - lu(k,388) * lu(k,503)
    2291   309041954 :          lu(k,516) = lu(k,516) - lu(k,389) * lu(k,503)
    2292   309041954 :          lu(k,529) = lu(k,529) - lu(k,377) * lu(k,528)
    2293   309041954 :          lu(k,530) = lu(k,530) - lu(k,378) * lu(k,528)
    2294   309041954 :          lu(k,531) = lu(k,531) - lu(k,379) * lu(k,528)
    2295   309041954 :          lu(k,532) = lu(k,532) - lu(k,380) * lu(k,528)
    2296   309041954 :          lu(k,533) = lu(k,533) - lu(k,381) * lu(k,528)
    2297   309041954 :          lu(k,534) = lu(k,534) - lu(k,382) * lu(k,528)
    2298   309041954 :          lu(k,535) = lu(k,535) - lu(k,383) * lu(k,528)
    2299   309041954 :          lu(k,536) = lu(k,536) - lu(k,384) * lu(k,528)
    2300   309041954 :          lu(k,537) = lu(k,537) - lu(k,385) * lu(k,528)
    2301   309041954 :          lu(k,538) = lu(k,538) - lu(k,386) * lu(k,528)
    2302   309041954 :          lu(k,539) = lu(k,539) - lu(k,387) * lu(k,528)
    2303   309041954 :          lu(k,540) = lu(k,540) - lu(k,388) * lu(k,528)
    2304   309041954 :          lu(k,541) = lu(k,541) - lu(k,389) * lu(k,528)
    2305   309041954 :          lu(k,551) = lu(k,551) - lu(k,377) * lu(k,550)
    2306   309041954 :          lu(k,552) = lu(k,552) - lu(k,378) * lu(k,550)
    2307   309041954 :          lu(k,553) = lu(k,553) - lu(k,379) * lu(k,550)
    2308   309041954 :          lu(k,554) = lu(k,554) - lu(k,380) * lu(k,550)
    2309   309041954 :          lu(k,555) = lu(k,555) - lu(k,381) * lu(k,550)
    2310   309041954 :          lu(k,556) = lu(k,556) - lu(k,382) * lu(k,550)
    2311   309041954 :          lu(k,557) = lu(k,557) - lu(k,383) * lu(k,550)
    2312   309041954 :          lu(k,558) = lu(k,558) - lu(k,384) * lu(k,550)
    2313   309041954 :          lu(k,559) = lu(k,559) - lu(k,385) * lu(k,550)
    2314   309041954 :          lu(k,560) = lu(k,560) - lu(k,386) * lu(k,550)
    2315   309041954 :          lu(k,561) = lu(k,561) - lu(k,387) * lu(k,550)
    2316   309041954 :          lu(k,562) = lu(k,562) - lu(k,388) * lu(k,550)
    2317   309041954 :          lu(k,563) = lu(k,563) - lu(k,389) * lu(k,550)
    2318   309041954 :          lu(k,573) = lu(k,573) - lu(k,377) * lu(k,572)
    2319   309041954 :          lu(k,574) = lu(k,574) - lu(k,378) * lu(k,572)
    2320   309041954 :          lu(k,575) = lu(k,575) - lu(k,379) * lu(k,572)
    2321   309041954 :          lu(k,576) = lu(k,576) - lu(k,380) * lu(k,572)
    2322   309041954 :          lu(k,577) = lu(k,577) - lu(k,381) * lu(k,572)
    2323   309041954 :          lu(k,578) = lu(k,578) - lu(k,382) * lu(k,572)
    2324   309041954 :          lu(k,579) = lu(k,579) - lu(k,383) * lu(k,572)
    2325   309041954 :          lu(k,580) = lu(k,580) - lu(k,384) * lu(k,572)
    2326   309041954 :          lu(k,581) = lu(k,581) - lu(k,385) * lu(k,572)
    2327   309041954 :          lu(k,582) = lu(k,582) - lu(k,386) * lu(k,572)
    2328   309041954 :          lu(k,583) = lu(k,583) - lu(k,387) * lu(k,572)
    2329   309041954 :          lu(k,584) = lu(k,584) - lu(k,388) * lu(k,572)
    2330   309041954 :          lu(k,585) = lu(k,585) - lu(k,389) * lu(k,572)
    2331   309041954 :          lu(k,601) = lu(k,601) - lu(k,377) * lu(k,600)
    2332   309041954 :          lu(k,602) = lu(k,602) - lu(k,378) * lu(k,600)
    2333   309041954 :          lu(k,603) = lu(k,603) - lu(k,379) * lu(k,600)
    2334   309041954 :          lu(k,604) = lu(k,604) - lu(k,380) * lu(k,600)
    2335   309041954 :          lu(k,605) = lu(k,605) - lu(k,381) * lu(k,600)
    2336   309041954 :          lu(k,606) = lu(k,606) - lu(k,382) * lu(k,600)
    2337   309041954 :          lu(k,607) = lu(k,607) - lu(k,383) * lu(k,600)
    2338   309041954 :          lu(k,608) = lu(k,608) - lu(k,384) * lu(k,600)
    2339   309041954 :          lu(k,609) = lu(k,609) - lu(k,385) * lu(k,600)
    2340   309041954 :          lu(k,610) = lu(k,610) - lu(k,386) * lu(k,600)
    2341   309041954 :          lu(k,611) = lu(k,611) - lu(k,387) * lu(k,600)
    2342   309041954 :          lu(k,612) = lu(k,612) - lu(k,388) * lu(k,600)
    2343   309041954 :          lu(k,613) = lu(k,613) - lu(k,389) * lu(k,600)
    2344   309041954 :          lu(k,638) = lu(k,638) - lu(k,377) * lu(k,637)
    2345   309041954 :          lu(k,639) = lu(k,639) - lu(k,378) * lu(k,637)
    2346   309041954 :          lu(k,640) = lu(k,640) - lu(k,379) * lu(k,637)
    2347   309041954 :          lu(k,641) = lu(k,641) - lu(k,380) * lu(k,637)
    2348   309041954 :          lu(k,642) = lu(k,642) - lu(k,381) * lu(k,637)
    2349   309041954 :          lu(k,643) = lu(k,643) - lu(k,382) * lu(k,637)
    2350   309041954 :          lu(k,644) = lu(k,644) - lu(k,383) * lu(k,637)
    2351   309041954 :          lu(k,645) = lu(k,645) - lu(k,384) * lu(k,637)
    2352   309041954 :          lu(k,646) = lu(k,646) - lu(k,385) * lu(k,637)
    2353   309041954 :          lu(k,647) = lu(k,647) - lu(k,386) * lu(k,637)
    2354   309041954 :          lu(k,648) = lu(k,648) - lu(k,387) * lu(k,637)
    2355   309041954 :          lu(k,649) = lu(k,649) - lu(k,388) * lu(k,637)
    2356   309041954 :          lu(k,650) = lu(k,650) - lu(k,389) * lu(k,637)
    2357   309041954 :          lu(k,661) = lu(k,661) - lu(k,377) * lu(k,660)
    2358   309041954 :          lu(k,662) = lu(k,662) - lu(k,378) * lu(k,660)
    2359   309041954 :          lu(k,663) = lu(k,663) - lu(k,379) * lu(k,660)
    2360   309041954 :          lu(k,664) = lu(k,664) - lu(k,380) * lu(k,660)
    2361   309041954 :          lu(k,665) = lu(k,665) - lu(k,381) * lu(k,660)
    2362   309041954 :          lu(k,666) = lu(k,666) - lu(k,382) * lu(k,660)
    2363   309041954 :          lu(k,667) = lu(k,667) - lu(k,383) * lu(k,660)
    2364   309041954 :          lu(k,668) = lu(k,668) - lu(k,384) * lu(k,660)
    2365   309041954 :          lu(k,669) = lu(k,669) - lu(k,385) * lu(k,660)
    2366   309041954 :          lu(k,670) = lu(k,670) - lu(k,386) * lu(k,660)
    2367   309041954 :          lu(k,671) = lu(k,671) - lu(k,387) * lu(k,660)
    2368   309041954 :          lu(k,672) = lu(k,672) - lu(k,388) * lu(k,660)
    2369   309041954 :          lu(k,673) = lu(k,673) - lu(k,389) * lu(k,660)
    2370   309041954 :          lu(k,682) = lu(k,682) - lu(k,377) * lu(k,681)
    2371   309041954 :          lu(k,683) = lu(k,683) - lu(k,378) * lu(k,681)
    2372   309041954 :          lu(k,684) = lu(k,684) - lu(k,379) * lu(k,681)
    2373   309041954 :          lu(k,685) = lu(k,685) - lu(k,380) * lu(k,681)
    2374   309041954 :          lu(k,686) = lu(k,686) - lu(k,381) * lu(k,681)
    2375   309041954 :          lu(k,687) = lu(k,687) - lu(k,382) * lu(k,681)
    2376   309041954 :          lu(k,688) = lu(k,688) - lu(k,383) * lu(k,681)
    2377   309041954 :          lu(k,689) = lu(k,689) - lu(k,384) * lu(k,681)
    2378   309041954 :          lu(k,690) = lu(k,690) - lu(k,385) * lu(k,681)
    2379   309041954 :          lu(k,691) = lu(k,691) - lu(k,386) * lu(k,681)
    2380   309041954 :          lu(k,692) = lu(k,692) - lu(k,387) * lu(k,681)
    2381   309041954 :          lu(k,693) = lu(k,693) - lu(k,388) * lu(k,681)
    2382   309041954 :          lu(k,694) = lu(k,694) - lu(k,389) * lu(k,681)
    2383   309041954 :          lu(k,708) = lu(k,708) - lu(k,377) * lu(k,707)
    2384   309041954 :          lu(k,709) = lu(k,709) - lu(k,378) * lu(k,707)
    2385   309041954 :          lu(k,710) = lu(k,710) - lu(k,379) * lu(k,707)
    2386   309041954 :          lu(k,711) = lu(k,711) - lu(k,380) * lu(k,707)
    2387   309041954 :          lu(k,712) = lu(k,712) - lu(k,381) * lu(k,707)
    2388   309041954 :          lu(k,713) = lu(k,713) - lu(k,382) * lu(k,707)
    2389   309041954 :          lu(k,714) = lu(k,714) - lu(k,383) * lu(k,707)
    2390   309041954 :          lu(k,715) = lu(k,715) - lu(k,384) * lu(k,707)
    2391   309041954 :          lu(k,716) = lu(k,716) - lu(k,385) * lu(k,707)
    2392   309041954 :          lu(k,717) = lu(k,717) - lu(k,386) * lu(k,707)
    2393   309041954 :          lu(k,718) = lu(k,718) - lu(k,387) * lu(k,707)
    2394   309041954 :          lu(k,719) = lu(k,719) - lu(k,388) * lu(k,707)
    2395   309041954 :          lu(k,720) = lu(k,720) - lu(k,389) * lu(k,707)
    2396   309041954 :          lu(k,733) = lu(k,733) - lu(k,377) * lu(k,732)
    2397   309041954 :          lu(k,734) = lu(k,734) - lu(k,378) * lu(k,732)
    2398   309041954 :          lu(k,735) = lu(k,735) - lu(k,379) * lu(k,732)
    2399   309041954 :          lu(k,736) = lu(k,736) - lu(k,380) * lu(k,732)
    2400   309041954 :          lu(k,737) = lu(k,737) - lu(k,381) * lu(k,732)
    2401   309041954 :          lu(k,738) = lu(k,738) - lu(k,382) * lu(k,732)
    2402   309041954 :          lu(k,739) = lu(k,739) - lu(k,383) * lu(k,732)
    2403   309041954 :          lu(k,740) = lu(k,740) - lu(k,384) * lu(k,732)
    2404   309041954 :          lu(k,741) = lu(k,741) - lu(k,385) * lu(k,732)
    2405   309041954 :          lu(k,742) = lu(k,742) - lu(k,386) * lu(k,732)
    2406   309041954 :          lu(k,743) = lu(k,743) - lu(k,387) * lu(k,732)
    2407   309041954 :          lu(k,744) = lu(k,744) - lu(k,388) * lu(k,732)
    2408   309041954 :          lu(k,745) = lu(k,745) - lu(k,389) * lu(k,732)
    2409   309041954 :          lu(k,420) = 1._r8 / lu(k,420)
    2410   309041954 :          lu(k,421) = lu(k,421) * lu(k,420)
    2411   309041954 :          lu(k,422) = lu(k,422) * lu(k,420)
    2412   309041954 :          lu(k,423) = lu(k,423) * lu(k,420)
    2413   309041954 :          lu(k,424) = lu(k,424) * lu(k,420)
    2414   309041954 :          lu(k,425) = lu(k,425) * lu(k,420)
    2415   309041954 :          lu(k,426) = lu(k,426) * lu(k,420)
    2416   309041954 :          lu(k,427) = lu(k,427) * lu(k,420)
    2417   309041954 :          lu(k,428) = lu(k,428) * lu(k,420)
    2418   309041954 :          lu(k,429) = lu(k,429) * lu(k,420)
    2419   309041954 :          lu(k,430) = lu(k,430) * lu(k,420)
    2420   309041954 :          lu(k,431) = lu(k,431) * lu(k,420)
    2421   309041954 :          lu(k,432) = lu(k,432) * lu(k,420)
    2422   309041954 :          lu(k,449) = lu(k,449) - lu(k,421) * lu(k,448)
    2423   309041954 :          lu(k,450) = lu(k,450) - lu(k,422) * lu(k,448)
    2424   309041954 :          lu(k,451) = lu(k,451) - lu(k,423) * lu(k,448)
    2425   309041954 :          lu(k,452) = lu(k,452) - lu(k,424) * lu(k,448)
    2426   309041954 :          lu(k,453) = lu(k,453) - lu(k,425) * lu(k,448)
    2427   309041954 :          lu(k,454) = lu(k,454) - lu(k,426) * lu(k,448)
    2428   309041954 :          lu(k,455) = lu(k,455) - lu(k,427) * lu(k,448)
    2429   309041954 :          lu(k,456) = lu(k,456) - lu(k,428) * lu(k,448)
    2430   309041954 :          lu(k,457) = lu(k,457) - lu(k,429) * lu(k,448)
    2431   309041954 :          lu(k,458) = lu(k,458) - lu(k,430) * lu(k,448)
    2432   309041954 :          lu(k,459) = lu(k,459) - lu(k,431) * lu(k,448)
    2433   309041954 :          lu(k,460) = lu(k,460) - lu(k,432) * lu(k,448)
    2434   309041954 :          lu(k,474) = lu(k,474) - lu(k,421) * lu(k,473)
    2435   309041954 :          lu(k,475) = lu(k,475) - lu(k,422) * lu(k,473)
    2436   309041954 :          lu(k,476) = lu(k,476) - lu(k,423) * lu(k,473)
    2437   309041954 :          lu(k,477) = lu(k,477) - lu(k,424) * lu(k,473)
    2438   309041954 :          lu(k,478) = lu(k,478) - lu(k,425) * lu(k,473)
    2439   309041954 :          lu(k,479) = lu(k,479) - lu(k,426) * lu(k,473)
    2440   309041954 :          lu(k,480) = lu(k,480) - lu(k,427) * lu(k,473)
    2441   309041954 :          lu(k,481) = lu(k,481) - lu(k,428) * lu(k,473)
    2442   309041954 :          lu(k,482) = lu(k,482) - lu(k,429) * lu(k,473)
    2443   309041954 :          lu(k,483) = lu(k,483) - lu(k,430) * lu(k,473)
    2444   309041954 :          lu(k,484) = lu(k,484) - lu(k,431) * lu(k,473)
    2445   309041954 :          lu(k,485) = lu(k,485) - lu(k,432) * lu(k,473)
    2446   309041954 :          lu(k,505) = lu(k,505) - lu(k,421) * lu(k,504)
    2447   309041954 :          lu(k,506) = lu(k,506) - lu(k,422) * lu(k,504)
    2448   309041954 :          lu(k,507) = lu(k,507) - lu(k,423) * lu(k,504)
    2449   309041954 :          lu(k,508) = lu(k,508) - lu(k,424) * lu(k,504)
    2450   309041954 :          lu(k,509) = lu(k,509) - lu(k,425) * lu(k,504)
    2451   309041954 :          lu(k,510) = lu(k,510) - lu(k,426) * lu(k,504)
    2452   309041954 :          lu(k,511) = lu(k,511) - lu(k,427) * lu(k,504)
    2453   309041954 :          lu(k,512) = lu(k,512) - lu(k,428) * lu(k,504)
    2454   309041954 :          lu(k,513) = lu(k,513) - lu(k,429) * lu(k,504)
    2455   309041954 :          lu(k,514) = lu(k,514) - lu(k,430) * lu(k,504)
    2456   309041954 :          lu(k,515) = lu(k,515) - lu(k,431) * lu(k,504)
    2457   309041954 :          lu(k,516) = lu(k,516) - lu(k,432) * lu(k,504)
    2458   309041954 :          lu(k,530) = lu(k,530) - lu(k,421) * lu(k,529)
    2459   309041954 :          lu(k,531) = lu(k,531) - lu(k,422) * lu(k,529)
    2460   309041954 :          lu(k,532) = lu(k,532) - lu(k,423) * lu(k,529)
    2461   309041954 :          lu(k,533) = lu(k,533) - lu(k,424) * lu(k,529)
    2462   309041954 :          lu(k,534) = lu(k,534) - lu(k,425) * lu(k,529)
    2463   309041954 :          lu(k,535) = lu(k,535) - lu(k,426) * lu(k,529)
    2464   309041954 :          lu(k,536) = lu(k,536) - lu(k,427) * lu(k,529)
    2465   309041954 :          lu(k,537) = lu(k,537) - lu(k,428) * lu(k,529)
    2466   309041954 :          lu(k,538) = lu(k,538) - lu(k,429) * lu(k,529)
    2467   309041954 :          lu(k,539) = lu(k,539) - lu(k,430) * lu(k,529)
    2468   309041954 :          lu(k,540) = lu(k,540) - lu(k,431) * lu(k,529)
    2469   309041954 :          lu(k,541) = lu(k,541) - lu(k,432) * lu(k,529)
    2470   309041954 :          lu(k,552) = lu(k,552) - lu(k,421) * lu(k,551)
    2471   309041954 :          lu(k,553) = lu(k,553) - lu(k,422) * lu(k,551)
    2472   309041954 :          lu(k,554) = lu(k,554) - lu(k,423) * lu(k,551)
    2473   309041954 :          lu(k,555) = lu(k,555) - lu(k,424) * lu(k,551)
    2474   309041954 :          lu(k,556) = lu(k,556) - lu(k,425) * lu(k,551)
    2475   309041954 :          lu(k,557) = lu(k,557) - lu(k,426) * lu(k,551)
    2476   309041954 :          lu(k,558) = lu(k,558) - lu(k,427) * lu(k,551)
    2477   309041954 :          lu(k,559) = lu(k,559) - lu(k,428) * lu(k,551)
    2478   309041954 :          lu(k,560) = lu(k,560) - lu(k,429) * lu(k,551)
    2479   309041954 :          lu(k,561) = lu(k,561) - lu(k,430) * lu(k,551)
    2480   309041954 :          lu(k,562) = lu(k,562) - lu(k,431) * lu(k,551)
    2481   309041954 :          lu(k,563) = lu(k,563) - lu(k,432) * lu(k,551)
    2482   309041954 :          lu(k,574) = lu(k,574) - lu(k,421) * lu(k,573)
    2483   309041954 :          lu(k,575) = lu(k,575) - lu(k,422) * lu(k,573)
    2484   309041954 :          lu(k,576) = lu(k,576) - lu(k,423) * lu(k,573)
    2485   309041954 :          lu(k,577) = lu(k,577) - lu(k,424) * lu(k,573)
    2486   309041954 :          lu(k,578) = lu(k,578) - lu(k,425) * lu(k,573)
    2487   309041954 :          lu(k,579) = lu(k,579) - lu(k,426) * lu(k,573)
    2488   309041954 :          lu(k,580) = lu(k,580) - lu(k,427) * lu(k,573)
    2489   309041954 :          lu(k,581) = lu(k,581) - lu(k,428) * lu(k,573)
    2490   309041954 :          lu(k,582) = lu(k,582) - lu(k,429) * lu(k,573)
    2491   309041954 :          lu(k,583) = lu(k,583) - lu(k,430) * lu(k,573)
    2492   309041954 :          lu(k,584) = lu(k,584) - lu(k,431) * lu(k,573)
    2493   309041954 :          lu(k,585) = lu(k,585) - lu(k,432) * lu(k,573)
    2494   309041954 :          lu(k,602) = lu(k,602) - lu(k,421) * lu(k,601)
    2495   309041954 :          lu(k,603) = lu(k,603) - lu(k,422) * lu(k,601)
    2496   309041954 :          lu(k,604) = lu(k,604) - lu(k,423) * lu(k,601)
    2497   309041954 :          lu(k,605) = lu(k,605) - lu(k,424) * lu(k,601)
    2498   309041954 :          lu(k,606) = lu(k,606) - lu(k,425) * lu(k,601)
    2499   309041954 :          lu(k,607) = lu(k,607) - lu(k,426) * lu(k,601)
    2500   309041954 :          lu(k,608) = lu(k,608) - lu(k,427) * lu(k,601)
    2501   309041954 :          lu(k,609) = lu(k,609) - lu(k,428) * lu(k,601)
    2502   309041954 :          lu(k,610) = lu(k,610) - lu(k,429) * lu(k,601)
    2503   309041954 :          lu(k,611) = lu(k,611) - lu(k,430) * lu(k,601)
    2504   309041954 :          lu(k,612) = lu(k,612) - lu(k,431) * lu(k,601)
    2505   309041954 :          lu(k,613) = lu(k,613) - lu(k,432) * lu(k,601)
    2506   309041954 :          lu(k,639) = lu(k,639) - lu(k,421) * lu(k,638)
    2507   309041954 :          lu(k,640) = lu(k,640) - lu(k,422) * lu(k,638)
    2508   309041954 :          lu(k,641) = lu(k,641) - lu(k,423) * lu(k,638)
    2509   309041954 :          lu(k,642) = lu(k,642) - lu(k,424) * lu(k,638)
    2510   309041954 :          lu(k,643) = lu(k,643) - lu(k,425) * lu(k,638)
    2511   309041954 :          lu(k,644) = lu(k,644) - lu(k,426) * lu(k,638)
    2512   309041954 :          lu(k,645) = lu(k,645) - lu(k,427) * lu(k,638)
    2513   309041954 :          lu(k,646) = lu(k,646) - lu(k,428) * lu(k,638)
    2514   309041954 :          lu(k,647) = lu(k,647) - lu(k,429) * lu(k,638)
    2515   309041954 :          lu(k,648) = lu(k,648) - lu(k,430) * lu(k,638)
    2516   309041954 :          lu(k,649) = lu(k,649) - lu(k,431) * lu(k,638)
    2517   309041954 :          lu(k,650) = lu(k,650) - lu(k,432) * lu(k,638)
    2518   309041954 :          lu(k,662) = lu(k,662) - lu(k,421) * lu(k,661)
    2519   309041954 :          lu(k,663) = lu(k,663) - lu(k,422) * lu(k,661)
    2520   309041954 :          lu(k,664) = lu(k,664) - lu(k,423) * lu(k,661)
    2521   309041954 :          lu(k,665) = lu(k,665) - lu(k,424) * lu(k,661)
    2522   309041954 :          lu(k,666) = lu(k,666) - lu(k,425) * lu(k,661)
    2523   309041954 :          lu(k,667) = lu(k,667) - lu(k,426) * lu(k,661)
    2524   309041954 :          lu(k,668) = lu(k,668) - lu(k,427) * lu(k,661)
    2525   309041954 :          lu(k,669) = lu(k,669) - lu(k,428) * lu(k,661)
    2526   309041954 :          lu(k,670) = lu(k,670) - lu(k,429) * lu(k,661)
    2527   309041954 :          lu(k,671) = lu(k,671) - lu(k,430) * lu(k,661)
    2528   309041954 :          lu(k,672) = lu(k,672) - lu(k,431) * lu(k,661)
    2529   309041954 :          lu(k,673) = lu(k,673) - lu(k,432) * lu(k,661)
    2530   309041954 :          lu(k,683) = lu(k,683) - lu(k,421) * lu(k,682)
    2531   309041954 :          lu(k,684) = lu(k,684) - lu(k,422) * lu(k,682)
    2532   309041954 :          lu(k,685) = lu(k,685) - lu(k,423) * lu(k,682)
    2533   309041954 :          lu(k,686) = lu(k,686) - lu(k,424) * lu(k,682)
    2534   309041954 :          lu(k,687) = lu(k,687) - lu(k,425) * lu(k,682)
    2535   309041954 :          lu(k,688) = lu(k,688) - lu(k,426) * lu(k,682)
    2536   309041954 :          lu(k,689) = lu(k,689) - lu(k,427) * lu(k,682)
    2537   309041954 :          lu(k,690) = lu(k,690) - lu(k,428) * lu(k,682)
    2538   309041954 :          lu(k,691) = lu(k,691) - lu(k,429) * lu(k,682)
    2539   309041954 :          lu(k,692) = lu(k,692) - lu(k,430) * lu(k,682)
    2540   309041954 :          lu(k,693) = lu(k,693) - lu(k,431) * lu(k,682)
    2541   309041954 :          lu(k,694) = lu(k,694) - lu(k,432) * lu(k,682)
    2542   309041954 :          lu(k,709) = lu(k,709) - lu(k,421) * lu(k,708)
    2543   309041954 :          lu(k,710) = lu(k,710) - lu(k,422) * lu(k,708)
    2544   309041954 :          lu(k,711) = lu(k,711) - lu(k,423) * lu(k,708)
    2545   309041954 :          lu(k,712) = lu(k,712) - lu(k,424) * lu(k,708)
    2546   309041954 :          lu(k,713) = lu(k,713) - lu(k,425) * lu(k,708)
    2547   309041954 :          lu(k,714) = lu(k,714) - lu(k,426) * lu(k,708)
    2548   309041954 :          lu(k,715) = lu(k,715) - lu(k,427) * lu(k,708)
    2549   309041954 :          lu(k,716) = lu(k,716) - lu(k,428) * lu(k,708)
    2550   309041954 :          lu(k,717) = lu(k,717) - lu(k,429) * lu(k,708)
    2551   309041954 :          lu(k,718) = lu(k,718) - lu(k,430) * lu(k,708)
    2552   309041954 :          lu(k,719) = lu(k,719) - lu(k,431) * lu(k,708)
    2553   309041954 :          lu(k,720) = lu(k,720) - lu(k,432) * lu(k,708)
    2554   309041954 :          lu(k,734) = lu(k,734) - lu(k,421) * lu(k,733)
    2555   309041954 :          lu(k,735) = lu(k,735) - lu(k,422) * lu(k,733)
    2556   309041954 :          lu(k,736) = lu(k,736) - lu(k,423) * lu(k,733)
    2557   309041954 :          lu(k,737) = lu(k,737) - lu(k,424) * lu(k,733)
    2558   309041954 :          lu(k,738) = lu(k,738) - lu(k,425) * lu(k,733)
    2559   309041954 :          lu(k,739) = lu(k,739) - lu(k,426) * lu(k,733)
    2560   309041954 :          lu(k,740) = lu(k,740) - lu(k,427) * lu(k,733)
    2561   309041954 :          lu(k,741) = lu(k,741) - lu(k,428) * lu(k,733)
    2562   309041954 :          lu(k,742) = lu(k,742) - lu(k,429) * lu(k,733)
    2563   309041954 :          lu(k,743) = lu(k,743) - lu(k,430) * lu(k,733)
    2564   309041954 :          lu(k,744) = lu(k,744) - lu(k,431) * lu(k,733)
    2565   318792954 :          lu(k,745) = lu(k,745) - lu(k,432) * lu(k,733)
    2566             :       end do
    2567     9751000 :       end subroutine lu_fac08
    2568     9751000 :       subroutine lu_fac09( avec_len, lu )
    2569             :       use chem_mods, only : nzcnt
    2570             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2571             :       implicit none
    2572             : !-----------------------------------------------------------------------
    2573             : ! ... dummy args
    2574             : !-----------------------------------------------------------------------
    2575             :       integer, intent(in) :: avec_len
    2576             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2577             : !-----------------------------------------------------------------------
    2578             : ! ... local variables
    2579             : !-----------------------------------------------------------------------
    2580             :       integer :: k
    2581   318792954 :       do k = 1,avec_len
    2582   309041954 :          lu(k,449) = 1._r8 / lu(k,449)
    2583   309041954 :          lu(k,450) = lu(k,450) * lu(k,449)
    2584   309041954 :          lu(k,451) = lu(k,451) * lu(k,449)
    2585   309041954 :          lu(k,452) = lu(k,452) * lu(k,449)
    2586   309041954 :          lu(k,453) = lu(k,453) * lu(k,449)
    2587   309041954 :          lu(k,454) = lu(k,454) * lu(k,449)
    2588   309041954 :          lu(k,455) = lu(k,455) * lu(k,449)
    2589   309041954 :          lu(k,456) = lu(k,456) * lu(k,449)
    2590   309041954 :          lu(k,457) = lu(k,457) * lu(k,449)
    2591   309041954 :          lu(k,458) = lu(k,458) * lu(k,449)
    2592   309041954 :          lu(k,459) = lu(k,459) * lu(k,449)
    2593   309041954 :          lu(k,460) = lu(k,460) * lu(k,449)
    2594   309041954 :          lu(k,475) = lu(k,475) - lu(k,450) * lu(k,474)
    2595   309041954 :          lu(k,476) = lu(k,476) - lu(k,451) * lu(k,474)
    2596   309041954 :          lu(k,477) = lu(k,477) - lu(k,452) * lu(k,474)
    2597   309041954 :          lu(k,478) = lu(k,478) - lu(k,453) * lu(k,474)
    2598   309041954 :          lu(k,479) = lu(k,479) - lu(k,454) * lu(k,474)
    2599   309041954 :          lu(k,480) = lu(k,480) - lu(k,455) * lu(k,474)
    2600   309041954 :          lu(k,481) = lu(k,481) - lu(k,456) * lu(k,474)
    2601   309041954 :          lu(k,482) = lu(k,482) - lu(k,457) * lu(k,474)
    2602   309041954 :          lu(k,483) = lu(k,483) - lu(k,458) * lu(k,474)
    2603   309041954 :          lu(k,484) = lu(k,484) - lu(k,459) * lu(k,474)
    2604   309041954 :          lu(k,485) = lu(k,485) - lu(k,460) * lu(k,474)
    2605   309041954 :          lu(k,506) = lu(k,506) - lu(k,450) * lu(k,505)
    2606   309041954 :          lu(k,507) = lu(k,507) - lu(k,451) * lu(k,505)
    2607   309041954 :          lu(k,508) = lu(k,508) - lu(k,452) * lu(k,505)
    2608   309041954 :          lu(k,509) = lu(k,509) - lu(k,453) * lu(k,505)
    2609   309041954 :          lu(k,510) = lu(k,510) - lu(k,454) * lu(k,505)
    2610   309041954 :          lu(k,511) = lu(k,511) - lu(k,455) * lu(k,505)
    2611   309041954 :          lu(k,512) = lu(k,512) - lu(k,456) * lu(k,505)
    2612   309041954 :          lu(k,513) = lu(k,513) - lu(k,457) * lu(k,505)
    2613   309041954 :          lu(k,514) = lu(k,514) - lu(k,458) * lu(k,505)
    2614   309041954 :          lu(k,515) = lu(k,515) - lu(k,459) * lu(k,505)
    2615   309041954 :          lu(k,516) = lu(k,516) - lu(k,460) * lu(k,505)
    2616   309041954 :          lu(k,531) = lu(k,531) - lu(k,450) * lu(k,530)
    2617   309041954 :          lu(k,532) = lu(k,532) - lu(k,451) * lu(k,530)
    2618   309041954 :          lu(k,533) = lu(k,533) - lu(k,452) * lu(k,530)
    2619   309041954 :          lu(k,534) = lu(k,534) - lu(k,453) * lu(k,530)
    2620   309041954 :          lu(k,535) = lu(k,535) - lu(k,454) * lu(k,530)
    2621   309041954 :          lu(k,536) = lu(k,536) - lu(k,455) * lu(k,530)
    2622   309041954 :          lu(k,537) = lu(k,537) - lu(k,456) * lu(k,530)
    2623   309041954 :          lu(k,538) = lu(k,538) - lu(k,457) * lu(k,530)
    2624   309041954 :          lu(k,539) = lu(k,539) - lu(k,458) * lu(k,530)
    2625   309041954 :          lu(k,540) = lu(k,540) - lu(k,459) * lu(k,530)
    2626   309041954 :          lu(k,541) = lu(k,541) - lu(k,460) * lu(k,530)
    2627   309041954 :          lu(k,553) = lu(k,553) - lu(k,450) * lu(k,552)
    2628   309041954 :          lu(k,554) = lu(k,554) - lu(k,451) * lu(k,552)
    2629   309041954 :          lu(k,555) = lu(k,555) - lu(k,452) * lu(k,552)
    2630   309041954 :          lu(k,556) = lu(k,556) - lu(k,453) * lu(k,552)
    2631   309041954 :          lu(k,557) = lu(k,557) - lu(k,454) * lu(k,552)
    2632   309041954 :          lu(k,558) = lu(k,558) - lu(k,455) * lu(k,552)
    2633   309041954 :          lu(k,559) = lu(k,559) - lu(k,456) * lu(k,552)
    2634   309041954 :          lu(k,560) = lu(k,560) - lu(k,457) * lu(k,552)
    2635   309041954 :          lu(k,561) = lu(k,561) - lu(k,458) * lu(k,552)
    2636   309041954 :          lu(k,562) = lu(k,562) - lu(k,459) * lu(k,552)
    2637   309041954 :          lu(k,563) = lu(k,563) - lu(k,460) * lu(k,552)
    2638   309041954 :          lu(k,575) = lu(k,575) - lu(k,450) * lu(k,574)
    2639   309041954 :          lu(k,576) = lu(k,576) - lu(k,451) * lu(k,574)
    2640   309041954 :          lu(k,577) = lu(k,577) - lu(k,452) * lu(k,574)
    2641   309041954 :          lu(k,578) = lu(k,578) - lu(k,453) * lu(k,574)
    2642   309041954 :          lu(k,579) = lu(k,579) - lu(k,454) * lu(k,574)
    2643   309041954 :          lu(k,580) = lu(k,580) - lu(k,455) * lu(k,574)
    2644   309041954 :          lu(k,581) = lu(k,581) - lu(k,456) * lu(k,574)
    2645   309041954 :          lu(k,582) = lu(k,582) - lu(k,457) * lu(k,574)
    2646   309041954 :          lu(k,583) = lu(k,583) - lu(k,458) * lu(k,574)
    2647   309041954 :          lu(k,584) = lu(k,584) - lu(k,459) * lu(k,574)
    2648   309041954 :          lu(k,585) = lu(k,585) - lu(k,460) * lu(k,574)
    2649   309041954 :          lu(k,603) = lu(k,603) - lu(k,450) * lu(k,602)
    2650   309041954 :          lu(k,604) = lu(k,604) - lu(k,451) * lu(k,602)
    2651   309041954 :          lu(k,605) = lu(k,605) - lu(k,452) * lu(k,602)
    2652   309041954 :          lu(k,606) = lu(k,606) - lu(k,453) * lu(k,602)
    2653   309041954 :          lu(k,607) = lu(k,607) - lu(k,454) * lu(k,602)
    2654   309041954 :          lu(k,608) = lu(k,608) - lu(k,455) * lu(k,602)
    2655   309041954 :          lu(k,609) = lu(k,609) - lu(k,456) * lu(k,602)
    2656   309041954 :          lu(k,610) = lu(k,610) - lu(k,457) * lu(k,602)
    2657   309041954 :          lu(k,611) = lu(k,611) - lu(k,458) * lu(k,602)
    2658   309041954 :          lu(k,612) = lu(k,612) - lu(k,459) * lu(k,602)
    2659   309041954 :          lu(k,613) = lu(k,613) - lu(k,460) * lu(k,602)
    2660   309041954 :          lu(k,640) = lu(k,640) - lu(k,450) * lu(k,639)
    2661   309041954 :          lu(k,641) = lu(k,641) - lu(k,451) * lu(k,639)
    2662   309041954 :          lu(k,642) = lu(k,642) - lu(k,452) * lu(k,639)
    2663   309041954 :          lu(k,643) = lu(k,643) - lu(k,453) * lu(k,639)
    2664   309041954 :          lu(k,644) = lu(k,644) - lu(k,454) * lu(k,639)
    2665   309041954 :          lu(k,645) = lu(k,645) - lu(k,455) * lu(k,639)
    2666   309041954 :          lu(k,646) = lu(k,646) - lu(k,456) * lu(k,639)
    2667   309041954 :          lu(k,647) = lu(k,647) - lu(k,457) * lu(k,639)
    2668   309041954 :          lu(k,648) = lu(k,648) - lu(k,458) * lu(k,639)
    2669   309041954 :          lu(k,649) = lu(k,649) - lu(k,459) * lu(k,639)
    2670   309041954 :          lu(k,650) = lu(k,650) - lu(k,460) * lu(k,639)
    2671   309041954 :          lu(k,663) = lu(k,663) - lu(k,450) * lu(k,662)
    2672   309041954 :          lu(k,664) = lu(k,664) - lu(k,451) * lu(k,662)
    2673   309041954 :          lu(k,665) = lu(k,665) - lu(k,452) * lu(k,662)
    2674   309041954 :          lu(k,666) = lu(k,666) - lu(k,453) * lu(k,662)
    2675   309041954 :          lu(k,667) = lu(k,667) - lu(k,454) * lu(k,662)
    2676   309041954 :          lu(k,668) = lu(k,668) - lu(k,455) * lu(k,662)
    2677   309041954 :          lu(k,669) = lu(k,669) - lu(k,456) * lu(k,662)
    2678   309041954 :          lu(k,670) = lu(k,670) - lu(k,457) * lu(k,662)
    2679   309041954 :          lu(k,671) = lu(k,671) - lu(k,458) * lu(k,662)
    2680   309041954 :          lu(k,672) = lu(k,672) - lu(k,459) * lu(k,662)
    2681   309041954 :          lu(k,673) = lu(k,673) - lu(k,460) * lu(k,662)
    2682   309041954 :          lu(k,684) = lu(k,684) - lu(k,450) * lu(k,683)
    2683   309041954 :          lu(k,685) = lu(k,685) - lu(k,451) * lu(k,683)
    2684   309041954 :          lu(k,686) = lu(k,686) - lu(k,452) * lu(k,683)
    2685   309041954 :          lu(k,687) = lu(k,687) - lu(k,453) * lu(k,683)
    2686   309041954 :          lu(k,688) = lu(k,688) - lu(k,454) * lu(k,683)
    2687   309041954 :          lu(k,689) = lu(k,689) - lu(k,455) * lu(k,683)
    2688   309041954 :          lu(k,690) = lu(k,690) - lu(k,456) * lu(k,683)
    2689   309041954 :          lu(k,691) = lu(k,691) - lu(k,457) * lu(k,683)
    2690   309041954 :          lu(k,692) = lu(k,692) - lu(k,458) * lu(k,683)
    2691   309041954 :          lu(k,693) = lu(k,693) - lu(k,459) * lu(k,683)
    2692   309041954 :          lu(k,694) = lu(k,694) - lu(k,460) * lu(k,683)
    2693   309041954 :          lu(k,710) = lu(k,710) - lu(k,450) * lu(k,709)
    2694   309041954 :          lu(k,711) = lu(k,711) - lu(k,451) * lu(k,709)
    2695   309041954 :          lu(k,712) = lu(k,712) - lu(k,452) * lu(k,709)
    2696   309041954 :          lu(k,713) = lu(k,713) - lu(k,453) * lu(k,709)
    2697   309041954 :          lu(k,714) = lu(k,714) - lu(k,454) * lu(k,709)
    2698   309041954 :          lu(k,715) = lu(k,715) - lu(k,455) * lu(k,709)
    2699   309041954 :          lu(k,716) = lu(k,716) - lu(k,456) * lu(k,709)
    2700   309041954 :          lu(k,717) = lu(k,717) - lu(k,457) * lu(k,709)
    2701   309041954 :          lu(k,718) = lu(k,718) - lu(k,458) * lu(k,709)
    2702   309041954 :          lu(k,719) = lu(k,719) - lu(k,459) * lu(k,709)
    2703   309041954 :          lu(k,720) = lu(k,720) - lu(k,460) * lu(k,709)
    2704   309041954 :          lu(k,735) = lu(k,735) - lu(k,450) * lu(k,734)
    2705   309041954 :          lu(k,736) = lu(k,736) - lu(k,451) * lu(k,734)
    2706   309041954 :          lu(k,737) = lu(k,737) - lu(k,452) * lu(k,734)
    2707   309041954 :          lu(k,738) = lu(k,738) - lu(k,453) * lu(k,734)
    2708   309041954 :          lu(k,739) = lu(k,739) - lu(k,454) * lu(k,734)
    2709   309041954 :          lu(k,740) = lu(k,740) - lu(k,455) * lu(k,734)
    2710   309041954 :          lu(k,741) = lu(k,741) - lu(k,456) * lu(k,734)
    2711   309041954 :          lu(k,742) = lu(k,742) - lu(k,457) * lu(k,734)
    2712   309041954 :          lu(k,743) = lu(k,743) - lu(k,458) * lu(k,734)
    2713   309041954 :          lu(k,744) = lu(k,744) - lu(k,459) * lu(k,734)
    2714   309041954 :          lu(k,745) = lu(k,745) - lu(k,460) * lu(k,734)
    2715   309041954 :          lu(k,475) = 1._r8 / lu(k,475)
    2716   309041954 :          lu(k,476) = lu(k,476) * lu(k,475)
    2717   309041954 :          lu(k,477) = lu(k,477) * lu(k,475)
    2718   309041954 :          lu(k,478) = lu(k,478) * lu(k,475)
    2719   309041954 :          lu(k,479) = lu(k,479) * lu(k,475)
    2720   309041954 :          lu(k,480) = lu(k,480) * lu(k,475)
    2721   309041954 :          lu(k,481) = lu(k,481) * lu(k,475)
    2722   309041954 :          lu(k,482) = lu(k,482) * lu(k,475)
    2723   309041954 :          lu(k,483) = lu(k,483) * lu(k,475)
    2724   309041954 :          lu(k,484) = lu(k,484) * lu(k,475)
    2725   309041954 :          lu(k,485) = lu(k,485) * lu(k,475)
    2726   309041954 :          lu(k,507) = lu(k,507) - lu(k,476) * lu(k,506)
    2727   309041954 :          lu(k,508) = lu(k,508) - lu(k,477) * lu(k,506)
    2728   309041954 :          lu(k,509) = lu(k,509) - lu(k,478) * lu(k,506)
    2729   309041954 :          lu(k,510) = lu(k,510) - lu(k,479) * lu(k,506)
    2730   309041954 :          lu(k,511) = lu(k,511) - lu(k,480) * lu(k,506)
    2731   309041954 :          lu(k,512) = lu(k,512) - lu(k,481) * lu(k,506)
    2732   309041954 :          lu(k,513) = lu(k,513) - lu(k,482) * lu(k,506)
    2733   309041954 :          lu(k,514) = lu(k,514) - lu(k,483) * lu(k,506)
    2734   309041954 :          lu(k,515) = lu(k,515) - lu(k,484) * lu(k,506)
    2735   309041954 :          lu(k,516) = lu(k,516) - lu(k,485) * lu(k,506)
    2736   309041954 :          lu(k,532) = lu(k,532) - lu(k,476) * lu(k,531)
    2737   309041954 :          lu(k,533) = lu(k,533) - lu(k,477) * lu(k,531)
    2738   309041954 :          lu(k,534) = lu(k,534) - lu(k,478) * lu(k,531)
    2739   309041954 :          lu(k,535) = lu(k,535) - lu(k,479) * lu(k,531)
    2740   309041954 :          lu(k,536) = lu(k,536) - lu(k,480) * lu(k,531)
    2741   309041954 :          lu(k,537) = lu(k,537) - lu(k,481) * lu(k,531)
    2742   309041954 :          lu(k,538) = lu(k,538) - lu(k,482) * lu(k,531)
    2743   309041954 :          lu(k,539) = lu(k,539) - lu(k,483) * lu(k,531)
    2744   309041954 :          lu(k,540) = lu(k,540) - lu(k,484) * lu(k,531)
    2745   309041954 :          lu(k,541) = lu(k,541) - lu(k,485) * lu(k,531)
    2746   309041954 :          lu(k,554) = lu(k,554) - lu(k,476) * lu(k,553)
    2747   309041954 :          lu(k,555) = lu(k,555) - lu(k,477) * lu(k,553)
    2748   309041954 :          lu(k,556) = lu(k,556) - lu(k,478) * lu(k,553)
    2749   309041954 :          lu(k,557) = lu(k,557) - lu(k,479) * lu(k,553)
    2750   309041954 :          lu(k,558) = lu(k,558) - lu(k,480) * lu(k,553)
    2751   309041954 :          lu(k,559) = lu(k,559) - lu(k,481) * lu(k,553)
    2752   309041954 :          lu(k,560) = lu(k,560) - lu(k,482) * lu(k,553)
    2753   309041954 :          lu(k,561) = lu(k,561) - lu(k,483) * lu(k,553)
    2754   309041954 :          lu(k,562) = lu(k,562) - lu(k,484) * lu(k,553)
    2755   309041954 :          lu(k,563) = lu(k,563) - lu(k,485) * lu(k,553)
    2756   309041954 :          lu(k,576) = lu(k,576) - lu(k,476) * lu(k,575)
    2757   309041954 :          lu(k,577) = lu(k,577) - lu(k,477) * lu(k,575)
    2758   309041954 :          lu(k,578) = lu(k,578) - lu(k,478) * lu(k,575)
    2759   309041954 :          lu(k,579) = lu(k,579) - lu(k,479) * lu(k,575)
    2760   309041954 :          lu(k,580) = lu(k,580) - lu(k,480) * lu(k,575)
    2761   309041954 :          lu(k,581) = lu(k,581) - lu(k,481) * lu(k,575)
    2762   309041954 :          lu(k,582) = lu(k,582) - lu(k,482) * lu(k,575)
    2763   309041954 :          lu(k,583) = lu(k,583) - lu(k,483) * lu(k,575)
    2764   309041954 :          lu(k,584) = lu(k,584) - lu(k,484) * lu(k,575)
    2765   309041954 :          lu(k,585) = lu(k,585) - lu(k,485) * lu(k,575)
    2766   309041954 :          lu(k,604) = lu(k,604) - lu(k,476) * lu(k,603)
    2767   309041954 :          lu(k,605) = lu(k,605) - lu(k,477) * lu(k,603)
    2768   309041954 :          lu(k,606) = lu(k,606) - lu(k,478) * lu(k,603)
    2769   309041954 :          lu(k,607) = lu(k,607) - lu(k,479) * lu(k,603)
    2770   309041954 :          lu(k,608) = lu(k,608) - lu(k,480) * lu(k,603)
    2771   309041954 :          lu(k,609) = lu(k,609) - lu(k,481) * lu(k,603)
    2772   309041954 :          lu(k,610) = lu(k,610) - lu(k,482) * lu(k,603)
    2773   309041954 :          lu(k,611) = lu(k,611) - lu(k,483) * lu(k,603)
    2774   309041954 :          lu(k,612) = lu(k,612) - lu(k,484) * lu(k,603)
    2775   309041954 :          lu(k,613) = lu(k,613) - lu(k,485) * lu(k,603)
    2776   309041954 :          lu(k,641) = lu(k,641) - lu(k,476) * lu(k,640)
    2777   309041954 :          lu(k,642) = lu(k,642) - lu(k,477) * lu(k,640)
    2778   309041954 :          lu(k,643) = lu(k,643) - lu(k,478) * lu(k,640)
    2779   309041954 :          lu(k,644) = lu(k,644) - lu(k,479) * lu(k,640)
    2780   309041954 :          lu(k,645) = lu(k,645) - lu(k,480) * lu(k,640)
    2781   309041954 :          lu(k,646) = lu(k,646) - lu(k,481) * lu(k,640)
    2782   309041954 :          lu(k,647) = lu(k,647) - lu(k,482) * lu(k,640)
    2783   309041954 :          lu(k,648) = lu(k,648) - lu(k,483) * lu(k,640)
    2784   309041954 :          lu(k,649) = lu(k,649) - lu(k,484) * lu(k,640)
    2785   309041954 :          lu(k,650) = lu(k,650) - lu(k,485) * lu(k,640)
    2786   309041954 :          lu(k,664) = lu(k,664) - lu(k,476) * lu(k,663)
    2787   309041954 :          lu(k,665) = lu(k,665) - lu(k,477) * lu(k,663)
    2788   309041954 :          lu(k,666) = lu(k,666) - lu(k,478) * lu(k,663)
    2789   309041954 :          lu(k,667) = lu(k,667) - lu(k,479) * lu(k,663)
    2790   309041954 :          lu(k,668) = lu(k,668) - lu(k,480) * lu(k,663)
    2791   309041954 :          lu(k,669) = lu(k,669) - lu(k,481) * lu(k,663)
    2792   309041954 :          lu(k,670) = lu(k,670) - lu(k,482) * lu(k,663)
    2793   309041954 :          lu(k,671) = lu(k,671) - lu(k,483) * lu(k,663)
    2794   309041954 :          lu(k,672) = lu(k,672) - lu(k,484) * lu(k,663)
    2795   309041954 :          lu(k,673) = lu(k,673) - lu(k,485) * lu(k,663)
    2796   309041954 :          lu(k,685) = lu(k,685) - lu(k,476) * lu(k,684)
    2797   309041954 :          lu(k,686) = lu(k,686) - lu(k,477) * lu(k,684)
    2798   309041954 :          lu(k,687) = lu(k,687) - lu(k,478) * lu(k,684)
    2799   309041954 :          lu(k,688) = lu(k,688) - lu(k,479) * lu(k,684)
    2800   309041954 :          lu(k,689) = lu(k,689) - lu(k,480) * lu(k,684)
    2801   309041954 :          lu(k,690) = lu(k,690) - lu(k,481) * lu(k,684)
    2802   309041954 :          lu(k,691) = lu(k,691) - lu(k,482) * lu(k,684)
    2803   309041954 :          lu(k,692) = lu(k,692) - lu(k,483) * lu(k,684)
    2804   309041954 :          lu(k,693) = lu(k,693) - lu(k,484) * lu(k,684)
    2805   309041954 :          lu(k,694) = lu(k,694) - lu(k,485) * lu(k,684)
    2806   309041954 :          lu(k,711) = lu(k,711) - lu(k,476) * lu(k,710)
    2807   309041954 :          lu(k,712) = lu(k,712) - lu(k,477) * lu(k,710)
    2808   309041954 :          lu(k,713) = lu(k,713) - lu(k,478) * lu(k,710)
    2809   309041954 :          lu(k,714) = lu(k,714) - lu(k,479) * lu(k,710)
    2810   309041954 :          lu(k,715) = lu(k,715) - lu(k,480) * lu(k,710)
    2811   309041954 :          lu(k,716) = lu(k,716) - lu(k,481) * lu(k,710)
    2812   309041954 :          lu(k,717) = lu(k,717) - lu(k,482) * lu(k,710)
    2813   309041954 :          lu(k,718) = lu(k,718) - lu(k,483) * lu(k,710)
    2814   309041954 :          lu(k,719) = lu(k,719) - lu(k,484) * lu(k,710)
    2815   309041954 :          lu(k,720) = lu(k,720) - lu(k,485) * lu(k,710)
    2816   309041954 :          lu(k,736) = lu(k,736) - lu(k,476) * lu(k,735)
    2817   309041954 :          lu(k,737) = lu(k,737) - lu(k,477) * lu(k,735)
    2818   309041954 :          lu(k,738) = lu(k,738) - lu(k,478) * lu(k,735)
    2819   309041954 :          lu(k,739) = lu(k,739) - lu(k,479) * lu(k,735)
    2820   309041954 :          lu(k,740) = lu(k,740) - lu(k,480) * lu(k,735)
    2821   309041954 :          lu(k,741) = lu(k,741) - lu(k,481) * lu(k,735)
    2822   309041954 :          lu(k,742) = lu(k,742) - lu(k,482) * lu(k,735)
    2823   309041954 :          lu(k,743) = lu(k,743) - lu(k,483) * lu(k,735)
    2824   309041954 :          lu(k,744) = lu(k,744) - lu(k,484) * lu(k,735)
    2825   309041954 :          lu(k,745) = lu(k,745) - lu(k,485) * lu(k,735)
    2826   309041954 :          lu(k,507) = 1._r8 / lu(k,507)
    2827   309041954 :          lu(k,508) = lu(k,508) * lu(k,507)
    2828   309041954 :          lu(k,509) = lu(k,509) * lu(k,507)
    2829   309041954 :          lu(k,510) = lu(k,510) * lu(k,507)
    2830   309041954 :          lu(k,511) = lu(k,511) * lu(k,507)
    2831   309041954 :          lu(k,512) = lu(k,512) * lu(k,507)
    2832   309041954 :          lu(k,513) = lu(k,513) * lu(k,507)
    2833   309041954 :          lu(k,514) = lu(k,514) * lu(k,507)
    2834   309041954 :          lu(k,515) = lu(k,515) * lu(k,507)
    2835   309041954 :          lu(k,516) = lu(k,516) * lu(k,507)
    2836   309041954 :          lu(k,533) = lu(k,533) - lu(k,508) * lu(k,532)
    2837   309041954 :          lu(k,534) = lu(k,534) - lu(k,509) * lu(k,532)
    2838   309041954 :          lu(k,535) = lu(k,535) - lu(k,510) * lu(k,532)
    2839   309041954 :          lu(k,536) = lu(k,536) - lu(k,511) * lu(k,532)
    2840   309041954 :          lu(k,537) = lu(k,537) - lu(k,512) * lu(k,532)
    2841   309041954 :          lu(k,538) = lu(k,538) - lu(k,513) * lu(k,532)
    2842   309041954 :          lu(k,539) = lu(k,539) - lu(k,514) * lu(k,532)
    2843   309041954 :          lu(k,540) = lu(k,540) - lu(k,515) * lu(k,532)
    2844   309041954 :          lu(k,541) = lu(k,541) - lu(k,516) * lu(k,532)
    2845   309041954 :          lu(k,555) = lu(k,555) - lu(k,508) * lu(k,554)
    2846   309041954 :          lu(k,556) = lu(k,556) - lu(k,509) * lu(k,554)
    2847   309041954 :          lu(k,557) = lu(k,557) - lu(k,510) * lu(k,554)
    2848   309041954 :          lu(k,558) = lu(k,558) - lu(k,511) * lu(k,554)
    2849   309041954 :          lu(k,559) = lu(k,559) - lu(k,512) * lu(k,554)
    2850   309041954 :          lu(k,560) = lu(k,560) - lu(k,513) * lu(k,554)
    2851   309041954 :          lu(k,561) = lu(k,561) - lu(k,514) * lu(k,554)
    2852   309041954 :          lu(k,562) = lu(k,562) - lu(k,515) * lu(k,554)
    2853   309041954 :          lu(k,563) = lu(k,563) - lu(k,516) * lu(k,554)
    2854   309041954 :          lu(k,577) = lu(k,577) - lu(k,508) * lu(k,576)
    2855   309041954 :          lu(k,578) = lu(k,578) - lu(k,509) * lu(k,576)
    2856   309041954 :          lu(k,579) = lu(k,579) - lu(k,510) * lu(k,576)
    2857   309041954 :          lu(k,580) = lu(k,580) - lu(k,511) * lu(k,576)
    2858   309041954 :          lu(k,581) = lu(k,581) - lu(k,512) * lu(k,576)
    2859   309041954 :          lu(k,582) = lu(k,582) - lu(k,513) * lu(k,576)
    2860   309041954 :          lu(k,583) = lu(k,583) - lu(k,514) * lu(k,576)
    2861   309041954 :          lu(k,584) = lu(k,584) - lu(k,515) * lu(k,576)
    2862   309041954 :          lu(k,585) = lu(k,585) - lu(k,516) * lu(k,576)
    2863   309041954 :          lu(k,605) = lu(k,605) - lu(k,508) * lu(k,604)
    2864   309041954 :          lu(k,606) = lu(k,606) - lu(k,509) * lu(k,604)
    2865   309041954 :          lu(k,607) = lu(k,607) - lu(k,510) * lu(k,604)
    2866   309041954 :          lu(k,608) = lu(k,608) - lu(k,511) * lu(k,604)
    2867   309041954 :          lu(k,609) = lu(k,609) - lu(k,512) * lu(k,604)
    2868   309041954 :          lu(k,610) = lu(k,610) - lu(k,513) * lu(k,604)
    2869   309041954 :          lu(k,611) = lu(k,611) - lu(k,514) * lu(k,604)
    2870   309041954 :          lu(k,612) = lu(k,612) - lu(k,515) * lu(k,604)
    2871   309041954 :          lu(k,613) = lu(k,613) - lu(k,516) * lu(k,604)
    2872   309041954 :          lu(k,642) = lu(k,642) - lu(k,508) * lu(k,641)
    2873   309041954 :          lu(k,643) = lu(k,643) - lu(k,509) * lu(k,641)
    2874   309041954 :          lu(k,644) = lu(k,644) - lu(k,510) * lu(k,641)
    2875   309041954 :          lu(k,645) = lu(k,645) - lu(k,511) * lu(k,641)
    2876   309041954 :          lu(k,646) = lu(k,646) - lu(k,512) * lu(k,641)
    2877   309041954 :          lu(k,647) = lu(k,647) - lu(k,513) * lu(k,641)
    2878   309041954 :          lu(k,648) = lu(k,648) - lu(k,514) * lu(k,641)
    2879   309041954 :          lu(k,649) = lu(k,649) - lu(k,515) * lu(k,641)
    2880   309041954 :          lu(k,650) = lu(k,650) - lu(k,516) * lu(k,641)
    2881   309041954 :          lu(k,665) = lu(k,665) - lu(k,508) * lu(k,664)
    2882   309041954 :          lu(k,666) = lu(k,666) - lu(k,509) * lu(k,664)
    2883   309041954 :          lu(k,667) = lu(k,667) - lu(k,510) * lu(k,664)
    2884   309041954 :          lu(k,668) = lu(k,668) - lu(k,511) * lu(k,664)
    2885   309041954 :          lu(k,669) = lu(k,669) - lu(k,512) * lu(k,664)
    2886   309041954 :          lu(k,670) = lu(k,670) - lu(k,513) * lu(k,664)
    2887   309041954 :          lu(k,671) = lu(k,671) - lu(k,514) * lu(k,664)
    2888   309041954 :          lu(k,672) = lu(k,672) - lu(k,515) * lu(k,664)
    2889   309041954 :          lu(k,673) = lu(k,673) - lu(k,516) * lu(k,664)
    2890   309041954 :          lu(k,686) = lu(k,686) - lu(k,508) * lu(k,685)
    2891   309041954 :          lu(k,687) = lu(k,687) - lu(k,509) * lu(k,685)
    2892   309041954 :          lu(k,688) = lu(k,688) - lu(k,510) * lu(k,685)
    2893   309041954 :          lu(k,689) = lu(k,689) - lu(k,511) * lu(k,685)
    2894   309041954 :          lu(k,690) = lu(k,690) - lu(k,512) * lu(k,685)
    2895   309041954 :          lu(k,691) = lu(k,691) - lu(k,513) * lu(k,685)
    2896   309041954 :          lu(k,692) = lu(k,692) - lu(k,514) * lu(k,685)
    2897   309041954 :          lu(k,693) = lu(k,693) - lu(k,515) * lu(k,685)
    2898   309041954 :          lu(k,694) = lu(k,694) - lu(k,516) * lu(k,685)
    2899   309041954 :          lu(k,712) = lu(k,712) - lu(k,508) * lu(k,711)
    2900   309041954 :          lu(k,713) = lu(k,713) - lu(k,509) * lu(k,711)
    2901   309041954 :          lu(k,714) = lu(k,714) - lu(k,510) * lu(k,711)
    2902   309041954 :          lu(k,715) = lu(k,715) - lu(k,511) * lu(k,711)
    2903   309041954 :          lu(k,716) = lu(k,716) - lu(k,512) * lu(k,711)
    2904   309041954 :          lu(k,717) = lu(k,717) - lu(k,513) * lu(k,711)
    2905   309041954 :          lu(k,718) = lu(k,718) - lu(k,514) * lu(k,711)
    2906   309041954 :          lu(k,719) = lu(k,719) - lu(k,515) * lu(k,711)
    2907   309041954 :          lu(k,720) = lu(k,720) - lu(k,516) * lu(k,711)
    2908   309041954 :          lu(k,737) = lu(k,737) - lu(k,508) * lu(k,736)
    2909   309041954 :          lu(k,738) = lu(k,738) - lu(k,509) * lu(k,736)
    2910   309041954 :          lu(k,739) = lu(k,739) - lu(k,510) * lu(k,736)
    2911   309041954 :          lu(k,740) = lu(k,740) - lu(k,511) * lu(k,736)
    2912   309041954 :          lu(k,741) = lu(k,741) - lu(k,512) * lu(k,736)
    2913   309041954 :          lu(k,742) = lu(k,742) - lu(k,513) * lu(k,736)
    2914   309041954 :          lu(k,743) = lu(k,743) - lu(k,514) * lu(k,736)
    2915   309041954 :          lu(k,744) = lu(k,744) - lu(k,515) * lu(k,736)
    2916   309041954 :          lu(k,745) = lu(k,745) - lu(k,516) * lu(k,736)
    2917   309041954 :          lu(k,533) = 1._r8 / lu(k,533)
    2918   309041954 :          lu(k,534) = lu(k,534) * lu(k,533)
    2919   309041954 :          lu(k,535) = lu(k,535) * lu(k,533)
    2920   309041954 :          lu(k,536) = lu(k,536) * lu(k,533)
    2921   309041954 :          lu(k,537) = lu(k,537) * lu(k,533)
    2922   309041954 :          lu(k,538) = lu(k,538) * lu(k,533)
    2923   309041954 :          lu(k,539) = lu(k,539) * lu(k,533)
    2924   309041954 :          lu(k,540) = lu(k,540) * lu(k,533)
    2925   309041954 :          lu(k,541) = lu(k,541) * lu(k,533)
    2926   309041954 :          lu(k,556) = lu(k,556) - lu(k,534) * lu(k,555)
    2927   309041954 :          lu(k,557) = lu(k,557) - lu(k,535) * lu(k,555)
    2928   309041954 :          lu(k,558) = lu(k,558) - lu(k,536) * lu(k,555)
    2929   309041954 :          lu(k,559) = lu(k,559) - lu(k,537) * lu(k,555)
    2930   309041954 :          lu(k,560) = lu(k,560) - lu(k,538) * lu(k,555)
    2931   309041954 :          lu(k,561) = lu(k,561) - lu(k,539) * lu(k,555)
    2932   309041954 :          lu(k,562) = lu(k,562) - lu(k,540) * lu(k,555)
    2933   309041954 :          lu(k,563) = lu(k,563) - lu(k,541) * lu(k,555)
    2934   309041954 :          lu(k,578) = lu(k,578) - lu(k,534) * lu(k,577)
    2935   309041954 :          lu(k,579) = lu(k,579) - lu(k,535) * lu(k,577)
    2936   309041954 :          lu(k,580) = lu(k,580) - lu(k,536) * lu(k,577)
    2937   309041954 :          lu(k,581) = lu(k,581) - lu(k,537) * lu(k,577)
    2938   309041954 :          lu(k,582) = lu(k,582) - lu(k,538) * lu(k,577)
    2939   309041954 :          lu(k,583) = lu(k,583) - lu(k,539) * lu(k,577)
    2940   309041954 :          lu(k,584) = lu(k,584) - lu(k,540) * lu(k,577)
    2941   309041954 :          lu(k,585) = lu(k,585) - lu(k,541) * lu(k,577)
    2942   309041954 :          lu(k,606) = lu(k,606) - lu(k,534) * lu(k,605)
    2943   309041954 :          lu(k,607) = lu(k,607) - lu(k,535) * lu(k,605)
    2944   309041954 :          lu(k,608) = lu(k,608) - lu(k,536) * lu(k,605)
    2945   309041954 :          lu(k,609) = lu(k,609) - lu(k,537) * lu(k,605)
    2946   309041954 :          lu(k,610) = lu(k,610) - lu(k,538) * lu(k,605)
    2947   309041954 :          lu(k,611) = lu(k,611) - lu(k,539) * lu(k,605)
    2948   309041954 :          lu(k,612) = lu(k,612) - lu(k,540) * lu(k,605)
    2949   309041954 :          lu(k,613) = lu(k,613) - lu(k,541) * lu(k,605)
    2950   309041954 :          lu(k,643) = lu(k,643) - lu(k,534) * lu(k,642)
    2951   309041954 :          lu(k,644) = lu(k,644) - lu(k,535) * lu(k,642)
    2952   309041954 :          lu(k,645) = lu(k,645) - lu(k,536) * lu(k,642)
    2953   309041954 :          lu(k,646) = lu(k,646) - lu(k,537) * lu(k,642)
    2954   309041954 :          lu(k,647) = lu(k,647) - lu(k,538) * lu(k,642)
    2955   309041954 :          lu(k,648) = lu(k,648) - lu(k,539) * lu(k,642)
    2956   309041954 :          lu(k,649) = lu(k,649) - lu(k,540) * lu(k,642)
    2957   309041954 :          lu(k,650) = lu(k,650) - lu(k,541) * lu(k,642)
    2958   309041954 :          lu(k,666) = lu(k,666) - lu(k,534) * lu(k,665)
    2959   309041954 :          lu(k,667) = lu(k,667) - lu(k,535) * lu(k,665)
    2960   309041954 :          lu(k,668) = lu(k,668) - lu(k,536) * lu(k,665)
    2961   309041954 :          lu(k,669) = lu(k,669) - lu(k,537) * lu(k,665)
    2962   309041954 :          lu(k,670) = lu(k,670) - lu(k,538) * lu(k,665)
    2963   309041954 :          lu(k,671) = lu(k,671) - lu(k,539) * lu(k,665)
    2964   309041954 :          lu(k,672) = lu(k,672) - lu(k,540) * lu(k,665)
    2965   309041954 :          lu(k,673) = lu(k,673) - lu(k,541) * lu(k,665)
    2966   309041954 :          lu(k,687) = lu(k,687) - lu(k,534) * lu(k,686)
    2967   309041954 :          lu(k,688) = lu(k,688) - lu(k,535) * lu(k,686)
    2968   309041954 :          lu(k,689) = lu(k,689) - lu(k,536) * lu(k,686)
    2969   309041954 :          lu(k,690) = lu(k,690) - lu(k,537) * lu(k,686)
    2970   309041954 :          lu(k,691) = lu(k,691) - lu(k,538) * lu(k,686)
    2971   309041954 :          lu(k,692) = lu(k,692) - lu(k,539) * lu(k,686)
    2972   309041954 :          lu(k,693) = lu(k,693) - lu(k,540) * lu(k,686)
    2973   309041954 :          lu(k,694) = lu(k,694) - lu(k,541) * lu(k,686)
    2974   309041954 :          lu(k,713) = lu(k,713) - lu(k,534) * lu(k,712)
    2975   309041954 :          lu(k,714) = lu(k,714) - lu(k,535) * lu(k,712)
    2976   309041954 :          lu(k,715) = lu(k,715) - lu(k,536) * lu(k,712)
    2977   309041954 :          lu(k,716) = lu(k,716) - lu(k,537) * lu(k,712)
    2978   309041954 :          lu(k,717) = lu(k,717) - lu(k,538) * lu(k,712)
    2979   309041954 :          lu(k,718) = lu(k,718) - lu(k,539) * lu(k,712)
    2980   309041954 :          lu(k,719) = lu(k,719) - lu(k,540) * lu(k,712)
    2981   309041954 :          lu(k,720) = lu(k,720) - lu(k,541) * lu(k,712)
    2982   309041954 :          lu(k,738) = lu(k,738) - lu(k,534) * lu(k,737)
    2983   309041954 :          lu(k,739) = lu(k,739) - lu(k,535) * lu(k,737)
    2984   309041954 :          lu(k,740) = lu(k,740) - lu(k,536) * lu(k,737)
    2985   309041954 :          lu(k,741) = lu(k,741) - lu(k,537) * lu(k,737)
    2986   309041954 :          lu(k,742) = lu(k,742) - lu(k,538) * lu(k,737)
    2987   309041954 :          lu(k,743) = lu(k,743) - lu(k,539) * lu(k,737)
    2988   309041954 :          lu(k,744) = lu(k,744) - lu(k,540) * lu(k,737)
    2989   309041954 :          lu(k,745) = lu(k,745) - lu(k,541) * lu(k,737)
    2990   309041954 :          lu(k,556) = 1._r8 / lu(k,556)
    2991   309041954 :          lu(k,557) = lu(k,557) * lu(k,556)
    2992   309041954 :          lu(k,558) = lu(k,558) * lu(k,556)
    2993   309041954 :          lu(k,559) = lu(k,559) * lu(k,556)
    2994   309041954 :          lu(k,560) = lu(k,560) * lu(k,556)
    2995   309041954 :          lu(k,561) = lu(k,561) * lu(k,556)
    2996   309041954 :          lu(k,562) = lu(k,562) * lu(k,556)
    2997   309041954 :          lu(k,563) = lu(k,563) * lu(k,556)
    2998   309041954 :          lu(k,579) = lu(k,579) - lu(k,557) * lu(k,578)
    2999   309041954 :          lu(k,580) = lu(k,580) - lu(k,558) * lu(k,578)
    3000   309041954 :          lu(k,581) = lu(k,581) - lu(k,559) * lu(k,578)
    3001   309041954 :          lu(k,582) = lu(k,582) - lu(k,560) * lu(k,578)
    3002   309041954 :          lu(k,583) = lu(k,583) - lu(k,561) * lu(k,578)
    3003   309041954 :          lu(k,584) = lu(k,584) - lu(k,562) * lu(k,578)
    3004   309041954 :          lu(k,585) = lu(k,585) - lu(k,563) * lu(k,578)
    3005   309041954 :          lu(k,607) = lu(k,607) - lu(k,557) * lu(k,606)
    3006   309041954 :          lu(k,608) = lu(k,608) - lu(k,558) * lu(k,606)
    3007   309041954 :          lu(k,609) = lu(k,609) - lu(k,559) * lu(k,606)
    3008   309041954 :          lu(k,610) = lu(k,610) - lu(k,560) * lu(k,606)
    3009   309041954 :          lu(k,611) = lu(k,611) - lu(k,561) * lu(k,606)
    3010   309041954 :          lu(k,612) = lu(k,612) - lu(k,562) * lu(k,606)
    3011   309041954 :          lu(k,613) = lu(k,613) - lu(k,563) * lu(k,606)
    3012   309041954 :          lu(k,644) = lu(k,644) - lu(k,557) * lu(k,643)
    3013   309041954 :          lu(k,645) = lu(k,645) - lu(k,558) * lu(k,643)
    3014   309041954 :          lu(k,646) = lu(k,646) - lu(k,559) * lu(k,643)
    3015   309041954 :          lu(k,647) = lu(k,647) - lu(k,560) * lu(k,643)
    3016   309041954 :          lu(k,648) = lu(k,648) - lu(k,561) * lu(k,643)
    3017   309041954 :          lu(k,649) = lu(k,649) - lu(k,562) * lu(k,643)
    3018   309041954 :          lu(k,650) = lu(k,650) - lu(k,563) * lu(k,643)
    3019   309041954 :          lu(k,667) = lu(k,667) - lu(k,557) * lu(k,666)
    3020   309041954 :          lu(k,668) = lu(k,668) - lu(k,558) * lu(k,666)
    3021   309041954 :          lu(k,669) = lu(k,669) - lu(k,559) * lu(k,666)
    3022   309041954 :          lu(k,670) = lu(k,670) - lu(k,560) * lu(k,666)
    3023   309041954 :          lu(k,671) = lu(k,671) - lu(k,561) * lu(k,666)
    3024   309041954 :          lu(k,672) = lu(k,672) - lu(k,562) * lu(k,666)
    3025   309041954 :          lu(k,673) = lu(k,673) - lu(k,563) * lu(k,666)
    3026   309041954 :          lu(k,688) = lu(k,688) - lu(k,557) * lu(k,687)
    3027   309041954 :          lu(k,689) = lu(k,689) - lu(k,558) * lu(k,687)
    3028   309041954 :          lu(k,690) = lu(k,690) - lu(k,559) * lu(k,687)
    3029   309041954 :          lu(k,691) = lu(k,691) - lu(k,560) * lu(k,687)
    3030   309041954 :          lu(k,692) = lu(k,692) - lu(k,561) * lu(k,687)
    3031   309041954 :          lu(k,693) = lu(k,693) - lu(k,562) * lu(k,687)
    3032   309041954 :          lu(k,694) = lu(k,694) - lu(k,563) * lu(k,687)
    3033   309041954 :          lu(k,714) = lu(k,714) - lu(k,557) * lu(k,713)
    3034   309041954 :          lu(k,715) = lu(k,715) - lu(k,558) * lu(k,713)
    3035   309041954 :          lu(k,716) = lu(k,716) - lu(k,559) * lu(k,713)
    3036   309041954 :          lu(k,717) = lu(k,717) - lu(k,560) * lu(k,713)
    3037   309041954 :          lu(k,718) = lu(k,718) - lu(k,561) * lu(k,713)
    3038   309041954 :          lu(k,719) = lu(k,719) - lu(k,562) * lu(k,713)
    3039   309041954 :          lu(k,720) = lu(k,720) - lu(k,563) * lu(k,713)
    3040   309041954 :          lu(k,739) = lu(k,739) - lu(k,557) * lu(k,738)
    3041   309041954 :          lu(k,740) = lu(k,740) - lu(k,558) * lu(k,738)
    3042   309041954 :          lu(k,741) = lu(k,741) - lu(k,559) * lu(k,738)
    3043   309041954 :          lu(k,742) = lu(k,742) - lu(k,560) * lu(k,738)
    3044   309041954 :          lu(k,743) = lu(k,743) - lu(k,561) * lu(k,738)
    3045   309041954 :          lu(k,744) = lu(k,744) - lu(k,562) * lu(k,738)
    3046   309041954 :          lu(k,745) = lu(k,745) - lu(k,563) * lu(k,738)
    3047   309041954 :          lu(k,579) = 1._r8 / lu(k,579)
    3048   309041954 :          lu(k,580) = lu(k,580) * lu(k,579)
    3049   309041954 :          lu(k,581) = lu(k,581) * lu(k,579)
    3050   309041954 :          lu(k,582) = lu(k,582) * lu(k,579)
    3051   309041954 :          lu(k,583) = lu(k,583) * lu(k,579)
    3052   309041954 :          lu(k,584) = lu(k,584) * lu(k,579)
    3053   309041954 :          lu(k,585) = lu(k,585) * lu(k,579)
    3054   309041954 :          lu(k,608) = lu(k,608) - lu(k,580) * lu(k,607)
    3055   309041954 :          lu(k,609) = lu(k,609) - lu(k,581) * lu(k,607)
    3056   309041954 :          lu(k,610) = lu(k,610) - lu(k,582) * lu(k,607)
    3057   309041954 :          lu(k,611) = lu(k,611) - lu(k,583) * lu(k,607)
    3058   309041954 :          lu(k,612) = lu(k,612) - lu(k,584) * lu(k,607)
    3059   309041954 :          lu(k,613) = lu(k,613) - lu(k,585) * lu(k,607)
    3060   309041954 :          lu(k,645) = lu(k,645) - lu(k,580) * lu(k,644)
    3061   309041954 :          lu(k,646) = lu(k,646) - lu(k,581) * lu(k,644)
    3062   309041954 :          lu(k,647) = lu(k,647) - lu(k,582) * lu(k,644)
    3063   309041954 :          lu(k,648) = lu(k,648) - lu(k,583) * lu(k,644)
    3064   309041954 :          lu(k,649) = lu(k,649) - lu(k,584) * lu(k,644)
    3065   309041954 :          lu(k,650) = lu(k,650) - lu(k,585) * lu(k,644)
    3066   309041954 :          lu(k,668) = lu(k,668) - lu(k,580) * lu(k,667)
    3067   309041954 :          lu(k,669) = lu(k,669) - lu(k,581) * lu(k,667)
    3068   309041954 :          lu(k,670) = lu(k,670) - lu(k,582) * lu(k,667)
    3069   309041954 :          lu(k,671) = lu(k,671) - lu(k,583) * lu(k,667)
    3070   309041954 :          lu(k,672) = lu(k,672) - lu(k,584) * lu(k,667)
    3071   309041954 :          lu(k,673) = lu(k,673) - lu(k,585) * lu(k,667)
    3072   309041954 :          lu(k,689) = lu(k,689) - lu(k,580) * lu(k,688)
    3073   309041954 :          lu(k,690) = lu(k,690) - lu(k,581) * lu(k,688)
    3074   309041954 :          lu(k,691) = lu(k,691) - lu(k,582) * lu(k,688)
    3075   309041954 :          lu(k,692) = lu(k,692) - lu(k,583) * lu(k,688)
    3076   309041954 :          lu(k,693) = lu(k,693) - lu(k,584) * lu(k,688)
    3077   309041954 :          lu(k,694) = lu(k,694) - lu(k,585) * lu(k,688)
    3078   309041954 :          lu(k,715) = lu(k,715) - lu(k,580) * lu(k,714)
    3079   309041954 :          lu(k,716) = lu(k,716) - lu(k,581) * lu(k,714)
    3080   309041954 :          lu(k,717) = lu(k,717) - lu(k,582) * lu(k,714)
    3081   309041954 :          lu(k,718) = lu(k,718) - lu(k,583) * lu(k,714)
    3082   309041954 :          lu(k,719) = lu(k,719) - lu(k,584) * lu(k,714)
    3083   309041954 :          lu(k,720) = lu(k,720) - lu(k,585) * lu(k,714)
    3084   309041954 :          lu(k,740) = lu(k,740) - lu(k,580) * lu(k,739)
    3085   309041954 :          lu(k,741) = lu(k,741) - lu(k,581) * lu(k,739)
    3086   309041954 :          lu(k,742) = lu(k,742) - lu(k,582) * lu(k,739)
    3087   309041954 :          lu(k,743) = lu(k,743) - lu(k,583) * lu(k,739)
    3088   309041954 :          lu(k,744) = lu(k,744) - lu(k,584) * lu(k,739)
    3089   318792954 :          lu(k,745) = lu(k,745) - lu(k,585) * lu(k,739)
    3090             :       end do
    3091     9751000 :       end subroutine lu_fac09
    3092     9751000 :       subroutine lu_fac10( avec_len, lu )
    3093             :       use chem_mods, only : nzcnt
    3094             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3095             :       implicit none
    3096             : !-----------------------------------------------------------------------
    3097             : ! ... dummy args
    3098             : !-----------------------------------------------------------------------
    3099             :       integer, intent(in) :: avec_len
    3100             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3101             : !-----------------------------------------------------------------------
    3102             : ! ... local variables
    3103             : !-----------------------------------------------------------------------
    3104             :       integer :: k
    3105   318792954 :       do k = 1,avec_len
    3106   309041954 :          lu(k,608) = 1._r8 / lu(k,608)
    3107   309041954 :          lu(k,609) = lu(k,609) * lu(k,608)
    3108   309041954 :          lu(k,610) = lu(k,610) * lu(k,608)
    3109   309041954 :          lu(k,611) = lu(k,611) * lu(k,608)
    3110   309041954 :          lu(k,612) = lu(k,612) * lu(k,608)
    3111   309041954 :          lu(k,613) = lu(k,613) * lu(k,608)
    3112   309041954 :          lu(k,646) = lu(k,646) - lu(k,609) * lu(k,645)
    3113   309041954 :          lu(k,647) = lu(k,647) - lu(k,610) * lu(k,645)
    3114   309041954 :          lu(k,648) = lu(k,648) - lu(k,611) * lu(k,645)
    3115   309041954 :          lu(k,649) = lu(k,649) - lu(k,612) * lu(k,645)
    3116   309041954 :          lu(k,650) = lu(k,650) - lu(k,613) * lu(k,645)
    3117   309041954 :          lu(k,669) = lu(k,669) - lu(k,609) * lu(k,668)
    3118   309041954 :          lu(k,670) = lu(k,670) - lu(k,610) * lu(k,668)
    3119   309041954 :          lu(k,671) = lu(k,671) - lu(k,611) * lu(k,668)
    3120   309041954 :          lu(k,672) = lu(k,672) - lu(k,612) * lu(k,668)
    3121   309041954 :          lu(k,673) = lu(k,673) - lu(k,613) * lu(k,668)
    3122   309041954 :          lu(k,690) = lu(k,690) - lu(k,609) * lu(k,689)
    3123   309041954 :          lu(k,691) = lu(k,691) - lu(k,610) * lu(k,689)
    3124   309041954 :          lu(k,692) = lu(k,692) - lu(k,611) * lu(k,689)
    3125   309041954 :          lu(k,693) = lu(k,693) - lu(k,612) * lu(k,689)
    3126   309041954 :          lu(k,694) = lu(k,694) - lu(k,613) * lu(k,689)
    3127   309041954 :          lu(k,716) = lu(k,716) - lu(k,609) * lu(k,715)
    3128   309041954 :          lu(k,717) = lu(k,717) - lu(k,610) * lu(k,715)
    3129   309041954 :          lu(k,718) = lu(k,718) - lu(k,611) * lu(k,715)
    3130   309041954 :          lu(k,719) = lu(k,719) - lu(k,612) * lu(k,715)
    3131   309041954 :          lu(k,720) = lu(k,720) - lu(k,613) * lu(k,715)
    3132   309041954 :          lu(k,741) = lu(k,741) - lu(k,609) * lu(k,740)
    3133   309041954 :          lu(k,742) = lu(k,742) - lu(k,610) * lu(k,740)
    3134   309041954 :          lu(k,743) = lu(k,743) - lu(k,611) * lu(k,740)
    3135   309041954 :          lu(k,744) = lu(k,744) - lu(k,612) * lu(k,740)
    3136   309041954 :          lu(k,745) = lu(k,745) - lu(k,613) * lu(k,740)
    3137   309041954 :          lu(k,646) = 1._r8 / lu(k,646)
    3138   309041954 :          lu(k,647) = lu(k,647) * lu(k,646)
    3139   309041954 :          lu(k,648) = lu(k,648) * lu(k,646)
    3140   309041954 :          lu(k,649) = lu(k,649) * lu(k,646)
    3141   309041954 :          lu(k,650) = lu(k,650) * lu(k,646)
    3142   309041954 :          lu(k,670) = lu(k,670) - lu(k,647) * lu(k,669)
    3143   309041954 :          lu(k,671) = lu(k,671) - lu(k,648) * lu(k,669)
    3144   309041954 :          lu(k,672) = lu(k,672) - lu(k,649) * lu(k,669)
    3145   309041954 :          lu(k,673) = lu(k,673) - lu(k,650) * lu(k,669)
    3146   309041954 :          lu(k,691) = lu(k,691) - lu(k,647) * lu(k,690)
    3147   309041954 :          lu(k,692) = lu(k,692) - lu(k,648) * lu(k,690)
    3148   309041954 :          lu(k,693) = lu(k,693) - lu(k,649) * lu(k,690)
    3149   309041954 :          lu(k,694) = lu(k,694) - lu(k,650) * lu(k,690)
    3150   309041954 :          lu(k,717) = lu(k,717) - lu(k,647) * lu(k,716)
    3151   309041954 :          lu(k,718) = lu(k,718) - lu(k,648) * lu(k,716)
    3152   309041954 :          lu(k,719) = lu(k,719) - lu(k,649) * lu(k,716)
    3153   309041954 :          lu(k,720) = lu(k,720) - lu(k,650) * lu(k,716)
    3154   309041954 :          lu(k,742) = lu(k,742) - lu(k,647) * lu(k,741)
    3155   309041954 :          lu(k,743) = lu(k,743) - lu(k,648) * lu(k,741)
    3156   309041954 :          lu(k,744) = lu(k,744) - lu(k,649) * lu(k,741)
    3157   309041954 :          lu(k,745) = lu(k,745) - lu(k,650) * lu(k,741)
    3158   309041954 :          lu(k,670) = 1._r8 / lu(k,670)
    3159   309041954 :          lu(k,671) = lu(k,671) * lu(k,670)
    3160   309041954 :          lu(k,672) = lu(k,672) * lu(k,670)
    3161   309041954 :          lu(k,673) = lu(k,673) * lu(k,670)
    3162   309041954 :          lu(k,692) = lu(k,692) - lu(k,671) * lu(k,691)
    3163   309041954 :          lu(k,693) = lu(k,693) - lu(k,672) * lu(k,691)
    3164   309041954 :          lu(k,694) = lu(k,694) - lu(k,673) * lu(k,691)
    3165   309041954 :          lu(k,718) = lu(k,718) - lu(k,671) * lu(k,717)
    3166   309041954 :          lu(k,719) = lu(k,719) - lu(k,672) * lu(k,717)
    3167   309041954 :          lu(k,720) = lu(k,720) - lu(k,673) * lu(k,717)
    3168   309041954 :          lu(k,743) = lu(k,743) - lu(k,671) * lu(k,742)
    3169   309041954 :          lu(k,744) = lu(k,744) - lu(k,672) * lu(k,742)
    3170   309041954 :          lu(k,745) = lu(k,745) - lu(k,673) * lu(k,742)
    3171   309041954 :          lu(k,692) = 1._r8 / lu(k,692)
    3172   309041954 :          lu(k,693) = lu(k,693) * lu(k,692)
    3173   309041954 :          lu(k,694) = lu(k,694) * lu(k,692)
    3174   309041954 :          lu(k,719) = lu(k,719) - lu(k,693) * lu(k,718)
    3175   309041954 :          lu(k,720) = lu(k,720) - lu(k,694) * lu(k,718)
    3176   309041954 :          lu(k,744) = lu(k,744) - lu(k,693) * lu(k,743)
    3177   309041954 :          lu(k,745) = lu(k,745) - lu(k,694) * lu(k,743)
    3178   309041954 :          lu(k,719) = 1._r8 / lu(k,719)
    3179   309041954 :          lu(k,720) = lu(k,720) * lu(k,719)
    3180   309041954 :          lu(k,745) = lu(k,745) - lu(k,720) * lu(k,744)
    3181   318792954 :          lu(k,745) = 1._r8 / lu(k,745)
    3182             :       end do
    3183     9751000 :       end subroutine lu_fac10
    3184     9751000 :       subroutine lu_fac( avec_len, lu )
    3185             :       use chem_mods, only : nzcnt
    3186             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3187             :       implicit none
    3188             : !-----------------------------------------------------------------------
    3189             : ! ... dummy args
    3190             : !-----------------------------------------------------------------------
    3191             :       integer, intent(in) :: avec_len
    3192             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3193     9751000 :       call lu_fac01( avec_len, lu )
    3194     9751000 :       call lu_fac02( avec_len, lu )
    3195     9751000 :       call lu_fac03( avec_len, lu )
    3196     9751000 :       call lu_fac04( avec_len, lu )
    3197     9751000 :       call lu_fac05( avec_len, lu )
    3198     9751000 :       call lu_fac06( avec_len, lu )
    3199     9751000 :       call lu_fac07( avec_len, lu )
    3200     9751000 :       call lu_fac08( avec_len, lu )
    3201     9751000 :       call lu_fac09( avec_len, lu )
    3202     9751000 :       call lu_fac10( avec_len, lu )
    3203     9751000 :       end subroutine lu_fac
    3204             :       end module mo_lu_factor

Generated by: LCOV version 1.14