/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* reducesb APL2 V1.0.0 ************************************************
* Called to do both reduce and scan.                                   *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
#define SUBRTNE reducesb
#define DATATYPE double
#define APLTYPE APLNUMB
#define CONVERT real
#define COPYSUB dblcopy
#define DATAPTR apldata
#include "reduces.h"