Mercurial > hg > octave-nkf

diff liboctave/MArray-d.cc @ 6508:184ab67c3bc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-07 00:43:09 by jwe]
author jwe
date Sat, 07 Apr 2007 00:43:10 +0000
parents 4c8a2e4e0717
children 0ce71beb1cf3
line wrap: on
line diff
--- a/liboctave/MArray-d.cc
+++ b/liboctave/MArray-d.cc
@@ -27,9 +27,25 @@
 
 // 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"
 
+template <>
+double
+MArray<double>::norm (double p) const
+{
+  MARRAY_NORM_BODY (double, xdnrm2, XDNRM2);
+}
+
 template class MArray<double>;
 
 INSTANTIATE_MARRAY_FRIENDS (double)