% This has been modified for the transport problem.
% 
% This file was written by Mary Pugh, mpugh@math.toronto.edu, in
% March 2002.  Please do not use this without her consent and 
% without attributing her.

disp(' ')
disp(' ')

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

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