function c2=rmmbs(c)
% function c2=rmmbs(c)  removes some blanks from character text string
% returns the character string c with leading, multiple
%   interior and final blanks ommitted.
lnc=length(c);
fl=0;
for k=1:lnc
   if c(k)~=' '
      c2=[c2,c(k)];
      fl=1;
   else 
      if fl==1
         c2=[c2,' '];
         fl=0;
      end
   end 
end
