From 87ec22d8b0d95b772df47e55c336c6ad7eaa7904 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Sat, 14 Apr 2012 12:52:19 -0700
Subject: [PATCH] fixed call to extract fission src tally

---
 src/cmfd_data.F90 | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/cmfd_data.F90 b/src/cmfd_data.F90
index 86f3bac42b..edec93c9a6 100644
--- a/src/cmfd_data.F90
+++ b/src/cmfd_data.F90
@@ -94,7 +94,8 @@ contains
     cmfd % hxyz(3,:,:,:) = m % width(3) ! set z width
 
     ! begin loop around tallies
-    TAL: do ital = n_user_tallies + 1,n_tallies 
+!   TAL: do ital = n_user_tallies + 1,n_tallies 
+    TAL: do ital = 1,n_tallies
 
       ! associate tallies and mesh
       t => tallies(ital)
@@ -107,6 +108,12 @@ contains
 
           XLOOP: do i = 1,nx
  
+            ! extract accumulated fission source
+            if (ital == 1) then
+              call extract_accum_fsrc(i,j,k)
+              cycle
+            end if
+
             ! check for active mesh cell
             if (allocated(cmfd%coremap)) then
               if (cmfd%coremap(i,j,k) == 99999) then
@@ -114,9 +121,6 @@ contains
               end if
             end if
 
-            ! extract accumulated fission source
-            if (ital == 1) call extract_accum_fsrc(i,j,k)
-
             ! loop around energy groups
             OUTGROUP: do h = 1,ng