/*@@
   @file      EOS_GeneralHybrid_Setup.F90
   @date      
   @author    Ian Hawke, Christian D. Ott
   @desc 
   Startup for EOS_Hybrid. 
   @enddesc 
 @@*/

#include "cctk.h"
#include "cctk_Parameters.h"

 /*@@
   @routine    EOS_GeneralHybrid_Setup
   @date       
   @author     Ian Hawkem, Christian d. Ott
   @desc 
   Setup EOS_HybridScalars
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 
@@*/

subroutine EOS_GeneralHybrid_Setup()

  USE EOS_GP_Scalars
  USE EOS_GeneralHybrid_Scalars

  implicit none

  DECLARE_CCTK_PARAMETERS
  
  
  eos_k_supernuclear_cgs = eos_k_cgs * (rho_nuc * rho_geom_factor_inv)** &
       (eos_gamma - eos_gamma_supernuclear)

end subroutine EOS_GeneralHybrid_Setup