[unix-history] / .ref-BSD-3 / usr / src / libF77 / r_int.c

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

return( (*x>0) ? floor(*x) : -floor(- *x) );
}
Commit	Line	Data
0ee0e326 BJ	1	double r_int(x)
	2	float *x;
	3	{
	4	double floor();
	5
	6	return( (x>0) ? floor(x) : -floor(- *x) );
	7	}