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

long int i_dnnt(x)
double *x;
{
return( (*x)>=0 ?
	(long int) (*x + .5) : (long int) (*x - .5) );
}
Commit	Line	Data
0c9e74ab TL	1	long int i_dnnt(x)
	2	double *x;
	3	{
	4	return( (*x)>=0 ?
	5	(long int) (x + .5) : (long int) (x - .5) );
	6	}