lang/fortran/lib/libF77/h_dnnt.c

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