From 4ab7da72f7003198fa74d439e318ba0ce4becefc Mon Sep 17 00:00:00 2001
From: Ray Speth <speth@mit.edu>
Date: Mon, 7 May 2012 18:20:15 +0000
Subject: [PATCH] Corrected entropy calculations for HFC-134a

---
 src/tpx/HFC134a.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tpx/HFC134a.h b/src/tpx/HFC134a.h
index 13702ae0a..014005ac7 100644
--- a/src/tpx/HFC134a.h
+++ b/src/tpx/HFC134a.h
@@ -27,7 +27,7 @@ public:
     double fp();
     double up();
     double sp() {
-        return (up() - fp())/T + m_entropy_offset;
+        return ((up() - m_energy_offset) - fp())/T + m_entropy_offset;
     }
     double Psat();
     //    double dPsatdT();