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