Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.5/mpi/f03-wrap.c @ 169:223a55898ab9 tip default

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