1 #include "f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 
6 #ifdef KR_headers
7 extern integer s_cmp();
l_gt(a,b,la,lb)8 logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
9 #else
10 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
11 logical l_gt(char *a, char *b, ftnlen la, ftnlen lb)
12 #endif
13 {
14 return(s_cmp(a,b,la,lb) > 0);
15 }
16 #ifdef __cplusplus
17 }
18 #endif
19