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


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:35