Mercurial > hg > octave-nkf

diff liboctave/MArray-d.cc @ 8303:b11c31849b44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve norm computation capabilities
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 31 Oct 2008 08:05:32 +0100
parents 82be108cc558
children c374691576f6
line wrap: on
line diff
--- a/liboctave/MArray-d.cc
+++ b/liboctave/MArray-d.cc
@@ -26,23 +26,16 @@
 
 // Instantiate MArrays of double values.
 
-#include "f77-fcn.h"
-
-extern "C"
-{
-  F77_RET_T
-  F77_FUNC (xdnrm2, XDNRM2) (const octave_idx_type&, const double*,
-			     const octave_idx_type&, double&);
-}
-
 #include "MArray.h"
 #include "MArray.cc"
+#include "dColVector.h"
+#include "oct-norm.h"
 
 template <>
 OCTAVE_API double
 MArray<double>::norm (double p) const
 {
-  MARRAY_NORM_BODY (double, double, xdnrm2, XDNRM2, octave_NaN);
+  return xnorm (ColumnVector (*this), p);
 }
 
 template class OCTAVE_API MArray<double>;