* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
double floor(), quotient
= *x
/ *y
;
quotient
= floor(quotient
);
quotient
= -floor(-quotient
);
flt_retval
= *x
- (*y
) * quotient
;