From 176b92538946d82a0c9001fdd8a8bbd61a94668c Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Fri, 2 Sep 2016 12:57:01 -0500
Subject: [PATCH] Pick nearest URR temperature when using multipole

---
 src/cross_section.F90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/cross_section.F90 b/src/cross_section.F90
index 43e8544960..800552f891 100644
--- a/src/cross_section.F90
+++ b/src/cross_section.F90
@@ -158,9 +158,10 @@ contains
              E <= nuc % multipole % end_E/1.0e6_8) then
           use_mp = .true.
         else
-          ! If using multipole data but outside the RRR, just pick the first
-          ! temperature
-          i_temp = 1
+          ! If using multipole data but outside the RRR, pick the nearest
+          ! temperature. Note that there is no tolerance here, so this
+          ! temperature could be very far off!
+          i_temp = minloc(abs(nuclides(i_nuclide) % kTs - kT), dim=1)
         end if
       else
         ! If not using multipole data, do a linear search on temperature