Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.8/mpi/f03-wrap.c @ 82:d0c2a83c1364

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