quicksortI4 Subroutine

public recursive subroutine quicksortI4(array, left, right)

Arguments

Type IntentOptional Attributes Name
integer, pointer :: array(:)
integer, intent(in) :: left
integer, intent(in) :: right

Calls

proc~~quicksorti4~4~~CallsGraph proc~quicksorti4~4 quicksortI4 proc~quicksorti4~4->proc~quicksorti4~4 proc~partition~4 partition proc~quicksorti4~4->proc~partition~4

Called by

proc~~quicksorti4~4~~CalledByGraph proc~quicksorti4~4 quicksortI4 proc~quicksorti4~4->proc~quicksorti4~4 proc~user_run~81 user_run proc~user_run~81->proc~quicksorti4~4

Source Code

    recursive subroutine quicksortI4(array, left, right)

        integer, pointer :: array(:)
        integer, intent(in)    :: left, right

        integer :: pindex, npindex
        if(right .gt. left) then
            pindex = left + (right - left)/2
            npindex = partition(array, left, right, pindex)
            call quicksortI4(array, left, npindex-1)
            call quicksortI4(array, npindex+1, right)
        endif
    end subroutine quicksortI4