From 02a727748f0465e9b5fc4732942bb2fa208c55d7 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Fri, 9 Dec 2011 16:09:52 -0500
Subject: [PATCH] Fixed binary_search when list value was same as search value.

---
 src/search.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/search.F90 b/src/search.F90
index 2d3c0cc3de..46bbd89f07 100644
--- a/src/search.F90
+++ b/src/search.F90
@@ -48,7 +48,7 @@ contains
        ! Find values at midpoint
        array_index = L + (R - L)/2
        testval = array(array_index)
-       if (val > testval) then
+       if (val >= testval) then
           L = array_index
        elseif (val < testval) then
           R = array_index