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

                  FUNCTION COMPARE

 COMPARE IS A FUNCTION USED BY QSORT TO SORT A WRITE2
 STRUCTURE (TWO INTEGERS) BY ITS SECOND INTEGER.

 TWO STRUCTURES ARE COMPARED.  IF THE FIRST IS GREATER THAN
 THE SECOND, A ONE IS RETURNED, IF THE SECOND IS GREATER THAN
 THE FIRST A -1 IS RETURNED, IF THEY ARE THE SAME, A ZERO IS
 RETURNED.  THE GOAL IS TO GET ALL STRUCTURES IN ASCENDING
 ORDER OF THEIR SECOND INTEGER, I.E. ALL V1S GREATER THAN
 ALL V2S.

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

  int compare( const void *e1, const void *e2 )

 {
     int v1 = ((struct write2 *)e1)->rec;
     int v2 = ((struct write2 *)e2)->rec;

     return (v1<v2) ? -1 : (v1>v2) ? 1 : 0;

 }