/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* nreduce APL2 V1.0.0 *************************************************
* Called from reducef when argument is a nested APL variable.          *
***********************************************************************/
#define INCLUDES APLCHDEF+FUNSTRUC+APLDERIV+APLCB
#include "includes.h"
Aplcb nreduce(dp,rite,axis)
Aplderiv dp; /* function describing reduce function */
Aplcb rite; /* nested APL variable */
int axis;
{
     Nreduces;

	return(nreduces(1,dp,rite,axis));
}