Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.3/mpi/f03-wrap.c @ 44:9894b839b0cb

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