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