From 69a77caf1b2035d60efc91544cb38b8874b5bd23 Mon Sep 17 00:00:00 2001
From: Patrick Shriwise <pshriwise@gmail.com>
Date: Mon, 21 Jan 2019 13:57:11 -0600
Subject: [PATCH] Fixing off-by-one error in material/temp indexing when
 crossing surfaces in DAGMC.

---
 src/tracking.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tracking.F90 b/src/tracking.F90
index bf8332852d..965f57c068 100644
--- a/src/tracking.F90
+++ b/src/tracking.F90
@@ -498,8 +498,8 @@ 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(1)
-      p % sqrtKT = cells(i_cell) % sqrtKT(1)
+      p % material = cells(i_cell) % material(0)
+      p % sqrtKT = cells(i_cell) % sqrtKT(0)
       return
     end if
 #endif