Doxygen Source Code Documentation
h_dnnt.c
Go to the documentation of this file.00001 #include "f2c.h" 00002 00003 #ifdef KR_headers 00004 double floor(); 00005 shortint h_dnnt(x) doublereal *x; 00006 #else 00007 #undef abs 00008 #include "mathh.h" 00009 shortint h_dnnt(doublereal *x) 00010 #endif 00011 { 00012 return( (*x)>=0 ? 00013 floor(*x + .5) : -floor(.5 - *x) ); 00014 }