110503Sdlw /* 2*22916Skre * Copyright (c) 1980 Regents of the University of California. 3*22916Skre * All rights reserved. The Berkeley software License Agreement 4*22916Skre * specifies the terms and conditions for redistribution. 5*22916Skre * 6*22916Skre * @(#)i_nint.c 5.1 06/07/85 710503Sdlw */ 810503Sdlw 910503Sdlw long int i_nint(x) 1010503Sdlw float *x; 1110503Sdlw { 1210503Sdlw double floor(); 1310503Sdlw 1410503Sdlw return( (*x)>=0 ? 1510503Sdlw floor(*x + .5) : -floor(.5 - *x) ); 1610503Sdlw } 17