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

Compare this file to the similar file:
Show the results in this format: 

/* IOR fortran callable.     PLW 8/5/79.*/
int h_ior(x,y)
        int *x,*y;
{
	return(*x | *y);
}