User: knarf Date: 2012/11/21 02:02 PM
Modified: /trunk/src/ EOS_Polytrope.F
Log: get rid of some compiler warnings about unused function arguments
File Changes:
Directory: /trunk/src/ ======================
File [modified]: EOS_Polytrope.F Delta lines: +6 -3 =================================================================== --- trunk/src/EOS_Polytrope.F 2012-11-05 14:45:58 UTC (rev 12) +++ trunk/src/EOS_Polytrope.F 2012-11-21 20:02:19 UTC (rev 13) @@ -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