From c2a6b676319e518eff2870778f8946ad099b6adc Mon Sep 17 00:00:00 2001 From: David Wasley Date: Fri, 21 Jan 1983 19:10:18 -0800 Subject: [PATCH] date and time created 83/01/21 11:10:18 by dlw SCCS-vsn: usr.bin/f77/libF77/d_nint.c 1.1 --- usr/src/usr.bin/f77/libF77/d_nint.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 usr/src/usr.bin/f77/libF77/d_nint.c diff --git a/usr/src/usr.bin/f77/libF77/d_nint.c b/usr/src/usr.bin/f77/libF77/d_nint.c new file mode 100644 index 0000000000..df389b9971 --- /dev/null +++ b/usr/src/usr.bin/f77/libF77/d_nint.c @@ -0,0 +1,12 @@ +/* + * "@(#)d_nint.c 1.1" + */ + +double d_nint(x) +double *x; +{ +double floor(); + +return( (*x)>=0 ? + floor(*x + .5) : -floor(.5 - *x) ); +} -- 2.20.1