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