Mercurial > octave-nkf

comparison liboctave/MArray-fC.cc @ 7789:82be108cc558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First attempt at single precision tyeps * * * corrections to qrupdate single precision routines * * * prefer demotion to single over promotion to double * * * Add single precision support to log2 function * * * Trivial PROJECT file update * * * Cache optimized hermitian/transpose methods * * * Add tests for tranpose/hermitian and ChangeLog entry for new transpose code
author David Bateman <dbateman@free.fr>
date Sun, 27 Apr 2008 22:34:17 +0200
parents
children b11c31849b44
comparison
equal deleted inserted replaced
7788:45f5faba05a2 7789:82be108cc558
1 /*
2
3 Copyright (C) 1995, 1996, 1997, 2000, 2003, 2005, 2006, 2007
4 John W. Eaton
5
6 This file is part of Octave.
7
8 Octave is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the
10 Free Software Foundation; either version 3 of the License, or (at your
11 option) any later version.
12
13 Octave is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with Octave; see the file COPYING. If not, see
20 <http://www.gnu.org/licenses/>.
21
22 */
23
24 #ifdef HAVE_CONFIG_H
25 #include <config.h>
26 #endif
27
28 // Instantiate MArrays of FloatComplex values.
29
30 #include "oct-cmplx.h"
31 #include "f77-fcn.h"
32
33 extern "C"
34 {
35 F77_RET_T
36 F77_FUNC (xscnrm2, XSCNRM2) (const octave_idx_type&, const FloatComplex*,
37 const octave_idx_type&, float&);
38 }
39
40 #include "MArray.h"
41 #include "MArray.cc"
42
43 template <>
44 OCTAVE_API float
45 MArray<FloatComplex>::norm (float p) const
46 {
47 MARRAY_NORM_BODY (FloatComplex, float, xscnrm2, XSCNRM2, octave_Float_NaN);
48 }
49
50 template class OCTAVE_API MArray<FloatComplex>;
51
52 INSTANTIATE_MARRAY_FRIENDS (FloatComplex, OCTAVE_API)
53
54 #include "MArray2.h"
55 #include "MArray2.cc"
56
57 template class OCTAVE_API MArray2<FloatComplex>;
58
59 INSTANTIATE_MARRAY2_FRIENDS (FloatComplex, OCTAVE_API)
60
61 #include "MArrayN.h"
62 #include "MArrayN.cc"
63
64 template class OCTAVE_API MArrayN<FloatComplex>;
65
66 INSTANTIATE_MARRAYN_FRIENDS (FloatComplex, OCTAVE_API)
67
68 #include "MDiagArray2.h"
69 #include "MDiagArray2.cc"
70
71 template class OCTAVE_API MDiagArray2<FloatComplex>;
72
73 INSTANTIATE_MDIAGARRAY2_FRIENDS (FloatComplex, OCTAVE_API)
74
75 /*
76 ;;; Local Variables: ***
77 ;;; mode: C++ ***
78 ;;; End: ***
79 */