date and time created 83/01/21 11:15:51 by dlw

[unix-history] / usr / src / usr.bin / f77 / libF77 / d_int.c

/*
*      "@(#)d_int.c    1.1"
*/

double d_int(x)
double *x;
{
double floor();

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