1(* 2 Copyright (C) 2017 M.A.L. Marques 3 4 This Source Code Form is subject to the terms of the Mozilla Public 5 License, v. 2.0. If a copy of the MPL was not distributed with this 6 file, You can obtain one at http://mozilla.org/MPL/2.0/. 7*) 8 9(* type: gga_exc *) 10(* prefix: 11 gga_c_zpbeint_params *params; 12 13 assert(p->params != NULL); 14 params = (gga_c_zpbeint_params * )(p->params); 15*) 16 17params_a_gamma := (1 - log(2))/Pi^2: 18params_a_BB := 1: 19$include "gga_c_pbe.mpl" 20 21ff := (z, t) -> mphi(z)^(params_a_alpha*t^3): 22 23f := (rs, z, xt, xs0, xs1) -> 24 f_pw(rs, z) + ff(z, tp(rs, z, xt))*fH(rs, z, tp(rs, z, xt)): 25