diff options
-rw-r--r-- | src/EOS_Hybrid.F | 9 | ||||
-rw-r--r-- | src/EOS_Hybrid_Analysis.F | 3 |
2 files changed, 7 insertions, 5 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 diff --git a/src/EOS_Hybrid_Analysis.F b/src/EOS_Hybrid_Analysis.F index 9f82a41..e0a9dac 100644 --- a/src/EOS_Hybrid_Analysis.F +++ b/src/EOS_Hybrid_Analysis.F @@ -39,8 +39,7 @@ CCTK_INT :: i,j,k - CCTK_REAL local_eos_gamma, local_eos_k_cgs, d_p_poly, d_p_th_1, - . d_p_th_2, zero + CCTK_REAL local_eos_gamma, local_eos_k_cgs do k = 1, cctk_lsh(3) do j = 1, cctk_lsh(2) |