zcis.h

Go to the documentation of this file.

/*
 * Complexcis.h
 *
 *  Created on: 21 Nov 2018
 *      Author: fbischoff
 */
 
#ifndef SRC_APPS_CHEM_ZCIS_H_
#define SRC_APPS_CHEM_ZCIS_H_
 
#include<madness/chem/projector.h>
#include<madness/mra/mra.h>
#include<tuple>
#include<madness/chem/znemo.h>
 
 
namespace madness {
 
 
 
class Complex_CIS_Parameters : public QCCalculationParametersBase {
public:
 
    /// ctor reading out the input file
    Complex_CIS_Parameters(World& world, const commandlineparser& parser) : Complex_CIS_Parameters() {
        read_input_and_commandline_options(world,parser,"response");
    }
 
    Complex_CIS_Parameters() {
 
        /// the parameters with the enum key, the constructor taking the input file key and a default value
        initialize<std::string>("guess_excitation_operators","dipole+");
        initialize<std::vector<std::string> >("exops",{"x 1.0","y 1.0","z 1.0","x 2.0 , y 2.0 , z 2.0"});
        initialize<int>("freeze",0);
        initialize<int>("guess_excitations",4);
        initialize<int>("guess_maxiter",4);
        initialize<double>("thresh",FunctionDefaults<3>::get_thresh());
        initialize<double>("omega",0.0);
        initialize<int>("maxiter",10);
        initialize<bool>("swap_ab",false);
        initialize<double>("dconv",1.e-3);
        initialize<int>("printlevel",1);
 
    }
 
    std::string get_tag() const override {
        return std::string("response");
    }
 
 
    std::string guess_excitation_operators() const {return get<std::string>("guess_excitation_operators");};
    std::vector<std::string> exops() const {return get<std::vector<std::string> >("exops");};
    int freeze() const {return get<int>("freeze");};
    int guess_excitations() const {return get<int>("guess_excitations");};
    double thresh() const {return get<double>("thresh");};
    double omega() const {return get<double>("omega");};
    int maxiter() const {return get<int>("maxiter");};
    int guess_maxiter() const {return get<int>("guess_maxiter");};
    bool swap_ab() const {return get<bool>("swap_ab");};
    double dconv() const {return get<double>("dconv");};
    int printlevel() const {return get<int>("printlevel");};
 
 
};
 
 
class Zcis : public QCPropertyInterface {
public:
 
    struct root {
        std::vector<complex_function_3d> afunction;
        std::vector<complex_function_3d> bfunction;
        std::vector<complex_function_3d> apot;
        std::vector<complex_function_3d> bpot;
        double omega=0.0;
        double delta=1.e3;              // last wave function error
        double energy_change=1.e3;      // last energy_change
 
        /// inner product for the KAIN solver
        friend
        double_complex inner(const root& f, const root& g){
            MADNESS_ASSERT(f.afunction.size()==g.afunction.size());
            MADNESS_ASSERT(f.bfunction.size()==g.bfunction.size());
            double_complex result=inner(f.afunction,g.afunction) + inner(f.bfunction,g.bfunction);
            return result;
        }
 
 
    };
 
    static std::vector<root> transform(World& world,
              const std::vector<root>& v,
              const Tensor<double_complex>& c,
              bool fence=true) {
 
        int n = v.size();  // n is the old dimension
        int m = c.dim(1);  // m is the new dimension
 
        int nocca=v.front().afunction.size();
        int noccb=v.front().bfunction.size();
 
        std::vector<root> result(m);
 
        for (auto&& r : result) {
            r.afunction= zero_functions_compressed<double_complex,3>(world, nocca, false);
            r.bfunction= zero_functions_compressed<double_complex,3>(world, noccb, false);
            r.apot= zero_functions_compressed<double_complex,3>(world, nocca, false);
            r.bpot= zero_functions_compressed<double_complex,3>(world, noccb, false);
        }
        for (auto&& vv : v) {
            compress(world, vv.afunction,false);
            compress(world, vv.bfunction,false);
            compress(world, vv.apot,false);
            compress(world, vv.bpot,false);
        }
        world.gop.fence();
 
        for (int i=0; i<m; ++i) {
            for (int j=0; j<n; ++j) {
                gaxpy(world,double_complex(1.0),result[i].afunction,c(j,i),v[j].afunction,false);
                gaxpy(world,double_complex(1.0),result[i].bfunction,c(j,i),v[j].bfunction,false);
                if (v[j].apot.size()>0) gaxpy(world,double_complex(1.0),result[i].apot,c(j,i),v[j].apot,false);
                if (v[j].bpot.size()>0) gaxpy(world,double_complex(1.0),result[i].bpot,c(j,i),v[j].bpot,false);
            }
        }
 
        if (fence) world.gop.fence();
        return result;
    }
 
 
 
    Zcis(World& w, const commandlineparser& parser, std::shared_ptr<Znemo> n) : world(w), cis_param(world, parser), nemo(n),
        Qa(nemo->amo,nemo->amo), Qb(nemo->bmo,nemo->bmo) {
        cis_param.print("response","end");
        print("Qa projector",Qa.get_ket_vector().size());
        print("Qb projector",Qb.get_ket_vector().size());
 
    }
 
    virtual ~Zcis() {};
 
    double value();
 
