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

Fixed warning message (warning: cast to pointer from integer of different size).

time-shift
Stéphane Adjemian (Charybdis) 2011-12-22 13:08:26 +01:00
parent 699b93b9d4
commit dccc8478aa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mex/sources/sobol/gaussian.hh
View File

@ -130,9 +130,11 @@ template<typename T> void icdfm( const int n, T *U)
template<typename T> void icdfmSigma( const int d, const int n, T *U, const double *LowerCholSigma)
{
double one = 1.0;
blas_int dd(d);
blas_int nn(n);
icdfm(n*d, U);
double tmp[n*d];
dgemm("N","N",(blas_int*)d,(blas_int*)n,(blas_int*)d,&one,LowerCholSigma,(blas_int*)d,U,(blas_int*)d,&one,tmp,(blas_int*)d);
dgemm("N","N",&dd,&nn,&dd,&one,LowerCholSigma,&dd,U,&dd,&one,tmp,&dd);
memcpy(U,tmp,d*n*sizeof(double));
return;
}