From f83d7db9073786bc84c0e388c725675737b24abb Mon Sep 17 00:00:00 2001
From: Marco Ratto <marco.ratto@jrc.ec.europa.eu>
Date: Fri, 21 Jan 2011 11:28:28 +0100
Subject: [PATCH] Fix of .mat extension with save for octave.

---
 matlab/dynare_sensitivity.m |  6 +++---
 matlab/mr_gstep.m           |  4 ++--
 matlab/mr_hessian.m         |  6 +++---
 matlab/newrat.m             | 10 +++++-----
 4 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/matlab/dynare_sensitivity.m b/matlab/dynare_sensitivity.m
index 77adb5531..cf5a5d7a9 100644
--- a/matlab/dynare_sensitivity.m
+++ b/matlab/dynare_sensitivity.m
@@ -375,19 +375,19 @@ if options_gsa.glue,
         %     Info.order_var=dr_.order_var;
         %     Out=Out1;
         Info.TypeofSample='post';
-        save([OutputDirectoryName,'/',fname_,'_glue_post'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
+        save([OutputDirectoryName,'/',fname_,'_glue_post.mat'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
         %save([fname_,'_post_glue_smooth'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info')
         
     else
         if options_gsa.pprior
             Info.TypeofSample='prior';
-            save([OutputDirectoryName,'/',fname_,'_glue_prior'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
+            save([OutputDirectoryName,'/',fname_,'_glue_prior.mat'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
             %       save([OutputDirectoryName,'/',fname_,'_prior_glue'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
             %       Out=Out1;
             %       save([OutputDirectoryName,'/',fname_,'_prior_glue_smooth'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
         else
             Info.TypeofSample='mc';
-            save([OutputDirectoryName,'/',fname_,'_glue_mc'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
+            save([OutputDirectoryName,'/',fname_,'_glue_mc.mat'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
             %       save([OutputDirectoryName,'/',fname_,'_mc_glue'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
             %       Out=Out1;
             %       save([OutputDirectoryName,'/',fname_,'_mc_glue_smooth'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
diff --git a/matlab/mr_gstep.m b/matlab/mr_gstep.m
index ce6448fbe..291b3403b 100644
--- a/matlab/mr_gstep.m
+++ b/matlab/mr_gstep.m
@@ -144,10 +144,10 @@ while i<n,
         end
         xh1=x;
     end
-    save gstep
+    save gstep.mat
 end
 
-save gstep
+save gstep.mat
 
 
 
diff --git a/matlab/mr_hessian.m b/matlab/mr_hessian.m
index efa5490c0..ddbc5e278 100644
--- a/matlab/mr_hessian.m
+++ b/matlab/mr_hessian.m
@@ -202,7 +202,7 @@ while i<n,
         h1(i)=h10;
         i=0;
     end
-    save hess
+    save hess.mat
 end
 
 h_1=h1;
@@ -261,7 +261,7 @@ if hflag==2,
             xh_1(i)=x(i);
             xh_1(j)=x(j);
             j=j+1;
-            save hess
+            save hess.mat
         end
         i=i+1;
     end
@@ -323,7 +323,7 @@ if any(isnan(hessian_mat)),
 end
 hh1=h1;
 htol1=htol;
-save hess
+save hess.mat
 % 11/25/03 SA Created from Hessian_sparse (removed sparse)
 
 
diff --git a/matlab/newrat.m b/matlab/newrat.m
index 0e11f12e4..a4acc4157 100644
--- a/matlab/newrat.m
+++ b/matlab/newrat.m
@@ -89,7 +89,7 @@ disp(['Maximum Hessian eigenvalue ',num2str(max(ee))])
 g=gg;
 check=0;
 if max(eig(hh))<0, disp('Negative definite Hessian! Local maximum!'), pause, end,
-save m1 x hh g hhg igg fval0
+save m1.mat x hh g hhg igg fval0
 
 igrad=1;
 igibbs=1;
@@ -202,9 +202,9 @@ while norm(gg)>gtol & check==0 & jit<nit,
         
         if norm(x(:,icount)-xparam1)>1.e-12,
             try 
-                save m1 x fval0 nig -append
+                save m1.mat x fval0 nig -append
             catch
-                save m1 x fval0 nig 
+                save m1.mat x fval0 nig 
             end
             [dum, gg, htol0, igg, hhg]=mr_hessian(0,xparam1,func_hh,flagit,htol,varargin{:});
             if htol0>htol, %ftol,
@@ -237,11 +237,11 @@ while norm(gg)>gtol & check==0 & jit<nit,
         disp(['Elapsed time for iteration ',num2str(t),' s.'])
         
         g(:,icount+1)=gg;
-        save m1 x hh g hhg igg fval0 nig
+        save m1.mat x hh g hhg igg fval0 nig
     end
 end
 
-save m1 x hh g hhg igg fval0 nig
+save m1.mat x hh g hhg igg fval0 nig
 if ftol>ftol0,
     disp(' ')
     disp('Numerical noise in the likelihood')