From 24f33cbe6a9094c41d30b264468ba6651cd019a1 Mon Sep 17 00:00:00 2001
From: daminton <daminton@purdue.edu>
Date: Fri, 3 Feb 2017 16:06:16 +0000
Subject: [PATCH] Expanded util_search to work with single column arrays

---
 src/util/module_util.f90 | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/util/module_util.f90 b/src/util/module_util.f90
index f099304d..e3757ce7 100644
--- a/src/util/module_util.f90
+++ b/src/util/module_util.f90
@@ -143,6 +143,15 @@ subroutine util_search_double(arr,ind,n,val,k)
    real(DP),intent(in) :: val
    integer(I4B),intent(out) :: k
    end subroutine util_search_double
+   
+   subroutine util_search_double_1(arr,ind,n,val,k)
+   use module_globals
+   implicit none
+   integer(I4B),intent(in) :: ind,n
+   real(DP),dimension(:),intent(in) :: arr
+   real(DP),intent(in) :: val
+   integer(I4B),intent(out) :: k
+   end subroutine util_search_double_1
 
    subroutine util_search_int(arr,ind,n,val,k)
    use module_globals