diff options
| author | ljo <ljo@FreeBSD.org> | 1994-10-26 18:17:41 +0000 |
|---|---|---|
| committer | ljo <ljo@FreeBSD.org> | 1994-10-26 18:17:41 +0000 |
| commit | 2195d627fb793fec6c00bdddf1c4d46982b9f27f (patch) | |
| tree | c2961f38c1507b80baefaca1d568747c113f28c0 /lib/libF77/d_nint.c | |
| parent | 80b2e1963004e4ae0173b4f9bc965518ba81d3b0 (diff) | |
| download | FreeBSD-src-2195d627fb793fec6c00bdddf1c4d46982b9f27f.zip FreeBSD-src-2195d627fb793fec6c00bdddf1c4d46982b9f27f.tar.gz | |
Library for f2c (part 2 of 2)
Obtained from: netlib.att.com
Diffstat (limited to 'lib/libF77/d_nint.c')
| -rw-r--r-- | lib/libF77/d_nint.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/libF77/d_nint.c b/lib/libF77/d_nint.c new file mode 100644 index 0000000..2ead3df --- /dev/null +++ b/lib/libF77/d_nint.c @@ -0,0 +1,14 @@ +#include "f2c.h" + +#ifdef KR_headers +double floor(); +double d_nint(x) doublereal *x; +#else +#undef abs +#include "math.h" +double d_nint(doublereal *x) +#endif +{ +return( (*x)>=0 ? + floor(*x + .5) : -floor(.5 - *x) ); +} |
