diff options
Diffstat (limited to 'libf2c/libF77/i_dnnt.c')
| -rw-r--r-- | libf2c/libF77/i_dnnt.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libf2c/libF77/i_dnnt.c b/libf2c/libF77/i_dnnt.c index 8fcecb68200..4ede56ac355 100644 --- a/libf2c/libF77/i_dnnt.c +++ b/libf2c/libF77/i_dnnt.c @@ -9,6 +9,5 @@ integer i_dnnt(x) doublereal *x; integer i_dnnt(doublereal *x) #endif { -return( (*x)>=0 ? - floor(*x + .5) : -floor(.5 - *x) ); +return (integer)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x)); } |