y year 
[mm,nn]=size(Year);             
for(j=1:nn)
  temp=sort(Year(:,j),1);
  m.car.cCaR(1,j,p)=mean(temp(s.alpha*s.nscenario:s.nscenario));    %conditional cost-at-risk 
end
m.car.rcCaR(1,:,p) = m.car.cCaR(1,:,p) - m.moyenne(1,:,p);  %relative conditional cost-at-risk
m.DCD(:,:,p)=Year;  %distribution of simulated debt costs by year


%% 3. Fiscal Metrics
%
% See: _<prob_greater.html prob_greater>_
for(j=1:s.nperiod/4)
  for jj=1:size(totalFR,3)
    totalFR1(:,j,jj)=sum(totalFR(:,(j-1)*4+1:j*4,jj)');
  