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

Dynare++, dynare_simul_ DLL: fixes for 64-bit MATLAB 

git-svn-id: https://www.dynare.org/svn/dynare/trunk@3113 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
sebastien 2009-11-02 12:03:02 +00:00
parent 2916aa7508
commit 3d755ad8be
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dynare++/extern/matlab/dynare_simul.cpp vendored
View File

@ -53,10 +53,10 @@ extern "C" {
const mxArray* const vcov = prhs[8]; const mxArray* const vcov = prhs[8];
int seed = (int)mxGetScalar(prhs[9]); int seed = (int)mxGetScalar(prhs[9]);
const mxArray* const ysteady = prhs[10]; const mxArray* const ysteady = prhs[10];
const int* const ystart_dim = mxGetDimensions(ystart); const mwSize* const ystart_dim = mxGetDimensions(ystart);
const int* const shocks_dim = mxGetDimensions(shocks); const mwSize* const shocks_dim = mxGetDimensions(shocks);
const int* const vcov_dim = mxGetDimensions(vcov); const mwSize* const vcov_dim = mxGetDimensions(vcov);
const int* const ysteady_dim = mxGetDimensions(ysteady); const mwSize* const ysteady_dim = mxGetDimensions(ysteady);
int ny = nstat + npred + nboth + nforw; int ny = nstat + npred + nboth + nforw;
if (ny != ystart_dim[0]) if (ny != ystart_dim[0])
@ -85,7 +85,7 @@ extern "C" {
UTensorPolynomial pol(ny, npred+nboth+nexog); UTensorPolynomial pol(ny, npred+nboth+nexog);
for (int dim = 0; dim <= order; dim++) { for (int dim = 0; dim <= order; dim++) {
const mxArray* gk = prhs[11+dim]; const mxArray* gk = prhs[11+dim];
const int* const gk_dim = mxGetDimensions(gk); const mwSize* const gk_dim = mxGetDimensions(gk);
FFSTensor ft(ny, npred+nboth+nexog, dim); FFSTensor ft(ny, npred+nboth+nexog, dim);
if (ft.ncols() != gk_dim[1]) { if (ft.ncols() != gk_dim[1]) {
char buf[1000]; char buf[1000];