|
|
1.1 root 1: /*
2: * "@(#)ef1cmc_.c 1.1"
3: */
4:
5: /* EFL support routine to compare two character strings */
6:
7: long int ef1cmc_(a, la, b, lb)
8: int *a, *b;
9: long int *la, *lb;
10: {
11: return( s_cmp( (char *)a, (char *)b, *la, *lb) );
12: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.