1 #include "v3p_f2c.h"
2 
3 #ifdef KR_headers
4 double floor();
h_nint(x)5 shortint h_nint(x) real *x;
6 #else
7 #undef abs
8 #include "math.h"
9 #ifdef __cplusplus
10 extern "C" {
11 #endif
12 shortint h_nint(real *x)
13 #endif
14 {
15 return (shortint)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
16 }
17 #ifdef __cplusplus
18 }
19 #endif
20