diff options
author | cornet | 2009-04-22 05:54:43 +0000 |
---|---|---|
committer | cornet | 2009-04-22 05:54:43 +0000 |
commit | 879e2ac0a540fa1b199e20d47830aa5eea484a4c (patch) | |
tree | 69ef4242aa8ce27332dec2a27f4e7f10a6f9e8fb /src/matrixOperations/spec2/dspec2a.c | |
parent | 1811fe5588d0cfbb788ab8f477800af3f45dd710 (diff) | |
download | scilab2c-879e2ac0a540fa1b199e20d47830aa5eea484a4c.tar.gz scilab2c-879e2ac0a540fa1b199e20d47830aa5eea484a4c.tar.bz2 scilab2c-879e2ac0a540fa1b199e20d47830aa5eea484a4c.zip |
build with visual studio (dynamic libraries)
Diffstat (limited to 'src/matrixOperations/spec2/dspec2a.c')
-rw-r--r-- | src/matrixOperations/spec2/dspec2a.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/matrixOperations/spec2/dspec2a.c b/src/matrixOperations/spec2/dspec2a.c index ff4b0cb5..f1db6eca 100644 --- a/src/matrixOperations/spec2/dspec2a.c +++ b/src/matrixOperations/spec2/dspec2a.c @@ -10,7 +10,7 @@ * */ - +#include <malloc.h> #include "spec.h" #include "lapack.h" #include "zeros.h" @@ -31,15 +31,15 @@ void dspec2a(double* in, int rows,double* eigenvalues,double* eigenvectors){ double* inCopy; /* FIXME : malloc here */ - inCopy = malloc((uint)(rows*rows) * sizeof(double)); - outReal = malloc((uint)rows * sizeof(double)); + inCopy = (double*)malloc((unsigned int)(rows*rows) * sizeof(double)); + outReal = (double*)malloc((unsigned int)rows * sizeof(double)); outImag = NULL; pdblLeftvectors=NULL; pdblRightvectors=NULL; iWorkSize = 4*rows; - pdblWork = malloc((uint)iWorkSize * sizeof(double)); + pdblWork = (double*)malloc((unsigned int)iWorkSize * sizeof(double)); for(i=0;i<rows*rows;i++) inCopy[i]=in[i]; @@ -65,8 +65,8 @@ void dspec2a(double* in, int rows,double* eigenvalues,double* eigenvectors){ for (i=0;i<rows*rows;i++) eigenvectors[i] = inCopy[i]; } else { - pdblRightvectors=malloc((uint)(rows*rows) * sizeof(double)); - outImag = malloc((uint)rows * sizeof(double)); + pdblRightvectors=(double*)malloc((unsigned int)(rows*rows) * sizeof(double)); + outImag = (double*)malloc((unsigned int)rows * sizeof(double)); C2F(dgeev)( "N", "V", &rows, inCopy, &rows, outReal, outImag, pdblLeftvectors, &rows, pdblRightvectors, &rows, pdblWork, &iWorkSize, &INFO ); |