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