From 9aa5e5f931508af724ccb0ef09676a6db846a2af Mon Sep 17 00:00:00 2001
From: Adam Nelson <nelsonag@umich.edu>
Date: Thu, 4 Apr 2013 09:30:25 -0400
Subject: [PATCH] Found a few more leaks in ACE when doing the pincell problem
 (with many more nuclides), they are all fixed now.

---
 examples/basic/materials.xml  | 3 +++
 examples/pincell/settings.xml | 8 ++++----
 src/ace_header.F90            | 4 ++--
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/examples/basic/materials.xml b/examples/basic/materials.xml
index e50a423112..c99ec0f60f 100644
--- a/examples/basic/materials.xml
+++ b/examples/basic/materials.xml
@@ -5,7 +5,10 @@
 
   <material id="40">
     <density value="4.5" units="g/cc" />
+<!--
     <nuclide name="U-235" ao="1.0" />
+-->
+     <nuclide name="Pu-240" ao="1.0" />
   </material>
 
   <material id="41">
diff --git a/examples/pincell/settings.xml b/examples/pincell/settings.xml
index 443af9cde2..d570cfec4e 100644
--- a/examples/pincell/settings.xml
+++ b/examples/pincell/settings.xml
@@ -3,9 +3,9 @@
 
   <!-- Define how many particles to run and for how many batches -->
   <eigenvalue>
-    <batches>100</batches>
-    <inactive>10</inactive>
-    <particles>1000</particles>
+    <batches>5</batches>
+    <inactive>2</inactive>
+    <particles>100</particles>
   </eigenvalue>
 
   <!-- The starting source is a uniform distribution over the entire pin
@@ -29,4 +29,4 @@
     <dimension>10 10 1</dimension>
   </entropy>
 
-</settings>
\ No newline at end of file
+</settings>
diff --git a/src/ace_header.F90 b/src/ace_header.F90
index 4f26019ded..003db99c92 100644
--- a/src/ace_header.F90
+++ b/src/ace_header.F90
@@ -267,7 +267,7 @@ module ace_header
       if (associated(this % next)) then
         ! recursively clear this item
         call this % next % clear()
-        nullify(this % next)
+        deallocate(this % next)
       end if
       
     end subroutine DistEnergy_clear
@@ -348,7 +348,7 @@ module ace_header
       
       if (associated(this % urr_data)) &
         call this % urr_data % clear()
-        nullify(this % urr_data)
+        deallocate(this % urr_data)
         
       if (associated(this % reactions)) then
         do i = 1, size(this % reactions)