[Commits] [svn:einsteintoolkit] EOS_Hybrid/trunk/src/ (Rev. 15)

knarf at cct.lsu.edu knarf at cct.lsu.edu
Wed Nov 21 14:17:26 CST 2012


User: knarf
Date: 2012/11/21 02:17 PM

Modified:
 /trunk/src/
  EOS_Hybrid.F, EOS_Hybrid_Analysis.F

Log:
 remove unused variables or declare them as such

File Changes:

Directory: /trunk/src/
======================

File [modified]: EOS_Hybrid.F
Delta lines: +6 -3
===================================================================
--- trunk/src/EOS_Hybrid.F	2012-11-05 14:45:43 UTC (rev 14)
+++ trunk/src/EOS_Hybrid.F	2012-11-21 20:17:26 UTC (rev 15)
@@ -60,7 +60,8 @@
       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 @@
       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 @@
       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
 

File [modified]: EOS_Hybrid_Analysis.F
Delta lines: +1 -2
===================================================================
--- trunk/src/EOS_Hybrid_Analysis.F	2012-11-05 14:45:43 UTC (rev 14)
+++ trunk/src/EOS_Hybrid_Analysis.F	2012-11-21 20:17:26 UTC (rev 15)
@@ -39,8 +39,7 @@
       CCTK_INT :: i,j,k
 
 
-      CCTK_REAL local_eos_gamma, local_eos_k_cgs, d_p_poly, d_p_th_1,
-     .     d_p_th_2, zero
+      CCTK_REAL local_eos_gamma, local_eos_k_cgs
 
       do k = 1, cctk_lsh(3)
         do j = 1, cctk_lsh(2)



More information about the Commits mailing list