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

/*
 *	"@(#)ef1cmc_.c	1.1"
 */

/* 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
14811a8d DW	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	}