        INTEGER*1 FUNCTION IAND(I,J)
        IMPLICIT NONE
        INTEGER*1 I,J
	IAND = I .AND. J
	RETURN
	END
