l_lt.c
Go to the documentation of this file.
00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005 
00006 #ifdef KR_headers
00007 extern integer s_cmp();
00008 logical l_lt(a,b,la,lb) char *a, *b; ftnlen la, lb;
00009 #else
00010 extern integer s_cmp(char *, char *, ftnlen, ftnlen);
00011 logical l_lt(char *a, char *b, ftnlen la, ftnlen lb)
00012 #endif
00013 {
00014 return(s_cmp(a,b,la,lb) < 0);
00015 }
00016 #ifdef __cplusplus
00017 }
00018 #endif


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:50