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

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