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

Merge pull request #703 from smharper/oo_filters

Browse source 
Fix mesh filter max iterator check
This commit is contained in:
Paul Romano 2016-08-13 16:37:30 -05:00 • committed by GitHub
commit e0525d9425
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/tally_filter.F90
View file

@ -295,8 +295,12 @@ contains
search_iter = 0
do while (any(ijk0(:m % n_dimension) < 1) &
.or. any(ijk0(:m % n_dimension) > m % dimension))
if (search_iter == MAX_SEARCH_ITER) call fatal_error("Failed to &
&find a mesh intersection on a tally mesh filter.")
if (search_iter == MAX_SEARCH_ITER) then
call warning("Failed to find a mesh intersection on a tally mesh &
&filter.")
next_bin = NO_BIN_FOUND
return
end if
do j = 1, m % n_dimension
if (abs(uvw(j)) < FP_PRECISION) then
@ -315,6 +319,8 @@ contains
else
ijk0(j) = ijk0(j) - 1
end if
search_iter = search_iter + 1
end do
distance = d(j)
xyz0 = xyz0 + distance * uvw