Mercurial > octave-nkf

diff liboctave/dRowVector.cc @ 5983:ae09df27153f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-09-12 02:15:47 by jwe]
author jwe
date Tue, 12 Sep 2006 02:15:47 +0000
parents 4c8a2e4e0717
children 7e2b5d0cf7ad
line wrap: on
line diff
--- a/liboctave/dRowVector.cc	Tue Sep 05 20:13:50 2006 +0000
+++ b/liboctave/dRowVector.cc	Tue Sep 12 02:15:47 2006 +0000
@@ -45,9 +45,9 @@
 			   const double*, const octave_idx_type&, const double*,
 			   const octave_idx_type&, const double&, double*, const octave_idx_type&
 			   F77_CHAR_ARG_LEN_DECL);
-
-  double F77_FUNC (ddot, DDOT) (const octave_idx_type&, const double*, const octave_idx_type&,
-				const double*, const octave_idx_type&);
+  F77_RET_T
+  F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*, const octave_idx_type&,
+			   const double*, const octave_idx_type&, double&);
 }
 
 // Row Vector class.
@@ -365,7 +365,7 @@
   if (len != a_len)
     gripe_nonconformant ("operator *", len, a_len);
   else if (len != 0)
-    retval = F77_FUNC (ddot, DDOT) (len, v.data (), 1, a.data (), 1);
+    F77_FUNC (xddot, XDDOT) (len, v.data (), 1, a.data (), 1, retval);
 
   return retval;
 }