[unix-history] / lib / libF77 / l_gt.c

#include "f2c.h"

#ifdef KR_headers
extern integer s_cmp();
logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
#else
extern integer s_cmp(char *, char *, ftnlen, ftnlen);
logical l_gt(char *a, char *b, ftnlen la, ftnlen lb)
#endif
{
return(s_cmp(a,b,la,lb) > 0);
}
Commit	Line	Data
547779a8 WH	1	#include "f2c.h"
	2
	3	#ifdef KR_headers
	4	extern integer s_cmp();
	5	logical l_gt(a,b,la,lb) char a, b; ftnlen la, lb;
	6	#else
	7	extern integer s_cmp(char , char , ftnlen, ftnlen);
	8	logical l_gt(char a, char b, ftnlen la, ftnlen lb)
	9	#endif
	10	{
	11	return(s_cmp(a,b,la,lb) > 0);
	12	}