/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* ireduces APL2 V1.0.0 ************************************************
* Called by ireduce and iscan.                                         *
* Identical in structure to reducesb, but produces an integer result.  *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
#define SUBRTNE ireduces
#define DATATYPE int
#define APLTYPE APLINT
#define CONVERT integer
#define COPYSUB intcopy
#define DATAPTR aplint
#include "reduces.h"