From a0dc2ce4ee30eaac5352c8e291499caaff78e95e Mon Sep 17 00:00:00 2001
From: Michel Juillard <michel.juillard@ens.fr>
Date: Sat, 31 Jul 2010 11:22:59 +0200
Subject: [PATCH] SWZ: purging all intermediary files at the beginning of SWZ
 processing

---
 matlab/swz/clean_swz_files.m | 56 ++++++++++++++++++++++++++++++++++++
 matlab/swz/swz_sbvar.m       |  2 ++
 2 files changed, 58 insertions(+)
 create mode 100644 matlab/swz/clean_swz_files.m

diff --git a/matlab/swz/clean_swz_files.m b/matlab/swz/clean_swz_files.m
new file mode 100644
index 000000000..9ee29d345
--- /dev/null
+++ b/matlab/swz/clean_swz_files.m
@@ -0,0 +1,56 @@
+function clean_swz_files(mod_name)
+% function clean_swz_files()
+% removes SWZ intermediary files
+%
+% INPUTS
+%    none
+%
+% OUTPUTS
+%    none
+%
+% SPECIAL REQUIREMENTS
+%    none
+
+% Copyright (C) 2007-2008, 2010 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 <http://www.gnu.org/licenses/>.
+
+    delete_if_exist(['./draws_' mod_name '.dat'])
+    delete_if_exist(['est_aux_' mod_name '.dat'])
+    delete_if_exist(['est_csminwel_' mod_name '.dat'])
+    delete_if_exist(['est_final_' mod_name '.dat'])
+    delete_if_exist(['est_flat_header_' mod_name '.dat'])
+    delete_if_exist(['est_flat_' mod_name '.dat'])
+    delete_if_exist(['est_intermediate_' mod_name '.dat'])
+    delete_if_exist(['header_' mod_name '.dat'])
+    delete_if_exist(['init_' mod_name '.dat'])
+    delete_if_exist('markov_file.dat')
+    delete_if_exist(['matlab_' mod_name '.prn'])
+    delete_if_exist(['mhm_draws_' mod_name '.dat'])
+    delete_if_exist(['mhm_input_' mod_name '.dat'])
+    delete_if_exist(['mhm_intermediate_draws_' mod_name '.dat'])
+    delete_if_exist(['mhm_intermediate_' mod_name '.dat'])
+    delete_if_exist(['mhm_regime_counts_' mod_name '.dat'])
+    delete_if_exist(['probabilities_' mod_name '.dat'])
+    delete_if_exist(['truncatedpower_md_posterior_' mod_name '.dat'])
+    delete_if_exist(['truncatedpower_md_proposal_' mod_name '.dat'])
+    delete_if_exist(['truncatedpower_md_' mod_name '.dat'])
+
+function delete_if_exist(fname)
+    if exist(fname) == 2
+        delete(fname)
+    end
+    
\ No newline at end of file
diff --git a/matlab/swz/swz_sbvar.m b/matlab/swz/swz_sbvar.m
index c501fb462..d6714e58e 100644
--- a/matlab/swz/swz_sbvar.m
+++ b/matlab/swz/swz_sbvar.m
@@ -8,6 +8,8 @@ addpath([swz_root '/identification']);
 addpath([swz_root '/switching_specification']);
 addpath([swz_root '/mhm_specification']);
 
+clean_swz_files(M.fname);
+
 options.data = read_variables(options.datafile,options.varobs,[],options.xls_sheet,options.xls_range);
 
 if options.forecast == 0