From c63645e0742174afe732d8089e632994a22d4442 Mon Sep 17 00:00:00 2001 From: knarf Date: Mon, 8 Feb 2010 22:10:58 +0000 Subject: Optimize code instead of letting the compiler to do that (which apparently does not do this). This Patch is from Peter Diener. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Polytrope/trunk@3 e0339e42-4067-4b95-aae0-d9cd08a24254 --- src/EOS_Polytrope.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/EOS_Polytrope.F b/src/EOS_Polytrope.F index feda337..122328c 100644 --- a/src/EOS_Polytrope.F +++ b/src/EOS_Polytrope.F @@ -64,7 +64,7 @@ CCTK_REAL rho, press, EOS_Polytrope_Pressure EOS_Polytrope_SpecificIE = EOS_Polytrope_Pressure(rho, press) - . / rho / (eos_gamma - 1.d0) + . / ( rho * (eos_gamma - 1.d0) ) end function EOS_Polytrope_SpecificIE -- cgit v1.2.3