solve_LINEQ.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module m_solve_lineq
  implicit none
 
  private
 
  public :: solve_lineq
 
contains
 
  subroutine solve_lineq(hecMESH, hecMAT)
    use hecmw
    use hecmw_solver
 
    type(hecmwst_local_mesh) :: hecmesh
    type(hecmwst_matrix)     :: hecmat
 
    call hecmw_solve(hecmesh, hecmat)
 
  end subroutine solve_lineq
end module m_solve_lineq