re2.f90

Go to the documentation of this file.

 
module re2
  use num_types
  implicit none
 
  integer, parameter :: re2_hdr_size = 80
 
  real(kind=sp), parameter :: re2_endian_test = 6.54321
 
  type :: re2v1_t
     real(kind=sp) :: rgroup
  end type re2v1_t
 
  type, public, extends(re2v1_t) :: re2v1_xyz_t
     real(kind=sp), dimension(8) :: x
     real(kind=sp), dimension(8) :: y
     real(kind=sp), dimension(8) :: z
  end type re2v1_xyz_t
 
  type, public, extends(re2v1_t) :: re2v1_xy_t
     real(kind=sp), dimension(4) :: x
     real(kind=sp), dimension(4) :: y
  end type re2v1_xy_t
 
  type, public :: re2v1_curve_t
     integer :: elem
     integer :: zone
     real(kind=sp), dimension(5) :: point
     character(len=4) :: type
  end type re2v1_curve_t
 
  type, public :: re2v1_bc_t
     integer :: elem
     integer :: face
     real(kind=sp), dimension(5) :: bc_data
     character(len=4) :: type
  end type re2v1_bc_t
 
  type :: re2v2_t
     real(kind=dp) :: rgroup
  end type re2v2_t
 
  type, public, extends(re2v2_t) :: re2v2_xyz_t
     real(kind=dp), dimension(8) :: x
     real(kind=dp), dimension(8) :: y
     real(kind=dp), dimension(8) :: z
  end type re2v2_xyz_t
 
  type, public, extends(re2v1_t) :: re2v2_xy_t
     real(kind=dp), dimension(4) :: x
     real(kind=dp), dimension(4) :: y
  end type re2v2_xy_t
 
  type, public :: re2v2_curve_t
     real(kind=dp) :: elem
     real(kind=dp) :: zone
     real(kind=dp), dimension(5) :: point
     character(len=8) :: type
  end type re2v2_curve_t
 
  type, public :: re2v2_bc_t
     real(kind=dp) :: elem
     real(kind=dp) :: face
     real(kind=dp), dimension(5) :: bc_data
     character(len=8) :: type
  end type re2v2_bc_t
 
end module re2