2013-10-16 23:55:26 +02:00
|
|
|
#define TRIQS_ARRAYS_ENFORCE_BOUNDCHECK
|
|
|
|
#include <triqs/gfs.hpp>
|
2013-07-29 09:57:07 +02:00
|
|
|
#include <triqs/gfs/local/fourier_matsubara.hpp>
|
2013-10-16 23:55:26 +02:00
|
|
|
using namespace triqs::gfs;
|
2013-07-17 19:24:07 +02:00
|
|
|
#define TEST(X) std::cout << BOOST_PP_STRINGIZE((X)) << " ---> "<< (X) <<std::endl<<std::endl;
|
|
|
|
|
|
|
|
int main() {
|
|
|
|
|
|
|
|
double beta =1;
|
2013-10-16 23:55:26 +02:00
|
|
|
auto G = gf<imfreq> {{beta, Fermion}, {2,2}};
|
|
|
|
auto Gc = G;
|
|
|
|
auto G3 = G;
|
2013-10-23 15:51:51 +02:00
|
|
|
auto Gt = gf<imtime> {{beta, Fermion,100}, {2,2}};
|
2013-07-17 19:24:07 +02:00
|
|
|
|
2013-10-23 15:51:51 +02:00
|
|
|
auto gt = make_gf_from_inverse_fourier(G);
|
|
|
|
auto gw = make_gf_from_fourier(gt);
|
2013-07-17 19:24:07 +02:00
|
|
|
|
2013-10-23 15:51:51 +02:00
|
|
|
//gw() = fourier(gt);
|
|
|
|
G() = fourier(Gt);
|
2013-07-17 19:24:07 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|