/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* creduce APL2 V1.0.0 *************************************************
* Called by reducef.                                                   *
* Identical in structure to reduce, ireduce produces an integer result.*
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb creduce(oper,identity,rite,axis)
int (*oper)(char, char); /* operator */
int *identity; /* identity value */
Aplcb rite; /* operand */
int axis; /* axis of reduction */
{
	Creduces;
	return(creduces(1,oper,identity,rite,axis));
}