Commit db2bcba9 authored by sebastien's avatar sebastien
Browse files

trunk: reverted r2572 changeset


git-svn-id: https://www.dynare.org/svn/dynare/trunk@2601 ac1d8469-bf42-47a9-8791-bf33cf982152
parent a1ad1ed0
......@@ -543,6 +543,10 @@ function [dr,info,M_,options_,oo_] = dr1(dr,task,M_,options_,oo_)
zx=[zx; zeros(M_.exo_nbr,np);zeros(M_.exo_det_nbr,np)];
zu=[zu; eye(M_.exo_nbr);zeros(M_.exo_det_nbr,M_.exo_nbr)];
[nrzx,nczx] = size(zx);
% Workaround for USE_DLL option: at this time, it returns a full hessian
hessian = sparse(hessian);
rhs = -sparse_hessian_times_B_kronecker_C(hessian,zx);
%lhs
......
......@@ -1160,10 +1160,9 @@ DynamicModel::writeDynamicCFile(const string &dynamic_basename) const
<< " g2 = NULL;" << endl
<< " if (nlhs >= 3)" << endl
<< " {" << endl
<< " /* Set the output pointer to the output matrix g2. */" << endl;
int g2_ncols = getDynJacobianColsNbr()*getDynJacobianColsNbr();
mDynamicModelFile << " plhs[2] = mxCreateSparse(" << equations.size() << ", " << g2_ncols << ", "
<< 5*g2_ncols << ", mxREAL);" << endl
<< " /* Set the output pointer to the output matrix g2. */" << endl
<< " plhs[2] = mxCreateDoubleMatrix(" << equations.size() << ", " << getDynJacobianColsNbr()*getDynJacobianColsNbr()
<< ", mxREAL);" << endl
<< " /* Create a C pointer to a copy of the output matrix g1. */" << endl
<< " g2 = mxGetPr(plhs[2]);" << endl
<< " }" << endl
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment