function dispde(X,cases);

%
% Display Statistics for Alternative Decentralizations.
%

[ncase,j] = size(cases);

Rows      = ['-----------------------------------------------';
             'Statistics                               Data  ';
             '-----------------------------------------------';
             'Standard Deviations (percent)                  ';
             '  Nominal Net Exports/Nominal GDP        0.14  ';
             '                                               ';
             '  Terms of Trade                         3.39  ';
             '                                               ';
             'Autocorrelations                               ';
             '  Nominal Net Exports/Nominal GDP        0.53  ';
             '                                               ';
             '  Terms of Trade                         0.77  ';
             '                                               ';
             'Cross-correlations                             ';
             '  Nominal NX/GDP & Real GDP             -0.34  ';
             '                                               ';
             '  Nominal NX/GDP & Nominal Exchange Rate 0.08  ';
             '                                               ';
             '  Nominal NX/GDP & Real Exchange Rate    0.08  ';
             '                                               ';
             '  Terms of Trade & Real GDP             -0.21  ';
             '                                               ';
             '  Terms of Trade & Nominal Exchange Rate 0.30  ';
             '                                               ';
             '  Terms of Trade & Real Exchange Rate    0.24  ';
             '                                               '];

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;
              str2;str3;str4;str3;str4;
              str2;str3;str4;str3;str4;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))

