summaryrefslogtreecommitdiff
path: root/src/matrixOperations/spec2/dspec2a.c
diff options
context:
space:
mode:
authorcornet2009-04-22 05:54:43 +0000
committercornet2009-04-22 05:54:43 +0000
commit879e2ac0a540fa1b199e20d47830aa5eea484a4c (patch)
tree69ef4242aa8ce27332dec2a27f4e7f10a6f9e8fb /src/matrixOperations/spec2/dspec2a.c
parent1811fe5588d0cfbb788ab8f477800af3f45dd710 (diff)
downloadscilab2c-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.c12
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 );