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