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

                SUBROUTINE ARRAYSORT

 ARRAYSORT SORTS AN INTEGER ARRAY BY ASCENDING NUMERICAL VALUE

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

sortarray_(

 int *iarray,              /* ARRAY TO BE SORTED */

 int *nsort                /* NUMBER OF VALUES TO SORT */

          )

{

 qsort( iarray, *nsort, sizeof( int ), comparem );

}