Function internalstatheapsort

src/descriptivestatistics.cpp:347–419

static void internalstatheapsort(ap::real_1d_array& arr, int n)
{
    int i;
    int k;
    int t;
    double tmp;

    if( n==1 )
    {
        return;
    }
    i = 2;
    do
    {
        t = i;
        while(t!=1)
        {
            k = t/2;
            if( ap::fp_greater_eq(arr(k-1),arr(t-1)) )
            {
                t = 1;
            }
            else
            {
                tmp = arr(k-1);
                arr(k-1) = arr(t-1);
                arr(t-1) = tmp;
                t = k;
            }
        }
        i = i+1;
    }
    while(i<=n);
    i = n-1;
    do
    {
        tmp = arr(i);
        arr(i) = arr(0);
        arr(0) = tmp;
        t = 1;
        while(t!=0)
        {
            k = 2*t;
            if( k>i )
            {
                t = 0;
            }
            else
            {
                if( k<i )
                {
                    if( ap::fp_greater(arr(k),arr(k-1)) )
                    {
                        k = k+1;
                    }
                }
                if( ap::fp_greater_eq(arr(t-1),arr(k-1)) )
                {