Простое двухпутевое слияние.Сортировка. Реализация

int s,p,i,j,k,l,d,q,r;
    s=0; p=1;
    Label2:
    if(s==0){i=1;j=n;k=n;l=2*n+1;}
    if(s==1){i=n+1;j=2*n;k=0;l=n+1;}
    d=1; q=p; r=p;
    Label3:
    if(a[i]>a[j])
        goto Label8;
    k+=d;
    a[k]=a[i];
    i++; q--;
    if(q>0)
        goto Label3;
    Label6:
    k+=d;
    if(k==l)
        goto Label13;
    a[k]=a[j];
    j--; r--;
    if(r>0)
        goto Label6;
    else
        goto Label12;
    Label8:
    k+=d;
    a[k]=a[j];
    j--; r--;
    if(r>0)
        goto Label3;
    Label10:
    k+=d;
    if(k==l)
        goto Label13;
    a[k]=a[i];
    i++; q--;
    if(q>0)
        goto Label10;
    Label12:
    q=p; q=r; d=-d;
    swap(k,l);
    if(j-i<p)
        goto Label10;
    else
        goto Label3;
    Label13:
    p+=p;
    if(p<n)
    {
        s=1-s;
        goto Label2;
    }
    if(s==0)
    {
        for(int t=1;t<=n;t++)
            a[t]=a[t+n];
    }