prtab2.m

          l =fix(length(x)/10); 
          r = rem(length(x),10); 
          if l
            a = reshape(x(1:l*10),10,l);
            for i=1:l
              fprintf('%8.3f ',a(:, i));
              fprintf('\n');
            end;
          end;
          if r
            fprintf('%8.3f ',x(l*10+1:length(x)));  
            fprintf('\n');
          end;