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)