/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* memixb APL2 V1.0.0 **************************************************
* Called from memixcm to complete processing for member and indexof    *
* when the input data are real numbers (APLNUMB).                      *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb memixb(key,left,rite,out)
int key;
Aplcb left,rite,out;
{
	Errstop;
	extern int indxorg;
	extern double fuzz;
	int i,j,k,*op;
	double curd,hid,lod,*lp,*rp,*lw;

	lp=left->aplptr.apldata;
	rp=rite->aplptr.apldata;
#define Getset k=0; lod=*rp-fuzz; hid=*rp+fuzz;
#define Test curd=*lw++; if (curd >= lod && curd <= hid) k=1;
#include "memixi.h"
}