BSD 4_1c_2 development

[unix-history] / usr / src / usr.lib / libF77 / r_int.c

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

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