Fixed typo in subroutine name

MintonGroup · Oct 22, 2021 · c37c73d · c37c73d
1 parent ed2bdaf
commit c37c73d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)