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