Mercurial > hg > js-dsp-test

annotate fft/fftw/fftw-3.3.4/mpi/f03-wrap.c @ 40:223f770b5341 kissfft-double tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 /* Generated automatically. DO NOT EDIT! */
Chris@19 2
Chris@19 3 #include "fftw3-mpi.h"
Chris@19 4 #include "ifftw-mpi.h"
Chris@19 5
Chris@19 6 FFTW_EXTERN ptrdiff_t XM(local_size_many_transposed_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t block0, ptrdiff_t block1, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start);
Chris@19 7 FFTW_EXTERN ptrdiff_t XM(local_size_many_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t block0, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start);
Chris@19 8 FFTW_EXTERN ptrdiff_t XM(local_size_transposed_f03)(int rnk, const ptrdiff_t * n, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start);
Chris@19 9 FFTW_EXTERN ptrdiff_t XM(local_size_f03)(int rnk, const ptrdiff_t * n, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start);
Chris@19 10 FFTW_EXTERN ptrdiff_t XM(local_size_many_1d_f03)(ptrdiff_t n0, ptrdiff_t howmany, MPI_Fint f_comm, int sign, unsigned flags, ptrdiff_t * local_ni, ptrdiff_t * local_i_start, ptrdiff_t * local_no, ptrdiff_t * local_o_start);
Chris@19 11 FFTW_EXTERN ptrdiff_t XM(local_size_1d_f03)(ptrdiff_t n0, MPI_Fint f_comm, int sign, unsigned flags, ptrdiff_t * local_ni, ptrdiff_t * local_i_start, ptrdiff_t * local_no, ptrdiff_t * local_o_start);
Chris@19 12 FFTW_EXTERN ptrdiff_t XM(local_size_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start);
Chris@19 13 FFTW_EXTERN ptrdiff_t XM(local_size_2d_transposed_f03)(ptrdiff_t n0, ptrdiff_t n1, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start);
Chris@19 14 FFTW_EXTERN ptrdiff_t XM(local_size_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start);
Chris@19 15 FFTW_EXTERN ptrdiff_t XM(local_size_3d_transposed_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start);
Chris@19 16 FFTW_EXTERN X(plan) XM(plan_many_transpose_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t howmany, ptrdiff_t block0, ptrdiff_t block1, R * in, R * out, MPI_Fint f_comm, unsigned flags);
Chris@19 17 FFTW_EXTERN X(plan) XM(plan_transpose_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, R * out, MPI_Fint f_comm, unsigned flags);
Chris@19 18 FFTW_EXTERN X(plan) XM(plan_many_dft_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t block, ptrdiff_t tblock, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags);
Chris@19 19 FFTW_EXTERN X(plan) XM(plan_dft_f03)(int rnk, const ptrdiff_t * n, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags);
Chris@19 20 FFTW_EXTERN X(plan) XM(plan_dft_1d_f03)(ptrdiff_t n0, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags);
Chris@19 21 FFTW_EXTERN X(plan) XM(plan_dft_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags);
Chris@19 22 FFTW_EXTERN X(plan) XM(plan_dft_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags);
Chris@19 23 FFTW_EXTERN X(plan) XM(plan_many_r2r_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t iblock, ptrdiff_t oblock, R * in, R * out, MPI_Fint f_comm, const X(r2r_kind) * kind, unsigned flags);
Chris@19 24 FFTW_EXTERN X(plan) XM(plan_r2r_f03)(int rnk, const ptrdiff_t * n, R * in, R * out, MPI_Fint f_comm, const X(r2r_kind) * kind, unsigned flags);
Chris@19 25 FFTW_EXTERN X(plan) XM(plan_r2r_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, R * out, MPI_Fint f_comm, X(r2r_kind) kind0, X(r2r_kind) kind1, unsigned flags);
Chris@19 26 FFTW_EXTERN X(plan) XM(plan_r2r_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, R * in, R * out, MPI_Fint f_comm, X(r2r_kind) kind0, X(r2r_kind) kind1, X(r2r_kind) kind2, unsigned flags);
Chris@19 27 FFTW_EXTERN X(plan) XM(plan_many_dft_r2c_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t iblock, ptrdiff_t oblock, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags);
Chris@19 28 FFTW_EXTERN X(plan) XM(plan_dft_r2c_f03)(int rnk, const ptrdiff_t * n, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags);
Chris@19 29 FFTW_EXTERN X(plan) XM(plan_dft_r2c_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags);
Chris@19 30 FFTW_EXTERN X(plan) XM(plan_dft_r2c_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags);
Chris@19 31 FFTW_EXTERN X(plan) XM(plan_many_dft_c2r_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t iblock, ptrdiff_t oblock, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags);
Chris@19 32 FFTW_EXTERN X(plan) XM(plan_dft_c2r_f03)(int rnk, const ptrdiff_t * n, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags);
Chris@19 33 FFTW_EXTERN X(plan) XM(plan_dft_c2r_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags);
Chris@19 34 FFTW_EXTERN X(plan) XM(plan_dft_c2r_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags);
Chris@19 35 FFTW_EXTERN void XM(gather_wisdom_f03)(MPI_Fint f_comm_);
Chris@19 36 FFTW_EXTERN void XM(broadcast_wisdom_f03)(MPI_Fint f_comm_);
Chris@19 37
Chris@19 38 ptrdiff_t XM(local_size_many_transposed_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t block0, ptrdiff_t block1, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start)
Chris@19 39 {
Chris@19 40 MPI_Comm comm;
Chris@19 41
Chris@19 42 comm = MPI_Comm_f2c(f_comm);
Chris@19 43 return XM(local_size_many_transposed)(rnk,n,howmany,block0,block1,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@19 44 }
Chris@19 45
Chris@19 46 ptrdiff_t XM(local_size_many_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t block0, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start)
Chris@19 47 {
Chris@19 48 MPI_Comm comm;
Chris@19 49
Chris@19 50 comm = MPI_Comm_f2c(f_comm);
Chris@19 51 return XM(local_size_many)(rnk,n,howmany,block0,comm,local_n0,local_0_start);
Chris@19 52 }
Chris@19 53
Chris@19 54 ptrdiff_t XM(local_size_transposed_f03)(int rnk, const ptrdiff_t * n, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start)
Chris@19 55 {
Chris@19 56 MPI_Comm comm;
Chris@19 57
Chris@19 58 comm = MPI_Comm_f2c(f_comm);
Chris@19 59 return XM(local_size_transposed)(rnk,n,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@19 60 }
Chris@19 61
Chris@19 62 ptrdiff_t XM(local_size_f03)(int rnk, const ptrdiff_t * n, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start)
Chris@19 63 {
Chris@19 64 MPI_Comm comm;
Chris@19 65
Chris@19 66 comm = MPI_Comm_f2c(f_comm);
Chris@19 67 return XM(local_size)(rnk,n,comm,local_n0,local_0_start);
Chris@19 68 }
Chris@19 69
Chris@19 70 ptrdiff_t XM(local_size_many_1d_f03)(ptrdiff_t n0, ptrdiff_t howmany, MPI_Fint f_comm, int sign, unsigned flags, ptrdiff_t * local_ni, ptrdiff_t * local_i_start, ptrdiff_t * local_no, ptrdiff_t * local_o_start)
Chris@19 71 {
Chris@19 72 MPI_Comm comm;
Chris@19 73
Chris@19 74 comm = MPI_Comm_f2c(f_comm);
Chris@19 75 return XM(local_size_many_1d)(n0,howmany,comm,sign,flags,local_ni,local_i_start,local_no,local_o_start);
Chris@19 76 }
Chris@19 77
Chris@19 78 ptrdiff_t XM(local_size_1d_f03)(ptrdiff_t n0, MPI_Fint f_comm, int sign, unsigned flags, ptrdiff_t * local_ni, ptrdiff_t * local_i_start, ptrdiff_t * local_no, ptrdiff_t * local_o_start)
Chris@19 79 {
Chris@19 80 MPI_Comm comm;
Chris@19 81
Chris@19 82 comm = MPI_Comm_f2c(f_comm);
Chris@19 83 return XM(local_size_1d)(n0,comm,sign,flags,local_ni,local_i_start,local_no,local_o_start);
Chris@19 84 }
Chris@19 85
Chris@19 86 ptrdiff_t XM(local_size_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start)
Chris@19 87 {
Chris@19 88 MPI_Comm comm;
Chris@19 89
Chris@19 90 comm = MPI_Comm_f2c(f_comm);
Chris@19 91 return XM(local_size_2d)(n0,n1,comm,local_n0,local_0_start);
Chris@19 92 }
Chris@19 93
Chris@19 94 ptrdiff_t XM(local_size_2d_transposed_f03)(ptrdiff_t n0, ptrdiff_t n1, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start)
Chris@19 95 {
Chris@19 96 MPI_Comm comm;
Chris@19 97
Chris@19 98 comm = MPI_Comm_f2c(f_comm);
Chris@19 99 return XM(local_size_2d_transposed)(n0,n1,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@19 100 }
Chris@19 101
Chris@19 102 ptrdiff_t XM(local_size_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start)
Chris@19 103 {
Chris@19 104 MPI_Comm comm;
Chris@19 105
Chris@19 106 comm = MPI_Comm_f2c(f_comm);
Chris@19 107 return XM(local_size_3d)(n0,n1,n2,comm,local_n0,local_0_start);
Chris@19 108 }
Chris@19 109
Chris@19 110 ptrdiff_t XM(local_size_3d_transposed_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, MPI_Fint f_comm, ptrdiff_t * local_n0, ptrdiff_t * local_0_start, ptrdiff_t * local_n1, ptrdiff_t * local_1_start)
Chris@19 111 {
Chris@19 112 MPI_Comm comm;
Chris@19 113
Chris@19 114 comm = MPI_Comm_f2c(f_comm);
Chris@19 115 return XM(local_size_3d_transposed)(n0,n1,n2,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@19 116 }
Chris@19 117
Chris@19 118 X(plan) XM(plan_many_transpose_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t howmany, ptrdiff_t block0, ptrdiff_t block1, R * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@19 119 {
Chris@19 120 MPI_Comm comm;
Chris@19 121
Chris@19 122 comm = MPI_Comm_f2c(f_comm);
Chris@19 123 return XM(plan_many_transpose)(n0,n1,howmany,block0,block1,in,out,comm,flags);
Chris@19 124 }
Chris@19 125
Chris@19 126 X(plan) XM(plan_transpose_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@19 127 {
Chris@19 128 MPI_Comm comm;
Chris@19 129
Chris@19 130 comm = MPI_Comm_f2c(f_comm);
Chris@19 131 return XM(plan_transpose)(n0,n1,in,out,comm,flags);
Chris@19 132 }
Chris@19 133
Chris@19 134 X(plan) XM(plan_many_dft_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t block, ptrdiff_t tblock, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags)
Chris@19 135 {
Chris@19 136 MPI_Comm comm;
Chris@19 137
Chris@19 138 comm = MPI_Comm_f2c(f_comm);
Chris@19 139 return XM(plan_many_dft)(rnk,n,howmany,block,tblock,in,out,comm,sign,flags);
Chris@19 140 }
Chris@19 141
Chris@19 142 X(plan) XM(plan_dft_f03)(int rnk, const ptrdiff_t * n, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags)
Chris@19 143 {
Chris@19 144 MPI_Comm comm;
Chris@19 145
Chris@19 146 comm = MPI_Comm_f2c(f_comm);
Chris@19 147 return XM(plan_dft)(rnk,n,in,out,comm,sign,flags);
Chris@19 148 }
Chris@19 149
Chris@19 150 X(plan) XM(plan_dft_1d_f03)(ptrdiff_t n0, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags)
Chris@19 151 {
Chris@19 152 MPI_Comm comm;
Chris@19 153
Chris@19 154 comm = MPI_Comm_f2c(f_comm);
Chris@19 155 return XM(plan_dft_1d)(n0,in,out,comm,sign,flags);
Chris@19 156 }
Chris@19 157
Chris@19 158 X(plan) XM(plan_dft_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags)
Chris@19 159 {
Chris@19 160 MPI_Comm comm;
Chris@19 161
Chris@19 162 comm = MPI_Comm_f2c(f_comm);
Chris@19 163 return XM(plan_dft_2d)(n0,n1,in,out,comm,sign,flags);
Chris@19 164 }
Chris@19 165
Chris@19 166 X(plan) XM(plan_dft_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, X(complex) * in, X(complex) * out, MPI_Fint f_comm, int sign, unsigned flags)
Chris@19 167 {
Chris@19 168 MPI_Comm comm;
Chris@19 169
Chris@19 170 comm = MPI_Comm_f2c(f_comm);
Chris@19 171 return XM(plan_dft_3d)(n0,n1,n2,in,out,comm,sign,flags);
Chris@19 172 }
Chris@19 173
Chris@19 174 X(plan) XM(plan_many_r2r_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t iblock, ptrdiff_t oblock, R * in, R * out, MPI_Fint f_comm, const X(r2r_kind) * kind, unsigned flags)
Chris@19 175 {
Chris@19 176 MPI_Comm comm;
Chris@19 177
Chris@19 178 comm = MPI_Comm_f2c(f_comm);
Chris@19 179 return XM(plan_many_r2r)(rnk,n,howmany,iblock,oblock,in,out,comm,kind,flags);
Chris@19 180 }
Chris@19 181
Chris@19 182 X(plan) XM(plan_r2r_f03)(int rnk, const ptrdiff_t * n, R * in, R * out, MPI_Fint f_comm, const X(r2r_kind) * kind, unsigned flags)
Chris@19 183 {
Chris@19 184 MPI_Comm comm;
Chris@19 185
Chris@19 186 comm = MPI_Comm_f2c(f_comm);
Chris@19 187 return XM(plan_r2r)(rnk,n,in,out,comm,kind,flags);
Chris@19 188 }
Chris@19 189
Chris@19 190 X(plan) XM(plan_r2r_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, R * out, MPI_Fint f_comm, X(r2r_kind) kind0, X(r2r_kind) kind1, unsigned flags)
Chris@19 191 {
Chris@19 192 MPI_Comm comm;
Chris@19 193
Chris@19 194 comm = MPI_Comm_f2c(f_comm);
Chris@19 195 return XM(plan_r2r_2d)(n0,n1,in,out,comm,kind0,kind1,flags);
Chris@19 196 }
Chris@19 197
Chris@19 198 X(plan) XM(plan_r2r_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, R * in, R * out, MPI_Fint f_comm, X(r2r_kind) kind0, X(r2r_kind) kind1, X(r2r_kind) kind2, unsigned flags)
Chris@19 199 {
Chris@19 200 MPI_Comm comm;
Chris@19 201
Chris@19 202 comm = MPI_Comm_f2c(f_comm);
Chris@19 203 return XM(plan_r2r_3d)(n0,n1,n2,in,out,comm,kind0,kind1,kind2,flags);
Chris@19 204 }
Chris@19 205
Chris@19 206 X(plan) XM(plan_many_dft_r2c_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t iblock, ptrdiff_t oblock, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags)
Chris@19 207 {
Chris@19 208 MPI_Comm comm;
Chris@19 209
Chris@19 210 comm = MPI_Comm_f2c(f_comm);
Chris@19 211 return XM(plan_many_dft_r2c)(rnk,n,howmany,iblock,oblock,in,out,comm,flags);
Chris@19 212 }
Chris@19 213
Chris@19 214 X(plan) XM(plan_dft_r2c_f03)(int rnk, const ptrdiff_t * n, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags)
Chris@19 215 {
Chris@19 216 MPI_Comm comm;
Chris@19 217
Chris@19 218 comm = MPI_Comm_f2c(f_comm);
Chris@19 219 return XM(plan_dft_r2c)(rnk,n,in,out,comm,flags);
Chris@19 220 }
Chris@19 221
Chris@19 222 X(plan) XM(plan_dft_r2c_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags)
Chris@19 223 {
Chris@19 224 MPI_Comm comm;
Chris@19 225
Chris@19 226 comm = MPI_Comm_f2c(f_comm);
Chris@19 227 return XM(plan_dft_r2c_2d)(n0,n1,in,out,comm,flags);
Chris@19 228 }
Chris@19 229
Chris@19 230 X(plan) XM(plan_dft_r2c_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, R * in, X(complex) * out, MPI_Fint f_comm, unsigned flags)
Chris@19 231 {
Chris@19 232 MPI_Comm comm;
Chris@19 233
Chris@19 234 comm = MPI_Comm_f2c(f_comm);
Chris@19 235 return XM(plan_dft_r2c_3d)(n0,n1,n2,in,out,comm,flags);
Chris@19 236 }
Chris@19 237
Chris@19 238 X(plan) XM(plan_many_dft_c2r_f03)(int rnk, const ptrdiff_t * n, ptrdiff_t howmany, ptrdiff_t iblock, ptrdiff_t oblock, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@19 239 {
Chris@19 240 MPI_Comm comm;
Chris@19 241
Chris@19 242 comm = MPI_Comm_f2c(f_comm);
Chris@19 243 return XM(plan_many_dft_c2r)(rnk,n,howmany,iblock,oblock,in,out,comm,flags);
Chris@19 244 }
Chris@19 245
Chris@19 246 X(plan) XM(plan_dft_c2r_f03)(int rnk, const ptrdiff_t * n, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@19 247 {
Chris@19 248 MPI_Comm comm;
Chris@19 249
Chris@19 250 comm = MPI_Comm_f2c(f_comm);
Chris@19 251 return XM(plan_dft_c2r)(rnk,n,in,out,comm,flags);
Chris@19 252 }
Chris@19 253
Chris@19 254 X(plan) XM(plan_dft_c2r_2d_f03)(ptrdiff_t n0, ptrdiff_t n1, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@19 255 {
Chris@19 256 MPI_Comm comm;
Chris@19 257
Chris@19 258 comm = MPI_Comm_f2c(f_comm);
Chris@19 259 return XM(plan_dft_c2r_2d)(n0,n1,in,out,comm,flags);
Chris@19 260 }
Chris@19 261
Chris@19 262 X(plan) XM(plan_dft_c2r_3d_f03)(ptrdiff_t n0, ptrdiff_t n1, ptrdiff_t n2, X(complex) * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@19 263 {
Chris@19 264 MPI_Comm comm;
Chris@19 265
Chris@19 266 comm = MPI_Comm_f2c(f_comm);
Chris@19 267 return XM(plan_dft_c2r_3d)(n0,n1,n2,in,out,comm,flags);
Chris@19 268 }
Chris@19 269
Chris@19 270 void XM(gather_wisdom_f03)(MPI_Fint f_comm_)
Chris@19 271 {
Chris@19 272 MPI_Comm comm_;
Chris@19 273
Chris@19 274 comm_ = MPI_Comm_f2c(f_comm_);
Chris@19 275 XM(gather_wisdom)(comm_);
Chris@19 276 }
Chris@19 277
Chris@19 278 void XM(broadcast_wisdom_f03)(MPI_Fint f_comm_)
Chris@19 279 {
Chris@19 280 MPI_Comm comm_;
Chris@19 281
Chris@19 282 comm_ = MPI_Comm_f2c(f_comm_);
Chris@19 283 XM(broadcast_wisdom)(comm_);
Chris@19 284 }