function itr(name)
       var = 1;
       m = [];
       while(1)
          scan = sscanf(fgetl(fid),'%f');
          if(isvector(scan)==0)
             break;
          end
          m(var,:) = scan.'
          var = var+1;
       end
       assignin('base', 'name', m);
    end