1 /* 2 * "@(#)r_int.c 1.1" 3 */ 4 5 double r_int(x) 6 float *x; 7 { 8 double floor(); 9 10 return( (*x >= 0) ? floor(*x) : -floor(- *x) ); 11 } 12