/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* ireduce APL2 V1.0.0 *************************************************
* Called by expand, indexm, transpot, and transpou.                    *
* Identical in structure to reduce, ireduce produces an integer result.*
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb ireduce(oper,identity,rite,axis)
int (*oper)(); /* operator */
int *identity; /* identity value */
Aplcb rite; /* operand */
int axis; /* axis of reduction */
{
	Ireduces;

	return(ireduces(1,oper,identity,rite,axis));
}