2.9BSD - /usr/src/lib/libF77/i_ior.c

   1: /* IOR fortran callable.     PLW 8/5/79.*/
   2: long int i_ior(x,y)
   3:         long int *x,*y;
   4: {
   5:     return(*x | *y);
   6: }

Defined functions