      integer function ior(i,j)
      ior = or(i,j)
      end
