gcc/libf2c/libF77/h_nint.c
Kaveh R. Ghazi 4d85a6fea6 *: Delete KR_headers cruft.
* libF77/*: Delete KR_headers cruft.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54132
2002-06-01 01:53:53 +00:00

9 lines
139 B
C

#include "f2c.h"
#undef abs
#include <math.h>
shortint h_nint(real *x)
{
return (shortint)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
}