LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 14:03:37 +01:00
Code Releases Activity

Fixed beta_rs

Browse Source
This commit is contained in:
Anthony Scemama 2019-06-17 09:44:01 +02:00
parent 5cb411d364
commit 9717223a4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/dft_utils_one_e/ec_scan.irp.f
View File

@ -95,6 +95,6 @@ end
double precision function beta_rs(rs) double precision function beta_rs(rs)
implicit none implicit none
double precision, intent(in) ::rs double precision, intent(in) ::rs
beta_rs(rs) = 0.066725d0 * (1.d0 + 0.1d0 * rs)/(1.d0 + 0.1778d0 * rs) beta_rs = 0.066725d0 * (1.d0 + 0.1d0 * rs)/(1.d0 + 0.1778d0 * rs)
end end