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

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