From 301756675086bc4d8a6eadf5a4fe3b4dde4f6a05 Mon Sep 17 00:00:00 2001 From: Patrick Shriwise Date: Thu, 31 Jan 2019 13:19:56 -0600 Subject: [PATCH] Fixing temperature indexing and updating dagmc test results. --- src/tracking.F90 | 2 +- tests/regression_tests/dagmc/results_true.dat | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/tracking.F90 b/src/tracking.F90 index 965f57c068..633d9bfe7c 100644 --- a/src/tracking.F90 +++ b/src/tracking.F90 @@ -498,7 +498,7 @@ contains ! set new cell value p % coord(1) % cell = i_cell-1 ! decrement for C++ indexing p % cell_instance = 1 - p % material = cells(i_cell) % material(0) + p % material = cells(i_cell) % material(1) p % sqrtKT = cells(i_cell) % sqrtKT(0) return end if diff --git a/tests/regression_tests/dagmc/results_true.dat b/tests/regression_tests/dagmc/results_true.dat index c32e102ced..36475c5bf4 100644 --- a/tests/regression_tests/dagmc/results_true.dat +++ b/tests/regression_tests/dagmc/results_true.dat @@ -1,5 +1,5 @@ k-combined: -1.301275E+00 2.231721E-01 +1.028803E+00 3.340602E-02 tally 1: -6.809913E+00 -1.171102E+01 +8.346847E+00 +1.453407E+01