function_interface.h

Go to the documentation of this file.

/*
  This file is part of MADNESS.
 
  Copyright (C) 2007,2010 Oak Ridge National Laboratory
 
  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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
  For more information please contact:
 
  Robert J. Harrison
  Oak Ridge National Laboratory
  One Bethel Valley Road
  P.O. Box 2008, MS-6367
 
  email: harrisonrj@ornl.gov
  tel:   865-241-3937
  fax:   865-572-0680
 
  $Id: function_factory_and_interface.h 3422 2014-03-24 09:16:15Z 3ru6ruWu $
*/
 
 
#ifndef MADNESS_MRA_FUNCTION_INTERFACE_H__INCLUDED
#define MADNESS_MRA_FUNCTION_INTERFACE_H__INCLUDED
 
#include <madness/tensor/tensor.h>
#include <madness/tensor/gentensor.h>
#include <madness/mra/key.h>
 
// needed for the TwoElectronInterface
#include <madness/mra/operatorinfo.h>
#include <madness/mra/gfit.h>
#include <madness/mra/convolution1d.h>
#include <madness/mra/function_common_data.h>
 
namespace madness {
 
    // forward declaration needed for CompositeFunctorInterface
    template<typename T, std::size_t NDIM>
    class FunctionImpl;
 
    template<typename T, std::size_t NDIM>
    class Function;
 
    template<typename T, std::size_t NDIM>
    Tensor<T> fcube(const Key<NDIM>&, T (*f)(const Vector<double,NDIM>&), const Tensor<double>&);
 
//    template <typename T, std::size_t NDIM>
//    const std::vector<Function<T,NDIM>>& change_tree_state(const std::vector<Function<T,NDIM>>& v,
//    const TreeState finalstate,
//    const bool fence);
 
 
    /// Abstract base class interface required for functors used as input to Functions
    template<typename T, std::size_t NDIM>
    class FunctionFunctorInterface {
    public:
 
        typedef GenTensor<T> coeffT;
        typedef Key<NDIM> keyT;
        typedef T value_type;
 
        Level special_level_;
 
        FunctionFunctorInterface() : special_level_(6) {}
 
        /// adapt the special level to resolve the smallest length scale
        void set_length_scale(double lo) {
            double Lmax=FunctionDefaults<NDIM>::get_cell_width().max();
            double lo_sim=lo/Lmax;  // lo in simulation coordinates;
            special_level_=Level(-log2(lo_sim));
        }
 
        /// Can we screen this function based on the bounding box information?
        virtual bool screened(const Vector<double,NDIM>& c1, const Vector<double,NDIM>& c2) const {
            return false;
        }
 
        /// Does the interface support a vectorized operator()?
        virtual bool supports_vectorized() const {return false;}
 
MADNESS_PRAGMA_GCC(diagnostic push)
MADNESS_PRAGMA_GCC(diagnostic ignored "-Woverloaded-virtual")
MADNESS_PRAGMA_CLANG(diagnostic push)
MADNESS_PRAGMA_CLANG(diagnostic ignored "-Woverloaded-virtual")
 
        virtual void operator()(const Vector<double*,1>& xvals, T* fvals, int npts) const {
            MADNESS_EXCEPTION("FunctionFunctorInterface: This function should not be called!", 0);
        }
 
        virtual void operator()(const Vector<double*,2>& xvals, T* fvals, int npts) const {
            MADNESS_EXCEPTION("FunctionFunctorInterface: This function should not be called!", 0);
        }
 
        virtual void operator()(const Vector<double*,3>& xvals, T* fvals, int npts) const {
            MADNESS_EXCEPTION("FunctionFunctorInterface: This function should not be called!", 0);
        }
 
        virtual void operator()(const Vector<double*,4>& xvals, T* fvals, int npts) const {
            MADNESS_EXCEPTION("FunctionFunctorInterface: This function should not be called!", 0);
        }
 
