[unix-history] / usr / src / lib / libF77 / ef1cmc_.c

/* EFL support routine to compare two character strings */

long int ef1cmc_(a, la, b, lb)
int *a, *b;
long int *la, *lb;
{
return( s_cmp( (char *)a, (char *)b, *la, *lb) );
}
Commit	Line	Data
15eea6e6 BJ	1	/* EFL support routine to compare two character strings */
	2
	3	long int ef1cmc_(a, la, b, lb)
	4	int a, b;
	5	long int la, lb;
	6	{
	7	return( s_cmp( (char )a, (char )b, la, lb) );
	8	}