[lmi-commits] [lmi] valyuta/002 8331a5c 07/65: avoid catastrophic cancellation

[Greg Chicares]

branch: valyuta/002
commit 8331a5c4c2d264beac86e8864e2c54a130d9c4f1
Author: Gregory W. Chicares <gchicares@sbcglobal.net>
Commit: Gregory W. Chicares <gchicares@sbcglobal.net>

    avoid catastrophic cancellation
---
 ihs_avmly.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ihs_avmly.cpp b/ihs_avmly.cpp
index 63dd822..c456430 100644
--- a/ihs_avmly.cpp
+++ b/ihs_avmly.cpp
@@ -202,7 +202,10 @@ void AccountValue::DoMonthDR()
         gross_1035 = External1035Amount + Internal1035Amount;
         }
     double necessary_premium = std::min<double> // round?
-        (GrossPmts[Month] - gross_1035
+        (material_difference // round?
+            (doubleize(GrossPmts[Month])
+            ,doubleize(gross_1035)
+            )
         ,max_necessary_premium
         );
     double unnecessary_premium = material_difference // round?