diff options
| author | knarf <knarf@e0339e42-4067-4b95-aae0-d9cd08a24254> | 2010-02-08 22:10:58 +0000 |
|---|---|---|
| committer | knarf <knarf@e0339e42-4067-4b95-aae0-d9cd08a24254> | 2010-02-08 22:10:58 +0000 |
| commit | c63645e0742174afe732d8089e632994a22d4442 (patch) | |
| tree | 3a8f180f3b37308464a01bcc373ad88b5e7cd708 | |
| parent | f7ba48cd52e5ba7243700c04f09c99a439dfdf24 (diff) | |
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
| -rw-r--r-- | src/EOS_Polytrope.F | 2 |
1 files changed, 1 insertions, 1 deletions
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 |