From 9f9f34b46aafd3acf94ee90778a71bdeeac20476 Mon Sep 17 00:00:00 2001
From: michel <michel@ac1d8469-bf42-47a9-8791-bf33cf982152>
Date: Thu, 29 Dec 2005 13:45:19 +0000
Subject: [PATCH] v3 parser dynare.c: function shocks_file must pass the value
of ms_flag
git-svn-id: https://www.dynare.org/svn/dynare/dynare_v3@572 ac1d8469-bf42-47a9-8791-bf33cf982152
---
parser.src/dynare.c | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/parser.src/dynare.c b/parser.src/dynare.c
index 4e47647e24..56e2413680 100644
--- a/parser.src/dynare.c
+++ b/parser.src/dynare.c
@@ -1336,8 +1336,9 @@ void var_output(struct token * p_t, int flag_steady)
}
}
-void p_i_shocks(void)
+void p_i_shocks(ms_flag)
{
+ char buff[2000];
#ifdef GAUSS
str_output("/* (M)SHOCKS */\n");
str_output("if not _valf;\n");
@@ -1346,7 +1347,8 @@ void p_i_shocks(void)
#elif defined MATLAB
str_output("% (M)SHOCKS \n");
str_output("make_ex_;\n");
- str_output("shocks_file;\n");
+ sprintf(buff,"shocks_file(%d);\n",ms_flag);
+ str_output(buff);
#elif defined SCILAB
str_output("// (M)SHOCKS \n");
str_output("make_ex_();\n");
--
GitLab