1 #include "f2c.h" 2 3 #undef abs 4 #include <math.h> 5 double d_nint(doublereal * x)6 d_nint (doublereal * x) 7 { 8 return ((*x) >= 0 ? floor (*x + .5) : -floor (.5 - *x)); 9 } 10