diff options
| author | L Jonas Olsson <ljo@FreeBSD.org> | 1994-10-26 18:17:41 +0000 |
|---|---|---|
| committer | L Jonas Olsson <ljo@FreeBSD.org> | 1994-10-26 18:17:41 +0000 |
| commit | 09c656ca68c8876f0dddec7eda2626d8dc897f2e (patch) | |
| tree | acab27bd987cb8ba603a6389fb43d9b4df06310b /lib/libF77/h_dnnt.c | |
| parent | 876f9d834708020dda68772a4812b6143bbbc16e (diff) | |
| download | src-09c656ca68c8876f0dddec7eda2626d8dc897f2e.tar.gz src-09c656ca68c8876f0dddec7eda2626d8dc897f2e.zip | |
Library for f2c (part 2 of 2)
Obtained from: netlib.att.com
Notes
Notes:
svn path=/cvs2svn/branches/ATT/; revision=3902
Diffstat (limited to 'lib/libF77/h_dnnt.c')
| -rw-r--r-- | lib/libF77/h_dnnt.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/libF77/h_dnnt.c b/lib/libF77/h_dnnt.c new file mode 100644 index 000000000000..9fbeb5ce6244 --- /dev/null +++ b/lib/libF77/h_dnnt.c @@ -0,0 +1,14 @@ +#include "f2c.h" + +#ifdef KR_headers +double floor(); +shortint h_dnnt(x) doublereal *x; +#else +#undef abs +#include "math.h" +shortint h_dnnt(doublereal *x) +#endif +{ +return( (*x)>=0 ? + floor(*x + .5) : -floor(.5 - *x) ); +} |