mirror of
https://github.com/triqs/dft_tools
synced 2025-01-13 22:36:03 +01:00
39edb2f846
- Make more general constructors for the gf. gf( mesh, target_shape_t) - remove the old make_gf for the basic gf. - 2 var non generic gf removed. - clean evaluator - add tensor_valued - add a simple vertex test. - clean specialisation - Fix bug introduced in 1906dc3 - forgot to resize the gf in new version of operator = - Fix make_singularity in gf.hpp - clean resize in operator = - update h5 read/write for block gf - changed a bit the general trait to save *all* the gf. - allows a more general specialization, then a correct for blocks - NOT FINISHED : need to save the block indice for python. How to reread ? Currently it read the blocks names and reconstitute the mesh from it. Is it sufficient ? - clean block constructors - block constructors simplest possible : an int for the number of blocks - rest in free factories. - fixed the generic constructor from GfType for the regular type : only enable iif GfType is ImmutableGreenFunction - multivar. fix linear index in C, and h5 format - linear index now correctly flatten in C mode (was in fortran mode), using a simple reverse of the tuple in the folding. - fix the h5 read write of the multivar fonctions in order to write an array on dimension # variables + dim_target i.e. without flattening the indices of the meshes. Easier for later data analysis, e.g. in Python. - merge matrix/tensor_valued. improve factories - matrix_valued now = tensor_valued<2> (simplifies generic code for h5). - factories_one_var -> factories : this is the generic case ... only a few specialization, code is simpler. - clef expression call with rvalue for *this - generalize matrix_proxy to tensor and clean - clean exception catch in tests - exception catching catch in need in test because the silly OS X does not print anything, just "exception occurred". Very convenient for the developer... - BUT, one MUST add return 1, or the make test will *pass* !! - --> systematically replace the catch by a macro TRIQS_CATCH_AND_ABORT which return a non zero error code. - exception : curry_and_fourier which does not work at this stage (mesh incompatible). - gf: clean draft of gf 2 times - comment the python interface for the moment. - rm useless tests
66 lines
1.6 KiB
C++
66 lines
1.6 KiB
C++
#define TRIQS_ARRAYS_ENFORCE_BOUNDCHECK
|
|
#include <triqs/gfs.hpp>
|
|
using namespace triqs::gfs;
|
|
using namespace triqs::arrays;
|
|
#define TEST(X) std::cout << BOOST_PP_STRINGIZE((X)) << " ---> "<< (X) <<std::endl<<std::endl;
|
|
|
|
int main() {
|
|
|
|
try {
|
|
|
|
auto m = gf_mesh<retime>{0,10,99,full_bins};
|
|
auto G = gf<cartesian_product<retime,retime>> { {m,m}, {2,2}};
|
|
auto G2 = G;
|
|
|
|
auto gg = gf<retime> { {m}, {2,2}};
|
|
|
|
triqs::clef::placeholder<0> t_;
|
|
triqs::clef::placeholder<1> tp_;
|
|
|
|
array<double,2> A(2,2);
|
|
A(t_,tp_) << t_ - 3*tp_;
|
|
std::cout <<A << std::endl ;
|
|
|
|
std::cout << G.data().shape() << 2*G(0,0)<<std::endl;
|
|
|
|
auto xx =eval ( G(t_,tp_), t_=2, tp_=1.2);
|
|
//xx =0;
|
|
std::cout << eval ( gg(t_), t_=2)<< std::endl ;
|
|
|
|
double beta = 1;
|
|
double wmin=0.;
|
|
double wmax=1.0;
|
|
int n_im_freq=100;
|
|
|
|
auto G_w_wn2 = gf<cartesian_product<imfreq,imfreq>>( {gf_mesh<imfreq>(beta, Fermion, n_im_freq), gf_mesh<imfreq>(beta, Fermion, n_im_freq)}, {2,2});
|
|
|
|
auto zz = G_w_wn2(t_,tp_);
|
|
//std::cout << std::get<0>(zz.childs).data() << std::endl ;
|
|
auto yy = eval ( zz, t_=2, tp_=3);
|
|
std::cout << yy.indexmap()<< std::endl ;
|
|
std::cout << yy << std::endl ;
|
|
//std::cout << eval ( zz, t_=2, tp_=3)<< std::endl ;
|
|
//std::cout << eval ( G_w_wn2(t_,tp_), t_=2, tp_=3)<< std::endl ;
|
|
|
|
//std::cout << eval ( G(t_,tp_), t_=2, tp_=1.2)<< std::endl ;
|
|
//G(t_,tp_) << t_ - 3*tp_;
|
|
//G2(t_,tp_) << t_ + 3*tp_;
|
|
|
|
//G2(t_,tp_) << 2* G(t_,tp_);
|
|
|
|
TEST( G(1,1) );
|
|
TEST( G[G.mesh()(1,1) ]);
|
|
TEST( G.on_mesh(1,1));
|
|
|
|
//G2(t_,tp_) << G(tp_,t_);
|
|
TEST( G(2,1) );
|
|
TEST( G2(1,2) );
|
|
TEST( G(1,2) );
|
|
TEST( G2(2,1) );
|
|
|
|
//TEST( G2(2,1,3) ); // should not compile
|
|
|
|
}
|
|
TRIQS_CATCH_AND_ABORT;
|
|
}
|