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