From 13da37de4bc32471bffbd567cfdc6ff46f40ca0f Mon Sep 17 00:00:00 2001
From: Sterling Harper <smharper@mit.edu>
Date: Tue, 2 Aug 2016 08:37:16 -0500
Subject: [PATCH] For real fix unassigned energy in SCORE_PROMPT

---
 src/tally.F90 | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/tally.F90 b/src/tally.F90
index 6e406c93ae..ec46a61940 100644
--- a/src/tally.F90
+++ b/src/tally.F90
@@ -471,16 +471,17 @@ contains
           end if
 
         else
+          ! make sure the correct energy is used
+          if (t % estimator == ESTIMATOR_TRACKLENGTH) then
+            E = p % E
+          else
+            E = p % last_E
+          end if
+
           if (i_nuclide > 0) then
               score = micro_xs(i_nuclide) % fission * nuclides(i_nuclide) % &
                    nu(E, EMISSION_PROMPT) * atom_density * flux
           else
-            ! make sure the correct energy is used
-            if (t % estimator == ESTIMATOR_TRACKLENGTH) then
-              E = p % E
-            else
-              E = p % last_E
-            end if
 
             score = ZERO