/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* cnepd APL2 V1.0.0 ***************************************************
* Sets ret=1 if left and rite compare not equal, and 0 otherwise.      *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void cnepd(left,rite,ret)
char *left,*rite;
double *ret;
{
	*ret = (*left == *rite) ? 0.0: 1.0;
}