/Users/mdipierro/fermiqcd/development/Libraries/fermiqcd_ffts.h

Go to the documentation of this file.

inline mdp_int i2pow(mdp_int n) {
  return 0x0001 << n;
};

// one dimensional fourier transform
// here n is not the size of f but size of f is i2pow(n)

void dft(mdp_complex *fft_f, mdp_complex *f, mdp_int n, double sign, 
         mdp_int offset=0, mdp_int coeff=1) {
  int i,j;
  mdp_complex phase=exp(2.0*Pi*I*sign/n);
  for(i=0; i<n; i++) {
    fft_f[offset+coeff*i]=0;
    for(j=0; j<n; j++)
      fft_f[offset+coeff*i]+=f[offset+coeff*j]*pow(phase,i*j);
    fft_f[offset+coeff*i]/=sqrt(n);
  }
}

/* NOT NOT UNCOMMENT THIS, WORK IN PROGRESS!!!
void fft(mdp_complex *fft_f, mdp_complex *f, mdp_int n, double sign, 
         mdp_int offset=0, mdp_int coeff=1) {
  mdp_int a,b,h,pow2b, N=i2pow(n);
  mdp_complex alpha, omega, F[N];
  if(sign!=0) for(h=0; h<N; h++) {
    alpha=2.0*sign*Pi*I/N*h;
    for(a=0; a<N; a++) F[a]=f[offset+coeff*a];
    for(b=n-1; b>=0; b--) {
      pow2b=i2pow(b);
      omega=exp(alpha*pow2b);
      for(a=0; a<pow2b; a++) 
        F[a]+=omega*F[a+pow2b];
    };
    fft_f[offset+coeff*h]=F[0]/sqrt(N);
  } else {
    for(a=0; a<N; a++)
      fft_f[offset+coeff*a]=f[offset+coeff*a];
  }    
}

*/

void fermi_field_fft(int t, 
                     fermi_field& psi_out, 
                     fermi_field& psi_in, 
                     int sign) {

  if(psi_in.lattice().ndim!=4) error("fft3D requires TxXxXxX");

  int i,x1,x2,x3,spin,color;
  int size=psi_in.lattice().size(1);
  if(psi_in.lattice().size(2)>size) size=psi_in.lattice().size(2);
  if(psi_in.lattice().size(3)>size) size=psi_in.lattice().size(3);

  mdp_complex *v=new mdp_complex[size];
  mdp_complex *u=new mdp_complex[size];

  mdp_site x(psi_in.lattice());

  forallsites(x)
    if(x(0)==t)
      psi_out(x)=psi_in(x);

  for(spin=0; spin<psi_out.nspin; spin++)
    for(color=0; color<psi_out.nc; color++) {
      for(x2=0; x2<psi_out.lattice().size(2); x2++)
        for(x3=0; x3<psi_out.lattice().size(3); x3++) {
          for(i=0; i<psi_out.lattice().size(1); i++) {
            x.set(t,i,x2,x3);
            v[i]=psi_out(x,spin,color);
          }
          dft(u,v,psi_out.lattice().size(1),sign);
          for(i=0; i<psi_out.lattice().size(1); i++) {
            x.set(t,i,x2,x3);
            psi_out(x,spin,color)=u[i];
          }
        }     
      for(x1=0; x1<psi_out.lattice().size(1); x1++)
        for(x3=0; x3<psi_out.lattice().size(3); x3++) {
          for(i=0; i<psi_out.lattice().size(2); i++) {
            x.set(t,x1,i,x3);
            v[i]=psi_out(x,spin,color);
          }
          dft(u,v,psi_out.lattice().size(2),sign);
          for(i=0; i<psi_out.lattice().size(2); i++) {
            x.set(t,x1,i,x3);
            psi_out(x,spin,color)=u[i];
          }
        }

      for(x1=0; x1<psi_out.lattice().size(1); x1++)
        for(x2=0; x2<psi_out.lattice().size(2); x2++) {
          for(i=0; i<psi_out.lattice().size(3); i++) {
            x.set(t,x1,x2,i);
            v[i]=psi_out(x,spin,color);
          }
          dft(u,v,psi_out.lattice().size(3),sign);
          for(i=0; i<psi_out.lattice().size(3); i++) {
            x.set(t,x1,x2,i);
            psi_out(x,spin,color)=u[i];
          }
        }
    }
  delete[] u;
  delete[] v;
}

void fermi_field_fft(fermi_field& psi_out, 
                     fermi_field& psi_in, 
                     int sign) {
  for(int t=0; t<psi_in.lattice().size(0); t++) {
    fermi_field_fft(t,psi_out,psi_in,sign);
  }
}

/* Uncomment this as an example

int test1() {
  mdp_int i,j,n=16;

  double tmp=0;

  mdp_complex in[n], out[n], chk[n];
  for(i=0; i<n; i++)
    in[i]=exp(I*2.0*sin(i));
  
  dft(out,in,n,+1);

  dft(chk,out,n,-1);
  
  for(i=0; i<n; i++) {
    if(tmp+=abs(chk[i]-in[i])>0.00001)
      printf("(%f, %f) (%f, %f) (%f, %f)\n", 
             real(in[i]), imag(in[i]),
             real(chk[i]), imag(chk[i]),
             real(out[i]), imag(out[i]));
  };
  printf("%f\n", tmp/n);
  return 0;
};


int test2() {

  int box[]={1,20,20,20};
  mdp_lattice lattice(4,box);
  fermi_field psi(lattice,3);
  fermi_field phi(lattice,3);
  fermi_field chi(lattice,3);

  set_random(psi);
  mdp_site x(lattice);

  int t;

  for(t=0; t<box[0]; t++) {
    if(on_which_process(lattice,t)==ME) {
      fermi_field_fft(t,phi,psi,1);
      fermi_field_fft(t,chi,phi,-1);
    }
  }

  check_differences(psi,chi);

}


int main(int argc, char** argv) {
  mdp.open_wormholes(argc,argv);
  test1();
  test2();
  mdp.close_wormholes();
}

*/

---