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);