From b5d929b5f1c2d20c9677b83d4e4fd63c2cbce742 Mon Sep 17 00:00:00 2001 From: knarf Date: Wed, 21 Nov 2012 20:02:19 +0000 Subject: get rid of some compiler warnings about unused function arguments git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Polytrope/trunk@13 e0339e42-4067-4b95-aae0-d9cd08a24254 --- src/EOS_Polytrope.F | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3