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