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

     return(grade(rite,0));
}