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 /src/EOS_Hybrid.F | |
parent | 1f7c7363a05c425ab674a303011eb101d8f34c9f (diff) |
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Hybrid/trunk@15 9c56c927-b35f-42c5-a3f6-df2e9f55b230
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 |