00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifdef KR_headers 00007 extern integer s_cmp(); 00008 shortlogical hl_le(a,b,la,lb) char *a, *b; ftnlen la, lb; 00009 #else 00010 extern integer s_cmp(char *, char *, ftnlen, ftnlen); 00011 shortlogical hl_le(char *a, char *b, ftnlen la, ftnlen lb) 00012 #endif 00013 { 00014 return(s_cmp(a,b,la,lb) <= 0); 00015 } 00016 #ifdef __cplusplus 00017 } 00018 #endif