xref: /csrg-svn/usr.bin/pascal/libpc/ROUND.c (revision 1697)
1*1697Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1697Smckusick 
3*1697Smckusick static char sccsid[] = "@(#)ROUND.c 1.1 10/30/80";
4*1697Smckusick 
5*1697Smckusick ROUND(value)
6*1697Smckusick 
7*1697Smckusick 	double	value;
8*1697Smckusick {
9*1697Smckusick 	return (long)(value + 0.5);
10*1697Smckusick }
11