diff options
| author | siddhu8990 | 2017-05-22 15:13:54 +0530 |
|---|---|---|
| committer | siddhu8990 | 2017-05-22 15:13:54 +0530 |
| commit | b33afdb2311fbe8aad4c5c614c6098585fe2d279 (patch) | |
| tree | 3d8db91388dab60159248fb0cfef160ca03cefeb /src/c/linearAlgebra | |
| parent | f0e074cc43f04f58aafe00742b9748a09f77894f (diff) | |
| parent | e36eac94dd517bb69d3e5782516ee58942451991 (diff) | |
| download | Scilab2C_fossee_old-b33afdb2311fbe8aad4c5c614c6098585fe2d279.tar.gz Scilab2C_fossee_old-b33afdb2311fbe8aad4c5c614c6098585fe2d279.tar.bz2 Scilab2C_fossee_old-b33afdb2311fbe8aad4c5c614c6098585fe2d279.zip | |
Bugs fixed for Scilab 6.0
Diffstat (limited to 'src/c/linearAlgebra')
| -rw-r--r-- | src/c/linearAlgebra/balanc/dbalanca.c | 2 | ||||
| -rw-r--r-- | src/c/linearAlgebra/rcond/drconda.c | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/c/linearAlgebra/balanc/dbalanca.c b/src/c/linearAlgebra/balanc/dbalanca.c index 558c614..a86a196 100644 --- a/src/c/linearAlgebra/balanc/dbalanca.c +++ b/src/c/linearAlgebra/balanc/dbalanca.c @@ -59,7 +59,7 @@ void dbalanca(double* in1, int rows, double* in2, double* out1, \ memcpy(buf2,in2,rows*rows*sizeof(double)); dggbal_(&JOB,&rows,buf1,&rows,buf2,&rows,&ILO,&IHI,LSCALE,RSCALE, \ - LWORK,INFO); + LWORK,&INFO); deyea(out3,rows,rows); deyea(out4,rows,rows); diff --git a/src/c/linearAlgebra/rcond/drconda.c b/src/c/linearAlgebra/rcond/drconda.c index 2082e9d..a203c1e 100644 --- a/src/c/linearAlgebra/rcond/drconda.c +++ b/src/c/linearAlgebra/rcond/drconda.c @@ -18,15 +18,15 @@ double drconda(double* in1, int rows) { - double *buf, *IPIV, *LDWORK, *LIWORK; - int INFO; + double *buf, *LDWORK; + int INFO, *IPIV, *LIWORK; char one = '1'; double ANORM; double RCOND = 1; buf = (double*) malloc((double) rows*rows*sizeof(double)); - IPIV = (double*) malloc((double) rows*sizeof(double)); - LIWORK = (double*) malloc((double) rows*sizeof(double)); + IPIV = (int*) malloc((int) rows*sizeof(int)); + LIWORK = (int*) malloc((int) rows*sizeof(int)); LDWORK = (double*) malloc((double) 4*rows*sizeof(double)); /*Copy input in temp buf, as lapack modifies input*/ |