blob: 2995393256046a913f7ea8e9a16b0d6f62111df4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#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
|