Mercurial > hg > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
6507:679c2f987943 6508:184ab67c3bc1
25 #include <config.h> 25 #include <config.h>
26 #endif 26 #endif
27 27
28 // Instantiate MArrays of double values. 28 // Instantiate MArrays of double values.
29 29
30 #include "f77-fcn.h"
31
32 extern "C"
33 {
34 F77_RET_T
35 F77_FUNC (xdnrm2, XDNRM2) (const octave_idx_type&, const double*,
36 const octave_idx_type&, double&);
37 }
38
30 #include "MArray.h" 39 #include "MArray.h"
31 #include "MArray.cc" 40 #include "MArray.cc"
41
42 template <>
43 double
44 MArray<double>::norm (double p) const
45 {
46 MARRAY_NORM_BODY (double, xdnrm2, XDNRM2);
47 }
32 48
33 template class MArray<double>; 49 template class MArray<double>;
34 50
35 INSTANTIATE_MARRAY_FRIENDS (double) 51 INSTANTIATE_MARRAY_FRIENDS (double)
36 52