Mercurial > octave

changeset 22145:cf5145769e37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* fCMatrix.cc (xgemm): Fix thinko in cset 407c66ae1e20.
author John W. Eaton <jwe@octave.org>
date Tue, 19 Jul 2016 11:29:29 -0400
parents 469a4142c4cf
children ef91e43f162a
files liboctave/array/fCMatrix.cc
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/array/fCMatrix.cc	Tue Jul 19 08:52:15 2016 -0400
+++ b/liboctave/array/fCMatrix.cc	Tue Jul 19 11:29:29 2016 -0400
@@ -3684,15 +3684,15 @@
           if (cja == cjb)
             {
               F77_FUNC (xcdotu, XCDOTU) (a_nc, F77_CONST_CMPLX_ARG (a.data ()), 1, F77_CONST_CMPLX_ARG (b.data ()), 1,
-                                         F77_CMPLX_ARG (&c));
+                                         F77_CMPLX_ARG (c));
               if (cja) *c = std::conj (*c);
             }
           else if (cja)
             F77_FUNC (xcdotc, XCDOTC) (a_nc, F77_CONST_CMPLX_ARG (a.data ()), 1, F77_CONST_CMPLX_ARG (b.data ()), 1,
-                                       F77_CMPLX_ARG (&c));
+                                       F77_CMPLX_ARG (c));
           else
             F77_FUNC (xcdotc, XCDOTC) (a_nc, F77_CONST_CMPLX_ARG (b.data ()), 1, F77_CONST_CMPLX_ARG (a.data ()), 1,
-                                       F77_CMPLX_ARG (&c));
+                                       F77_CMPLX_ARG (c));
         }
       else if (b_nc == 1 && ! cjb)
         {