Doxygen Source Code Documentation
l_gt.c
Go to the documentation of this file.00001 #include "f2c.h" 00002 00003 #ifdef KR_headers 00004 extern integer s_cmp(); 00005 logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb; 00006 #else 00007 extern integer s_cmp(char *, char *, ftnlen, ftnlen); 00008 logical l_gt(char *a, char *b, ftnlen la, ftnlen lb) 00009 #endif 00010 { 00011 return(s_cmp(a,b,la,lb) > 0); 00012 }