!#######################################################################
!     MODULE PROGRAM  --- mod_parameter_5phase_eos ---               ###
!#######################################################################
!                                                                    ###
!     Parameter and Variable Sets for 5-Phase EOS                    ###
!                                                                    ###
!   5-Phase EOS: A Tabular H2O EOS for Shock Physics Codes           ###
!   Reference: Senft and Stewart (2008) MPS 43, 1993-2013.           ###
!                                                                    ###
!                                                         2015/05/28 ###
!#######################################################################

module mod_parameter_5phase_eos

  implicit none

  character(20), parameter :: TABLE_5PHASE_EOS = 'Table_5Phase_EOS.dat'

  real(8), parameter :: SV_MIN_5PHASE = 100.0e0_8   ! Minimum Sound Velocity [m/s]

  integer(4) :: nt_5ph   ! The Number of Temperature Grids
  integer(4) :: nd_5ph   ! The Number of Density Grids

  real(8), allocatable :: d_5ph(:)     ! Density [kg/m3]
  real(8), allocatable :: t_5ph(:)     ! Temperature [K]
  real(8), allocatable :: e_5ph(:,:)   ! Specific Internal Energy [J/kg] (t,d)
  real(8), allocatable :: p_5ph(:,:)   ! Pressure [Pa] (t,d)
  real(8), allocatable :: s_5ph(:,:)   ! Entropy [J/kg/K] (t,d)
  real(8), allocatable :: sv_5ph(:,:)  ! Sound Velocity [m/s] (t,d)

end module mod_parameter_5phase_eos