1*10491Sdlw /* 2*10491Sdlw * "@(#)h_nint.c 1.1" 3*10491Sdlw */ 4*10491Sdlw 5*10491Sdlw short h_nint(x) 6*10491Sdlw float *x; 7*10491Sdlw { 8*10491Sdlw double floor(); 9*10491Sdlw 10*10491Sdlw return( (*x)>=0 ? 11*10491Sdlw floor(*x + .5) : -floor(.5 - *x) ); 12*10491Sdlw } 13