diff options
Diffstat (limited to '2.3-1/src/c/linearAlgebra/rcond/drconda.c')
| -rw-r--r-- | 2.3-1/src/c/linearAlgebra/rcond/drconda.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/2.3-1/src/c/linearAlgebra/rcond/drconda.c b/2.3-1/src/c/linearAlgebra/rcond/drconda.c index 2082e9de..a203c1e3 100644 --- a/2.3-1/src/c/linearAlgebra/rcond/drconda.c +++ b/2.3-1/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*/ |