From dc13a47dda8683270bc670c01e100e4e0ba3c4c3 Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Tue, 25 Aug 2015 20:39:09 -0400 Subject: [PATCH] Added check to make sure mu was between -1 and 1 to help with tallying. This will probably result in changes to the tests. --- src/physics.F90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/physics.F90 b/src/physics.F90 index 9ca59a9872..043bea6911 100644 --- a/src/physics.F90 +++ b/src/physics.F90 @@ -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