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