        virtual void operator()(const Vector<double*,5>& xvals, T* fvals, int npts) const {
            MADNESS_EXCEPTION("FunctionFunctorInterface: This function should not be called!", 0);
        }
 
        virtual void operator()(const Vector<double*,6>& xvals, T* fvals, int npts) const {
            MADNESS_EXCEPTION("FunctionFunctorInterface: This function should not be called!", 0);
        }
MADNESS_PRAGMA_CLANG(diagnostic pop)
MADNESS_PRAGMA_GCC(diagnostic pop)
 
        /// You should implement this to return \c f(x)
        virtual T operator()(const Vector<double, NDIM>& x) const = 0;
 
        /// Override this to return list of special points to be refined more deeply
        virtual std::vector< Vector<double,NDIM> > special_points() const {
            return std::vector< Vector<double,NDIM> >();
        }
 
        /// Override this to change the minimum level of refinement at special points (default is 6)
        virtual Level special_level() const {return special_level_;}
 
        virtual ~FunctionFunctorInterface() {}
 
        virtual coeffT coeff(const keyT&) const {
            MADNESS_EXCEPTION("implement coeff for FunctionFunctorInterface",0);
            return coeffT();
        }
 
        virtual coeffT values(const keyT& key, const Tensor<double>& tensor) const {
            MADNESS_EXCEPTION("implement values for FunctionFunctorInterface",0);
            return coeffT();
        }
 
        /// does this functor directly provide sum coefficients? or only function values?
        virtual bool provides_coeff() const {
            return false;
        }
 
    };
 
 
 
    ///forward declaration
    template <typename T, std::size_t NDIM>
    //    void FunctionImpl<T,NDIM>::fcube(const keyT& key, const FunctionFunctorInterface<T,NDIM>& f, const Tensor<double>& qx, tensorT& fval) const {
    void fcube(const Key<NDIM>& key, const FunctionFunctorInterface<T,NDIM>& f, const Tensor<double>& qx, Tensor<T>& fval);
 
    /// CompositeFunctorInterface implements a wrapper of holding several functions and functors
 
    /// Use this to "connect" several functions and/or functors and to return their coefficients
    /// e.g. connect f1 and f2 with an addition, you can request the coefficients of any node
    /// and they will be computed on the fly and returned. Mainly useful to connect a functor
    /// with a function, if the functor is too large to be represented in MRA (e.g. 1/r12)
    ///
    /// as of now, the operation connecting the functions/functors is simply addition.
    /// need to implement expression templates, if I only knew what that was...
    template<typename T, std::size_t NDIM, std::size_t MDIM>
    class CompositeFunctorInterface : public FunctionFunctorInterface<T,NDIM> {
 
        typedef Vector<double, NDIM> coordT; ///< Type of vector holding coordinates
        typedef FunctionImpl<T,NDIM> implT;
        typedef FunctionImpl<T,MDIM> implL;
        typedef std::shared_ptr<implT> pimplT;
        typedef std::shared_ptr<implL> pimplL;
 
        World& world;
 
    public:
        /// various MRA functions of NDIM dimensionality
        std::vector<std::shared_ptr<implT>> impl_ket_vector;    ///< supposedly the pair function
        std::shared_ptr<implT> impl_eri;    ///< supposedly 1/r12
 
        /// various MRA functions of MDIM dimensionality (e.g. 3, if NDIM==6)
        std::shared_ptr<implL> impl_m1; ///< supposedly 1/r1
        std::shared_ptr<implL> impl_m2; ///< supposedly 1/r2
        std::vector<std::shared_ptr<implL>> impl_p1_vector; ///< supposedly orbital 1
        std::vector<std::shared_ptr<implL>> impl_p2_vector; ///< supposedly orbital 2
 
    public:
 
        using FunctionFunctorInterface<T,NDIM>::operator();
 
