From 18dad63040ded686187204f549d38100f62fe388 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 29 Jun 2015 11:43:48 +0200 Subject: use lda in lus --- packages/base/src/Internal/C/lapack-aux.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'packages/base/src/Internal/C') diff --git a/packages/base/src/Internal/C/lapack-aux.c b/packages/base/src/Internal/C/lapack-aux.c index 72c44cb..80e5720 100644 --- a/packages/base/src/Internal/C/lapack-aux.c +++ b/packages/base/src/Internal/C/lapack-aux.c @@ -1124,6 +1124,7 @@ int dgetrs_(char *trans, integer *n, integer *nrhs, int luS_l_R(KODMAT(a), KDVEC(ipiv), ODMAT(b)) { integer m = ar; integer n = ac; + integer lda = aXc; integer mrhs = br; integer nrhs = bc; @@ -1134,7 +1135,7 @@ int luS_l_R(KODMAT(a), KDVEC(ipiv), ODMAT(b)) { auxipiv[k] = (integer)ipivp[k]; } integer res; - dgetrs_ ("N",&n,&nrhs,(/*no const (!?)*/ double*)ap,&m,auxipiv,bp,&mrhs,&res); + dgetrs_ ("N",&n,&nrhs,(/*no const (!?)*/ double*)ap,&lda,auxipiv,bp,&mrhs,&res); CHECK(res,res); free(auxipiv); OK @@ -1148,6 +1149,7 @@ int zgetrs_(char *trans, integer *n, integer *nrhs, int luS_l_C(KOCMAT(a), KDVEC(ipiv), OCMAT(b)) { integer m = ar; integer n = ac; + integer lda = aXc; integer mrhs = br; integer nrhs = bc; @@ -1158,7 +1160,7 @@ int luS_l_C(KOCMAT(a), KDVEC(ipiv), OCMAT(b)) { auxipiv[k] = (integer)ipivp[k]; } integer res; - zgetrs_ ("N",&n,&nrhs,(doublecomplex*)ap,&m,auxipiv,bp,&mrhs,&res); + zgetrs_ ("N",&n,&nrhs,(doublecomplex*)ap,&lda,auxipiv,bp,&mrhs,&res); CHECK(res,res); free(auxipiv); OK -- cgit v1.2.3