Return to r_int.c CVS log

Up to [CSRG BSD Unix] / 41BSD / lib / libF77

BSD 4.1

double r_int(x)
float *x;
{
double floor();

return( (*x>0) ? floor(*x) : -floor(- *x) );
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.