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

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

/* EFL support routine to copy string b to string a */

#define M	( (long) (sizeof(long) - 1) )
#define EVEN(x)	( ( (x)+ M) & (~M) )

ef1asc_(a, la, b, lb)
int *a, *b;
long int *la, *lb;
{
s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
}
Commit	Line	Data
c8ac59da DW	1	/*
	2	* "@(#)ef1asc_.c 1.1"
	3	*/
	4
	5	/* EFL support routine to copy string b to string a */
	6
	7	#define M ( (long) (sizeof(long) - 1) )
	8	#define EVEN(x) ( ( (x)+ M) & (~M) )
	9
	10	ef1asc_(a, la, b, lb)
	11	int a, b;
	12	long int la, lb;
	13	{
	14	s_copy( (char )a, (char )b, EVEN(la), lb );
	15	}