From d8af37eef73d0cc30e59f1f0a24c95bc9f98a2f6 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Wed, 30 Nov 2011 20:58:43 -0500
Subject: [PATCH] Added energy grid summary on output.

---
 src/output.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/output.f90 b/src/output.f90
index d2c7b0e79d..d5eb843da3 100644
--- a/src/output.f90
+++ b/src/output.f90
@@ -704,6 +704,12 @@ contains
        end do
     end if
 
+    ! print summary of unionized energy grid
+    call header("UNIONIZED ENERGY GRID")
+    write(ou,*) "Points on energy grid:  " // trim(int_to_str(n_grid))
+    write(ou,*) "Extra storage required: " // trim(int_to_str(&
+         n_grid*n_nuclides_total*4)) // " bytes"
+
     ! print summary of variance reduction
     call header("VARIANCE REDUCTION")
     if (survival_biasing) then