1 #include "f2c.h"
2 
3 #ifdef KR_headers
4 extern integer s_cmp();
hl_gt(a,b,la,lb)5 shortlogical hl_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
6 #else
7 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
8 shortlogical hl_gt(char *a, char *b, ftnlen la, ftnlen lb)
9 #endif
10 {
11 return(s_cmp(a,b,la,lb) > 0);
12 }
13