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)