stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Specialized maxit in bytecode mex (dynamic simulation vs steady state).

time-shift
Stéphane Adjemian (Charybdis) 2013-10-09 16:55:46 +02:00
parent 5a98be702c
commit 399b6d2615
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
mex/sources/bytecode/bytecode.cc
View File

@ -707,16 +707,25 @@ main(int nrhs, const char *prhs[])
DYN_MEX_FUNC_ERR_MSG_TXT("verbosity is not a field of options_");
if (verbose)
print_it = true;
field = mxGetFieldNumber(options_, "simul");
mxArray *simul;
if (field >= 0)
simul = mxGetFieldByNumber(options_, 0, field);
if (!steady_state)
field = mxGetFieldNumber(options_, "simul");
else
DYN_MEX_FUNC_ERR_MSG_TXT("simul is not a field of options_");
field = mxGetFieldNumber(simul, "maxit");
field = mxGetFieldNumber(options_, "steady");
mxArray *temporaryfield;
if (field >= 0)
temporaryfield = mxGetFieldByNumber(options_, 0, field);
else
if (!steady_state)
DYN_MEX_FUNC_ERR_MSG_TXT("simul is not a field of options_");
else
DYN_MEX_FUNC_ERR_MSG_TXT("steady is not a field of options_");
field = mxGetFieldNumber(temporaryfield, "maxit");
if (field<0)
DYN_MEX_FUNC_ERR_MSG_TXT("maxit is not a field of options_.simul");
int maxit_ = int (floor(*(mxGetPr(mxGetFieldByNumber(simul, 0, field)))));
if (!steady_state)
DYN_MEX_FUNC_ERR_MSG_TXT("maxit is not a field of options_.simul");
else
DYN_MEX_FUNC_ERR_MSG_TXT("maxit is not a field of options_.steady");
int maxit_ = int (floor(*(mxGetPr(mxGetFieldByNumber(temporaryfield, 0, field)))));
field = mxGetFieldNumber(options_, "slowc");
if (field < 0)
DYN_MEX_FUNC_ERR_MSG_TXT("slows is not a field of options_");