From e546d686eb3e24e1268677685c0d076cdedcee74 Mon Sep 17 00:00:00 2001
From: Johannes Pfeifer <jpfeifer@gmx.de>
Date: Fri, 4 Jun 2021 17:58:48 +0200
Subject: [PATCH] dynare_solve.m: allow calling function directly
---
matlab/dynare_solve.m | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/matlab/dynare_solve.m b/matlab/dynare_solve.m
index 6ce29b6c8c..391d92eb96 100644
--- a/matlab/dynare_solve.m
+++ b/matlab/dynare_solve.m
@@ -40,7 +40,11 @@ if isoctave
[~, name, ext]=fileparts(stack(2).file);
caller_file_name=[name,ext];
else
- caller_file_name=stack(2).file;
+ if size(stack,1)>1
+ caller_file_name=stack(2).file;
+ else
+ caller_file_name=stack(1).file;
+ end
end
if strcmp(caller_file_name, 'solve_stacked_problem.m') || strcmp(caller_file_name, 'sim1_purely_backward.m')
tolf = options.dynatol.f;
--
GitLab