From a93c72618128f6cff104a420d40caaca88a3edfa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Tessier?=
 <ftessier@users.noreply.github.com>
Date: Wed, 17 Aug 2016 14:05:53 -0400
Subject: [PATCH] Fix #110: correct coefficients in MS subroutine

---
 HEN_HOUSE/src/egsnrc.mortran | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/HEN_HOUSE/src/egsnrc.mortran b/HEN_HOUSE/src/egsnrc.mortran
index 374aad473..4a5dfe05f 100644
--- a/HEN_HOUSE/src/egsnrc.mortran
+++ b/HEN_HOUSE/src/egsnrc.mortran
@@ -4089,7 +4089,7 @@ tau2    = tau*tau;
 epsilon = eloss/e0;
 epsilonp= eloss/e;
 "e       = e * (1 - epsilonp*epsilonp*((6+tau*(10+5*tau))/(tau+1)/(tau+2))/24);
-e       = e * (1 - epsilonp*epsilonp*(6+10*tau+5*tau2)/(24*tau2+48*tau+72));
+e       = e * (1 - epsilonp*epsilonp*(6+10*tau+5*tau2)/(24*tau2+72*tau+48));
 p2      = e*(e + rmt2);
 "p2i     = 1/p2;
 beta2   = p2/(p2 + rmsq);