summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/l_gt.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libF77/l_gt.c')
-rw-r--r--contrib/libf2c/libF77/l_gt.c12
1 files changed, 4 insertions, 8 deletions
diff --git a/contrib/libf2c/libF77/l_gt.c b/contrib/libf2c/libF77/l_gt.c
index c4b52f5..be7e489 100644
--- a/contrib/libf2c/libF77/l_gt.c
+++ b/contrib/libf2c/libF77/l_gt.c
@@ -1,12 +1,8 @@
#include "f2c.h"
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-logical l_gt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
+extern integer s_cmp (char *, char *, ftnlen, ftnlen);
+logical
+l_gt (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