partition Function

public function partition(array, left, right, pindex)

Arguments

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

Return Value integer


Called by

proc~~partition~2~~CalledByGraph proc~partition~2 partition proc~quicksorti4~2 quicksortI4 proc~quicksorti4~2->proc~partition~2 proc~quicksorti4~2->proc~quicksorti4~2 proc~user_run~36 user_run proc~user_run~36->proc~quicksorti4~2

Source Code

    function partition(array, left, right, pindex)
        integer, pointer :: array(:)
        integer, intent(in)    :: left, right, pindex

        integer :: partition

        integer :: pvalue, tmp, sindex, i

        pvalue = array(pindex)
        tmp = array(right)
        array(right) = pvalue
        array(pindex) = tmp

        sindex = left

        do i = left, right-1
            if(array(i) .le. pvalue) then
                tmp = array(i)
                array(i) = array(sindex)
                array(sindex) = tmp
                sindex = sindex + 1
            endif
        end do

        tmp = array(sindex)
        array(sindex) = array(right)
        array(right) = tmp
        partition = sindex
    end function partition