/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* cscan APL2 V1.0.0 ***************************************************
* Called by scanfrnt.                                                  *
* Identical in structure to scan, cscan produces an integer result.    *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb cscan(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));
}