mirror of
https://github.com/paboyle/Grid.git
synced 2024-11-10 07:55:35 +00:00
272 lines
7.1 KiB
C++
272 lines
7.1 KiB
C++
|
|
/*************************************************************************************
|
|
|
|
Grid physics library, www.github.com/paboyle/Grid
|
|
|
|
Source file: ./lib/Cshift.h
|
|
|
|
Copyright (C) 2015
|
|
|
|
Author: Peter Boyle <paboyle@ph.ed.ac.uk>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License along
|
|
with this program; if not, write to the Free Software Foundation, Inc.,
|
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
See the full license in the file "LICENSE" in the top level distribution directory
|
|
*************************************************************************************/
|
|
/* END LEGAL */
|
|
#ifndef _GRID_FFT_H_
|
|
#define _GRID_FFT_H_
|
|
|
|
#ifdef HAVE_FFTW
|
|
#include <Grid/fftw/fftw3.h>
|
|
#endif
|
|
namespace Grid {
|
|
|
|
template<class scalar> struct FFTW { };
|
|
|
|
#ifdef HAVE_FFTW
|
|
template<> struct FFTW<ComplexD> {
|
|
public:
|
|
|
|
typedef fftw_complex FFTW_scalar;
|
|
typedef fftw_plan FFTW_plan;
|
|
|
|
static FFTW_plan fftw_plan_many_dft(int rank, const int *n,int howmany,
|
|
FFTW_scalar *in, const int *inembed,
|
|
int istride, int idist,
|
|
FFTW_scalar *out, const int *onembed,
|
|
int ostride, int odist,
|
|
int sign, unsigned flags) {
|
|
return ::fftw_plan_many_dft(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,sign,flags);
|
|
}
|
|
|
|
static void fftw_flops(const FFTW_plan p,double *add, double *mul, double *fmas){
|
|
::fftw_flops(p,add,mul,fmas);
|
|
}
|
|
|
|
inline static void fftw_execute_dft(const FFTW_plan p,FFTW_scalar *in,FFTW_scalar *out) {
|
|
::fftw_execute_dft(p,in,out);
|
|
}
|
|
inline static void fftw_destroy_plan(const FFTW_plan p) {
|
|
::fftw_destroy_plan(p);
|
|
}
|
|
};
|
|
|
|
template<> struct FFTW<ComplexF> {
|
|
public:
|
|
|
|
typedef fftwf_complex FFTW_scalar;
|
|
typedef fftwf_plan FFTW_plan;
|
|
|
|
static FFTW_plan fftw_plan_many_dft(int rank, const int *n,int howmany,
|
|
FFTW_scalar *in, const int *inembed,
|
|
int istride, int idist,
|
|
FFTW_scalar *out, const int *onembed,
|
|
int ostride, int odist,
|
|
int sign, unsigned flags) {
|
|
return ::fftwf_plan_many_dft(rank,n,howmany,in,inembed,istride,idist,out,onembed,ostride,odist,sign,flags);
|
|
}
|
|
|
|
static void fftw_flops(const FFTW_plan p,double *add, double *mul, double *fmas){
|
|
::fftwf_flops(p,add,mul,fmas);
|
|
}
|
|
|
|
inline static void fftw_execute_dft(const FFTW_plan p,FFTW_scalar *in,FFTW_scalar *out) {
|
|
::fftwf_execute_dft(p,in,out);
|
|
}
|
|
inline static void fftw_destroy_plan(const FFTW_plan p) {
|
|
::fftwf_destroy_plan(p);
|
|
}
|
|
};
|
|
|
|
#endif
|
|
|
|
#ifndef FFTW_FORWARD
|
|
#define FFTW_FORWARD (-1)
|
|
#define FFTW_BACKWARD (+1)
|
|
#endif
|
|
|
|
class FFT {
|
|
private:
|
|
|
|
GridCartesian *vgrid;
|
|
GridCartesian *sgrid;
|
|
|
|
int Nd;
|
|
double flops;
|
|
double flops_call;
|
|
uint64_t usec;
|
|
|
|
std::vector<int> dimensions;
|
|
std::vector<int> processors;
|
|
std::vector<int> processor_coor;
|
|
|
|
public:
|
|
|
|
static const int forward=FFTW_FORWARD;
|
|
static const int backward=FFTW_BACKWARD;
|
|
|
|
double Flops(void) {return flops;}
|
|
double MFlops(void) {return flops/usec;}
|
|
|
|
FFT ( GridCartesian * grid ) :
|
|
vgrid(grid),
|
|
Nd(grid->_ndimension),
|
|
dimensions(grid->_fdimensions),
|
|
processors(grid->_processors),
|
|
processor_coor(grid->_processor_coor)
|
|
{
|
|
flops=0;
|
|
usec =0;
|
|
std::vector<int> layout(Nd,1);
|
|
sgrid = new GridCartesian(dimensions,layout,processors);
|
|
};
|
|
|
|
~FFT ( void) {
|
|
delete sgrid;
|
|
}
|
|
|
|
template<class vobj>
|
|
void FFT_dim(Lattice<vobj> &result,const Lattice<vobj> &source,int dim, int inverse){
|
|
|
|
conformable(result._grid,vgrid);
|
|
conformable(source._grid,vgrid);
|
|
|
|
int L = vgrid->_ldimensions[dim];
|
|
int G = vgrid->_fdimensions[dim];
|
|
|
|
std::vector<int> layout(Nd,1);
|
|
std::vector<int> pencil_gd(vgrid->_fdimensions);
|
|
|
|
pencil_gd[dim] = G*processors[dim];
|
|
|
|
// Pencil global vol LxLxGxLxL per node
|
|
GridCartesian pencil_g(pencil_gd,layout,processors);
|
|
|
|
// Construct pencils
|
|
typedef typename vobj::scalar_object sobj;
|
|
typedef typename sobj::scalar_type scalar;
|
|
|
|
Lattice<vobj> ssource(vgrid); ssource =source;
|
|
Lattice<sobj> pgsource(&pencil_g);
|
|
Lattice<sobj> pgresult(&pencil_g); pgresult=zero;
|
|
|
|
#ifndef HAVE_FFTW
|
|
assert(0);
|
|
#else
|
|
typedef typename FFTW<scalar>::FFTW_scalar FFTW_scalar;
|
|
typedef typename FFTW<scalar>::FFTW_plan FFTW_plan;
|
|
|
|
{
|
|
int Ncomp = sizeof(sobj)/sizeof(scalar);
|
|
int Nlow = 1;
|
|
for(int d=0;d<dim;d++){
|
|
Nlow*=vgrid->_ldimensions[d];
|
|
}
|
|
|
|
int rank = 1; /* 1d transforms */
|
|
int n[] = {G}; /* 1d transforms of length G */
|
|
int howmany = Ncomp;
|
|
int odist,idist,istride,ostride;
|
|
idist = odist = 1; /* Distance between consecutive FT's */
|
|
istride = ostride = Ncomp*Nlow; /* distance between two elements in the same FT */
|
|
int *inembed = n, *onembed = n;
|
|
|
|
|
|
int sign = FFTW_FORWARD;
|
|
if (inverse) sign = FFTW_BACKWARD;
|
|
|
|
FFTW_plan p;
|
|
{
|
|
FFTW_scalar *in = (FFTW_scalar *)&pgsource._odata[0];
|
|
FFTW_scalar *out= (FFTW_scalar *)&pgresult._odata[0];
|
|
p = FFTW<scalar>::fftw_plan_many_dft(rank,n,howmany,
|
|
in,inembed,
|
|
istride,idist,
|
|
out,onembed,
|
|
ostride, odist,
|
|
sign,FFTW_ESTIMATE);
|
|
}
|
|
|
|
std::vector<int> lcoor(Nd), gcoor(Nd);
|
|
|
|
// Barrel shift and collect global pencil
|
|
for(int p=0;p<processors[dim];p++) {
|
|
|
|
for(int idx=0;idx<sgrid->lSites();idx++) {
|
|
|
|
|
|
sgrid->LocalIndexToLocalCoor(idx,lcoor);
|
|
|
|
sobj s;
|
|
|
|
peekLocalSite(s,ssource,lcoor);
|
|
|
|
lcoor[dim]+=p*L;
|
|
|
|
pokeLocalSite(s,pgsource,lcoor);
|
|
}
|
|
|
|
ssource = Cshift(ssource,dim,L);
|
|
}
|
|
|
|
// Loop over orthog coords
|
|
int NN=pencil_g.lSites();
|
|
GridStopWatch timer;
|
|
timer.Start();
|
|
|
|
//PARALLEL_FOR_LOOP
|
|
for(int idx=0;idx<NN;idx++) {
|
|
pencil_g.LocalIndexToLocalCoor(idx,lcoor);
|
|
|
|
if ( lcoor[dim] == 0 ) { // restricts loop to plane at lcoor[dim]==0
|
|
FFTW_scalar *in = (FFTW_scalar *)&pgsource._odata[idx];
|
|
FFTW_scalar *out= (FFTW_scalar *)&pgresult._odata[idx];
|
|
FFTW<scalar>::fftw_execute_dft(p,in,out);
|
|
}
|
|
}
|
|
|
|
timer.Stop();
|
|
|
|
double add,mul,fma;
|
|
FFTW<scalar>::fftw_flops(p,&add,&mul,&fma);
|
|
flops_call = add+mul+2.0*fma;
|
|
usec += timer.useconds();
|
|
flops+= flops_call*NN;
|
|
int pc = processor_coor[dim];
|
|
for(int idx=0;idx<sgrid->lSites();idx++) {
|
|
sgrid->LocalIndexToLocalCoor(idx,lcoor);
|
|
gcoor = lcoor;
|
|
// extract the result
|
|
sobj s;
|
|
gcoor[dim] = lcoor[dim]+L*pc;
|
|
peekLocalSite(s,pgresult,gcoor);
|
|
pokeLocalSite(s,result,lcoor);
|
|
}
|
|
|
|
FFTW<scalar>::fftw_destroy_plan(p);
|
|
}
|
|
#endif
|
|
|
|
|
|
}
|
|
|
|
};
|
|
|
|
|
|
}
|
|
|
|
#endif
|