Mercurial > hg > octave-nkf
annotate liboctave/MArray-d.cc @ 7789:82be108cc558
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 | a1dbe9d80eee |
| children | b11c31849b44 |
| rev | line source |
|---|---|
| 1212 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1995, 1996, 1997, 2000, 2003, 2005, 2007 John W. Eaton |
| 1212 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 1212 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 1212 | 20 |
| 21 */ | |
| 22 | |
| 2006 | 23 #ifdef HAVE_CONFIG_H |
| 24 #include <config.h> | |
| 25 #endif | |
| 26 | |
| 1212 | 27 // Instantiate MArrays of double values. |
| 28 | |
| 6508 | 29 #include "f77-fcn.h" |
| 30 | |
| 31 extern "C" | |
| 32 { | |
| 33 F77_RET_T | |
| 34 F77_FUNC (xdnrm2, XDNRM2) (const octave_idx_type&, const double*, | |
| 35 const octave_idx_type&, double&); | |
| 36 } | |
| 37 | |
| 1212 | 38 #include "MArray.h" |
| 39 #include "MArray.cc" | |
| 40 | |
| 6508 | 41 template <> |
| 6708 | 42 OCTAVE_API double |
| 6508 | 43 MArray<double>::norm (double p) const |
| 44 { | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
45 MARRAY_NORM_BODY (double, double, xdnrm2, XDNRM2, octave_NaN); |
| 6508 | 46 } |
| 47 | |
| 6708 | 48 template class OCTAVE_API MArray<double>; |
| 1212 | 49 |
| 6708 | 50 INSTANTIATE_MARRAY_FRIENDS (double, OCTAVE_API) |
| 1212 | 51 |
| 1989 | 52 #include "MArray2.h" |
| 53 #include "MArray2.cc" | |
| 1212 | 54 |
| 6708 | 55 template class OCTAVE_API MArray2<double>; |
| 1212 | 56 |
| 6708 | 57 INSTANTIATE_MARRAY2_FRIENDS (double, OCTAVE_API) |
| 1212 | 58 |
| 4513 | 59 #include "MArrayN.h" |
| 60 #include "MArrayN.cc" | |
| 61 | |
| 6708 | 62 template class OCTAVE_API MArrayN<double>; |
| 4513 | 63 |
| 6708 | 64 INSTANTIATE_MARRAYN_FRIENDS (double, OCTAVE_API) |
| 4513 | 65 |
| 1989 | 66 #include "MDiagArray2.h" |
| 67 #include "MDiagArray2.cc" | |
| 1212 | 68 |
| 6708 | 69 template class OCTAVE_API MDiagArray2<double>; |
| 1212 | 70 |
| 6708 | 71 INSTANTIATE_MDIAGARRAY2_FRIENDS (double, OCTAVE_API) |
| 1212 | 72 |
| 73 /* | |
| 74 ;;; Local Variables: *** | |
| 75 ;;; mode: C++ *** | |
| 76 ;;; End: *** | |
| 77 */ |