]> CyberLeo.Net >> Repos - FreeBSD/releng/7.2.git/blob - contrib/libf2c/libF77/l_ge.c
Change the current working directory to be inside the jail created by
[FreeBSD/releng/7.2.git] / contrib / libf2c / libF77 / l_ge.c
1 #include "f2c.h"
2
3 extern integer s_cmp (char *, char *, ftnlen, ftnlen);
4 logical
5 l_ge (char *a, char *b, ftnlen la, ftnlen lb)
6 {
7   return (s_cmp (a, b, la, lb) >= 0);
8 }