xref: /csrg-svn/usr.bin/pascal/libpc/ROUND.c (revision 3028)
11697Smckusick /* Copyright (c) 1979 Regents of the University of California */
21697Smckusick 
3*3028Smckusic static char sccsid[] = "@(#)ROUND.c 1.3 03/07/81";
41697Smckusick 
5*3028Smckusic long
61697Smckusick ROUND(value)
71697Smckusick 
81697Smckusick 	double	value;
91697Smckusick {
102960Smckusic 	if (value >= 0.0)
112960Smckusic 		return (long)(value + 0.5);
122960Smckusic 	return (long)(value - 0.5);
131697Smckusick }
14