[unix-history] / usr / src / usr.bin / pascal / libpc / ROUND.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)ROUND.c 1.3 %G%";

long
ROUND(value)

	double	value;
{
	if (value >= 0.0)
		return (long)(value + 0.5);
	return (long)(value - 0.5);
}
Commit	Line	Data
aa8e0d47 KM	1	/* Copyright (c) 1979 Regents of the University of California */
aa8e0d47 KM	2
492cc5d3	3	static char sccsid[] = "@(#)ROUND.c 1.3 %G%";
aa8e0d47	4
492cc5d3	5	long
aa8e0d47 KM	6	ROUND(value)
	7
	8	double value;
	9	{
9a860fcb KM	10	if (value >= 0.0)
	11	return (long)(value + 0.5);
	12	return (long)(value - 0.5);
aa8e0d47	13	}