# Calculating RPA correlation energies¶

The Random Phase Approximation (RPA) can be used to derive a non-local expression for the ground state correlation energy. The calculation requires a large number of unoccupied bands and is significantly heavier than standard DFT calculation using semi-local exchange-correlation functionals. However, when combined with exact exchange the method has been shown to give a good description of van der Waals interactions and a decent description of covalent bonds (slightly worse than PBE).

For more details on the theory and implementation we refer to RPA correlation energy. Below we give examples on how to calculate the RPA atomization energy of \(N_2\) and the correlation energy of graphene an a Co(0001) surface. Note that some of the calculations in this tutorial will need a lot of CPU time and is essentially not possible without a supercomputer.

## Example 1: Atomization energy of N2¶

The atomization energy of \(N_2\) is overestimated by typical GGA functionals, and the RPA functional seems to do a bit better. This is not a general trend for small molecules, however, typically the HF-RPA approach yields too small atomization energies when evaluated at the GGA equilibrium geometry. See for example Furche 1 for a table of atomization energies for small molecules calculated with the RPA functional.

### Ground state calculation¶

First we set up a ground state calculation with lots of unoccupied bands. This is done with the script:

```
from ase.optimize import BFGS
from ase.build import molecule
from ase.parallel import paropen
from gpaw import GPAW, PW
from gpaw.hybrids.energy import non_self_consistent_energy as nsc_energy
# N
N = molecule('N')
N.cell = (6, 6, 7)
N.center()
calc = GPAW(mode=PW(600, force_complex_dtype=True),
nbands=16,
maxiter=300,
xc='PBE',
hund=True,
txt='N_pbe.txt',
parallel={'domain': 1},
convergence={'density': 1.e-6})
N.calc = calc
E1_pbe = N.get_potential_energy()
calc.write('N.gpw', mode='all')
E1_hf = nsc_energy('N.gpw', 'EXX')
calc.diagonalize_full_hamiltonian(nbands=4800)
calc.write('N.gpw', mode='all')
# N2
N2 = molecule('N2')
N2.cell = (6, 6, 7)
N2.center()
calc = GPAW(mode=PW(600, force_complex_dtype=True),
nbands=16,
maxiter=300,
xc='PBE',
txt='N2_pbe.txt',
parallel={'domain': 1},
convergence={'density': 1.e-6})
N2.calc = calc
dyn = BFGS(N2)
dyn.run(fmax=0.05)
E2_pbe = N2.get_potential_energy()
calc.write('N2.gpw', mode='all')
E2_hf = nsc_energy('N2.gpw', 'EXX')
with paropen('PBE_HF.dat', 'w') as fd:
print('PBE: ', E2_pbe - 2 * E1_pbe, file=fd)
print('HF: ', E2_hf - 2 * E1_hf, file=fd)
calc.diagonalize_full_hamiltonian(nbands=4800)
calc.write('N2.gpw', mode='all')
```

which takes on the order of 3-4 CPU hours. The script generates N.gpw and N2.gpw which are the input to the RPA calculation. The PBE and non- selfconsistent Hartree-Fock energy is also calculated and written to the file PBE_HF.dat.

### Converging the frequency integration¶

We will start by making a single RPA calculation with extremely fine frequency sampling. The following script returns the integrand at 2000 frequency points from 0 to 1000 eV from a cutoff of 50 eV.

```
from ase.parallel import paropen
from gpaw.xc.rpa import RPACorrelation
import numpy as np
dw = 0.5
frequencies = np.array([dw * i for i in range(200)])
weights = len(frequencies) * [dw]
weights[0] /= 2
weights[-1] /= 2
weights = np.array(weights)
rpa = RPACorrelation('N2.gpw',
txt='frequency_equidistant.txt',
frequencies=frequencies,
weights=weights)
Es = rpa.calculate(ecut=[50])
Es_w = rpa.E_w
with paropen('frequency_equidistant.dat', 'w') as fd:
for w, E in zip(frequencies, Es_w):
print(w, E.real, file=fd)
```

The correlation energy is obtained as the integral of this function divided by \(2\pi\) and yields -6.62 eV. The frequency sampling is dense enough so that this value can be regarded as “exact” (but not converged with respect to cutoff energy, of course). We can now test the Gauss-Legendre integration method with different number of points using the same script but now specifying the Gauss-Legendre parameters instead of a frequency list:

```
rpa = RPACorrelation(calc,
nfrequencies=16,
frequency_max=800.0,
frequency_scale=2.0)
```

