From ef5d54bc9221bdd94774f0c0bf6bc7a07679f6df Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Tue, 8 Nov 2011 09:01:06 -0500
Subject: [PATCH] added code to set mesh volumes in cmfd object from mesh
 object

---
 src/cmfd_execute.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/cmfd_execute.F90 b/src/cmfd_execute.F90
index eef36472dc..3f1d8a8a7f 100644
--- a/src/cmfd_execute.F90
+++ b/src/cmfd_execute.F90
@@ -27,6 +27,7 @@ contains
     write(100,*) cmfd % p1scattxs 
     write(100,*) cmfd % scattxs
     write(100,*) cmfd % nfissxs
+    write(100,*) cmfd % hxyz
 
     ! compute dtilde terms
     call compute_diffcoef()
@@ -124,6 +125,11 @@ contains
             t => tallies(1)
             m => meshes(t % mesh)
 
+            ! set mesh widths
+            cmfd % hxyz(1,:,:,:) = m % width(1) ! set x width
+            cmfd % hxyz(2,:,:,:) = m % width(2) ! set y width
+            cmfd % hxyz(3,:,:,:) = m % width(3) ! set z width
+
             ! reset all bins to 1
             bins = 1