/****************************************************

             SUBROUTINE COMPAREM

 COMPAREM IS USED BY QSORT AS A GUIDE TO SORT AN ARRAY.

 IF A RETURNED VALUE IS -1, THE POSITION OF THE TWO COMPARED
 PARAMETERS IS SWITCHED.  IF THE RETURNED VALUE IS 0 OR 1,
 NOTHING IS DONE.

*******************************************************/

 int comparem( 

 const void *e1,      /* FIRST VALUE TO COMPARE */

 const void *e2       /* SECOND VALUE TO COMPARE */

              )
{

/****************************************************

 I - RETURNED VALUE:

     -1 IF E1 < E2
      0 IF E1 = E2
      1 IF E1 > E2

*****************************************************/
    
   int i = 0;  
   int eone = *(int *)e1;
   int etwo = *(int *)e2;

   if ( eone < etwo ) i = -1;
   else if ( eone > etwo ) i = 1;

   return i;
}