














































c

















































































 


































































































































































 























































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                















































c
      REAL*8 FUNCTION EOS_Ideal_Fluid_Pressure(rest_mass_density, 
     .                                            specific_internal_ener
     &gy)

      IMPLICIT NONE
      REAL*8 eos_ideal_fluid_gamma
      integer, parameter :: cctki_use_eos_ideal_fluid_gamma = kind(eos_i
     &deal_fluid_gamma)
      COMMON /EOS_Ideal_Fluidrest/eos_ideal_fluid_gamma

      REAL*8 rest_mass_density
      REAL*8 specific_internal_energy

      EOS_Ideal_Fluid_Pressure = (eos_ideal_fluid_gamma - 1.0d0) *
     .   rest_mass_density * specific_internal_energy

      END FUNCTION EOS_Ideal_Fluid_Pressure

c
      REAL*8 FUNCTION EOS_Ideal_Fluid_SpecificIE(rest_mass_density,press
     &ure)

      IMPLICIT NONE
      REAL*8 eos_ideal_fluid_gamma
      integer, parameter :: cctki_use_eos_ideal_fluid_gamma = kind(eos_i
     &deal_fluid_gamma)
      COMMON /EOS_Ideal_Fluidrest/eos_ideal_fluid_gamma

      REAL*8 rest_mass_density
      REAL*8 pressure

      EOS_Ideal_Fluid_SpecificIE = pressure / ((eos_ideal_fluid_gamma - 
     &1.0d0)*
     .   rest_mass_density)

      END FUNCTION EOS_Ideal_Fluid_SpecificIE

c
      REAL*8 FUNCTION EOS_Ideal_Fluid_RestMassDens(specific_internal_ene
     &rgy,
     .    pressure)

      IMPLICIT NONE
      REAL*8 eos_ideal_fluid_gamma
      integer, parameter :: cctki_use_eos_ideal_fluid_gamma = kind(eos_i
     &deal_fluid_gamma)
      COMMON /EOS_Ideal_Fluidrest/eos_ideal_fluid_gamma

      REAL*8 specific_internal_energy
      REAL*8 pressure

      EOS_Ideal_Fluid_RestMassDens = pressure / 
     .   ((eos_ideal_fluid_gamma - 1.0d0)*specific_internal_energy)

      END FUNCTION EOS_Ideal_Fluid_RestMassDens

c
      REAL*8 FUNCTION EOS_Ideal_Fluid_DPressByDRho(rest_mass_density, 
     .      specific_internal_energy)

      IMPLICIT NONE
      REAL*8 eos_ideal_fluid_gamma
      integer, parameter :: cctki_use_eos_ideal_fluid_gamma = kind(eos_i
     &deal_fluid_gamma)
      COMMON /EOS_Ideal_Fluidrest/eos_ideal_fluid_gamma

c
      REAL*8  rest_mass_density
      integer, parameter :: cctki_use_ rest_mass_density = kind( rest_ma
     &ss_density)
      REAL*8 specific_internal_energy

      EOS_Ideal_Fluid_DPressByDRho = (eos_ideal_fluid_gamma - 1.0d0) *
     .   specific_internal_energy

      END FUNCTION EOS_Ideal_Fluid_DPressByDRho

c
      REAL*8 FUNCTION EOS_Ideal_Fluid_DPressByDEps(rest_mass_density, 
     .   specific_internal_energy)

      IMPLICIT NONE
      REAL*8 eos_ideal_fluid_gamma
      integer, parameter :: cctki_use_eos_ideal_fluid_gamma = kind(eos_i
     &deal_fluid_gamma)
      COMMON /EOS_Ideal_Fluidrest/eos_ideal_fluid_gamma

      REAL*8 rest_mass_density
c
      REAL*8  specific_internal_energy
      integer, parameter :: cctki_use_ specific_internal_energy = kind( 
     &specific_internal_energy)

      EOS_Ideal_Fluid_DPressByDEps = (eos_ideal_fluid_gamma - 1.0d0) *
     .   rest_mass_density

      END FUNCTION EOS_Ideal_Fluid_DPressByDEps
