/* Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* scan APL2 V1.0.0 ****************************************************
* Call format to scan is - c=scan(operator,identity,operand,axis);     *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb scan(oper,identity,rite,axis)
double (*oper)(); /* operator */
double *identity; /* identity value */
Aplcb rite; /* operand */
int axis; /* axis of reduction */
{
	Reducesb;

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