This is the default parameters for Gauss-legendre integration. The nfrequencies keyword specifies the number of points, the frequency_max keyword sets the value of the highest frequency (but the integration is always an approximation for the infinite integral) and the frequency_scale keyword determines how dense the frequencies are sampled close to \(\omega=0\). The integrals for different number of Gauss-Legendre points is shown below as well as the integrand evaluated at the fine equidistant frequency grid.

It is seen that using the default value of 16 frequency points gives a result which is very well converged (to 0.1 meV). Below we will simply use the default values although we could perhaps use 8 points instead of 16, which would half the total CPU time for the calculations. In this particular case the result is not very sensitive to the frequency scale, but if the there is a non-vanishing density of states near the Fermi level, there may be much more structure in the integrand near \(\omega=0\) and it is important to sample this region well. It should of course be remembered that these values are not converged with respect to the number of unoccupied bands and plane waves.

### Extrapolating to infinite number of bands¶

To calculate the atomization energy we need to obtain the correlation energy as a function of cutoff energy and extrapolate to infinity as explained in RPA correlation energy 2. This is accomplished with the script:

```
from ase.parallel import paropen
from ase.units import Hartree
from gpaw.xc.rpa import RPACorrelation
rpa = RPACorrelation('N.gpw', nblocks=8, truncation='wigner-seitz',
txt='rpa_N.txt')
E1_i = rpa.calculate(ecut=400)
rpa = RPACorrelation('N2.gpw', nblocks=8, truncation='wigner-seitz',
txt='rpa_N2.txt')
E2_i = rpa.calculate(ecut=400)
ecut_i = rpa.ecut_i
f = paropen('rpa_N2.dat', 'w')
for ecut, E1, E2 in zip(ecut_i, E1_i, E2_i):
print(ecut * Hartree, E2 - 2 * E1, file=f)
f.close()
```

which calculates the correlation part of the atomization energy with the
bands and plane waved corresponding to the list of cutoff energies. Note that
the default value of frequencies (16 Gauss-Legendre points) is used. The
script takes on the order of two CPU hours, but can be efficiently
parallelized over kpoints, spin and bands. If memory becomes and issue, it
may be an advantage to specify parallelize over **G**-vectors, which is
done by specifying `nblocks=N`

. The result is written to
rpa_N2.dat and can be visualized with the script:

```
# web-page: extrapolate.png
import numpy as np
import matplotlib.pyplot as plt
from gpaw.utilities.extrapolate import extrapolate
a = np.loadtxt('rpa_N2.dat')
ext, A, B, sigma = extrapolate(a[:, 0], a[:, 1], reg=3, plot=False)
plt.plot(a[:, 0]**(-1.5), a[:, 1], 'o', label='Calculated points')
es = np.array([e for e in a[:, 0]] + [10000])
plt.plot(es**(-1.5), A + B * es**(-1.5), '--', label='Linear regression')
t = [int(a[i, 0]) for i in range(len(a))]
plt.xticks(a[:, 0]**(-1.5), t, fontsize=12)
plt.axis([0., 150**(-1.5), None, -4.])
plt.xlabel('Cutoff energy [eV]', fontsize=18)
plt.ylabel('RPA correlation energy [eV]', fontsize=18)
plt.legend(loc='lower right')
# show()
plt.savefig('extrapolate.png')
```

The figure is shown below

Note that the extrapolate function can also be used to visualize the result by setting plot=True. The power law scaling is seen to be very good at the last three points and the extrapolated results is obtained using linear regression on the last three points (reg=3). We find an extrapolated value of -4.94 eV for the correlation part of the atomization energy. The results are summarized below (all values in eV)

PBE |
HF |
RPA |
HF+RPA |
Experimental |
---|---|---|---|---|

10.61 |
4.84 |
4.94 |
9.78 |
9.89 |

It should be noted that in general, the accuracy of RPA is comparable to (or worse) that of PBE calculations and N2 is just a special case where RPA performs better than PBE. The major advantage of RPA is the non-locality, which results in a good description of van der Waals forces. The true power of RPA thus only comes into play for systems where dispersive interactions dominate.

## Example 2: Adsorption of graphene on metal surfaces¶

As an example where dispersive interactions are known to play a prominent role, we consider the case of graphene adsorbed on a Co(0001) surface 3 and 4. First, the input .gpw files are generated with the following script:

