annotate fft/fftw/fftw-3.3.4/api/plan-r2r-3d.c @ 40:223f770b5341 kissfft-double tip

Try a double-precision kissfft
author Chris Cannam
date Wed, 07 Sep 2016 10:40:32 +0100
parents 26056e866c29
children
rev   line source
Chris@19 1 /*
Chris@19 2 * Copyright (c) 2003, 2007-14 Matteo Frigo
Chris@19 3 * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology
Chris@19 4 *
Chris@19 5 * This program is free software; you can redistribute it and/or modify
Chris@19 6 * it under the terms of the GNU General Public License as published by
Chris@19 7 * the Free Software Foundation; either version 2 of the License, or
Chris@19 8 * (at your option) any later version.
Chris@19 9 *
Chris@19 10 * This program is distributed in the hope that it will be useful,
Chris@19 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@19 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Chris@19 13 * GNU General Public License for more details.
Chris@19 14 *
Chris@19 15 * You should have received a copy of the GNU General Public License
Chris@19 16 * along with this program; if not, write to the Free Software
Chris@19 17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Chris@19 18 *
Chris@19 19 */
Chris@19 20
Chris@19 21 #include "api.h"
Chris@19 22
Chris@19 23 X(plan) X(plan_r2r_3d)(int nx, int ny, int nz,
Chris@19 24 R *in, R *out, X(r2r_kind) kindx,
Chris@19 25 X(r2r_kind) kindy, X(r2r_kind) kindz, unsigned flags)
Chris@19 26 {
Chris@19 27 int n[3];
Chris@19 28 X(r2r_kind) kind[3];
Chris@19 29 n[0] = nx;
Chris@19 30 n[1] = ny;
Chris@19 31 n[2] = nz;
Chris@19 32 kind[0] = kindx;
Chris@19 33 kind[1] = kindy;
Chris@19 34 kind[2] = kindz;
Chris@19 35 return X(plan_r2r)(3, n, in, out, kind, flags);
Chris@19 36 }