From c5fdbcdfe0306f52d0678fbbe8cadd04c8ae3ed0 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Tue, 15 May 2012 08:17:54 -0700
Subject: [PATCH] moved a write statement

---
 src/cmfd_output.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmfd_output.F90 b/src/cmfd_output.F90
index a34ec8a0e7..7b357468d6 100644
--- a/src/cmfd_output.F90
+++ b/src/cmfd_output.F90
@@ -88,13 +88,13 @@ contains
 
             ! compute residual
             res = leakage + interactions - scattering - (ONE/keff)*fission
-            write(670,*) 'Location',i,j,k,' Group:',g
+            write(670,*) 'Location',i,j,k,' Group:',g,'Balance:',res
 !           write(670,*) 'Leakage:',leakage
 !           write(670,*) 'Interactions:',interactions
 !           write(670,*) 'Scattering:',scattering
 !           write(670,*) 'Fission:',fission
 !           write(670,*) 'k-eff:',keff
-            write(670,*) 'Balance:',res
+!           write(670,*) 'Balance:',res
 
             ! normalize by flux
             res = res/cmfd%flux(g,i,j,k)