function s1=s_trim(s2)
%	Trim trailing blanks.
%
%	[s1]= s_trim(s2)

%	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.

ln= length(s2);
for i=ln:-1:1,
    if s2(i) ~= ' ', break, end
end
s1= s2(1:i);
return;
