From c201a713720917f8aabcd54906ee3c9be2c079a5 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Mon, 30 Jan 2012 19:10:04 -0500
Subject: [PATCH] neutron balance routine now outputs a relative residual

---
 src/cmfd_output.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/cmfd_output.F90 b/src/cmfd_output.F90
index f1136ff849..50184ad53e 100644
--- a/src/cmfd_output.F90
+++ b/src/cmfd_output.F90
@@ -86,6 +86,9 @@ contains
             ! compute residual
             res = leakage + interactions - scattering - (ONE/keff)*fission
 
+            ! normalize by flux
+            res = res/cmfd%flux(g,i,j,k)
+
             ! write output
             label = "MESH (" // trim(int4_to_str(i)) // ". " // &
            & trim(int4_to_str(j)) // ", " // trim(int4_to_str(k)) // &