research/cantera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix rcond unintialized warning

Browse source
This commit is contained in:
Bryan W. Weber 2016-10-29 12:02:01 -04:00 • committed by Ray Speth
parent 174db13165
commit 6690b964be
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
include/cantera/numerics/ctlapack.h
View file

@ -419,7 +419,7 @@ inline doublereal ct_dtrcon(const char* norm, ctlapack::upperlower_t uplot, cons
integer f_n = static_cast<integer>(n);
integer f_lda = static_cast<integer>(lda);
integer f_info = 0;
doublereal rcond;
doublereal rcond = 0.0;
ftnlen trsize = 1;
#ifdef LAPACK_FTN_STRING_LEN_AT_END
_DTRCON_(&nn, &uplo, &dd, &f_n, a, &f_lda, &rcond, work, iwork, &f_info, trsize, trsize, trsize);
@ -475,7 +475,7 @@ inline doublereal ct_dgecon(const char norm, size_t n, doublereal* a, size_t lda
integer f_n = static_cast<integer>(n);
integer f_lda = static_cast<integer>(lda);
integer f_info = 0;
doublereal rcond;
doublereal rcond = 0.0;
ftnlen trsize = 1;
#ifdef LAPACK_FTN_STRING_LEN_AT_END
_DGECON_(&cnorm, &f_n, a, &f_lda, &anorm, &rcond, work, iwork, &f_info, trsize);
@ -499,7 +499,7 @@ inline doublereal ct_dgbcon(const char norm, size_t n, size_t kl, size_t ku,
integer f_ku = static_cast<integer>(ku);
integer f_ldab = static_cast<integer>(ldab);
integer f_info = 0;
doublereal rcond;
doublereal rcond = 0.0;
ftnlen trsize = 1;
#ifdef LAPACK_FTN_STRING_LEN_AT_END
_DGBCON_(&cnorm, &f_n, &f_kl, &f_ku, a, &f_ldab, ipiv, &anorm, &rcond, work, iwork, &f_info, trsize);