xref: /original-bsd/usr.bin/pascal/libpc/ROUND.c (revision 0b685140)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)ROUND.c 1.3 03/07/81";
4 
5 long
6 ROUND(value)
7 
8 	double	value;
9 {
10 	if (value >= 0.0)
11 		return (long)(value + 0.5);
12 	return (long)(value - 0.5);
13 }
14