        /// constructor takes its Factory
        CompositeFunctorInterface(World& world, std::vector<pimplT> ket, pimplT g12,
                pimplL v1, pimplL v2, std::vector<pimplL> p1, std::vector<pimplL> p2)
            : world(world), impl_ket_vector(ket), impl_eri(g12)
            , impl_m1(v1), impl_m2(v2), impl_p1_vector(p1), impl_p2_vector(p2)
        {
 
            // some consistency checks
            // either a pair ket is provided, or two particles (tba)
            MADNESS_CHECK_THROW(impl_p1_vector.size()==impl_p2_vector.size(), "CompositeFunctorInterface: p1 and p2 must have the same size");
            MADNESS_CHECK_THROW(impl_ket_vector.size()>0 or (impl_p1_vector.size()>0),"CompositeFunctorInterface: either ket or p1 must be provided");
 
        }
 
        /// replicate low-dimensional functions over all ranks of this world
        void replicate_low_dim_functions(const bool fence) {
            if (impl_m1 and (not impl_m1->is_on_demand())) impl_m1->replicate(false);
            if (impl_m2 and (not impl_m2->is_on_demand())) impl_m2->replicate(false);
 
            for (auto& p1 : impl_p1_vector) if (p1 and (not p1->is_on_demand())) p1->replicate(false);
            for (auto& p2 : impl_p2_vector) if (p2 and (not p2->is_on_demand())) p2->replicate(false);
            if (fence) world.gop.fence();
        }
 
        void make_redundant(const bool fence) {
            // prepare base functions that make this function
            for (auto& k : impl_ket_vector) if (k and (not k->is_on_demand())) k->change_tree_state(redundant,false);
            if (impl_eri) {
                if (not impl_eri->is_on_demand()) impl_eri->change_tree_state(redundant,false);
            }
            if (impl_m1 and (not impl_m1->is_on_demand())) impl_m1->change_tree_state(redundant,false);
            if (impl_m2 and (not impl_m2->is_on_demand())) impl_m2->change_tree_state(redundant,false);
 
            change_tree_state(impl2function(impl_p1_vector),redundant,false);
            change_tree_state(impl2function(impl_p2_vector),redundant,false);
//            for (auto& k : impl_p1_vector) if (k and (not k->is_on_demand())) k->change_tree_state(redundant,false);
//            for (auto& k : impl_p2_vector) if (k and (not k->is_on_demand())) k->change_tree_state(redundant,false);
//          if (impl_p1 and (not impl_p1->is_on_demand())) impl_p1->change_tree_state(redundant,false);
//          if (impl_p2 and (not impl_p2->is_on_demand())) impl_p2->change_tree_state(redundant,false);
            if (fence) world.gop.fence();
        }
 
        /// return true if all constituent functions are in redundant tree state
        bool check_redundant() const {
            for (auto& k : impl_ket_vector) if (k and (not k->is_redundant())) return false;
//          if (impl_ket and (not impl_ket->is_redundant())) return false;
            if (impl_eri) MADNESS_ASSERT(impl_eri->is_on_demand());
            if (impl_m1 and (not impl_m1->is_redundant())) return false;
            if (impl_m2 and (not impl_m2->is_redundant())) return false;
            for (auto& k : impl_p1_vector) if (k and (not k->is_redundant())) return false;
            for (auto& k : impl_p2_vector) if (k and (not k->is_redundant())) return false;
//            if (impl_p1 and (not impl_p1->is_redundant())) return false;
//          if (impl_p2 and (not impl_p2->is_redundant())) return false;
            return true;
        }
 
        /// return value at point x; fairly inefficient
        T operator()(const coordT& x) const {
            print("there is no operator()(coordT&) in CompositeFunctorInterface, for good reason");
            MADNESS_ASSERT(0);
            return T(0);
        };
 
        bool provides_coeff() const {
            return false;
        }
 
    };
 
 
    /// ElementaryInterface (formerly FunctorInterfaceWrapper) interfaces a c-function
 
