function dispvq(X,cases);

%
% Display Components of the Var(q)/Var(y) Calculation.
%

[ncase,j] = size(cases);

Rows      = ['-----------------------------------------------';
             'Statistics                               Data  ';
             '-----------------------------------------------';
             'var(dC-dC*)/var(dY)                      0.62  ';
             'var(dL-dL*)/var(dY)                      0.40  ';
             'cov(dC-dC*,dL-dL*)/var(dY)               0.37  '];

if j < 9;
  tem   = char(cases,'         ');
  cases = tem(1:ncase,1:9); 
end;
j    = max(j,9);
str  = Rows(:,47);
str1 = Rows(1,1:j);
str2 = ['   %5.2f ',Rows(2,11:j+1)];

for i=1:ncase;

  str = [str,[str1;cases(i,:);str1;str2;str2;str2]];

end;

str  = [Rows,str,['\n';'\n';'\n';'\n';'\n';'\n']];
str  = [str;str(1,:)];

disp(sprintf(str',X))

