c@427: #include "f2c.h"
c@427: 
c@427: #ifdef KR_headers
c@427: double floor();
c@427: integer i_nint(x) real *x;
c@427: #else
c@427: #undef abs
c@427: #include "math.h"
c@427: #ifdef __cplusplus
c@427: extern "C" {
c@427: #endif
c@427: integer i_nint(real *x)
c@427: #endif
c@427: {
c@427: return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
c@427: }
c@427: #ifdef __cplusplus
c@427: }
c@427: #endif