/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* ceqpd APL2 V1.0.0 ***************************************************
* Returns integer 1 or 0 depending on whether *left equals *rite.      *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void ceqpd(left,rite,ret)
char *left,*rite;
double *ret;
{
	*ret = (*left == *rite) ? 1.0 : 0.0;
}