Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.3/mpi/f03-wrap.c @ 161:4797bbf470e7

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