xref: /original-bsd/usr.bin/f77/libF77/i_dnnt.c (revision 92d3de31)
1 /*
2  *	"@(#)i_dnnt.c	1.1"
3  */
4 
5 long int i_dnnt(x)
6 double *x;
7 {
8 double floor();
9 
10 return( (*x)>=0 ?
11 	floor(*x + .5) : -floor(.5 - *x) );
12 }
13