Added check to make sure mu was between -1 and 1 to help with tallying. This will probably result in changes to the tests.

This commit is contained in:
Adam Nelson 2015-08-25 20:39:09 -04:00
parent a64255bdc8
commit dc13a47dda

View file

@ -388,6 +388,13 @@ contains
end if
! Check p % mu to ensure it falls within the expected range
if (p % mu < -ONE) then
p % mu = -ONE
else if (p % mu > ONE) then
p % mu = ONE
end if
! Set event component
p % event = EVENT_SCATTER