quick_sort_real Subroutine

public recursive subroutine quick_sort_real(arr, low, high)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(inout) :: arr(:)
integer, intent(in) :: low
integer, intent(in) :: high

Source Code

    recursive subroutine quick_sort_real(arr, low, high)
        real(rk), intent(inout) :: arr(:)
        integer, intent(in) :: low, high
        integer :: pivot_index

        if (low < high) then
            pivot_index = partition_real(arr, low, high)
            call quick_sort_real(arr, low, pivot_index - 1)
            call quick_sort_real(arr, pivot_index + 1, high)
        end if
    end subroutine quick_sort_real