function [dr, info, params] = resol(check_flag, M_, options_, dr_in, endo_steady_state, exo_steady_state, exo_det_steady_state)
%[dr, info, params] = resol(check_flag, M_, options_, dr_in, endo_steady_state, exo_steady_state, exo_det_steady_state)
% Computes the perturbation based decision rules of the DSGE model (orders 1 to 3)
%
% INPUTS
% - check_flag [integer] scalar, equal to 0 if all the approximation is required, equal to 1 if only the eigenvalues are to be computed.
% - M_ [structure] Matlab's structure describing the model
% - options_ [structure] Matlab's structure describing the current options
% - dr_in [structure] model information structure
% - endo_steady_state [vector] steady state value for endogenous variables
% - exo_steady_state [vector] steady state value for exogenous variables
% - exo_det_steady_state [vector] steady state value for exogenous deterministic variables
%
% OUTPUTS
% - dr [structure] Reduced form model.
% - info [integer] scalar or vector, error code.
% - params [double] vector of potentially updated parameters
%
% REMARKS
% Possible values for the error codes are:
%
% info(1)=0 -> No error.
% info(1)=1 -> The model doesn't determine the current variables uniquely.
% info(1)=2 -> MJDGGES returned an error code.
% info(1)=3 -> Blanchard & Kahn conditions are not satisfied: no stable equilibrium.
% info(1)=4 -> Blanchard & Kahn conditions are not satisfied: indeterminacy.
% info(1)=5 -> Blanchard & Kahn conditions are not satisfied: indeterminacy due to rank failure.
% info(1)=6 -> The jacobian evaluated at the deterministic steady state is complex.
% info(1)=19 -> The steadystate routine has thrown an exception (inconsistent deep parameters).
% info(1)=20 -> Cannot find the steady state, info(2) contains the sum of square residuals (of the static equations).
% info(1)=21 -> The steady state is complex, info(2) contains the sum of square of imaginary parts of the steady state.
% info(1)=22 -> The steady has NaNs.
% info(1)=23 -> M_.params has been updated in the steadystate routine and has complex valued scalars.
% info(1)=24 -> M_.params has been updated in the steadystate routine and has some NaNs.
% info(1)=30 -> Ergodic variance can't be computed.
% Copyright © 20012023 Dynare Team
%
% This file is part of Dynare.
%
% Dynare is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% Dynare is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
%preserve only the following fields:
if isfield(dr_in,'kstate')
dr.kstate = dr_in.kstate;
end
if isfield(dr_in,'inv_order_var')
dr.inv_order_var = dr_in.inv_order_var;
end
if isfield(dr_in,'order_var')
dr.order_var = dr_in.order_var;
end
if isfield(dr_in,'restrict_var_list')
dr.restrict_var_list = dr_in.restrict_var_list;
end
if isfield(dr_in,'restrict_columns')
dr.restrict_columns = dr_in.restrict_columns;
end
if isfield(dr_in,'obs_var')
dr.obs_var = dr_in.obs_var;
end
if M_.exo_nbr == 0
exo_steady_state = [] ;
end
[dr.ys,M_.params,info] = evaluate_steady_state(endo_steady_state,[exo_steady_state; exo_det_steady_state],M_,options_,~options_.steadystate.nocheck);
params=M_.params;
if info(1)
return
end
if options_.loglinear
threshold = 1e-16;
% Find variables with non positive steady state. Skip auxiliary
% variables for lagges/leaded exogenous variables
idx = find(dr.ys(get_all_variables_but_lagged_leaded_exogenous(M_))