% 
% This file was written by Mary Pugh, mpugh@math.toronto.edu, in
% February 2002.  Please do not use this without her consent and 
% without attributing her.

disp(' ')
disp(' ')

[m,n] = size(A);
a = int2str(1);
s = strcat('          x',a);
b = strcat(s,'        ');
for i=2:n-1
  a = int2str(i);
  b = strcat('        x',a);
  b = strcat(b,'        ');
  s = strcat(s,b);
end
disp(s)

for i=1:m-1
  b = strcat('  x',int2str(bv(i)));
  b = strcat(b,'   ');
  c = sprintf('%8.5g  ',A(i,:));
  c = strcat('  ',c);
  disp(strcat(b,c)) 
end
b = ' obj';
c = sprintf('%8.5g  ',A(m,:));
disp(strcat(b,c)) 
disp(' ')
disp(' ')