/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* nep APL2 V1.0.0 *****************************************************
* Sets ret=1 if left and rite compare not equal, and 0 otherwise.      *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void nep(left,rite,ret)
double *left,*rite;
int *ret;
{
	extern double fuzz;
	double diff;

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