/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* intzero APL2 V1.0.0 **************************************************
* Used when scalar dyadic "equal" is applied to variables of            *
* incompatible data types, e.g. comparing character to integer, to      *
* produce a 0, indicating they are not equal.                           *
************************************************************************/
#define INCLUDES 0
#include "includes.h"
void intzero(left,rite,ret)
void *left,*rite;
int *ret;
{
	*ret = 0;
}