From 21682f996ea6fb0fb78e260f5a21a9f9c314acf4 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Mon, 23 Jul 2012 14:26:13 -0400
Subject: [PATCH] Removed redundant storage of total fission reaction.

---
 src/ace.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ace.F90 b/src/ace.F90
index 948e92d9d8..7325e6d3e4 100644
--- a/src/ace.F90
+++ b/src/ace.F90
@@ -638,6 +638,10 @@ contains
           ! Also need to add fission cross sections to absorption
           nuc % absorption(IE:IE+NE-1) = nuc % absorption(IE:IE+NE-1) + rxn % sigma
 
+          ! If total fission reaction is present, there's no need to store the
+          ! reaction cross-section since it was copied to nuc % fission
+          if (rxn % MT == N_FISSION) deallocate(rxn % sigma)
+
           ! Keep track of this reaction for easy searching later
           i_fission = i_fission + 1
           nuc % index_fission(i_fission) = i + 1