octave: liboctave/numeric/oct-fftw.h annotate

annotate liboctave/numeric/oct-fftw.h @ 23220:092078913d54

maint: Merge stable to default.

author	John W. Eaton <jwe@octave.org>
date	Wed, 22 Feb 2017 12:58:07 -0500
parents	ef4d915df748 3ac9f9ecfae5
children	f15f0d8b78c8

rev	line source
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	1 /*
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	2
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23083 diff changeset	3 Copyright (C) 2001-2017 John W. Eaton
7017 a1dbe9d80eee [project @ 2007-10-12 21:27:11 by jwe] jwe parents: 7016 diff changeset	4
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	6
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	8 under the terms of the GNU General Public License as published by
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	9 the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	10 (at your option) any later version.
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22402 diff changeset	15 GNU General Public License for more details.
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	16
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6583 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6583 diff changeset	19 <http://www.gnu.org/licenses/>.
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	20
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	21 */
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	22
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 19697 diff changeset	23 #if ! defined (octave_oct_fftw_h)
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	24 #define octave_oct_fftw_h 1
adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	25
21244 1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21202 diff changeset	26 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21202 diff changeset	27
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	28 #include <cstddef>
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9516 diff changeset	29
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	30 #include "oct-cmplx.h"
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 3828 diff changeset	31 #include "dim-vector.h"
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	32
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	33 namespace octave
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	34 {
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	35 class
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	36 OCTAVE_API
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	37 fftw_planner
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	38 {
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	39 protected:
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	40
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	41 fftw_planner (void);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	42
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	43 public:
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	44
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	45 // No copying!
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	46
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	47 fftw_planner (const fftw_planner&) = delete;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	48
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	49 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	50
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	51 ~fftw_planner (void);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	52
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	53 enum FftwMethod
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	54 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	55 UNKNOWN = -1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	56 ESTIMATE,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	57 MEASURE,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	58 PATIENT,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	59 EXHAUSTIVE,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	60 HYBRID
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	61 };
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	62
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	63 static bool instance_ok (void);
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	64
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	65 static void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	66 create_plan (int dir, const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	67 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	68 octave_idx_type dist, const Complex *in,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	69 Complex *out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	70 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	71 return instance_ok ()
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	72 ? instance->do_create_plan (dir, rank, dims, howmany, stride,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	73 dist, in, out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	74 : 0;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	75 }
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	76
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	77 static void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	78 create_plan (const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	79 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	80 octave_idx_type dist, const double in, Complex out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	81 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	82 return instance_ok ()
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	83 ? instance->do_create_plan (rank, dims, howmany, stride, dist,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	84 in, out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	85 : 0;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	86 }
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	87
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	88 static FftwMethod method (void)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	89 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	90 static FftwMethod dummy;
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	91
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	92 return instance_ok () ? instance->do_method () : dummy;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	93 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	94
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	95 static FftwMethod method (FftwMethod _meth)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	96 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	97 static FftwMethod dummy;
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	98
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	99 return instance_ok () ? instance->do_method (_meth) : dummy;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	100 }
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	101
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	102 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	103
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	104 static int threads (void)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	105 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	106 return instance_ok () ? instance->nthreads : 0;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	107 }
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	108
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	109 private:
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	110
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	111 static fftw_planner *instance;
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 static void cleanup_instance (void) { delete instance; instance = 0; }
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	114
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	115 void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	116 do_create_plan (int dir, const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	117 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	118 octave_idx_type dist, const Complex *in,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	119 Complex *out);
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	120
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	121 void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	122 do_create_plan (const int rank, const dim_vector dims,
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 double in, Complex out);
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	125
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	126 FftwMethod do_method (void);
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	127
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	128 FftwMethod do_method (FftwMethod _meth);
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	129
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	130 FftwMethod meth;
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 // 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	133
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	134 // Plan for fft and ifft of complex values
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	135 void *plan[2];
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	136
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	137 // dist
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	138 octave_idx_type d[2];
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 // stride
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	141 octave_idx_type s[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 // rank
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	144 int r[2];
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	145
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	146 // howmany
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	147 octave_idx_type h[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 // dims
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	150 dim_vector n[2];
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	151
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	152 bool simd_align[2];
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	153 bool inplace[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 // Plan for fft of real values
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	156 void *rplan;
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	157
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	158 // dist
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	159 octave_idx_type rd;
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 // stride
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	162 octave_idx_type rs;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	163
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	164 // rank
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	165 int rr;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	166
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	167 // howmany
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	168 octave_idx_type rh;
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 // dims
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	171 dim_vector rn;
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 bool rsimd_align;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	174
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	175 // 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	176 // support.
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	177 int nthreads;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	178 };
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	179
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	180 class
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	181 OCTAVE_API
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	182 float_fftw_planner
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	183 {
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	184 protected:
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	185
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	186 float_fftw_planner (void);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	187
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	188 public:
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 // No copying!
6228 aa5df9ba98d5 [project @ 2007-01-05 22:49:03 by dbateman] dbateman parents: 5307 diff changeset	191
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	192 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	193
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	194 float_fftw_planner&
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	195 operator = (const float_fftw_planner&) = delete;
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	196
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	197 ~float_fftw_planner (void);
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	198
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	199 enum FftwMethod
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	200 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	201 UNKNOWN = -1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	202 ESTIMATE,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	203 MEASURE,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	204 PATIENT,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	205 EXHAUSTIVE,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	206 HYBRID
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	207 };
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	208
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	209 static bool instance_ok (void);
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	210
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	211 static void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	212 create_plan (int dir, const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	213 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	214 octave_idx_type dist, const FloatComplex *in,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	215 FloatComplex *out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	216 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	217 return instance_ok ()
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	218 ? instance->do_create_plan (dir, rank, dims, howmany, stride,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	219 dist, in, out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	220 : 0;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	221 }
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	222
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	223 static void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	224 create_plan (const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	225 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	226 octave_idx_type dist, const float in, FloatComplex out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	227 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	228 return instance_ok ()
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	229 ? instance->do_create_plan (rank, dims, howmany, stride, dist,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	230 in, out)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	231 : 0;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	232 }
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	233
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	234 static FftwMethod method (void)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	235 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	236 static FftwMethod dummy;
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	237
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	238 return instance_ok () ? instance->do_method () : dummy;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	239 }
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	240
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	241 static FftwMethod method (FftwMethod _meth)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	242 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	243 static FftwMethod dummy;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	244
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	245 return instance_ok () ? instance->do_method (_meth) : dummy;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	246 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	247
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	248 static void threads (int nt);
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	249
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	250 static int threads (void)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	251 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	252 return instance_ok () ? instance->nthreads : 0;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	253 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	254
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	255 private:
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	256
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	257 static float_fftw_planner *instance;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	258
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	259 static void cleanup_instance (void) { delete instance; instance = 0; }
13994 99f039289e95 also clean up float fftw planner John W. Eaton <jwe@octave.org> parents: 13983 diff changeset	260
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	261 void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	262 do_create_plan (int dir, const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	263 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	264 octave_idx_type dist, const FloatComplex *in,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	265 FloatComplex *out);
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	266
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	267 void *
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	268 do_create_plan (const int rank, const dim_vector dims,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	269 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	270 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	271
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	272 FftwMethod do_method (void);
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 FftwMethod do_method (FftwMethod _meth);
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	275
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	276 FftwMethod meth;
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	277
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	278 // 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	279
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	280 // Plan for fft and ifft of complex values
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	281 void *plan[2];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	282
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	283 // dist
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	284 octave_idx_type d[2];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	285
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	286 // stride
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	287 octave_idx_type s[2];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	288
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	289 // rank
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	290 int r[2];
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	291
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	292 // howmany
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	293 octave_idx_type h[2];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	294
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	295 // dims
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	296 dim_vector n[2];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	297
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	298 bool simd_align[2];
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	299 bool inplace[2];
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	300
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	301 // Plan for fft of real values
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	302 void *rplan;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	303
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	304 // dist
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	305 octave_idx_type rd;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	306
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	307 // stride
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	308 octave_idx_type rs;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	309
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	310 // rank
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	311 int rr;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	312
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	313 // howmany
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	314 octave_idx_type rh;
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	315
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	316 // dims
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	317 dim_vector rn;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	318
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	319 bool rsimd_align;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	320
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	321 // 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	322 // support.
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	323 int nthreads;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	324 };
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	325
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	326 class
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	327 OCTAVE_API
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	328 fftw
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	329 {
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	330 public:
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	331
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	332 fftw (void) = delete;
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	333
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	334 // No copying.
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	335
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	336 fftw (const fftw&) = delete;
9516 fb933db0c517 convert fftw planner classes to singleton objects John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	337
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	338 fftw& operator = (const fftw&) = delete;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	339
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	340 static int fft (const double in, Complex out, size_t npts,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	341 size_t nsamples = 1, octave_idx_type stride = 1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	342 octave_idx_type dist = -1);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	343 static int fft (const Complex in, Complex out, size_t npts,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	344 size_t nsamples = 1, octave_idx_type stride = 1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	345 octave_idx_type dist = -1);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	346 static int ifft (const Complex in, Complex out, size_t npts,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	347 size_t nsamples = 1, octave_idx_type stride = 1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	348 octave_idx_type dist = -1);
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9516 diff changeset	349
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	350 static int fftNd (const double, Complex, const int, const dim_vector &);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	351 static int fftNd (const Complex, Complex, const int,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	352 const dim_vector &);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	353 static int ifftNd (const Complex, Complex, const int,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	354 const dim_vector &);
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	355
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	356 static int fft (const float in, FloatComplex out, size_t npts,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	357 size_t nsamples = 1, octave_idx_type stride = 1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	358 octave_idx_type dist = -1);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	359 static int fft (const FloatComplex in, FloatComplex out, size_t npts,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	360 size_t nsamples = 1, octave_idx_type stride = 1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	361 octave_idx_type dist = -1);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	362 static int ifft (const FloatComplex in, FloatComplex out, size_t npts,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	363 size_t nsamples = 1, octave_idx_type stride = 1,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	364 octave_idx_type dist = -1);
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	365
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	366 static int fftNd (const float, FloatComplex, const int, const dim_vector &);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	367 static int fftNd (const FloatComplex, FloatComplex, const int,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	368 const dim_vector &);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	369 static int ifftNd (const FloatComplex, FloatComplex, const int,
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	370 const dim_vector &);
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	371 };
15960 bde7731b2b83 added FFTW multithreaded library support Andreas Weber <andy.weber.aw@gmail.com> parents: 15818 diff changeset	372
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	373 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	374 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	375 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	376
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	377 #if defined (OCTAVE_USE_DEPRECATED_FUNCTIONS)
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	378
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	379 OCTAVE_DEPRECATED ("use 'octave::fftw_version' instead")
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	380 static inline std::string
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	381 octave_fftw_version (void)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	382 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	383 return octave::fftw_version ();
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	384 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	385
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	386 OCTAVE_DEPRECATED ("use 'octave::fftwf_version' instead")
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	387 static inline std::string
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	388 octave_fftwf_version (void)
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	389 {
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	390 return octave::fftwf_version ();
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	391 }
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	392
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	393 OCTAVE_DEPRECATED ("use 'octave::fftw_planner' instead")
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	394 typedef octave::fftw_planner octave_fftw_planner;
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7017 diff changeset	395
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	396 OCTAVE_DEPRECATED ("use 'octave::float_fftw_planner' instead")
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	397 typedef octave::float_fftw_planner octave_float_fftw_planner;
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	398
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	399 OCTAVE_DEPRECATED ("use 'octave::fftw' instead")
5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	400 typedef octave::fftw octave_fftw;
21600 184b85b31e03 more updates for version function mmuetzel <markus.muetzel@gmx.de> parents: 21451 diff changeset	401
3828 adc217ebe692 [project @ 2001-05-02 14:50:46 by jwe] jwe parents: diff changeset	402 #endif
22402 4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	403
23058 5839d16828cb move fftw classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	404 #endif

Mercurial > octave

annotate liboctave/numeric/oct-fftw.h @ 23220:092078913d54