/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* residuep APL2 V1.0.0 ************************************************
* Returns the remainder after dividing left into rite.                 *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void residuep(left,rite,ret)
double *left,*rite,*ret;
{
	Floor;

	if (*left == 0.0) *ret = (*rite);
	else *ret = (*rite - *left * floor(*rite / *left));
}