Line data    Source code

       1             :       module mo_lu_solve
       2             :       private
       3             :       public :: lu_slv
       4             :       contains
       5           0 :       subroutine lu_slv( lu, b )
       6             :       use shr_kind_mod, only : r8 => shr_kind_r8
       7             :       use chem_mods, only : clscnt4, nzcnt
       8             :       implicit none
       9             : !-----------------------------------------------------------------------
      10             : ! ... Dummy args
      11             : !-----------------------------------------------------------------------
      12             :       real(r8), intent(in) :: lu(:)
      13             :       real(r8), intent(inout) :: b(:)
      14           0 :       end subroutine lu_slv
      15             :       end module mo_lu_solve