Mercurial > octave-libgccjit
comparison src/OPERATORS/op-fcdm-fcs.cc @ 8366:8b1a2555c4e2
implement diagonal matrix objects
* * *
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Wed, 03 Dec 2008 13:32:57 +0100 |
parents | |
children | eb63fbe60fab |
comparison
equal
deleted
inserted
replaced
8365:65ca196fff28 | 8366:8b1a2555c4e2 |
---|---|
1 /* | |
2 | |
3 Copyright (C) 2008 Jaroslav Hajek <highegg@gmail.com> | |
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 | |
9 Free Software Foundation; either version 3 of the License, or (at your | |
10 option) any later version. | |
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 | |
18 along with Octave; see the file COPYING. If not, see | |
19 <http://www.gnu.org/licenses/>. | |
20 | |
21 */ | |
22 | |
23 #define SINCLUDE "ov-flt-complex.h" | |
24 #define MINCLUDE "ov-flt-cx-diag.h" | |
25 | |
26 #define SCALAR float_complex | |
27 #define MATRIX float_complex_diag_matrix | |
28 | |
29 #define SSHORT fcs | |
30 #define MSHORT fcdm | |
31 | |
32 #include "op-dms-template.cc" | |
33 |