[unix-history] / usr / src / usr.bin / f77 / libU77 / loc_.c

/*
char id_loc[] = "@(#)loc_.c	1.1";
 *
 * Return the address of the argument.
 *
 * calling sequence:
 *	iloc = loc (arg)
 * where:
 *	iloc will receive the address of arg
 */

long loc_(arg)
long *arg;
{
	return((long)arg);
}
Commit	Line	Data
a17473cc DW	1	/*
	2	char id_loc[] = "@(#)loc_.c 1.1";
	3	*
	4	* Return the address of the argument.
	5	*
	6	* calling sequence:
	7	* iloc = loc (arg)
	8	* where:
	9	* iloc will receive the address of arg
	10	*/
	11
	12	long loc_(arg)
	13	long *arg;
	14	{
	15	return((long)arg);
	16	}