text: #include "v3p_f2c.h"
  
  #ifdef KR_headers
  double floor();
  shortint h_nint(x) real *x;
  #else
  #undef abs
  #include "math.h"
  #ifdef __cplusplus
  extern "C" {
  #endif
  shortint h_nint(real *x)
  #endif
  {
  return (shortint)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
  }
  #ifdef __cplusplus
  }
  #endif
  