function [lia,locb] = ismemberR2012a(a,b,options)

% 'R2012a' flag implementation

% Error check flag

if nargin == 2 

    byrow = false; 

else

    byrow = options > 0;

end 

doBuiltinTypes = true; 

% Check that one of A and B is double if A and B are non-homogeneous. Do a

% separate check if A is a heterogeneous object and only allow a B

% that is of the same root class.

if ~(isa(a,'handle.handle') || isa(b,'handle.handle')) 

    if ~strcmpi(class(a),class(b)) 

        if isa(a,'matlab.mixin.Heterogeneous') && isa(b,'matlab.mixin.Heterogeneous') 

            rootClassA = meta.internal.findHeterogeneousRootClass(a);

            if isempty(rootClassA) || ~isa(b,rootClassA.Name)

                error(message('MATLAB:ISMEMBER:InvalidInputsDataType',class(a),class(b)));

            end

            doBuiltinTypes = false;

        elseif ~(strcmpi(class(a),'double') || strcmpi(class(b),'double')) 

            error(message('MATLAB:ISMEMBER:InvalidInputsDataType',class(a),class(b)));

        end

    end 

end 

if ~byrow 

    if ~(isa(a,'opaque') || isa(b,'opaque')) && doBuiltinTypes 

        % Builtin types

        if nargout > 1 

            [lia,locb] = ismemberBuiltinTypes(a,b); 

        else 

            lia = ismemberBuiltinTypes(a,b); 

        end 

    else 

        % Handle objects

        if nargout > 1 

            [lia,locb] = ismemberClassTypes(a,b); 

        else 

            lia = ismemberClassTypes(a,b); 

        end 

    end 

else    % 'rows' case

    if ~(ismatrix(a) && ismatrix(b))

        error(message('MATLAB:ISMEMBER:NotAMatrix'));

    end

    [rowsA,colsA] = size(a);

    [rowsB,colsB] = size(b);

    % Automatically pad strings with spaces

    if ischar(a) && ischar(b)

        b = [b repmat(' ',rowsB,colsA-colsB)];

        a = [a repmat(' ',rowsA,colsB-colsA)];

    elseif colsA ~= colsB

        error(message('MATLAB:ISMEMBER:AandBColnumAgree'));

    end

    % Empty check for 'rows'.

    if rowsA == 0 || rowsB == 0

        lia = false(rowsA,1);

        locb = zeros(rowsA,1);

        return

    end

    % General handling for 'rows'.

    % Duplicates within the sets are eliminated

    if (rowsA == 1)

        uA = repmat(a,rowsB,1);

        d = uA(1:end,:)==b(1:end,:);

        d = all(d,2);

        lia = any(d);

        if nargout > 1

            if lia

                locb = find(d, 1, 'first');

            else

                locb = 0;

            end

        end

        return;

    else

        [uA,~,icA] = unique(a,'rows','sorted');

    end

    if nargout <= 1

        uB = unique(b,'rows','sorted');

    else

        [uB,ib] = unique(b,'rows','sorted');

    end

    % Sort the unique elements of A and B, duplicate entries are adjacent

    [sortuAuB,IndSortuAuB] = sortrows([uA;uB]);

    % Find matching entries

    d = sortuAuB(1:end-1,:)==sortuAuB(2:end,:);     % d indicates matching entries

    d = all(d,2);                                   % Finds the index of matching entries

    ndx1 = IndSortuAuB(d);                          % NDX1 are locations of repeats in C

    if nargout <= 1

        lia = ismemberBuiltinTypes(icA,ndx1);           % Find repeats among original list

    else

        szuA = size(uA,1);

        [lia,locb] = ismemberBuiltinTypes(icA,ndx1);    % Find locb by using given indices

        d = find(d);

        newd = d(locb(lia));                    % NEWD is D for non-unique A

        where = ib(IndSortuAuB(newd+1)-szuA);   % Index values of uB through UNIQUE

        locb(lia) = where;                      % Return first or last occurrence of A within B

    end

end 

end