/ routines for fetching arrays of dft fields */ /
| 1257 | /* routines for fetching arrays of dft fields */ |
| 1258 | /***************************************************************/ |
| 1259 | complex<realnum> *fields::get_dft_array(dft_flux flux, component c, int num_freq, int *rank, |
| 1260 | size_t dims[3]) { |
| 1261 | dft_chunk *chunklists[2]; |
| 1262 | chunklists[0] = flux.E; |
| 1263 | chunklists[1] = flux.H; |
| 1264 | complex<realnum> *array; |
| 1265 | direction dirs[3]; |
| 1266 | process_dft_component(chunklists, 2, num_freq, c, 0, &array, rank, dims, dirs); |
| 1267 | return collapse_array(array, rank, dims, dirs, flux.where); |
| 1268 | } |
| 1269 | |
| 1270 | complex<realnum> *fields::get_dft_array(dft_force force, component c, int num_freq, int *rank, |
| 1271 | size_t dims[3]) { |