samer@4: function sz=strip1(sz)
samer@4: % strip1 - strip trailing ones from an array size specification
samer@4: %
samer@4: % strip1 :: [[1,E]] -> [[1,F]].
samer@4: e=length(sz);
samer@4: while e>0 && sz(e)==1, e=e-1; end
samer@4: if e>0, sz=sz(1:e); else sz=[]; end