function y=trimblank(x)
%TRIMBLANK
%	y=trimblank(x)
%	Trim heading and trailing blanks in a string variable

y=x;
while y(1)==' ',
  y=y(2:size(y,2));
end
while y(size(y,2))==' ',
  y=y(1:size(y,2)-1);
end
