110529Sdlw /* 222959Skre * Copyright (c) 1980 Regents of the University of California. 322959Skre * All rights reserved. The Berkeley software License Agreement 422959Skre * specifies the terms and conditions for redistribution. 522959Skre * 6*23854Sjerry * @(#)r_int.c 5.2 07/08/85 710529Sdlw */ 810529Sdlw 9*23854Sjerry float r_int(x) 1010529Sdlw float *x; 1110529Sdlw { 1210529Sdlw double floor(); 1310529Sdlw 1410529Sdlw return( (*x >= 0) ? floor(*x) : -floor(- *x) ); 1510529Sdlw } 16