/**********************************************************************
* Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. *
* All Rights Reserved. *
* Reference "/usr/src/COPYRIGHT" for applicable restrictions. *
**********************************************************************/
/*
* SCCSID: @(#)i_nint.c 3.0 4/22/86
*/
long int i_nint(x)
float *x;
{
double floor();
return( (*x)>=0 ?
floor(*x + .5) : -floor(.5 - *x) );
}