FUNCTION IOR(I,J) IOR = I .OR. J RETURN END