function t=rmbl(txt)
% function t=rmbl(txt)  removes blanks from a character vector (text)
% Removes blanks from a text string (vector).
%Example: rmbl('123  456 abc')
  ln=length(txt);
  t=[];
 for k=1:ln
    if txt(k)~=' '
      t=[t txt(k)];
    end
 end

