diff options
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*/ |