From fbb705359e6c5d2591b95eb1e2c50ea922ae4f50 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Mon, 27 Feb 2012 11:33:06 -0800 Subject: [PATCH] fixed calculation of source distribution --- src/cmfd_data.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmfd_data.F90 b/src/cmfd_data.F90 index f1b54482f4..64a0698467 100644 --- a/src/cmfd_data.F90 +++ b/src/cmfd_data.F90 @@ -189,7 +189,7 @@ contains ! bank source cmfd % openmc_src(g,i,j,k) = cmfd % openmc_src(g,i,j,k) + & - & cmfd % nfissxs(h,g,i,j,k) + & t % scores(score_index,2) % val end do INGROUP