From 5e23c26de343f5b35c906e38b08a2935a4094d76 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Thu, 5 Jul 2012 15:14:25 -0400
Subject: [PATCH] Removed storage of heating cross sections.

---
 src/ace.F90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/ace.F90 b/src/ace.F90
index 40bf6b16b1..948e92d9d8 100644
--- a/src/ace.F90
+++ b/src/ace.F90
@@ -314,7 +314,6 @@ contains
     allocate(nuc % fission(NE))
     allocate(nuc % nu_fission(NE))
     allocate(nuc % absorption(NE))
-    allocate(nuc % heating(NE))
 
     ! initialize cross sections
     nuc % total      = ZERO
@@ -322,7 +321,6 @@ contains
     nuc % fission    = ZERO
     nuc % nu_fission = ZERO
     nuc % absorption = ZERO
-    nuc % heating    = ZERO
 
     ! Read data from XSS -- only the energy grid, elastic scattering and heating
     ! cross section values are actually read from here. The total and absorption
@@ -336,7 +334,6 @@ contains
 
     ! Continue reading elastic scattering and heating
     nuc % elastic = get_real(NE)
-    nuc % heating = get_real(NE)
     
   end subroutine read_esz