1 /* EFL support routine to compare two character strings */
6 extern integer
s_cmp();
7 integer
G77_ef1cmc_0 (a
, la
, b
, lb
) ftnint
*a
, *b
; ftnlen
*la
, *lb
;
9 extern integer
s_cmp(char*,char*,ftnlen
,ftnlen
);
10 integer
G77_ef1cmc_0 (ftnint
*a
, ftnlen
*la
, ftnint
*b
, ftnlen
*lb
)
13 return( s_cmp( (char *)a
, (char *)b
, *la
, *lb
) );