/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* preduce APL2 V1.0.0 *************************************************
* Handles reduce and scan with procedure calls instead of functions to *
* do scalar dyadic processes.                                          *
***********************************************************************/
#define INCLUDES APLCHDEF+FUNSTRUC+APLDERIV+APLCB
#include "includes.h"
Aplcb preduce(dp,rite,axis)
Aplderiv dp; /* function describing reduce function */
Aplcb rite; /* nested APL variable */
int axis;
{
     Preduces;

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