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