function disppr(X,cases);

%
% Display Statistics for Exchange Rates and Prices.
%

[ncase,j] = size(cases);

Rows      = ['-----------------------------------------------';
             'Statistics                               Data  ';
             '-----------------------------------------------';
             'Standard Deviation(x)/Std. Real GDP            ';
             '  Price Ratio                            0.71  ';
             '                                               ';
             '  Nominal Exchange Rate                  4.67  ';
             '                                               ';
             '  Real Exchange Rate                     4.36  ';
             '                                               ';
             'Autocorrelations                               ';
             '  Price Ratio                            0.87  ';
             '                                               ';
             '  Nominal Exchange Rate                  0.86  ';
             '                                               ';
             '  Real Exchange Rate                     0.83  ';
             '                                               ';
             'Cross-correlations                             ';
             '  Real & Nominal Exchange Rates          0.99  ';
             '                                               ';
             '  Real Exchange Rate & Real GDP          0.08  ';
             '                                               ';
             '  Real Exchange Rate & Real NX/Real GDP  0.14  ';
             '                                               ';
             '  Real Exchange Rate & Cons.-Cons.*     -0.35  ';
             '                                               '];

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 = Rows(6,1:j);
str3 = ['   %5.2f ',Rows(6,1:j-9)];
str4 = ['  (%5.2f)',Rows(6,1:j-9)];

for i=1:ncase;


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

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

disp(sprintf(str',X))

