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

	if (rite == 0.0)
		if (left == 0.0)
			return(1.0);
		else {
			aplerr = 39;
			return(0e0);
		}
	return(left / rite);
}