From 92e2a16b01568c61876d9c5b9b8142bdbb403d95 Mon Sep 17 00:00:00 2001
From: Sam Shaner <shaner@mit.edu>
Date: Tue, 10 Nov 2015 11:50:17 -0500
Subject: [PATCH] fixed inverse velocity and delayed nu fission score tests

---
 src/tally.F90                                 |  4 +--
 .../results_true.dat                          |  8 ++---
 .../results_true.dat                          | 32 +++++++++----------
 3 files changed, 22 insertions(+), 22 deletions(-)

diff --git a/src/tally.F90 b/src/tally.F90
index a5d7f3f0de..da4e828003 100644
--- a/src/tally.F90
+++ b/src/tally.F90
@@ -152,12 +152,12 @@ contains
           ! Score the flux weighted inverse velocity with velocity in units of
           ! cm/s
           score = score / material_xs % total &
-               / (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0)
+               / (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0_8)
 
         else
           ! For inverse velocity, we don't need a cross section. The velocity is
           ! in units of cm/s.
-          score = flux / (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0)
+          score = flux / (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0_8)
         end if
 
 
diff --git a/tests/test_score_delayed_nufission/results_true.dat b/tests/test_score_delayed_nufission/results_true.dat
index d797baf18c..bc2b8e8a7f 100644
--- a/tests/test_score_delayed_nufission/results_true.dat
+++ b/tests/test_score_delayed_nufission/results_true.dat
@@ -19,11 +19,11 @@ tally 2:
 1.976462E-02
 1.953328E-04
 tally 3:
-1.687894E-02
-5.776176E-05
+1.686299E-02
+5.765477E-05
 0.000000E+00
 0.000000E+00
 0.000000E+00
 0.000000E+00
-1.061803E-02
-2.308636E-05
+1.061240E-02
+2.305936E-05
diff --git a/tests/test_score_inverse_velocity/results_true.dat b/tests/test_score_inverse_velocity/results_true.dat
index f86a8beb5b..8f2f84cc62 100644
--- a/tests/test_score_inverse_velocity/results_true.dat
+++ b/tests/test_score_inverse_velocity/results_true.dat
@@ -10,20 +10,20 @@ tally 1:
 6.354432E-04
 8.370608E-08
 tally 2:
-1.048031E-03
-2.263789E-07
-4.276093E-04
-4.136358E-08
-2.667795E-03
-1.528407E-06
-6.199140E-04
-7.840402E-08
+1.029200E-03
+2.180706E-07
+4.353200E-04
+4.363747E-08
+2.211790E-03
+1.055892E-06
+6.086777E-04
+7.589579E-08
 tally 3:
-1.048031E-03
-2.263789E-07
-4.276093E-04
-4.136358E-08
-2.667795E-03
-1.528407E-06
-6.199140E-04
-7.840402E-08
+1.029200E-03
+2.180706E-07
+4.353200E-04
+4.363747E-08
+2.211790E-03
+1.055892E-06
+6.086777E-04
+7.589579E-08