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