From 95cfac061dc0205f8710fe08de74f23aed4ce2a0 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 19 Jan 2012 23:30:33 -0500 Subject: [PATCH] Fixed bug in neighbor searching. --- src/geometry.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/geometry.F90 b/src/geometry.F90 index 31b40045a2..efcfe45ac2 100644 --- a/src/geometry.F90 +++ b/src/geometry.F90 @@ -124,7 +124,9 @@ contains ! select cells based on whether we are searching a universe or a provided ! list of cells (this would be for lists of neighbor cells) if (use_search_cells) then - index_cell = search_cells(i) + index_cell = search_cells(i) + ! check to make sure search cell is in same universe + if (cells(index_cell) % universe /= p % coord % universe) cycle else index_cell = univ % cells(i) end if