Fixed spurious bugs when new MC smoother is invoked when an old one is already...

Fixed spurious bugs when new MC smoother is invoked when an old one is already present in gsa results subfolders
(cherry picked from commit 9a622298)

matlab/dynare_sensitivity.m

@@ -289,24 +289,42 @@ if options_gsa.rmse,
                options_.filtered_vars=0;               
            end
 %             dynare_MC([],OutputDirectoryName,data,rawdata,data_info);
-            prior_posterior_statistics('gsa',dataset_);
-            if options_.bayesian_irf
-                PosteriorIRF('gsa');
+        if options_gsa.pprior
+            TmpDirectoryName = ([M_.dname filesep 'gsa' filesep 'prior']);
+        else
+            TmpDirectoryName = ([M_.dname filesep 'gsa' filesep 'mc']);
+        end
+        if exist(TmpDirectoryName,'dir');
+            mydelete([M_.fname '_filter_step_ahead*.mat'],[TmpDirectoryName filesep]);
+            mydelete([M_.fname '_inno*.mat'],[TmpDirectoryName filesep]);
+            mydelete([M_.fname '_smooth*.mat'],[TmpDirectoryName filesep]);
+            mydelete([M_.fname '_update*.mat'],[TmpDirectoryName filesep]);
+            filparam = dir([TmpDirectoryName filesep M_.fname '_param*.mat']);
+            for j=1:length(filparam),
+                if isempty(strmatch([M_.fname '_param_irf'],filparam(j).name))
+                    delete([TmpDirectoryName filesep filparam(j).name]);
+                end
             end
-            options_gsa.load_rmse=0;
-            %   else
-            %     if options_gsa.load_rmse==0,
-            %       disp('You already saved a MC filter/smoother analysis ')
-            %       disp('Do you want to overwrite ?')
-            %       pause;
-            %       if options_gsa.pprior
-            %         delete([OutputDirectoryName,'/',fname_,'_prior_*.mat'])
-            %       else
-            %         delete([OutputDirectoryName,'/',fname_,'_mc_*.mat'])
-            %       end
-            %       dynare_MC([],OutputDirectoryName);
-            %       options_gsa.load_rmse=0;
-            %     end    
+            
+        end
+        prior_posterior_statistics('gsa',dataset_);
+        if options_.bayesian_irf
+            PosteriorIRF('gsa');
+        end
+        options_gsa.load_rmse=0;
+        %   else
+        %     if options_gsa.load_rmse==0,
+        %       disp('You already saved a MC filter/smoother analysis ')
+        %       disp('Do you want to overwrite ?')
+        %       pause;
+        %       if options_gsa.pprior
+        %         delete([OutputDirectoryName,'/',fname_,'_prior_*.mat'])
+        %       else
+        %         delete([OutputDirectoryName,'/',fname_,'_mc_*.mat'])
+        %       end
+        %       dynare_MC([],OutputDirectoryName);
+        %       options_gsa.load_rmse=0;
+        %     end
             
         end
     end