    /// hard-code your favorite function and interface it with this; Does only
    /// provide function values, no MRA coefficients. Care must be taken if the
    /// function we refer to is a singular function, and a on-demand function
    /// at the same time, since direct computation of coefficients via mraimpl::project
    /// might suffer from inaccurate quadrature.
    template<typename T, std::size_t NDIM>
    class ElementaryInterface : public FunctionFunctorInterface<T,NDIM> {
 
    public:
        typedef Vector<double, NDIM> coordT; ///< Type of vector holding coordinates
        typedef GenTensor<T> coeffT;
 
        using FunctionFunctorInterface<T,NDIM>::operator();
 
        T (*f)(const coordT&);
 
        ElementaryInterface(T (*f)(const coordT&)) : f(f) {}
 
        T operator()(const coordT& x) const {return f(x);}
 
        coeffT values(const Key<NDIM>& key, const Tensor<double>& quad_x) const {
            typedef Tensor<T> tensorT;
            tensorT fval=madness::fcube(key,f,quad_x);
            return coeffT(fval,FunctionDefaults<NDIM>::get_thresh(),TT_FULL);
        }
    };
 
    /// FunctorInterface interfaces a class or struct with an operator()()
    template<typename T, std::size_t NDIM, typename opT>
    class FunctorInterface : public FunctionFunctorInterface<T,NDIM> {
 
    public:
        typedef Vector<double, NDIM> coordT; ///< Type of vector holding coordinates
        typedef GenTensor<T> coeffT;
 
        using FunctionFunctorInterface<T,NDIM>::operator();
 
        opT op;
 
        FunctorInterface(const opT& op) : op(op) {}
 
        T operator()(const coordT& x) const {return op(x);}
    };
 
    /// FunctionInterface implements a wrapper around any class with the operator()()
    template<typename T, size_t NDIM, typename opT>
    class FunctionInterface : public FunctionFunctorInterface<T,NDIM> {
 
        typedef GenTensor<T> coeffT;
        typedef Vector<double, NDIM> coordT; ///< Type of vector holding coordinates
 
        const opT op;
 
    public:
 
        using FunctionFunctorInterface<T,NDIM>::operator();
 
        FunctionInterface(const opT& op) : op(op) {}
 
        T operator()(const coordT& coord) const {return op(coord);}
 
        bool provides_coeff() const {return false;}
 
    };
 
    /// base class to compute the wavelet coefficients for an isotropic 2e-operator
 
    /// all classes that derive from this base class use the Gaussian fitting
    /// procedure that has been developed for the BSH operator. We simply
    /// reuse the wavelet coefficients that we get from there to avoid
    /// evaluating the functions themselves, since the quadrature of singular
    /// functions is imprecise and slow.
    template<typename T, std::size_t NDIM>
    class TwoElectronInterface : public FunctionFunctorInterface<T,NDIM> {
    protected:
        static constexpr std::size_t LDIM=NDIM/2;
    public:
 
        using FunctionFunctorInterface<T,NDIM>::operator();
 
        typedef GenTensor<T> coeffT;
 
        /// constructor: cf the Coulomb kernel
 
        /// @param[in]  lo      the smallest length scale to be resolved
        /// @param[in]  eps     the accuracy threshold
        TwoElectronInterface(double lo, double eps,
                const BoundaryConditions<NDIM>& bc=FunctionDefaults<NDIM>::get_bc(),
                int kk=FunctionDefaults<NDIM>::get_k())
                :rank(), k(kk), lo(lo), hi(1.0) {
 
            // Presently we must have periodic or non-periodic in all dimensions.
            for (std::size_t d=1; d<NDIM; ++d) {MADNESS_ASSERT(bc(d,0)==bc(0,0));}
 
            const Tensor<double>& width = FunctionDefaults<NDIM>::get_cell_width();
            hi = width.normf(); // Diagonal width of cell
            if (bc(0,0) == BC_PERIODIC) hi *= 100; // Extend range for periodic summation
 
        }
 
