* tree.h: Remove include of version.h
[official-gcc.git] / libf2c / libF77 / d_int.c
blobf7ab8b0cb6a3d0aefbd08cc119eac7ec7a165f7c
1 #include "f2c.h"
3 #undef abs
4 #include <math.h>
5 double
6 d_int (doublereal * x)
8 return ((*x > 0) ? floor (*x) : -floor (-*x));