/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* eqp APL2 V1.0.0 *****************************************************
* Returns integer 1 or 0 depending on whether *left equals *rite.      *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void eqp(left,rite,ret)
double *left,*rite;
int *ret;
{
	extern double fuzz;
	double diff;

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