    static void help() {
        print_header2("help page for ZCIS");
        print("The zcis code computes excited states for a znemo calculation in the CIS approximation");
        print("\nYou can print all available calculation parameters by running\n");
        print("zcis --print_parameters\n");
        print("You can perform a simple calculation by running\n");
        print("zcis --geometry=h2o.xyz\n");
        print("provided you have an xyz file in your directory.");
 
    }
 
    static void print_parameters() {
        Complex_CIS_Parameters param;
        print("The zcis program requires converged znemo orbitals");
        print("\ndefault parameters for the response part of the zcis program are");
        param.print("response","end");
        print("\n\nthe molecular geometry must be specified in a separate block:");
        Molecule::print_parameters();
    }
 
 
    std::string name() const {return "zcis";};
 
    virtual bool selftest() {
        return true;
    };
    void iterate(std::vector<root>& roots) const;
 
    void compute_potentials(std::vector<root>& roots, const real_function_3d& totdens) const;
 
    std::vector<complex_function_3d> compute_residuals(root& root) const;
 
    std::vector<root> read_guess() const;
 
    void save_guess(const std::vector<root>& roots) const;
 
    std::vector<root> make_guess() const;
 
    void canonicalize(const std::vector<complex_function_3d>& mo, const real_function_3d& density,
            std::vector<complex_function_3d>& virtuals, Tensor<double>& veps) const;
 
    Tensor<double_complex> make_CIS_matrix(const Tensor<double>& veps, const Tensor<double>& oeps) const;
 
    Tensor<double_complex> compute_fock_pt(const std::vector<root>& roots) const;
 
 
    /// return the active orbitals only
    Tensor<double> noct(const Tensor<double>& eps) const {
        if (eps.size()<=cis_param.freeze()) return Tensor<double>();
        return eps(Slice(cis_param.freeze(),-1,1));
    }
 
    /// return the active orbitals only
    std::vector<complex_function_3d> active_mo(const std::vector<complex_function_3d>& mo) const {
         if (mo.size()<=size_t(cis_param.freeze())) return std::vector<complex_function_3d> ();
        std::vector<complex_function_3d> result;
        result.insert(result.end(),mo.begin()+cis_param.freeze(),mo.end());
        return result;
    }
 
    /// little helper function
    template<typename T>
    static Tensor<T> concatenate(const Tensor<T>& t1, const Tensor<T>& t2) {
        MADNESS_ASSERT(t1.ndim()==1 or t1.size()==0);
        MADNESS_ASSERT(t2.ndim()==1 or t2.size()==0);
        Tensor<T> result(t1.size()+t2.size());
        if (t1.size()>0) result(Slice(0,t1.size()-1,1))=t1; // slices count inclusive
        if (t2.size()>0) result(Slice(t1.size(),-1,1))=t2;
        return result;
    }
 
    template<typename T>
    static std::tuple<Tensor<T>, Tensor<T> > split(const Tensor<T>& rhs, int dim1) {
 
        MADNESS_ASSERT(dim1>=0 and dim1<=rhs.size());
        if (dim1==0) return std::make_tuple(Tensor<T>(),rhs);
        if (dim1==rhs.size()) return std::make_tuple(rhs,Tensor<T>());
 
        Tensor<T> t1=rhs(Slice(0,dim1-1,1));
        Tensor<T> t2=rhs(Slice(dim1,-1,1));
        return std::make_tuple(t1,t2);
    }
 
    void orthonormalize(std::vector<root>& roots, const Tensor<double_complex>& fock_pt_a) const;
 
    void orthonormalize(std::vector<root>& roots) const;
 
    void normalize(std::vector<root>& roots) const;
 
    void compare_to_file(const std::vector<complex_function_3d>& rhs, const std::string name) const {
        if (nemo->get_calc_param().spin_restricted()) {
            save_function(rhs,name);
 
        } else {
            std::vector<complex_function_3d> rhs_file=zero_functions_compressed<double_complex,3>(world,rhs.size());
            std::vector<complex_function_3d> rhs_file1;
            load_function(world,rhs_file1,name);
            for (size_t i=0; i<rhs_file1.size(); ++i) rhs_file[i]=rhs_file1[i];
            std::vector<double> dnorm=norm2s(world,rhs-rhs_file);
            print(name,"diffnorm",dnorm);
        }
    }
 
 
    static std::tuple<std::vector<complex_function_3d>, std::vector<complex_function_3d> >
    split(const std::vector<complex_function_3d>& rhs, int dim1) {
 
            MADNESS_ASSERT(dim1>=0 and size_t(dim1)<=rhs.size());
        if (dim1==0) return std::make_tuple(std::vector<complex_function_3d>(),rhs);
        if (size_t(dim1)==rhs.size()) return std::make_tuple(rhs,std::vector<complex_function_3d>());
 
        std::vector<complex_function_3d> t1,t2;
        copy(rhs.begin(),rhs.begin()+dim1,back_inserter(t1));
        copy(rhs.begin()+dim1,rhs.end(),back_inserter(t2));
 
        return std::make_tuple(t1,t2);
    }
 
    /// the world
    World& world;
 
    /// the parameters
    Complex_CIS_Parameters cis_param;
 
    /// the reference
    std::shared_ptr<Znemo> nemo;
 
    /// orthogonality projector
    QProjector<double_complex,3> Qa, Qb;
 
    /// the x vectors
    std::vector<root> roots;
 
};
 
} /* namespace madness */
 
#endif /* SRC_APPS_CHEM_ZCIS_H_ */