diff options
Diffstat (limited to 'libf2c/libF77/r_int.c')
| -rw-r--r-- | libf2c/libF77/r_int.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libf2c/libF77/r_int.c b/libf2c/libF77/r_int.c index b2a4747424c..3c1b28ea4c7 100644 --- a/libf2c/libF77/r_int.c +++ b/libf2c/libF77/r_int.c @@ -2,7 +2,8 @@ #undef abs #include <math.h> -double r_int(real *x) +double +r_int (real * x) { -return( (*x>0) ? floor(*x) : -floor(- *x) ); + return ((*x > 0) ? floor (*x) : -floor (-*x)); } |