From a070f5cb2627d5c4b9f7faac0d3322bd6f73ae9a Mon Sep 17 00:00:00 2001
From: Marco Ratto <marco.ratto@jrc.ec.europa.eu>
Date: Wed, 30 May 2012 11:24:35 +0200
Subject: [PATCH] Fixed initialization of matrices for posterior irfs.
---
matlab/PosteriorIRF.m | 1 +
matlab/PosteriorIRF_core1.m | 24 ++++++++++++++----------
2 files changed, 15 insertions(+), 10 deletions(-)
diff --git a/matlab/PosteriorIRF.m b/matlab/PosteriorIRF.m
index c70b05f82a..ec7cdf1737 100644
--- a/matlab/PosteriorIRF.m
+++ b/matlab/PosteriorIRF.m
@@ -172,6 +172,7 @@ localVars.IRUN = IRUN;
localVars.irun = irun;
localVars.irun2=irun2;
localVars.nosaddle=nosaddle;
+localVars.npar = npar;
localVars.type=type;
if strcmpi(type,'posterior')
diff --git a/matlab/PosteriorIRF_core1.m b/matlab/PosteriorIRF_core1.m
index 55beeafcd7..d89308db9b 100644
--- a/matlab/PosteriorIRF_core1.m
+++ b/matlab/PosteriorIRF_core1.m
@@ -53,20 +53,12 @@ IRUN = myinputs.IRUN;
irun =myinputs.irun;
irun2=myinputs.irun2;
nosaddle=myinputs.nosaddle;
+npar=myinputs.npar;
type=myinputs.type;
if ~strcmpi(type,'prior'),
x=myinputs.x;
end
-if options_.dsge_var
- gend=myinputs.gend;
- nvobs=myinputs.nvobs;
- NumberOfParametersPerEquation = myinputs.NumberOfParametersPerEquation;
- NumberOfLags = myinputs.NumberOfLags;
- NumberOfLagsTimesNvobs = myinputs.NumberOfLagsTimesNvobs;
- Companion_matrix = myinputs.Companion_matrix;
-end
-
nvar=myinputs.nvar;
IndxVariables=myinputs.IndxVariables;
MAX_nirfs_dsgevar=myinputs.MAX_nirfs_dsgevar;
@@ -77,6 +69,17 @@ NumberOfIRFfiles_dsge=myinputs.NumberOfIRFfiles_dsge;
NumberOfIRFfiles_dsgevar=myinputs.NumberOfIRFfiles_dsgevar;
ifil2=myinputs.ifil2;
+if options_.dsge_var
+ gend=myinputs.gend;
+ nvobs=myinputs.nvobs;
+ NumberOfParametersPerEquation = myinputs.NumberOfParametersPerEquation;
+ NumberOfLags = myinputs.NumberOfLags;
+ NumberOfLagsTimesNvobs = myinputs.NumberOfLagsTimesNvobs;
+ Companion_matrix = myinputs.Companion_matrix;
+ stock_irf_bvardsge = zeros(options_.irf,nvobs,M_.exo_nbr,MAX_nirfs_dsgevar);
+end
+
+
if whoiam
Parallel=myinputs.Parallel;
end
@@ -129,7 +132,8 @@ if whoiam
end
% Parallel 'while' very good!!!
-
+stock_param=zeros(MAX_nruns,npar);
+stock_irf_dsge=zeros(options_.irf,nvar,M_.exo_nbr,MAX_nirfs_dsge);
while fpar<npar
fpar = fpar + 1;
irun = irun+1;
--
GitLab