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

short h_dnnt(x)
double *x;
{
double floor();

return( (*x)>=0 ?
	floor(*x + .5) : -floor(.5 - *x) );
}
Commit	Line	Data
0ee0e326 BJ	1	short h_dnnt(x)
	2	double *x;
	3	{
	4	double floor();
	5
	6	return( (*x)>=0 ?
	7	floor(x + .5) : -floor(.5 - x) );
	8	}