xref: /csrg-svn/usr.bin/pascal/libpc/ROUND.c (revision 2960)
11697Smckusick /* Copyright (c) 1979 Regents of the University of California */
21697Smckusick 
3*2960Smckusic static char sccsid[] = "@(#)ROUND.c 1.2 03/07/81";
41697Smckusick 
51697Smckusick ROUND(value)
61697Smckusick 
71697Smckusick 	double	value;
81697Smckusick {
9*2960Smckusic 	if (value >= 0.0)
10*2960Smckusic 		return (long)(value + 0.5);
11*2960Smckusic 	return (long)(value - 0.5);
121697Smckusick }
13