do { impar=j%2; for (i=0;i0) v[i/2]=AB_CrArb(v[i],v[i],v[i+1]); else v[i/2]=AB_CrArb(v[i+1],v[i],v[i+1]); } if (impar) v[j/2]=AB_CrArb(v[j-1],NULL,v[j-1]); j=j/2+j%2; } while (j>1);