function s2=s_rjust(s1);
%	Right justify a string.
%
%	[s2]=s_rjust(s1);

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

s3=s_trim(s1);
l1=length(s1);
l3=length(s3);
n=l1-l3;
s2=blanks(l1);
s2(n+1:l1)=s3(1:l3);
return;
