From c37c73d756ea1c7c15c1106319e7bfc73ee3c4af Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Fri, 22 Oct 2021 16:35:04 -0400
Subject: [PATCH] Fixed typo in subroutine name

---
 src/util/util_sort.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/util/util_sort.f90 b/src/util/util_sort.f90
index 9cf89faee..a662eb52c 100644
--- a/src/util/util_sort.f90
+++ b/src/util/util_sort.f90
@@ -177,7 +177,7 @@ pure subroutine partition_DP(arr, marker, ind)
       end do
   
       return
-   end subroutine Partition_index_DP
+   end subroutine Partition_DP
  
 
    module pure subroutine util_sort_i4b(arr)