From 9c894a5f4b5388824f09e825c3e57a58c4b06133 Mon Sep 17 00:00:00 2001
From: Paolo Giannozzi <p.giannozzi@gmail.com>
Date: Wed, 8 Sep 2021 20:48:25 +0200
Subject: [PATCH] Oops ...

---
 PW/src/vloc_of_g.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PW/src/vloc_of_g.f90 b/PW/src/vloc_of_g.f90
index 7a7e2731e..ecb1b9984 100644
--- a/PW/src/vloc_of_g.f90
+++ b/PW/src/vloc_of_g.f90
@@ -116,7 +116,7 @@ SUBROUTINE vloc_of_g( mesh, msh, rab, r, vloc_at, zp, tpiba2, ngl, &
         aux (ir) = aux1 (ir) * sin (gx * r (ir) ) / gx
      enddo
      call simpson (msh, aux, rab, vlcp)
-     IF ( .not. ( do_comp_esm .and. ( esm_bc .ne. 'pbc' ) .and. &
+     IF ( .not. ( do_comp_esm .and. ( esm_bc .ne. 'pbc' ) ) .and. &
           .not. do_cutoff_2D ) THEN
         !
         !   here we re-add the analytic fourier transform of the erf function