110487Sdlw /* 2*22895Skre * Copyright (c) 1980 Regents of the University of California. 3*22895Skre * All rights reserved. The Berkeley software License Agreement 4*22895Skre * specifies the terms and conditions for redistribution. 5*22895Skre * 6*22895Skre * @(#)h_dnnt.c 5.1 06/07/85 710487Sdlw */ 810487Sdlw 910487Sdlw short h_dnnt(x) 1010487Sdlw double *x; 1110487Sdlw { 1210487Sdlw double floor(); 1310487Sdlw 1410487Sdlw return( (*x)>=0 ? 1510487Sdlw floor(*x + .5) : -floor(.5 - *x) ); 1610487Sdlw } 17