```
import numpy as np
from ase.dft.kpoints import monkhorst_pack
from ase.parallel import paropen
from ase.build import hcp0001, add_adsorbate
from gpaw import GPAW, PW, FermiDirac
from gpaw.hybrids.energy import non_self_consistent_energy as nsc_energy
kpts = monkhorst_pack((16, 16, 1))
kpts += np.array([1 / 32, 1 / 32, 0])
a = 2.51 # lattice parameter of Co
slab = hcp0001('Co', a=a, c=4.07, size=(1, 1, 4))
pos = slab.get_positions()
cell = slab.get_cell()
cell[2, 2] = 20. + pos[-1, 2]
slab.set_cell(cell)
slab.set_initial_magnetic_moments([0.7, 0.7, 0.7, 0.7])
ds = [1.75, 2.0, 2.25, 2.5, 2.75, 3.0, 3.25, 3.5, 3.75, 4.0, 5.0, 6.0, 10.0]
for d in ds:
pos = slab.get_positions()
add_adsorbate(slab, 'C', d, position=(pos[3, 0], pos[3, 1]))
add_adsorbate(slab, 'C', d, position=(cell[0, 0] / 3 + cell[1, 0] / 3,
cell[0, 1] / 3 + cell[1, 1] / 3))
# view(slab)
calc = GPAW(xc='PBE',
mode=PW(600),
kpts=kpts,
occupations=FermiDirac(width=0.01),
txt=f'hmm2_gs_{d}.txt')
slab.calc = calc
E = slab.get_potential_energy()
E_hf = nsc_energy(calc, 'EXX')
calc.diagonalize_full_hamiltonian()
calc.write(f'gs_{d}.gpw', mode='all')
f = paropen('hf_acdf.dat', 'a')
print(d, E, E_hf, file=f)
f.close()
del slab[-2:]
```

Note that besides diagonalizing the full Hamiltonian for each distance, the
script calculates the EXX energy at the self-consistent PBE orbitals and
writes the result to a file. It should also be noted that the k-point grid
is centered at the Gamma point, which makes the *q*-point reduction in the
RPA calculation much more efficient. In general, RPA and EXX is more
sensitive to Fermi smearing than semi-local functionals and we have set the
smearing to 0.01 eV. Due to the long range nature of the van der Waals
interactions, a lot of vacuum have been included above the slab. The
calculation should be parallelized over spin and irreducible *k*-points.

The RPA calculations are done with the following script

```
from ase.parallel import paropen
from gpaw.xc.rpa import RPACorrelation
ds = [1.75, 2.0, 2.25, 2.5, 2.75, 3.0, 3.25, 3.5, 3.75, 4.0, 5.0, 6.0, 10.0]
ecut = 200
for d in ds:
rpa = RPACorrelation(f'gs_{d}.gpw', txt=f'rpa_{ecut}_{d}.txt')
E_rpa = rpa.calculate(ecut=[ecut],
frequency_scale=2.5,
skip_gamma=True,
filename=f'restart_{ecut}_{d}.txt')
f = paropen(f'rpa_{ecut}.dat', 'a')
print(d, E_rpa, file=f)
f.close()
```

The calculations are rather time consuming (~ 1000 CPU hours per distance
point), but can be parallelized very efficiently over bands, k-points
(default) and frequencies (needs to be specified). Here we have changed the
frequency scale from the default value of 2.0 to 2.5 to increase the density
of frequency points near the origin. We also specify that the Gamma point
(in *q*) should not be included since the optical limit becomes unstable for
systems with high degeneracy near the Fermi level. The restart file contains
the contributions from different *q*-points, which is read if a calculation
needs to be restarted.

In principle, the calculations should be performed for a range of cutoff energies and extrapolated to infinity as in the example above. However, energy differences between systems with similar electronic structure converges much faster than absolute correlation energies and a reasonably converged potential energy surface can be obtained using a fixed cutoff of 200 eV for this system.

The result is shown in the Figure below along with LDA, PBE and vdW-DF results. The solid RPA line was obtained using spline interpolation.

Both LDA and PBE predicts adsorption at 2.0 A from the metal slab, but do not include van der Waals attraction. The van der Waals functional shows a significant amount of dispersive interactions far from the slab and predicts a physisorbed minimum 3.75 A from the slab. RPA captures both covalent and dispersive interactions and the resulting potential energy surface is a delicate balance between the two types of interactions. Two minima are seen and the covalent bound state at 2.2 A is slightly lower that the physisorbed state at 3.2 A, which is in good agreement with experiment.