[unix-history] / usr / src / libF77 / h_nint.c

short h_nint(x)
float *x;
{
return( (*x)>=0 ?
	(short) (*x + .5) : (short) (*x - .5) );
}
Commit	Line	Data
27d66adc KT	1	short h_nint(x)
	2	float *x;
	3	{
	4	return( (*x)>=0 ?
	5	(short) (x + .5) : (short) (x - .5) );
	6	}