UNIX 7th Ed. - /usr/src/libF77/r_nint.c

   1: double r_nint(x)
   2: float *x;
   3: {
   4: return( (*x)>=0 ?
   5:     (long int) (*x + .5) : (long int) (*x - .5) );
   6: }

Defined functions