/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* gradedn2 APL2 V1.0.0*************************************************
* Obtains indices that sort an APL variable of numeric type in         *
* descending sequence.                                                 *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb gradedn2(left,rite)
Aplcb left,rite;
{
     Grade; Grade2;

	if (left == NULL)
		return(grade(rite,0));
     return(grade2(left,rite,0));
}