        INTEGER*1 FUNCTION IOR(I,J)
	IMPLICIT NONE
	INTEGER*1 I,J
	IOR = I .OR. J
	RETURN
	END
