/* EFL support routine to compare two character strings */
integer
ef1cmc_(a
, la
, b
, lb
) ftnint
*a
, *b
; ftnlen
*la
, *lb
;
extern integer
s_cmp(char*,char*,ftnlen
,ftnlen
);
integer
ef1cmc_(ftnint
*a
, ftnlen
*la
, ftnint
*b
, ftnlen
*lb
)
return( s_cmp( (char *)a
, (char *)b
, *la
, *lb
) );