function [upstr]=s_upcase(str)
%	Upcase a string.
%
%	function [upstr]=s_upcase(str)

%	Latest revision by P. Dragos 7-Jun-91.
%
%	P. Dragos, Battelle Ocean Sciences
%	Duxbury, MA 02332
%	(617) 934-0571
%
%	Copyright (c) 1991 by Paul Dragos.
%	This program is copyrighted.  However, you are encouraged to
%	copy and share it, so long as no charge is imposed.

ab=['abcdefghijklmnopqrstuvwxyz'];
AB=['ABCDEFGHIJKLMNOPQRSTUVWXYZ'];
upstr=str;
for i=[1:length(str)],
  j=[];
  j=find(str(i) == ab);
  if (length(j) > 0), upstr(i)=AB(j); end;
end;
return;
