From a71840707448ec3c0521c2d709c48ce4c98b2532 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Mon, 26 Mar 2012 09:19:35 -0400
Subject: [PATCH] Fixed bug for nuclides appearing with and without S(a,b)
 tables. Closes #82 on github.

---
 src/cross_section.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cross_section.F90 b/src/cross_section.F90
index b43283e037..aa155eefe7 100644
--- a/src/cross_section.F90
+++ b/src/cross_section.F90
@@ -188,7 +188,7 @@ contains
     end if
 
     ! Set last evaluated energy
-    micro_xs(index_nuclide) % last_E = p % E
+    if (index_sab == 0) micro_xs(index_nuclide) % last_E = p % E
 
   end subroutine calculate_nuclide_xs