1 /*
2 * Copyright (c) 1997-1999, 2003 Massachusetts Institute of Technology
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 *
18 */
19
20 #include "rfftw_threads.h"
21 #include "config.h"
22
23 #ifdef F77_FUNC_ /* only compile wrappers if fortran mangling is known */
24
25 #ifdef __cplusplus
26 extern "C" {
27 #endif /* __cplusplus */
28
29 /************************************************************************/
30
F77_FUNC_(rfftw_f77_threads,RFFTW_F77_THREADS)31 void F77_FUNC_(rfftw_f77_threads,RFFTW_F77_THREADS)
32 (int *nthreads, fftw_plan *p,
33 int *howmany, fftw_real *in, int *istride, int *idist,
34 fftw_real *out, int *ostride, int *odist)
35 {
36 rfftw_threads(*nthreads,*p,
37 *howmany,in,*istride,*idist,out,*ostride,*odist);
38 }
39
F77_FUNC_(rfftw_f77_threads_one,RFFTW_F77_THREADS_ONE)40 void F77_FUNC_(rfftw_f77_threads_one,RFFTW_F77_THREADS_ONE)
41 (int *nthreads, fftw_plan *p, fftw_real *in, fftw_real *out)
42 {
43 rfftw_threads_one(*nthreads,*p,in,out);
44 }
45
F77_FUNC_(rfftwnd_f77_threads_real_to_complex,RFFTWND_F77_THREADS_REAL_TO_COMPLEX)46 void F77_FUNC_(rfftwnd_f77_threads_real_to_complex,RFFTWND_F77_THREADS_REAL_TO_COMPLEX)
47 (int *nthreads, fftwnd_plan *p,
48 int *howmany, fftw_real *in, int *istride, int *idist,
49 fftw_complex *out, int *ostride, int *odist)
50 {
51 rfftwnd_threads_real_to_complex(*nthreads,*p,*howmany,in,*istride,*idist,
52 out,*ostride,*odist);
53 }
54
F77_FUNC_(rfftwnd_f77_threads_one_real_to_complex,RFFTWND_F77_THREADS_ONE_REAL_TO_COMPLEX)55 void F77_FUNC_(rfftwnd_f77_threads_one_real_to_complex,RFFTWND_F77_THREADS_ONE_REAL_TO_COMPLEX)
56 (int *nthreads, fftwnd_plan *p, fftw_real *in, fftw_complex *out)
57 {
58 rfftwnd_threads_one_real_to_complex(*nthreads,*p,in,out);
59 }
60
F77_FUNC_(rfftwnd_f77_threads_complex_to_real,RFFTWND_F77_THREADS_COMPLEX_TO_REAL)61 void F77_FUNC_(rfftwnd_f77_threads_complex_to_real,RFFTWND_F77_THREADS_COMPLEX_TO_REAL)
62 (int *nthreads, fftwnd_plan *p,
63 int *howmany, fftw_complex *in, int *istride, int *idist,
64 fftw_real *out, int *ostride, int *odist)
65 {
66 rfftwnd_threads_complex_to_real(*nthreads,*p,*howmany,in,*istride,*idist,
67 out,*ostride,*odist);
68 }
69
F77_FUNC_(rfftwnd_f77_threads_one_complex_to_real,RFFTWND_F77_THREADS_ONE_COMPLEX_TO_REAL)70 void F77_FUNC_(rfftwnd_f77_threads_one_complex_to_real,RFFTWND_F77_THREADS_ONE_COMPLEX_TO_REAL)
71 (int *nthreads, fftwnd_plan *p, fftw_complex *in, fftw_real *out)
72 {
73 rfftwnd_threads_one_complex_to_real(*nthreads,*p,in,out);
74 }
75
76 /****************************************************************************/
77
78 #ifdef __cplusplus
79 } /* extern "C" */
80 #endif /* __cplusplus */
81
82 #endif /* defined(F77_FUNC_) */
83