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

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