hecmw2fstr_mesh_conv.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_hecmw2fstr_mesh_conv
  use hecmw
  external hecmw2fstr_connect_conv
 
contains
 
  subroutine hecmw2fstr_mesh_conv( hecMESH )
    implicit none
    type (hecmwST_local_mesh) :: hecMESH
 
    call hecmw2fstr_connect_conv( hecmesh%n_elem,    &
      hecmesh%elem_type,       &
      hecmesh%elem_node_index, &
      hecmesh%elem_node_item )
 
  end subroutine hecmw2fstr_mesh_conv
 
 
  subroutine fstr2hecmw_mesh_conv( hecMESH )
    implicit none
    type (hecmwST_local_mesh) :: hecMESH
 
    call fstr2hecmw_connect_conv( hecmesh%n_elem,    &
      hecmesh%elem_type,       &
      hecmesh%elem_node_index, &
      hecmesh%elem_node_item )
 
  end subroutine fstr2hecmw_mesh_conv
 
end module m_hecmw2fstr_mesh_conv