From 6690b964be56fd0f878fe52029877967a6a35ed9 Mon Sep 17 00:00:00 2001 From: "Bryan W. Weber" Date: Sat, 29 Oct 2016 12:02:01 -0400 Subject: [PATCH] Fix rcond unintialized warning --- include/cantera/numerics/ctlapack.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/include/cantera/numerics/ctlapack.h b/include/cantera/numerics/ctlapack.h index ca17fb7f1..f0e879c2a 100644 --- a/include/cantera/numerics/ctlapack.h +++ b/include/cantera/numerics/ctlapack.h @@ -419,7 +419,7 @@ inline doublereal ct_dtrcon(const char* norm, ctlapack::upperlower_t uplot, cons integer f_n = static_cast(n); integer f_lda = static_cast(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(n); integer f_lda = static_cast(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(ku); integer f_ldab = static_cast(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);