function A = upper(a)
%UPPER	Convert string to upper case.
%	A = upper(a) converts any lower case characters in a to
%	the corresponding upper case character and leaves all
%	other characters unchanged.
%
%	See also LOWER.

%	Copyright (c) 1984-93 by The MathWorks, Inc.

oldflops = flops;
if ~isstr(a)
    A = a;
else
    mask = ((a >= 'a') & (a <= 'z'));
    A = setstr(a + ('A' - 'a')*mask);
end
flops(oldflops);
