Mercurial > octave-nkf

comparison liboctave/CRowVector.cc @ 7052:ee70ac66041f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-23 17:46:48 by jwe]
author jwe
date Tue, 23 Oct 2007 17:46:48 +0000
parents a1dbe9d80eee
children 29980c6b8604
comparison
equal deleted inserted replaced
7051:405001b6a514 7052:ee70ac66041f
500 500
501 if (len != a_len) 501 if (len != a_len)
502 gripe_nonconformant ("operator *", len, a_len); 502 gripe_nonconformant ("operator *", len, a_len);
503 else if (len != 0) 503 else if (len != 0)
504 F77_FUNC (xzdotu, XZDOTU) (len, v.data (), 1, a.data (), 1, retval); 504 F77_FUNC (xzdotu, XZDOTU) (len, v.data (), 1, a.data (), 1, retval);
505 for (octave_idx_type i = 0; i < len; i++)
506 retval += v.elem (i) * a.elem (i);
507 505
508 return retval; 506 return retval;
509 } 507 }
510 508
511 // other operations 509 // other operations