From 9fd8bd3fcf3c417f4dba83557e16139ba1a0d3c9 Mon Sep 17 00:00:00 2001
From: guillaume <g_giud@mit.edu>
Date: Thu, 13 Jul 2017 23:19:06 -0400
Subject: [PATCH] better that way

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

diff --git a/src/tally_filter.F90 b/src/tally_filter.F90
index 9068306113..1e40c409fc 100644
--- a/src/tally_filter.F90
+++ b/src/tally_filter.F90
@@ -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