1999-09-18 10:51:31 +00:00
|
|
|
/* EFL support routine to compare two character strings */
|
|
|
|
|
|
|
|
|
|
#include "f2c.h"
|
|
|
|
|
|
2003-07-11 03:42:19 +00:00
|
|
|
extern integer s_cmp (char *, char *, ftnlen, ftnlen);
|
|
|
|
|
integer
|
|
|
|
|
G77_ef1cmc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb)
|
1999-09-18 10:51:31 +00:00
|
|
|
{
|
2003-07-11 03:42:19 +00:00
|
|
|
return (s_cmp ((char *) a, (char *) b, *la, *lb));
|
1999-09-18 10:51:31 +00:00
|
|
|
}
|
