Expanded util_search to work with single column arrays

MintonGroup · Feb 3, 2017 · 24f33cb · 24f33cb
1 parent 388cf10
commit 24f33cb
Showing 1 changed file with 9 additions and 0 deletions.
diff --git 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