annotate liboctave/numeric/oct-fftw.h @ 31249:de6fc38c78c6

Make Jacobian types offered by dlsode.f accessible by lsode (bug #31626). * liboctave/numeric/LSODE-opts.in: Add options "jacobian type", "lower jacobian subdiagonals", and "upper jacobian subdiagonals". * liboctave/numeric/LSODE.cc (file scope, lsode_j, LSODE::do_integrate (double)): Handle new configurable Jacobian types. * build-aux/mk-opts.pl: Don't implicitly convert to integer in condition.
author Olaf Till <olaf.till@uni-jena.de>
date Fri, 12 Nov 2010 08:53:05 +0100
parents 796f54d4ddbf
children e88a07dec498
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 //
30564
796f54d4ddbf update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 30394
diff changeset
3 // Copyright (C) 2001-2022 The Octave Project Developers
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
4 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
7 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
9 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
14 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
19 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ////////////////////////////////////////////////////////////////////////
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
25
20791
f7084eae3318 maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents: 19697
diff changeset
26 #if ! defined (octave_oct_fftw_h)
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
27 #define octave_oct_fftw_h 1
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
28
21244
1473547f50f5 include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents: 21202
diff changeset
29 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents: 21202
diff changeset
30
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
31 #include <cstddef>
9523
0ce82753dd72 more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents: 9516
diff changeset
32
23475
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23440
diff changeset
33 #include <string>
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23440
diff changeset
34
d691ed308237 maint: Clean up #includes in liboctave/numeric directory.
Rik <rik@octave.org>
parents: 23440
diff changeset
35 #include "dim-vector.h"
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
36 #include "oct-cmplx.h"
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
37
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
38 namespace octave
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
39 {
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
40 class
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
41 OCTAVE_API
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
42 fftw_planner
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
43 {
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
44 protected:
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
45
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
46 fftw_planner (void);
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
47
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
48 public:
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
49
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
50 // No copying!
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
51
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
52 fftw_planner (const fftw_planner&) = delete;
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
53
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
54 fftw_planner& operator = (const fftw_planner&) = delete;
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
55
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
56 ~fftw_planner (void);
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
57
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
58 enum FftwMethod
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
59 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
60 UNKNOWN = -1,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
61 ESTIMATE,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
62 MEASURE,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
63 PATIENT,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
64 EXHAUSTIVE,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
65 HYBRID
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
66 };
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
67
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
68 static bool instance_ok (void);
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
69
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
70 static void *
25103
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
71 create_plan (int dir, const int rank, const dim_vector& dims,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
72 octave_idx_type howmany, octave_idx_type stride,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
73 octave_idx_type dist, const Complex *in,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
74 Complex *out)
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
75 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
76 return instance_ok ()
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
77 ? s_instance->do_create_plan (dir, rank, dims, howmany, stride,
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
78 dist, in, out)
23795
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents: 23615
diff changeset
79 : nullptr;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
80 }
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
81
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
82 static void *
25103
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
83 create_plan (const int rank, const dim_vector& dims,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
84 octave_idx_type howmany, octave_idx_type stride,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
85 octave_idx_type dist, const double *in, Complex *out)
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
86 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
87 return instance_ok ()
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
88 ? s_instance->do_create_plan (rank, dims, howmany, stride, dist,
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
89 in, out)
23795
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents: 23615
diff changeset
90 : nullptr;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
91 }
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
92
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
93 static FftwMethod method (void)
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
94 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
95 static FftwMethod dummy;
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
96
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
97 return instance_ok () ? s_instance->do_method () : dummy;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
98 }
12122
f4689107dd8c Explicitly disallow copying in some classes.
Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
parents: 11586
diff changeset
99
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
100 static FftwMethod method (FftwMethod meth)
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
101 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
102 static FftwMethod dummy;
12122
f4689107dd8c Explicitly disallow copying in some classes.
Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
parents: 11586
diff changeset
103
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
104 return instance_ok () ? s_instance->do_method (meth) : dummy;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
105 }
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
106
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
107 static void threads (int nt);
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 12122
diff changeset
108
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
109 static int threads (void)
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
110 {
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
111 return instance_ok () ? s_instance->m_nthreads : 0;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
112 }
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
113
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
114 private:
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
115
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
116 static fftw_planner *s_instance;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
117
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
118 static void cleanup_instance (void)
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
119 { delete s_instance; s_instance = nullptr; }
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
120
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
121 void *
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
122 do_create_plan (int dir, const int rank, const dim_vector& dims,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
123 octave_idx_type howmany, octave_idx_type stride,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
124 octave_idx_type dist, const Complex *in,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
125 Complex *out);
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
126
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
127 void *
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
128 do_create_plan (const int rank, const dim_vector& dims,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
129 octave_idx_type howmany, octave_idx_type stride,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
130 octave_idx_type dist, const double *in, Complex *out);
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
131
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
132 FftwMethod do_method (void);
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
133
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
134 FftwMethod do_method (FftwMethod meth);
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
135
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
136 FftwMethod m_meth;
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
137
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
138 // FIXME: perhaps this should be split into two classes?
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
139
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
140 // Plan for fft and ifft of complex values
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
141 void *m_plan[2];
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
142
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
143 // dist
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
144 octave_idx_type m_d[2];
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
145
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
146 // stride
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
147 octave_idx_type m_s[2];
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
148
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
149 // rank
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
150 int m_r[2];
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
151
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
152 // howmany
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
153 octave_idx_type m_h[2];
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
154
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
155 // dims
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
156 dim_vector m_n[2];
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
157
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
158 bool m_simd_align[2];
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
159 bool m_inplace[2];
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
160
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
161 // Plan for fft of real values
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
162 void *m_rplan;
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
163
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
164 // dist
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
165 octave_idx_type m_rd;
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
166
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
167 // stride
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
168 octave_idx_type m_rs;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
169
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
170 // rank
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
171 int m_rr;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
172
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
173 // howmany
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
174 octave_idx_type m_rh;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
175
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
176 // dims
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
177 dim_vector m_rn;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
178
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
179 bool m_rsimd_align;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
180
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
181 // number of threads. Always 1 unless compiled with multi-threading
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
182 // support.
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
183 int m_nthreads;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
184 };
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
185
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
186 class
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
187 OCTAVE_API
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
188 float_fftw_planner
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
189 {
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
190 protected:
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
191
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
192 float_fftw_planner (void);
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
193
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
194 public:
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
195
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
196 // No copying!
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
197
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
198 float_fftw_planner (const float_fftw_planner&) = delete;
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
199
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
200 float_fftw_planner&
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
201 operator = (const float_fftw_planner&) = delete;
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
202
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
203 ~float_fftw_planner (void);
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
204
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
205 enum FftwMethod
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
206 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
207 UNKNOWN = -1,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
208 ESTIMATE,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
209 MEASURE,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
210 PATIENT,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
211 EXHAUSTIVE,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
212 HYBRID
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
213 };
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
214
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
215 static bool instance_ok (void);
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
216
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
217 static void *
25103
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
218 create_plan (int dir, const int rank, const dim_vector& dims,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
219 octave_idx_type howmany, octave_idx_type stride,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
220 octave_idx_type dist, const FloatComplex *in,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
221 FloatComplex *out)
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
222 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
223 return instance_ok ()
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
224 ? s_instance->do_create_plan (dir, rank, dims, howmany, stride,
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
225 dist, in, out)
23795
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents: 23615
diff changeset
226 : nullptr;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
227 }
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
228
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
229 static void *
25103
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
230 create_plan (const int rank, const dim_vector& dims,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
231 octave_idx_type howmany, octave_idx_type stride,
078b795c5219 maint: style check C++ ahead of 4.4 release.
Rik <rik@octave.org>
parents: 25054
diff changeset
232 octave_idx_type dist, const float *in, FloatComplex *out)
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
233 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
234 return instance_ok ()
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
235 ? s_instance->do_create_plan (rank, dims, howmany, stride, dist,
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
236 in, out)
23795
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents: 23615
diff changeset
237 : nullptr;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
238 }
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
239
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
240 static FftwMethod method (void)
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
241 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
242 static FftwMethod dummy;
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
243
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
244 return instance_ok () ? s_instance->do_method () : dummy;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
245 }
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
246
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
247 static FftwMethod method (FftwMethod meth)
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
248 {
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
249 static FftwMethod dummy;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
250
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
251 return instance_ok () ? s_instance->do_method (meth) : dummy;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
252 }
12122
f4689107dd8c Explicitly disallow copying in some classes.
Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
parents: 11586
diff changeset
253
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
254 static void threads (int nt);
12122
f4689107dd8c Explicitly disallow copying in some classes.
Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
parents: 11586
diff changeset
255
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
256 static int threads (void)
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
257 {
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
258 return instance_ok () ? s_instance->m_nthreads : 0;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
259 }
12122
f4689107dd8c Explicitly disallow copying in some classes.
Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
parents: 11586
diff changeset
260
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
261 private:
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
262
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
263 static float_fftw_planner *s_instance;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
264
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
265 static void cleanup_instance (void)
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
266 { delete s_instance; s_instance = nullptr; }
13994
99f039289e95 also clean up float fftw planner
John W. Eaton <jwe@octave.org>
parents: 13983
diff changeset
267
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
268 void *
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
269 do_create_plan (int dir, const int rank, const dim_vector& dims,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
270 octave_idx_type howmany, octave_idx_type stride,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
271 octave_idx_type dist, const FloatComplex *in,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
272 FloatComplex *out);
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
273
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
274 void *
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
275 do_create_plan (const int rank, const dim_vector& dims,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
276 octave_idx_type howmany, octave_idx_type stride,
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
277 octave_idx_type dist, const float *in, FloatComplex *out);
6228
aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman]
dbateman
parents: 5307
diff changeset
278
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
279 FftwMethod do_method (void);
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
280
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
281 FftwMethod do_method (FftwMethod meth);
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
282
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
283 FftwMethod m_meth;
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
284
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
285 // FIXME: perhaps this should be split into two classes?
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
286
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
287 // Plan for fft and ifft of complex values
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
288 void *m_plan[2];
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
289
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
290 // dist
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
291 octave_idx_type m_d[2];
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
292
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
293 // stride
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
294 octave_idx_type m_s[2];
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
295
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
296 // rank
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
297 int m_r[2];
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
298
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
299 // howmany
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
300 octave_idx_type m_h[2];
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
301
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
302 // dims
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
303 dim_vector m_n[2];
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
304
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
305 bool m_simd_align[2];
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
306 bool m_inplace[2];
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
307
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
308 // Plan for fft of real values
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
309 void *m_rplan;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
310
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
311 // dist
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
312 octave_idx_type m_rd;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
313
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
314 // stride
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
315 octave_idx_type m_rs;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
316
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
317 // rank
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
318 int m_rr;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
319
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
320 // howmany
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
321 octave_idx_type m_rh;
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
322
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
323 // dims
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
324 dim_vector m_rn;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
325
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
326 bool m_rsimd_align;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
327
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
328 // number of threads. Always 1 unless compiled with multi-threading
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
329 // support.
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
330 int m_nthreads;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
331 };
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
332
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
333 class
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
334 OCTAVE_API
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
335 fftw
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
336 {
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
337 public:
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
338
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
339 fftw (void) = delete;
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
340
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
341 // No copying.
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
342
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
343 fftw (const fftw&) = delete;
9516
fb933db0c517 convert fftw planner classes to singleton objects
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
344
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
345 fftw& operator = (const fftw&) = delete;
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
346
29572
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
347 static int fft (const double *in, Complex *out, std::size_t npts,
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
348 std::size_t nsamples = 1, octave_idx_type stride = 1,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
349 octave_idx_type dist = -1);
29572
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
350 static int fft (const Complex *in, Complex *out, std::size_t npts,
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
351 std::size_t nsamples = 1, octave_idx_type stride = 1,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
352 octave_idx_type dist = -1);
29572
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
353 static int ifft (const Complex *in, Complex *out, std::size_t npts,
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
354 std::size_t nsamples = 1, octave_idx_type stride = 1,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
355 octave_idx_type dist = -1);
9523
0ce82753dd72 more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents: 9516
diff changeset
356
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 30102
diff changeset
357 static int fftNd (const double *, Complex *, const int, const dim_vector&);
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 30102
diff changeset
358 static int fftNd (const Complex *, Complex *, const int,
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
359 const dim_vector&);
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 30102
diff changeset
360 static int ifftNd (const Complex *, Complex *, const int,
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
361 const dim_vector&);
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
362
29572
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
363 static int fft (const float *in, FloatComplex *out, std::size_t npts,
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
364 std::size_t nsamples = 1, octave_idx_type stride = 1,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
365 octave_idx_type dist = -1);
29572
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
366 static int fft (const FloatComplex *in, FloatComplex *out, std::size_t npts,
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
367 std::size_t nsamples = 1, octave_idx_type stride = 1,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
368 octave_idx_type dist = -1);
29572
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
369 static int ifft (const FloatComplex *in, FloatComplex *out, std::size_t npts,
aef11bb4e6d1 use std::size_t and std::ptrdiff_t in C++ code (bug #60471)
John W. Eaton <jwe@octave.org>
parents: 29358
diff changeset
370 std::size_t nsamples = 1, octave_idx_type stride = 1,
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
371 octave_idx_type dist = -1);
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
372
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 30102
diff changeset
373 static int fftNd (const float *, FloatComplex *, const int,
30102
eb10871a5882 maint: use "m_" prefix for member variables in class fftw_planner.
Rik <rik@octave.org>
parents: 29572
diff changeset
374 const dim_vector&);
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 30102
diff changeset
375 static int fftNd (const FloatComplex *, FloatComplex *, const int,
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
376 const dim_vector&);
30394
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release.
Rik <rik@octave.org>
parents: 30102
diff changeset
377 static int ifftNd (const FloatComplex *, FloatComplex *, const int,
23440
f15f0d8b78c8 pass dim_vector as const reference, not by value
John W. Eaton <jwe@octave.org>
parents: 23220
diff changeset
378 const dim_vector&);
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
379 };
15960
bde7731b2b83 added FFTW multithreaded library support
Andreas Weber <andy.weber.aw@gmail.com>
parents: 15818
diff changeset
380
23058
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
381 extern OCTAVE_API std::string fftw_version (void);
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
382 extern OCTAVE_API std::string fftwf_version (void);
5839d16828cb move fftw classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 22869
diff changeset
383 }
7789
82be108cc558 First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents: 7017
diff changeset
384
3828
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe]
jwe
parents:
diff changeset
385 #endif