00001 #include "f2c.h" 00002 00003 #ifdef KR_headers 00004 double floor(); 00005 double r_nint(x) real *x; 00006 #else 00007 #undef abs 00008 #include "math.h" 00009 #ifdef __cplusplus 00010 extern "C" { 00011 #endif 00012 double r_nint(real *x) 00013 #endif 00014 { 00015 return( (*x)>=0 ? 00016 floor(*x + .5) : -floor(.5 - *x) ); 00017 } 00018 #ifdef __cplusplus 00019 } 00020 #endif