/*  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);
}