From 7c07a0dab53abe54bc7b1721a56b3c9d695bd8e2 Mon Sep 17 00:00:00 2001
From: ratto <ratto@ac1d8469-bf42-47a9-8791-bf33cf982152>
Date: Wed, 27 May 2009 06:48:07 +0000
Subject: [PATCH] Included check for existence of structure of Global variables

git-svn-id: https://www.dynare.org/svn/dynare/trunk@2691 ac1d8469-bf42-47a9-8791-bf33cf982152
---
 matlab/masterParallel.m | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/matlab/masterParallel.m b/matlab/masterParallel.m
index a22fe46b2..e0e0803b6 100644
--- a/matlab/masterParallel.m
+++ b/matlab/masterParallel.m
@@ -25,8 +25,13 @@ fInputVar.DyMo=DyMo;
 [tempo, MasterName]=system('hostname');
 MasterName=MasterName(1:end-1);
 fInputVar.MasterName = MasterName;
-save([fname,'_input.mat'],'fInputVar','fGlobalVar') 
 
+if exist('fGlobalVar'),
+save([fname,'_input.mat'],'fInputVar','fGlobalVar') 
+else
+save([fname,'_input.mat'],'fInputVar') 
+end
+save([fname,'_input.mat'],'Parallel','-append') 
 for j=1:length(Parallel),
     nCPU(j)=length(Parallel(j).NumCPU);
     totCPU=totCPU+nCPU(j);
@@ -210,8 +215,10 @@ end
             break
         end
     end
+    delete([fname,'_input.mat'])
     for j=1:totCPU,
       load([fname,'_output_',int2str(j),'.mat'],'fOutputVar');
+      delete([fname,'_output_',int2str(j),'.mat']);
       fOutVar(j)=fOutputVar;