Sign in
gnu
/
gcc
/
d01fc6a3172f05d1618263450c1c9f13737acf57
/
.
/
libf2c
/
libF77
/
l_ge.c
blob: 78af8d04f5e6a8116b39d1baeb86cca5969587d3 [
file
] [
log
] [
blame
]
#include
"f2c.h"
extern
integer s_cmp
(
char
*,
char
*,
ftnlen
,
ftnlen
);
logical
l_ge
(
char
*
a
,
char
*
b
,
ftnlen la
,
ftnlen lb
)
{
return
(
s_cmp
(
a
,
b
,
la
,
lb
)
>=
0
);
}