diff options
| author | knarf <knarf@e0339e42-4067-4b95-aae0-d9cd08a24254> | 2012-11-21 20:02:19 +0000 |
|---|---|---|
| committer | knarf <knarf@e0339e42-4067-4b95-aae0-d9cd08a24254> | 2012-11-21 20:02:19 +0000 |
| commit | b5d929b5f1c2d20c9677b83d4e4fd63c2cbce742 (patch) | |
| tree | 085c1156246aa802ab23b1c2a7eeb36703ec3183 | |
| parent | c63645e0742174afe732d8089e632994a22d4442 (diff) | |
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Polytrope/trunk@13 e0339e42-4067-4b95-aae0-d9cd08a24254
| -rw-r--r-- | src/EOS_Polytrope.F | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/EOS_Polytrope.F b/src/EOS_Polytrope.F index 122328c..c9fd9b4 100644 --- a/src/EOS_Polytrope.F +++ b/src/EOS_Polytrope.F @@ -33,7 +33,8 @@ implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_REAL rho + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Polytrope_Pressure = p_geom_factor * eos_k_cgs * . (rho * rho_geom_factor_inv) ** eos_gamma @@ -116,7 +117,8 @@ implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_REAL rho + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Polytrope_DPressByDRho = p_geom_factor * eos_k_cgs * . eos_gamma * rho_geom_factor_inv * @@ -145,7 +147,8 @@ implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_DECLARE(CCTK_REAL, rho, ) + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Polytrope_DPressByDEps = 0.d0 |