From 9717223a4da917ad6f04b50aaf967fcd51208394 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 17 Jun 2019 09:44:01 +0200
Subject: [PATCH] Fixed beta_rs

---
 src/dft_utils_one_e/ec_scan.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/dft_utils_one_e/ec_scan.irp.f b/src/dft_utils_one_e/ec_scan.irp.f
index 7a4b587b..4807b89f 100644
--- a/src/dft_utils_one_e/ec_scan.irp.f
+++ b/src/dft_utils_one_e/ec_scan.irp.f
@@ -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