/* ECP: FILEname=fig9_19.c */
/* 1*/   int
/* 2*/   Comp( const void *Lhs, const void *Rhs )
/* 3*/   {
/* 4*/       int Leftkey  =  ( ( Block * ) Lhs )->Key;
/* 5*/       int Rightkey =  ( ( Block * ) Rhs )->Key;

/* 6*/       return Leftkey < Rightkey ? -1 : Leftkey != Rightkey;
/* 7*/   }


/* 8*/       /* ... */
/* 9*/       Shellsort( P, 2000, sizeof( Block ), Comp );
/*10*/       /* ... */