From 27ef4a84a17833ddc3b60ec85f48a8daae3c295c Mon Sep 17 00:00:00 2001
From: Michel Juillard <michel.juillard@mjui.fr>
Date: Sun, 8 Jan 2012 18:46:17 +0100
Subject: [PATCH] removing options_ and oo_ from dr1.m output arguments
---
matlab/dr1.m | 12 +-----------
matlab/resol.m | 2 +-
2 files changed, 2 insertions(+), 12 deletions(-)
diff --git a/matlab/dr1.m b/matlab/dr1.m
index c6f2f3c729..eb6c0f8210 100644
--- a/matlab/dr1.m
+++ b/matlab/dr1.m
@@ -1,4 +1,4 @@
-function [dr,info,options_,oo_] = dr1(dr,task,M_,options_,oo_)
+function [dr,info] = dr1(dr,task,M_,options_,oo_)
% function [dr,info,M_,options_,oo_] = dr1(dr,task,M_,options_,oo_)
% computes the reduced form solution of a rational expectation model (first or second order
% approximation of the stochastic model around the deterministic steady state).
@@ -21,8 +21,6 @@ function [dr,info,options_,oo_] = dr1(dr,task,M_,options_,oo_)
% indeterminacy.
% info=5: BK rank condition not satisfied.
% info=6: The jacobian matrix evaluated at the steady state is complex.
-% options_ [matlab structure]
-% oo_ [matlab structure]
%
% ALGORITHM
% ...
@@ -70,20 +68,12 @@ iyv = iyv(:);
iyr0 = find(iyv) ;
it_ = M_.maximum_lag + 1 ;
-if M_.exo_nbr == 0
- oo_.exo_steady_state = [] ;
-end
-
klen = M_.maximum_lag + M_.maximum_lead + 1;
iyv = lead_lag_incidence';
iyv = iyv(:);
iyr0 = find(iyv) ;
it_ = M_.maximum_lag + 1 ;
-if M_.exo_nbr == 0
- oo_.exo_steady_state = [] ;
-end
-
it_ = M_.maximum_lag + 1;
z = repmat(dr.ys,1,klen);
if ~options_.bytecode
diff --git a/matlab/resol.m b/matlab/resol.m
index 8c3b2d12e5..1d8fe67f05 100644
--- a/matlab/resol.m
+++ b/matlab/resol.m
@@ -114,7 +114,7 @@ end
if options.block
[dr,info,M,options,oo] = dr_block(dr,check_flag,M,options,oo);
else
- [dr,info,options,oo] = dr1(dr,check_flag,M,options,oo);
+ [dr,info] = dr1(dr,check_flag,M,options,oo);
end
if info(1)
--
GitLab