[Commits] [svn:einsteintoolkit] EOS_Polytrope/trunk/src/ (Rev. 13)

[knarf at cct.lsu.edu]

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