diff options
author | knarf <knarf@9c56c927-b35f-42c5-a3f6-df2e9f55b230> | 2012-11-21 20:17:26 +0000 |
---|---|---|
committer | knarf <knarf@9c56c927-b35f-42c5-a3f6-df2e9f55b230> | 2012-11-21 20:17:26 +0000 |
commit | dca155057cce66fa2d6a093f1935e905cb100d91 (patch) | |
tree | c18a45a14638a859ef241f34c3b8ec4b324db652 | |
parent | 1f7c7363a05c425ab674a303011eb101d8f34c9f (diff) |
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Hybrid/trunk@15 9c56c927-b35f-42c5-a3f6-df2e9f55b230
-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) |