2.9BSD/usr/src/lib/libF77/i_ieor.c

/* IEOR fortran callable.     PLW 8/7/79.*/
long int i_ieor(x,y)
	long int *x,*y;
{
	return(*x ^ *y);
}