1 #include "f2c.h" 2 3 #ifdef KR_headers 4 double floor(); i_dnnt(x)5 integer i_dnnt(x) doublereal *x; 6 #else 7 #undef abs 8 #include "mathh.h" 9 integer i_dnnt(doublereal *x) 10 #endif 11 { 12 return( (*x)>=0 ? 13 floor(*x + .5) : -floor(.5 - *x) ); 14 } 15