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

fixed bug in score surface current when using energy in filter

Browse source
This commit is contained in:
Bryan Herman 2012-04-10 10:13:02 -07:00
parent 33ebeedd78
commit 298db8f2b5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/tally.F90
View file

@ -1032,11 +1032,11 @@ contains
n = t % n_filter_bins(FILTER_ENERGYIN)
if (n > 0) then
! check if energy of the particle is within energy bins
if (p % last_E < t % energy_in(1) .or. &
p % last_E > t % energy_in(n + 1)) cycle
if (p % E < t % energy_in(1) .or. &
p % E > t % energy_in(n + 1)) cycle
! search to find incoming energy bin
bins(SURF_FILTER_ENERGYIN) = binary_search(t % energy_in, n + 1, p % last_E)
bins(SURF_FILTER_ENERGYIN) = binary_search(t % energy_in, n + 1, p % E)
else
bins(SURF_FILTER_ENERGYIN) = 1
end if