Mercurial > hg > octave-nkf
diff liboctave/fCMatrix.cc @ 11596:a9cf422ed849
avoid apparent bug in ATLAS versions of CHERK/ZHERK
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 21 Jan 2011 11:05:21 -0500 |
parents | 12df7854fa7c |
children | 353c71c76f22 |
line wrap: on
line diff
--- a/liboctave/fCMatrix.cc +++ b/liboctave/fCMatrix.cc @@ -3750,7 +3750,12 @@ { octave_idx_type lda = a.rows (); - retval = FloatComplexMatrix (a_nr, b_nc); + // FIXME -- looking at the reference BLAS, it appears that it + // should not be necessary to initialize the output matrix if + // BETA is 0 in the call to CHERK, but ATLAS appears to + // use the result matrix before zeroing the elements. + + retval = FloatComplexMatrix (a_nr, b_nc, 0.0); FloatComplex *c = retval.fortran_vec (); const char ctra = get_blas_trans_arg (tra, cja);