/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* idivide APL2 V1.0.0 *************************************************
* Returns the integer quotient of its two arguments.                   *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
int idivide(left,rite)
int left,rite;
{
	extern int aplerr;

	if (rite == 0)
		if (left == 0)
			return(1);
		else {
			aplerr = 38;
			return(0);
		}
	return(left/rite);
}