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)8logical 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