Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.5/mpi/f03-wrap.c @ 83:ae30d91d2ffe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace these with versions built using an older toolset (so as to avoid ABI compatibilities when linking on Ubuntu 14.04 for packaging purposes)
author Chris Cannam
date Fri, 07 Feb 2020 11:51:13 +0000
parents 2cd0e3b3e1fd
children
rev   line source
Chris@42 1 /* Generated automatically. DO NOT EDIT! */
Chris@42 2
Chris@42 3 #include "fftw3-mpi.h"
Chris@42 4 #include "ifftw-mpi.h"
Chris@42 5
Chris@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 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@42 35 FFTW_EXTERN void XM(gather_wisdom_f03)(MPI_Fint f_comm_);
Chris@42 36 FFTW_EXTERN void XM(broadcast_wisdom_f03)(MPI_Fint f_comm_);
Chris@42 37
Chris@42 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@42 39 {
Chris@42 40 MPI_Comm comm;
Chris@42 41
Chris@42 42 comm = MPI_Comm_f2c(f_comm);
Chris@42 43 return XM(local_size_many_transposed)(rnk,n,howmany,block0,block1,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@42 44 }
Chris@42 45
Chris@42 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@42 47 {
Chris@42 48 MPI_Comm comm;
Chris@42 49
Chris@42 50 comm = MPI_Comm_f2c(f_comm);
Chris@42 51 return XM(local_size_many)(rnk,n,howmany,block0,comm,local_n0,local_0_start);
Chris@42 52 }
Chris@42 53
Chris@42 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@42 55 {
Chris@42 56 MPI_Comm comm;
Chris@42 57
Chris@42 58 comm = MPI_Comm_f2c(f_comm);
Chris@42 59 return XM(local_size_transposed)(rnk,n,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@42 60 }
Chris@42 61
Chris@42 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@42 63 {
Chris@42 64 MPI_Comm comm;
Chris@42 65
Chris@42 66 comm = MPI_Comm_f2c(f_comm);
Chris@42 67 return XM(local_size)(rnk,n,comm,local_n0,local_0_start);
Chris@42 68 }
Chris@42 69
Chris@42 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@42 71 {
Chris@42 72 MPI_Comm comm;
Chris@42 73
Chris@42 74 comm = MPI_Comm_f2c(f_comm);
Chris@42 75 return XM(local_size_many_1d)(n0,howmany,comm,sign,flags,local_ni,local_i_start,local_no,local_o_start);
Chris@42 76 }
Chris@42 77
Chris@42 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@42 79 {
Chris@42 80 MPI_Comm comm;
Chris@42 81
Chris@42 82 comm = MPI_Comm_f2c(f_comm);
Chris@42 83 return XM(local_size_1d)(n0,comm,sign,flags,local_ni,local_i_start,local_no,local_o_start);
Chris@42 84 }
Chris@42 85
Chris@42 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@42 87 {
Chris@42 88 MPI_Comm comm;
Chris@42 89
Chris@42 90 comm = MPI_Comm_f2c(f_comm);
Chris@42 91 return XM(local_size_2d)(n0,n1,comm,local_n0,local_0_start);
Chris@42 92 }
Chris@42 93
Chris@42 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@42 95 {
Chris@42 96 MPI_Comm comm;
Chris@42 97
Chris@42 98 comm = MPI_Comm_f2c(f_comm);
Chris@42 99 return XM(local_size_2d_transposed)(n0,n1,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@42 100 }
Chris@42 101
Chris@42 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@42 103 {
Chris@42 104 MPI_Comm comm;
Chris@42 105
Chris@42 106 comm = MPI_Comm_f2c(f_comm);
Chris@42 107 return XM(local_size_3d)(n0,n1,n2,comm,local_n0,local_0_start);
Chris@42 108 }
Chris@42 109
Chris@42 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@42 111 {
Chris@42 112 MPI_Comm comm;
Chris@42 113
Chris@42 114 comm = MPI_Comm_f2c(f_comm);
Chris@42 115 return XM(local_size_3d_transposed)(n0,n1,n2,comm,local_n0,local_0_start,local_n1,local_1_start);
Chris@42 116 }
Chris@42 117
Chris@42 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@42 119 {
Chris@42 120 MPI_Comm comm;
Chris@42 121
Chris@42 122 comm = MPI_Comm_f2c(f_comm);
Chris@42 123 return XM(plan_many_transpose)(n0,n1,howmany,block0,block1,in,out,comm,flags);
Chris@42 124 }
Chris@42 125
Chris@42 126 X(plan) XM(plan_transpose_f03)(ptrdiff_t n0, ptrdiff_t n1, R * in, R * out, MPI_Fint f_comm, unsigned flags)
Chris@42 127 {
Chris@42 128 MPI_Comm comm;
Chris@42 129
Chris@42 130 comm = MPI_Comm_f2c(f_comm);
Chris@42 131 return XM(plan_transpose)(n0,n1,in,out,comm,flags);
Chris@42 132 }
Chris@42 133
Chris@42 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@42 135 {
Chris@42 136 MPI_Comm comm;
Chris@42 137
Chris@42 138 comm = MPI_Comm_f2c(f_comm);
Chris@42 139 return XM(plan_many_dft)(rnk,n,howmany,block,tblock,in,out,comm,sign,flags);
Chris@42 140 }
Chris@42 141
Chris@42 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@42 143 {
Chris@42 144 MPI_Comm comm;
Chris@42 145
Chris@42 146 comm = MPI_Comm_f2c(f_comm);
Chris@42 147 return XM(plan_dft)(rnk,n,in,out,comm,sign,flags);
Chris@42 148 }
Chris@42 149
Chris@42 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@42 151 {
Chris@42 152 MPI_Comm comm;
Chris@42 153
Chris@42 154 comm = MPI_Comm_f2c(f_comm);
Chris@42 155 return XM(plan_dft_1d)(n0,in,out,comm,sign,flags);
Chris@42 156 }
Chris@42 157
Chris@42 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@42 159 {
Chris@42 160 MPI_Comm comm;
Chris@42 161
Chris@42 162 comm = MPI_Comm_f2c(f_comm);
Chris@42 163 return XM(plan_dft_2d)(n0,n1,in,out,comm,sign,flags);
Chris@42 164 }
Chris@42 165
Chris@42 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@42 167 {
Chris@42 168 MPI_Comm comm;
Chris@42 169
Chris@42 170 comm = MPI_Comm_f2c(f_comm);
Chris@42 171 return XM(plan_dft_3d)(n0,n1,n2,in,out,comm,sign,flags);
Chris@42 172 }
Chris@42 173
Chris@42 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@42 175 {
Chris@42 176 MPI_Comm comm;
Chris@42 177
Chris@42 178 comm = MPI_Comm_f2c(f_comm);
Chris@42 179 return XM(plan_many_r2r)(rnk,n,howmany,iblock,oblock,in,out,comm,kind,flags);
Chris@42 180 }
Chris@42 181
Chris@42 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@42 183 {
Chris@42 184 MPI_Comm comm;
Chris@42 185
Chris@42 186 comm = MPI_Comm_f2c(f_comm);
Chris@42 187 return XM(plan_r2r)(rnk,n,in,out,comm,kind,flags);
Chris@42 188 }
Chris@42 189
Chris@42 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@42 191 {
Chris@42 192 MPI_Comm comm;
Chris@42 193
Chris@42 194 comm = MPI_Comm_f2c(f_comm);
Chris@42 195 return XM(plan_r2r_2d)(n0,n1,in,out,comm,kind0,kind1,flags);
Chris@42 196 }
Chris@42 197
Chris@42 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@42 199 {
Chris@42 200 MPI_Comm comm;
Chris@42 201
Chris@42 202 comm = MPI_Comm_f2c(f_comm);
Chris@42 203 return XM(plan_r2r_3d)(n0,n1,n2,in,out,comm,kind0,kind1,kind2,flags);
Chris@42 204 }
Chris@42 205
Chris@42 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@42 207 {
Chris@42 208 MPI_Comm comm;
Chris@42 209
Chris@42 210 comm = MPI_Comm_f2c(f_comm);
Chris@42 211 return XM(plan_many_dft_r2c)(rnk,n,howmany,iblock,oblock,in,out,comm,flags);
Chris@42 212 }
Chris@42 213
Chris@42 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@42 215 {
Chris@42 216 MPI_Comm comm;
Chris@42 217
Chris@42 218 comm = MPI_Comm_f2c(f_comm);
Chris@42 219 return XM(plan_dft_r2c)(rnk,n,in,out,comm,flags);
Chris@42 220 }
Chris@42 221
Chris@42 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@42 223 {
Chris@42 224 MPI_Comm comm;
Chris@42 225
Chris@42 226 comm = MPI_Comm_f2c(f_comm);
Chris@42 227 return XM(plan_dft_r2c_2d)(n0,n1,in,out,comm,flags);
Chris@42 228 }
Chris@42 229
Chris@42 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@42 231 {
Chris@42 232 MPI_Comm comm;
Chris@42 233
Chris@42 234 comm = MPI_Comm_f2c(f_comm);
Chris@42 235 return XM(plan_dft_r2c_3d)(n0,n1,n2,in,out,comm,flags);
Chris@42 236 }
Chris@42 237
Chris@42 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@42 239 {
Chris@42 240 MPI_Comm comm;
Chris@42 241
Chris@42 242 comm = MPI_Comm_f2c(f_comm);
Chris@42 243 return XM(plan_many_dft_c2r)(rnk,n,howmany,iblock,oblock,in,out,comm,flags);
Chris@42 244 }
Chris@42 245
Chris@42 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@42 247 {
Chris@42 248 MPI_Comm comm;
Chris@42 249
Chris@42 250 comm = MPI_Comm_f2c(f_comm);
Chris@42 251 return XM(plan_dft_c2r)(rnk,n,in,out,comm,flags);
Chris@42 252 }
Chris@42 253
Chris@42 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@42 255 {
Chris@42 256 MPI_Comm comm;
Chris@42 257
Chris@42 258 comm = MPI_Comm_f2c(f_comm);
Chris@42 259 return XM(plan_dft_c2r_2d)(n0,n1,in,out,comm,flags);
Chris@42 260 }
Chris@42 261
Chris@42 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@42 263 {
Chris@42 264 MPI_Comm comm;
Chris@42 265
Chris@42 266 comm = MPI_Comm_f2c(f_comm);
Chris@42 267 return XM(plan_dft_c2r_3d)(n0,n1,n2,in,out,comm,flags);
Chris@42 268 }
Chris@42 269
Chris@42 270 void XM(gather_wisdom_f03)(MPI_Fint f_comm_)
Chris@42 271 {
Chris@42 272 MPI_Comm comm_;
Chris@42 273
Chris@42 274 comm_ = MPI_Comm_f2c(f_comm_);
Chris@42 275 XM(gather_wisdom)(comm_);
Chris@42 276 }
Chris@42 277
Chris@42 278 void XM(broadcast_wisdom_f03)(MPI_Fint f_comm_)
Chris@42 279 {
Chris@42 280 MPI_Comm comm_;
Chris@42 281
Chris@42 282 comm_ = MPI_Comm_f2c(f_comm_);
Chris@42 283 XM(broadcast_wisdom)(comm_);
Chris@42 284 }