        bool provides_coeff() const {
            return true;
        }
 
        /// return the coefficients of the function in 6D (x1,y1,z1, x2,y2,z2)
        coeffT coeff(const Key<NDIM>& key) const {
            Tensor<double> c=make_coeff(key);
            return coeffT(map_coeff(c),FunctionDefaults<NDIM>::get_thresh(),TT_FULL);
        }
 
        T operator()(const Vector<double, NDIM>& x) const {
            print("there is no operator()(coordT&) in TwoElectronInterface, for good reason");
            MADNESS_ASSERT(0);
            return T(0);
        }
 
    protected:
 
        /// make the coefficients from the 1d convolution
        Tensor<double> make_coeff(const Key<NDIM>& key) const {
            const Level n=key.level();
            const Vector<Translation,NDIM> l=key.translation();
 
            // get the displacements for all 3 dimensions: x12, y12, z12
            Translation l0, l1, l2;
            if (NDIM==2) {
                l0=l[0]-l[1];
            } else if (NDIM==4) {
                l0=(l[0]-l[2]);
                l1=(l[1]-l[3]);
            } else if (NDIM==6) {
                l0=(l[0]-l[3]);
                l1=(l[1]-l[4]);
                l2=(l[2]-l[5]);
            } else {
                MADNESS_EXCEPTION("TwoElectronInterface: NDIM must be 2, 4, or 6",1);
            }
 
            Tensor<double> scr1(rank,k*k), scr2(rank,k*k,k*k), scr3(rank,k*k);
 
            // lump all the terms together
            for (long mu=0; mu<rank; mu++) {
                Tensor<double> r0, r1, r2;
                if (NDIM>=2) r0=(ops[mu].getop(0)->rnlij(n,l0)).reshape(k*k);
                if (NDIM>=4) r1=(ops[mu].getop(1)->rnlij(n,l1)).reshape(k*k);
                if (NDIM>=6) r2=(ops[mu].getop(2)->rnlij(n,l2)).reshape(k*k);
 
                // include weights in first vector
                scr1(mu,Slice(_))=r0*ops[mu].getfac();
 
                if (NDIM==2) {
                    ;
                } else if (NDIM==4) {
                    scr3(mu,Slice(_))=r1;
                } else if (NDIM==6) {
                    // merge second and third vector to scr(r,k1,k2)
                    scr2(mu,Slice(_),Slice(_))=outer(r1,r2);
                } else {
                    MADNESS_EXCEPTION("TwoElectronInterface: NDIM must be 2, 4, or 6",1);
                }
            }
 
            if (NDIM==2) {
                // perform sum over the rank
                Tensor<double> result(scr1.dim(1));
                for (long mu=0; mu<rank; ++mu) result(_)+= scr1(mu,_);
                return result;
            }
            else if (NDIM==4) return inner(scr1,scr3,0,0);
            else if (NDIM==6) return inner(scr1,scr2,0,0);
            else {
                MADNESS_EXCEPTION("TwoElectronInterface: NDIM must be 2, 4, or 6",1);
                return Tensor<double>();
            }
        }
 
        /// the dimensions are a bit confused (x1,x2, y1,y2, z1,z2) -> (x1,y1,z1, x2,y2,z2)
        Tensor<double> map_coeff(const Tensor<double>& c) const {
            std::vector<long> map(NDIM);
            if (NDIM==2) {
                map[0]=0;   map[1]=1;
                return copy(c.reshape(k,k));
            } else if (NDIM==4) {
                map[0]=0;   map[1]=2;
                map[2]=1;   map[3]=3;
                return copy(c.reshape(k,k,k,k).mapdim(map));
            } else if (NDIM==6) {
                map[0]=0;   map[1]=3;   map[2]=1;
                map[3]=4;   map[4]=2;   map[5]=5;
                return copy(c.reshape(k,k,k,k,k,k).mapdim(map));
            }
            return Tensor<double>();
        }
 
