diff options
Diffstat (limited to 'src/EOS_Hybrid.F')
-rw-r--r-- | src/EOS_Hybrid.F | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/EOS_Hybrid.F b/src/EOS_Hybrid.F index c74af75..bfcb3ca 100644 --- a/src/EOS_Hybrid.F +++ b/src/EOS_Hybrid.F @@ -60,7 +60,8 @@ c The specific internal energy isn''t correct yet implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, press + CCTK_DECLARE(CCTK_REAL, rho, ) + CCTK_DECLARE(CCTK_REAL, press, ) c$$$ if (rho > rho_nuc) then c$$$ EOS_Hybrid_SpecificIE = eos_k_cgs / (eos_gamma_2 - 1.d0) * @@ -85,7 +86,8 @@ c The rest mass density isn''t correct yet implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL eps, press + CCTK_DECLARE(CCTK_REAL, eps, ) + CCTK_DECLARE(CCTK_REAL, press, ) EOS_Hybrid_RestMassDens = 1.23456789d0 @@ -137,7 +139,8 @@ c The rest mass density isn''t correct yet implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_REAL rho + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Hybrid_DPressByDEps = (eos_gamma_th - 1.d0) * rho |