summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/l_ge.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libF77/l_ge.c')
-rw-r--r--contrib/libf2c/libF77/l_ge.c12
1 files changed, 4 insertions, 8 deletions
diff --git a/contrib/libf2c/libF77/l_ge.c b/contrib/libf2c/libF77/l_ge.c
index 86b4a1f..78af8d0 100644
--- a/contrib/libf2c/libF77/l_ge.c
+++ b/contrib/libf2c/libF77/l_ge.c
@@ -1,12 +1,8 @@
#include "f2c.h"
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_ge(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-logical l_ge(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
+extern integer s_cmp (char *, char *, ftnlen, ftnlen);
+logical
+l_ge (char *a, char *b, ftnlen la, ftnlen lb)
{
-return(s_cmp(a,b,la,lb) >= 0);
+ return (s_cmp (a, b, la, lb) >= 0);
}
OpenPOWER on IntegriCloud