/*
* @BEGIN LICENSE
*
* myscf by Psi4 Developer, a plugin to:
*
* Psi4: an open-source quantum chemistry software package
*
* Copyright (c) 2007-2016 The Psi4 Developers.
*
* The copyrights for code used from other parties are included in
* the corresponding files.
*
* 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.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*
* @END LICENSE
*/
#include "psi4/psi4-dec.h"
#include "psi4/liboptions/liboptions.h"
#include "psi4/libpsio/psio.hpp"
#include "psi4/libmints/wavefunction.h"
#include "psi4/libmints/mintshelper.h"
#include "psi4/libmints/matrix.h"
#include "psi4/libmints/vector.h"
#include "psi4/libmints/basisset.h"
#include "psi4/libmints/molecule.h"
#include "psi4/lib3index/dftensor.h"
// blas calls (in addition to those from Matrix/Vector classes)
#include "psi4/libqt/qt.h"
// jk object
#include "psi4/libfock/jk.h"
namespace psi{ namespace myscf {
extern "C" PSI_API
int read_options(std::string name, Options& options)
{
if (name == "MYSCF"|| options.read_globals()) {
/*- The amount of information printed to the output file -*/
options.add_int("PRINT", 1);
}
return true;
}
extern "C" PSI_API
SharedWavefunction myscf(SharedWavefunction ref_wfn, Options& options)
{
int print = options.get_int("PRINT");
/* Your code goes here */
outfile->Printf("\n\n");
outfile->Printf( " *******************************************************\n");
outfile->Printf( " * *\n");
outfile->Printf( " * myscf *\n");
outfile->Printf( " * *\n");
outfile->Printf( " * A restricted Hartree-Fock plugin to Psi4 *\n");
outfile->Printf( " * *\n");
outfile->Printf( " * Eugene DePrince *\n");
outfile->Printf( " * *\n");
outfile->Printf( " *******************************************************\n");
// make sure we are running in c1 symmetry
if ( ref_wfn->nirrep() > 1 ) {
throw PsiException("plugin myscf only works with c1 symmetry. Set symmetry c1 in the molecule group in your input file.",__FILE__,__LINE__);
}
// grab the one-electron integrals from MintsHelper:
std::shared_ptr<MintsHelper> mints (new MintsHelper(ref_wfn));
// one-electron kinetic energy integrals
std::shared_ptr<Matrix> T = mints->so_kinetic();
// one-electron potential energy integrals
std::shared_ptr<Matrix> V = mints->so_potential();
// overlap integrals
std::shared_ptr<Matrix> S = mints->so_overlap();
// build the core hamiltonian
std::shared_ptr<Matrix> h = (std::shared_ptr<Matrix>)(new Matrix(T));
h->add(V);
// grab the molecule from the wavefunction that was passed into the plugin
std::shared_ptr<Molecule> mol = ref_wfn->molecule();
// get primary basis:
std::shared_ptr<BasisSet> primary = ref_wfn->get_basisset("ORBITAL");
// total number of basis functions
int nso = primary->nbf();
// get auxiliary basis:
std::shared_ptr<BasisSet> auxiliary = ref_wfn->get_basisset("DF_BASIS_SCF");
// total number of auxiliary basis functions
int nQ = auxiliary->nbf();
// JK object
std::shared_ptr<DiskDFJK> jk = (std::shared_ptr<DiskDFJK>)(new DiskDFJK(primary,auxiliary));
// memory for jk (say, 80% of what is available)
jk->set_memory(0.8 * Process::environment.get_memory());
// integral cutoff
jk->set_cutoff(options.get_double("INTS_TOLERANCE"));
// Do J/K, Not wK
jk->set_do_J(true);
jk->set_do_K(true);
jk->set_do_wK(false);
jk->initialize();
// grab some input options
double e_convergence = options.get_double("E_CONVERGENCE");
double d_convergence = options.get_double("D_CONVERGENCE");
int maxiter = options.get_int("MAXITER");
// use the molecule to determine the total number of electrons
int charge = mol->molecular_charge();
int nelectron = 0;
for (int i = 0; i < mol->natom(); i++) {
nelectron += (int)mol->Z(i);
}
nelectron -= charge;
// this code only works for closed shells
if ( nelectron % 2 != 0 ) {
throw PsiException("plugin myscf only works for closed shells",__FILE__,__LINE__);
}
// the number of alpha electrons
int na = nelectron / 2;
outfile->Printf("\n");
outfile->Printf(" No. basis functions: %5i\n",nso);
outfile->Printf(" No. auxiliary basis functions: %5i\n",nQ);
outfile->Printf(" No. electrons: %5i\n",nelectron);
outfile->Printf(" e_convergence: %10.3le\n",e_convergence);
outfile->Printf(" d_convergence: %10.3le\n",d_convergence);
outfile->Printf(" maxiter: %5i\n",maxiter);
outfile->Printf("\n");
outfile->Printf("\n");
// allocate memory for coefficients, density, fock matrix
std::shared_ptr<Matrix> Ca = (std::shared_ptr<Matrix>)(new Matrix(nso,nso));
std::shared_ptr<Matrix> Da = (std::shared_ptr<Matrix>)(new Matrix(nso,nso));
std::shared_ptr<Matrix> Fa = (std::shared_ptr<Matrix>)(new Matrix(nso,nso));
// allocate memory for eigenvectors and eigenvalues of the overlap matrix
std::shared_ptr<Matrix> Sevec ( new Matrix(nso,nso) );
std::shared_ptr<Vector> Seval ( new Vector(nso) );
// build S^(-1/2) symmetric orthogonalization matrix
S->diagonalize(Sevec,Seval);
std::shared_ptr<Matrix> Shalf = (std::shared_ptr<Matrix>)( new Matrix(nso,nso) );
for (int mu = 0; mu < nso; mu++) {
Shalf->pointer()[mu][mu] = 1.0 / sqrt(Seval->pointer()[mu]);
}
// transform Seval back to nonorthogonal basis
Shalf->back_transform(Sevec);
// form F' = ST^(-1/2) F S^(-1/2), where F = h
Fa->copy(h);
std::shared_ptr<Matrix> Fprime ( new Matrix(Fa) );
Fprime->transform(Shalf);
// allocate memory for eigenvectors and eigenvalues of F'
std::shared_ptr<Matrix> Fevec ( new Matrix(nso,nso) );
std::shared_ptr<Vector> Feval ( new Vector(nso) );
// diagonalize F' to obtain C'
Fprime->diagonalize(Fevec,Feval,ascending);
// Find C = S^(-1/2)C'
Ca->gemm(false,false,1.0,Shalf,Fevec,0.0);
// Construct density from C
C_DGEMM('n','t',nso,nso,na,1.0,&(Ca->pointer()[0][0]),nso,&(Ca->pointer()[0][0]),nso,0.0,&(Fprime->pointer()[0][0]),nso);
Da->copy(Fprime);
// initial energy, E = D(H+F) + Enuc
double e_nuc = mol->nuclear_repulsion_energy({0.0,0.0,0.0});
double e_current = e_nuc;
e_current += Da->vector_dot(h);
e_current += Da->vector_dot(Fa);
// SCF iterations
double e_last = 0.0;
double dele = 0.0;
double deld = 0.0;
outfile->Printf("\n");
outfile->Printf(" Guess energy: %20.12lf\n",e_current);
outfile->Printf("\n");
outfile->Printf(" ==> Begin SCF Iterations <==\n");
outfile->Printf("\n");
outfile->Printf(" ");
outfile->Printf(" Iter ");
outfile->Printf(" energy ");
outfile->Printf(" dE ");
outfile->Printf(" dD ");
outfile->Printf("\n");
int iter = 0;
do {
e_last = e_current;
// grab occupied orbitals (the first na)
std::shared_ptr<Matrix> myC (new Matrix(Ca) );
myC->zero();
for (int mu = 0; mu < nso; mu++) {
for (int i = 0; i < na; i++) {
myC->pointer()[mu][i] = Ca->pointer()[mu][i];
}
}
// push occupied orbitals onto JK object
std::vector<SharedMatrix>& C_left = jk->C_left();
C_left.clear();
C_left.push_back(myC);
// form J/K
jk->compute();
// form F = h + 2*J - K
Fa->copy(jk->J()[0]);
Fa->scale(2.0);
Fa->subtract(jk->K()[0]);
Fa->add(h);
// current energy, E = D(H+F) + Enuc
e_current = e_nuc;
e_current += Da->vector_dot(h);
e_current += Da->vector_dot(Fa);
// dele
dele = fabs(e_last - e_current);
// form F' = ST^(-1/2) F S^(-1/2)
Fprime->copy(Fa);
Fprime->transform(Shalf);
// diagonalize F' to obtain C'
Fprime->diagonalize(Fevec,Feval,ascending);
// Find C = S^(-1/2)C'
Ca->gemm(false,false,1.0,Shalf,Fevec,0.0);
// Construct density from C
deld = 0.0;
C_DGEMM('n','t',nso,nso,na,1.0,&(Ca->pointer()[0][0]),nso,&(Ca->pointer()[0][0]),nso,0.0,&(Fprime->pointer()[0][0]),nso);
for (int mu = 0; mu < nso; mu++) {
for (int nu = 0; nu < nso; nu++) {
double dum = Da->pointer()[mu][nu] - Fprime->pointer()[nu][mu];
deld += dum*dum;
}
}
Da->copy(Fprime);
deld = sqrt(deld);
outfile->Printf(" %5i %20.12lf %20.12lf %20.12lf\n",iter,e_current,dele,deld);
iter++;
if ( iter > maxiter ) break;
}while(dele > e_convergence || deld > d_convergence );
if ( iter > maxiter ) {
throw PsiException("Maximum number of iterations exceeded!",__FILE__,__LINE__);
}
outfile->Printf("\n");
outfile->Printf(" SCF iterations converged!\n");
outfile->Printf("\n");
outfile->Printf(" * SCF total energy: %20.12lf\n",e_current);
Process::environment.globals["SCF TOTAL ENERGY"] = e_current;
// Typically you would build a new wavefunction and populate it with data
// (note this is just the original wavefunction passed into the module)
return ref_wfn;
}
}} // End namespaces