        /// initialize the Gaussian fit; uses the virtual function fit() to fit
        void initialize(const double eps) {
            GFit<double,LDIM> fit=this->fit(eps);
            Tensor<double> coeff=fit.coeffs();
            Tensor<double> expnt=fit.exponents();
 
            // set some parameters
            rank=coeff.dim(0);
            ops.resize(rank);
            const Tensor<double>& width = FunctionDefaults<LDIM>::get_cell_width();
 
            // construct all the terms
            for (int mu=0; mu<rank; ++mu) {
                //                double c = std::pow(sqrt(expnt(mu)/pi),static_cast<int>(NDIM)); // Normalization coeff
                double c = std::pow(sqrt(expnt(mu)/constants::pi),LDIM); // Normalization coeff
 
                // We cache the normalized operator so the factor is the value we must multiply
                // by to recover the coeff we want.
                ops[mu].setfac(coeff(mu)/c);
 
                // only 3 dimensions here!
                for (std::size_t d=0; d<LDIM; ++d) {
                    ops[mu].setop(d,GaussianConvolution1DCache<double>::get(k, expnt(mu)*width[d]*width[d], 0, LatticeRange(false)));
                }
            }
        }
 
        /// derived classes must implement this -- cf GFit.h
        virtual GFit<double,LDIM> fit(const double eps) const = 0;
 
        /// storing the coefficients
        mutable std::vector< ConvolutionND<double,NDIM> > ops;
 
        /// the number of terms in the Gaussian quadrature
        int rank;
 
        /// the wavelet order
        int k;
 
        /// the smallest length scale that needs to be represented
        double lo;
 
        /// the largest length scale that needs to be represented
        double hi;
 
    };
 
 
    /// a function like f(x)=1/x
    template<typename T, std::size_t NDIM>
    class GeneralTwoElectronInterface : public TwoElectronInterface<T,NDIM> {
    public:
 
        /// constructor: cf the Coulomb kernel
 
        /// @param[in]  lo      the smallest length scale to be resolved
        /// @param[in]  eps     the accuracy threshold
        GeneralTwoElectronInterface(OperatorInfo info,
                                   const BoundaryConditions<NDIM>& bc=FunctionDefaults<NDIM>::get_bc(),
                                   int kk=FunctionDefaults<NDIM>::get_k())
                : TwoElectronInterface<T,NDIM>(info.lo,info.thresh,bc,kk), info(info) {
 
            if (info.hi<0) {
                double hi=FunctionDefaults<LDIM>::get_cell_width().normf();
                if (bc(0,0) == BC_PERIODIC) hi *= 100; // Extend range for periodic summation
                this->info.hi=hi;
            }
            this->initialize(info.thresh);
        }
 
    private:
        OperatorInfo info;
        static constexpr std::size_t LDIM=NDIM/2;
 
        GFit<double,LDIM> fit(const double eps) const {
            return GFit<double,LDIM>(info);
        }
    };
 
    /// a function like f(x)=1/x
    template<typename T, std::size_t NDIM>
    class ElectronRepulsionInterface : public TwoElectronInterface<double,NDIM> {
 
    public:
 
        /// constructor: cf the Coulomb kernel
 
        /// @param[in]  lo      the smallest length scale to be resolved
        /// @param[in]  eps     the accuracy threshold
        ElectronRepulsionInterface(double lo,double eps,
                const BoundaryConditions<NDIM>& bc=FunctionDefaults<NDIM>::get_bc(),
                int kk=FunctionDefaults<NDIM>::get_k())
          : TwoElectronInterface<double,NDIM>(lo,eps,bc,kk) {
 
            this->initialize(eps);
        }
 
    private:
        static constexpr std::size_t LDIM=NDIM/2;
 
        GFit<double,LDIM> fit(const double eps) const {
            return GFit<double,LDIM>::CoulombFit(this->lo,this->hi,eps,false);
        }
    };
 
