From cb90da9408e338cdcfb4f929fce24d0dab2bd327 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Fri, 30 Sep 2011 13:42:42 -0400
Subject: [PATCH] Changed lookup of nuclide grid index and interpolation factor
 in collision subroutine.

---
 src/physics.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/physics.f90 b/src/physics.f90
index e1dd6b8a76..fae0bfbc01 100644
--- a/src/physics.f90
+++ b/src/physics.f90
@@ -318,10 +318,10 @@ contains
        prob = prob + sigma
     end do
 
-    ! Get table, total xs, interpolation factor
+    ! Get pointer to table, nuclide grid index and interpolation factor
     nuc => nuclides(index_nuclide)
-    IE = nuc%grid_index(p % IE)
-    f = (p%E - nuc%energy(IE))/(nuc%energy(IE+1) - nuc%energy(IE))
+    IE  =  micro_xs(index_nuclide) % index_grid
+    f   =  micro_xs(index_nuclide) % interp_factor
 
     ! sample reaction channel
     cutoff = rang() * sigma / atom_density