summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/r_sign.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libF77/r_sign.c')
-rw-r--r--contrib/libf2c/libF77/r_sign.c13
1 files changed, 5 insertions, 8 deletions
diff --git a/contrib/libf2c/libF77/r_sign.c b/contrib/libf2c/libF77/r_sign.c
index df6d02a..f53c6bf 100644
--- a/contrib/libf2c/libF77/r_sign.c
+++ b/contrib/libf2c/libF77/r_sign.c
@@ -1,12 +1,9 @@
#include "f2c.h"
-#ifdef KR_headers
-double r_sign(a,b) real *a, *b;
-#else
-double r_sign(real *a, real *b)
-#endif
+double
+r_sign (real * a, real * b)
{
-double x;
-x = (*a >= 0 ? *a : - *a);
-return( *b >= 0 ? x : -x);
+ double x;
+ x = (*a >= 0 ? *a : -*a);
+ return (*b >= 0 ? x : -x);
}
OpenPOWER on IntegriCloud