110529Sdlw /* 2*22959Skre * Copyright (c) 1980 Regents of the University of California. 3*22959Skre * All rights reserved. The Berkeley software License Agreement 4*22959Skre * specifies the terms and conditions for redistribution. 5*22959Skre * 6*22959Skre * @(#)r_int.c 5.1 06/07/85 710529Sdlw */ 810529Sdlw 910529Sdlw double r_int(x) 1010529Sdlw float *x; 1110529Sdlw { 1210529Sdlw double floor(); 1310529Sdlw 1410529Sdlw return( (*x >= 0) ? floor(*x) : -floor(- *x) ); 1510529Sdlw } 16