% Solve model, generate model IRFs
[zdatalinear, zdatapiecewise, zdatass, oobase_, Mbase_ ] = ...
    solve_one_constraint(modnam,modnamstar,...
                         constraint, constraint_relax,...
                         shockssequence,irfshock,nperiods,maxiter);



% unpack the IRFs
for i=1:Mbase_.endo_nbr
    eval([deblank(Mbase_.endo_names(i,:)),'_uncdifference=zdatalinear(:,i);']);
    eval([deblank(Mbase_.endo_names(i,:)),'_difference=zdatapiecewise(:,i);']);
    eval([deblank(Mbase_.endo_names(i,:)),'_ss=zdatass(i);']);
end


nparams = size(Mbase_.param_names,1);

for i = 1:nparams
    eval([Mbase_.param_names(i,:),'= Mbase_.params(i);']);
end