lang/fortran/lib/libF77/d_nint.c

   1 #include "f2c.h"
   2
   3 double d_nint(x)
   4 doublereal *x;
   5 {
   6 double floor();
   7
   8 return( (*x)>=0 ?
   9         floor(*x + .5) : -floor(.5 - *x) );
  10 }