From 340fc0f4c8404fd558bf05171dc6f68dde880fa1 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Sun, 1 Apr 2012 20:35:48 -0700 Subject: [PATCH] changed count fission sites to bank sites and fixed arguments --- src/cmfd_execute.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/cmfd_execute.F90 b/src/cmfd_execute.F90 index b71e7e1d6..41cfbf94b 100644 --- a/src/cmfd_execute.F90 +++ b/src/cmfd_execute.F90 @@ -341,7 +341,6 @@ contains integer :: ng ! maximum number of energy groups integer :: i ! iteration counter integer :: ijk(3) ! spatial bin location - real(8) :: total ! total weight of sites logical :: outside ! any source sites outside mesh logical :: in_mesh ! source site is inside mesh type(StructuredMesh), pointer :: m ! point to mesh @@ -365,7 +364,7 @@ contains cmfd%weightfactors = 0.0_8 ! count bank sites in mesh - call count_bank_sites(m,source_bank,cmfd%sourcecounts,total,cmfd%egrid,sites_outside=outside) + call count_bank_sites(m,source_bank,cmfd%sourcecounts,cmfd%egrid,sites_outside=outside) ! check for source sites outside of mesh if (outside) then