nmsh.f90

Go to the documentation of this file.

 
module nmsh
  use num_types, only : dp
  implicit none
  private
 
  type, private :: nmsh_t
     integer :: el_idx
  end type nmsh_t
 
  type, private :: nmsh_vertex_t
     integer :: v_idx
     real(kind=dp), dimension(3) :: v_xyz ! Vertex coordinates
  end type nmsh_vertex_t
 
  type, public, extends(nmsh_t) :: nmsh_quad_t
     type(nmsh_vertex_t), dimension(4) :: v
  end type nmsh_quad_t
 
  type, public, extends(nmsh_t) :: nmsh_hex_t
     type(nmsh_vertex_t), dimension(8) :: v
  end type nmsh_hex_t
 
  type, public :: nmsh_zone_t
     integer :: e
     integer :: f
     integer :: p_e
     integer :: p_f
     integer, dimension(4) :: glb_pt_ids
     integer :: type
  end type nmsh_zone_t
 
  type, public :: nmsh_curve_el_t
     integer :: e
     real(kind=dp), dimension(5,12) :: curve_data 
     integer, dimension(12) :: type
  end type nmsh_curve_el_t
 
 
end module nmsh