void Quicksort(Dato A[],
int l, int r){
int i,j;
Tipo_Clave v;
if (r>l){
v=A[r].clave;
i=l-1; j=r;
for(;;){
while(A[++i].clave<v);
while(A[--j].clave>v);
if
(i>=j) break;
Intercambia(A[i],A[j]);
}
Intercambia(A[i],A[r]);
quicksort(A,l,i-1);
quicksort(A,i+1,r);
}
}