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