1 #include "f2c.h" 2 3 #ifdef KR_headers 4 extern integer s_cmp(); hl_gt(a,b,la,lb)5shortlogical 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