crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed bug in neighbor searching.

Browse source
This commit is contained in:
Paul Romano 2012-01-19 23:30:33 -05:00
parent 971b2cc8c4
commit 95cfac061d
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/geometry.F90
View file

@ -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