/src/fftw3/rdft/rdft2-strides.c
Line | Count | Source |
1 | | /* |
2 | | * Copyright (c) 2003, 2007-14 Matteo Frigo |
3 | | * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology |
4 | | * |
5 | | * This program is free software; you can redistribute it and/or modify |
6 | | * it under the terms of the GNU General Public License as published by |
7 | | * the Free Software Foundation; either version 2 of the License, or |
8 | | * (at your option) any later version. |
9 | | * |
10 | | * This program is distributed in the hope that it will be useful, |
11 | | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 | | * GNU General Public License for more details. |
14 | | * |
15 | | * You should have received a copy of the GNU General Public License |
16 | | * along with this program; if not, write to the Free Software |
17 | | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | | * |
19 | | */ |
20 | | |
21 | | #include "rdft/rdft.h" |
22 | | |
23 | | /* Deal with annoyance because the tensor (is,os) applies to |
24 | | (r,rio/iio) for R2HC and vice-versa for HC2R. We originally had |
25 | | (is,os) always apply to (r,rio/iio), but this causes other |
26 | | headaches with the tensor functions. */ |
27 | | void X(rdft2_strides)(rdft_kind kind, const iodim *d, INT *rs, INT *cs) |
28 | 0 | { |
29 | 0 | if (kind == R2HC) { |
30 | 0 | *rs = d->is; |
31 | 0 | *cs = d->os; |
32 | 0 | } |
33 | 0 | else { |
34 | 0 | A(kind == HC2R); |
35 | 0 | *rs = d->os; |
36 | 0 | *cs = d->is; |
37 | 0 | } |
38 | 0 | } |