function disppr(X,cases);

%
% Display Statistics for Exchange Rates and Prices.
%

[ncase,j] = size(cases);

Rows      = ['------------------------------------';
             'Statistics                          ';
             '------------------------------------';
             'Standard Deviation(x)/Std. Real GDP ';
             '  Price Ratio                       ';
             '                                    ';
             '  Nominal Exchange Rate             ';
             '                                    ';
             '  Real Exchange Rate                ';
             '                                    ';
             'Autocorrelations                    ';
             '  Price Ratio                       ';
             '                                    ';
             '  Nominal Exchange Rate             ';
             '                                    ';
             '  Real Exchange Rate                ';
             '                                    ';
             'Cross-correlations                  ';
             '  Real & Nominal Exchange Rates     ';
             '                                    '];

if j < 9;
  tem   = char(cases,'         ');
  cases = tem(1:ncase,1:9); 
end;
j    = max(j,9);
str  = Rows(:,36);
str1 = Rows(1,1:j);
str2 = Rows(6,1:j);
str3 = ['   %5.2f ',Rows(6,1:j-9)];

for i=1:ncase;


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

end;
str  = [Rows,str,['\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))

