From 04e2c1960b76ca6151402f22eb28ff0f446efa31 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 24 Jun 2015 16:18:37 +0700
Subject: [PATCH] Fix potential bug in sample_nuclide routine. Thanks to
 @mellis13 for reporting.

---
 src/physics.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/physics.F90 b/src/physics.F90
index 0b276c9fc6..4e94ea2261 100644
--- a/src/physics.F90
+++ b/src/physics.F90
@@ -142,7 +142,7 @@ contains
     case ('total')
       cutoff = prn() * material_xs % total
     case ('scatter')
-      cutoff = prn() * material_xs % total - material_xs % absorption
+      cutoff = prn() * (material_xs % total - material_xs % absorption)
     case ('fission')
       cutoff = prn() * material_xs % fission
     end select