src/fftw/rfftw_f77_threads.c

   1 /*
   2  * Copyright (c) 1997-1999 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 <f77_func.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
  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
  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
  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
  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
  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
  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_) */