home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_06_02
/
v6n2015a.txt
< prev
next >
Wrap
Text File
|
1989-09-28
|
393b
|
22 lines
/* FROUNDL.C Round float n
* ~~~~~~~~~ to precision p,
* return long = n * 10^p.
* NOT copyrighted.
*/
#include <math.h>
long froundl(n, p)
double n; /* Number to round */
int p; /* Precision */
{
long r; /* Rounded */
r = (long)(n * pow(10.0,(double)(p+1)));
if ((r % 10L) > 4L)
r += 5L;
return(r / 10L);
}