#include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" #include "cctk_Functions.h" subroutine EOS_Omni_Startup(CCTK_ARGUMENTS) use EOS_Omni_Module implicit none DECLARE_CCTK_PARAMETERS DECLARE_CCTK_ARGUMENTS hybrid_k2 = hybrid_k1 * & hybrid_rho_nuc**(hybrid_gamma1-hybrid_gamma2) end subroutine EOS_Omni_Startup