/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* nex APL2 V1.0.0 *****************************************************
* Returns the produce of left and rite, both being complex numbers.    *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void nex(left,rite,ret)
double *left,*rite;
int *ret;
{
	extern double fuzz;
	double diff;

	diff = (*left > *rite) ? *left-*rite : *rite-*left;
	*ret = (diff > fuzz);
}