Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.5/mpi/f03-wrap.c @ 73:02caadb7509e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rebuild with --disable-stack-protector for mingw32
author Chris Cannam
date Fri, 25 Jan 2019 14:31:07 +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 }