110499Sdlw /* 2*22911Skre * Copyright (c) 1980 Regents of the University of California. 3*22911Skre * All rights reserved. The Berkeley software License Agreement 4*22911Skre * specifies the terms and conditions for redistribution. 5*22911Skre * 6*22911Skre * @(#)i_dnnt.c 5.1 06/07/85 710499Sdlw */ 810499Sdlw 910499Sdlw long int i_dnnt(x) 1010499Sdlw double *x; 1110499Sdlw { 1210499Sdlw double floor(); 1310499Sdlw 1410499Sdlw return( (*x)>=0 ? 1510499Sdlw floor(*x + .5) : -floor(.5 - *x) ); 1610499Sdlw } 17