    /// a function like f(x) = exp(-mu x)/x
    class BSHFunctionInterface : public TwoElectronInterface<double,6> {
    public:
 
        /// constructor: cf the Coulomb kernel
 
      /// @param[in]    mu      the exponent of the BSH/inverse Laplacian
        /// @param[in]  lo      the smallest length scale to be resolved
        /// @param[in]  eps     the accuracy threshold
        BSHFunctionInterface(double mu, double lo, double eps,
                const BoundaryConditions<6>& bc=FunctionDefaults<6>::get_bc(),
                int kk=FunctionDefaults<6>::get_k())
          : TwoElectronInterface<double,6>(lo,eps,bc,kk), mu(mu) {
 
            initialize(eps);
        }
 
    private:
 
        double mu;
 
        GFit<double,3> fit(const double eps) const {
            return GFit<double,3>::BSHFit(mu,lo,hi,eps,false);
        }
    };
 
    /// a function like f(x)=exp(-mu x)
    class SlaterFunctionInterface : public TwoElectronInterface<double,6> {
    public:
 
        /// constructor: cf the Coulomb kernel
 
        /// @param[in]  mu      the exponent of the Slater function
        /// @param[in]  lo      the smallest length scale to be resolved
        /// @param[in]  eps     the accuracy threshold
        SlaterFunctionInterface(double mu, double lo, double eps,
                const BoundaryConditions<6>& bc=FunctionDefaults<6>::get_bc(),
                int kk=FunctionDefaults<6>::get_k())
          : TwoElectronInterface<double,6>(lo,eps,bc,kk), mu(mu) {
            initialize(eps);
        }
 
    private:
 
        double mu;
 
        GFit<double,3> fit(const double eps) const {
            return GFit<double,3>::SlaterFit(mu,lo,hi,eps,false);
        }
    };
 
    /// a function like f(x) = (1 - exp(-mu x))/(2 gamma)
    class SlaterF12Interface : public TwoElectronInterface<double,6> {
    public:
 
        /// constructor: cf the Coulomb kernel
 
        /// @param[in]  mu      the exponent of the Slater function
        /// @param[in]  lo      the smallest length scale to be resolved
        /// @param[in]  eps     the accuracy threshold
        SlaterF12Interface(double mu, double lo, double eps,
                const BoundaryConditions<6>& bc=FunctionDefaults<6>::get_bc(),
                int kk=FunctionDefaults<6>::get_k())
          : TwoElectronInterface<double,6>(lo,eps,bc,kk), mu(mu) {
 
            initialize(eps);
        }
 
//      /// overload the function of the base class
//      coeffT coeff(const Key<6>& key) const {
//
//          Tensor<double> c=make_coeff(key);
//
//          // subtract 1 from the (0,0,..,0) element of the tensor,
//          // which is the 0th order polynomial coefficient
//          double one_coeff1=1.0*sqrt(FunctionDefaults<6>::get_cell_volume())
//                  *pow(0.5,0.5*6*key.level());
//            std::vector<long> v0(6,0L);
//            c(v0)-=one_coeff1;
//
//          c.scale(-0.5/mu);
//            return coeffT(map_coeff(c),FunctionDefaults<6>::get_thresh(),TT_FULL);
//      }
 
    private:
 
        double mu;
 
        GFit<double,3> fit(const double eps) const {
            return GFit<double,3>::F12Fit(mu,lo,hi,eps,false);
        }
    };
 
// Not right
//  /// a function like f(x) = (1 - exp(-mu x))/x
//  class FGInterface : public TwoElectronInterface<double,6> {
//  public:
//
//      /// constructor: cf the Coulomb kernel
//
//      /// @param[in]  mu      the exponent of the Slater function
//      /// @param[in]  lo      the smallest length scale to be resolved
//      /// @param[in]  eps     the accuracy threshold
//      FGInterface(double mu, double lo, double eps,
//              const BoundaryConditions<6>& bc=FunctionDefaults<6>::get_bc(),
//              int kk=FunctionDefaults<6>::get_k())
//        : TwoElectronInterface<double,6>(lo,eps,bc,kk), mu(mu) {
//
//          initialize(eps);
//      }
//
//  private:
//
//      double mu;
//
//      GFit<double,3> fit(const double eps) const {
//          return GFit<double,3>::SlaterFit(mu,lo,hi,eps,false);
//      }
//  };
 
 
#if 0
 
