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

better that way

Browse source
This commit is contained in:
guillaume 2017-07-13 23:19:06 -04:00
parent de803633fd
commit 9fd8bd3fcf
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/tally_filter.F90
View file

@ -963,7 +963,7 @@ contains
do i = 1, this % n_bins
if (abs(p % surface) == this % surfaces(i)) then
next_bin = i
weight = sign(ONE, real(p % surface, 8))
weight = sign(1, p % surface)
exit
end if
end do