hecmw_solver_scaling.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 hecmw_solver_scaling
  use hecmw_util
  use m_hecmw_comm_f
  use hecmw_matrix_misc
  use hecmw_solver_scaling_33
  use hecmw_solver_scaling_44
  use hecmw_solver_scaling_66
  use hecmw_solver_scaling_nn
  implicit none
 
  public :: hecmw_solver_scaling_fw
  public :: hecmw_solver_scaling_bk
 
contains
 
  subroutine hecmw_solver_scaling_fw(hecMESH, hecMAT, COMMtime)
    implicit none
    type (hecmwst_local_mesh), intent(in) :: hecmesh
    type (hecmwst_matrix), intent(inout) :: hecmat
    real(kind=kreal), intent(inout) :: commtime
    select case(hecmat%NDOF)
      case(3)
        call hecmw_solver_scaling_fw_33(hecmesh, hecmat, commtime)
      case(4)
        call hecmw_solver_scaling_fw_44(hecmesh, hecmat, commtime)
      case(6)
        call hecmw_solver_scaling_fw_66(hecmesh, hecmat, commtime)
      case default
        call hecmw_solver_scaling_fw_nn(hecmesh, hecmat, commtime)
    end select
  end subroutine hecmw_solver_scaling_fw
 
  subroutine hecmw_solver_scaling_bk(hecMAT)
    use hecmw_util
    implicit none
    type (hecmwst_matrix), intent(inout) :: hecmat
    select case(hecmat%NDOF)
      case(3)
        call hecmw_solver_scaling_bk_33(hecmat)
      case(4)
        call hecmw_solver_scaling_bk_44(hecmat)
      case(6)
        call hecmw_solver_scaling_bk_66(hecmat)
      case default
        call hecmw_solver_scaling_bk_nn(hecmat)
    end select
 
  end subroutine hecmw_solver_scaling_bk
 
end module hecmw_solver_scaling