10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-21 20:52:28 +02:00

Fixed beta_rs

This commit is contained in:
Anthony Scemama 2019-06-17 09:44:01 +02:00
parent 5cb411d364
commit 9717223a4d

View File

@ -95,6 +95,6 @@ end
double precision function beta_rs(rs)
implicit none
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