110460Sdlw /* 2*22858Skre * Copyright (c) 1980 Regents of the University of California. 3*22858Skre * All rights reserved. The Berkeley software License Agreement 4*22858Skre * specifies the terms and conditions for redistribution. 5*22858Skre * 6*22858Skre * @(#)d_int.c 5.1 06/07/85 710460Sdlw */ 810460Sdlw 910460Sdlw double d_int(x) 1010460Sdlw double *x; 1110460Sdlw { 1210460Sdlw double floor(); 1310460Sdlw 1410460Sdlw return( (*x >= 0) ? floor(*x) : -floor(- *x) ); 1510460Sdlw } 16