    /// ElectronRepulsionInterface implements the electron repulsion term 1/r12
 
    /// this is essentially just a wrapper around ElectronRepulsion
    template<typename T, std::size_t NDIM>
    class ElectronRepulsionInterface : public FunctionFunctorInterface<T,NDIM> {
 
        typedef GenTensor<T> coeffT;
        typedef Vector<double, NDIM> coordT; ///< Type of vector holding coordinates
 
        /// the class computing the coefficients
        ElectronRepulsion eri;
 
    public:
 
        /// constructor takes the same parameters as the Coulomb operator
        /// which it uses to compute the coefficients
        ElectronRepulsionInterface(World& world,double lo,double eps,
                const BoundaryConditions<NDIM>& bc=FunctionDefaults<NDIM>::get_bc(),
                int k=FunctionDefaults<NDIM>::get_k())
            : eri(ElectronRepulsion(eps,eps,bc,k)) {
        }
 
 
        /// return value at point x; fairly inefficient
        T operator()(const coordT& x) const {
            print("there is no operator()(coordT&) in ElectronRepulsionInterface, for good reason");
            MADNESS_ASSERT(0);
            return T(0);
        };
 
 
        /// return sum coefficients for imagined node at key
        coeffT coeff(const Key<NDIM>& key) const {
            return coeffT(this->eri.coeff(key),FunctionDefaults<NDIM>::get_thresh(),
                    TT_FULL);
        }
 
    };
 
    /// FGIntegralInterface implements the two-electron integral (1-exp(-gamma*r12))/r12
 
    /// this is essentially just a wrapper around ElectronRepulsion
    /// The integral expressed as:   1/r12 - exp(-gamma*r12)/r12
    /// which can be expressed with an eri and a bsh
    template<typename T, std::size_t NDIM>
    class FGIntegralInterface : public FunctionFunctorInterface<T,NDIM> {
 
        typedef GenTensor<T> coeffT;
        typedef Vector<double, NDIM> coordT; ///< Type of vector holding coordinates
 
        /// the class computing the coefficients
        ElectronRepulsion eri;
        BSHFunction bsh;
 
    public:
 
        /// constructor takes the same parameters as the Coulomb operator
        /// which it uses to compute the coefficients
        FGIntegralInterface(World& world, double lo, double eps, double gamma,
                const BoundaryConditions<NDIM>& bc=FunctionDefaults<NDIM>::get_bc(),
                int k=FunctionDefaults<NDIM>::get_k())
            : eri(ElectronRepulsion(eps,eps,0.0,bc,k))
            , bsh(BSHFunction(eps,eps,gamma,bc,k)) {
        }
 
        bool provides_coeff() const {
            return true;
        }
 
        /// return value at point x; fairly inefficient
        T operator()(const coordT& x) const {
            print("there is no operator()(coordT&) in FGIntegralInterface, for good reason");
            MADNESS_ASSERT(0);
            return T(0);
        };
 
        /// return sum coefficients for imagined node at key
        coeffT coeff(const Key<NDIM>& key) const {
            typedef Tensor<T> tensorT;
            tensorT e_b=eri.coeff(key)-bsh.coeff(key);
            return coeffT(e_b,FunctionDefaults<NDIM>::get_thresh(),TT_FULL);
        }
 
    };
 
#endif
 
}
 
#endif // MADNESS_MRA_FUNCTION_INTERFACE_H__INCLUDED