From 80a938e5c92a5050b88a328d8c29b0c36e9a4fb9 Mon Sep 17 00:00:00 2001
From: Paolo Giannozzi <p.giannozzi@gmail.com>
Date: Fri, 22 Nov 2019 20:12:29 +0000
Subject: [PATCH] Incorrect broadcast in lda+U affecting k-point
 parallelization

---
 PW/src/electrons.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/PW/src/electrons.f90 b/PW/src/electrons.f90
index a7bdfe96e..8c0f5fa3f 100644
--- a/PW/src/electrons.f90
+++ b/PW/src/electrons.f90
@@ -659,9 +659,9 @@ SUBROUTINE electrons_scf ( printout, exxen )
            ! ... For LDA+U, ns and ns_nc are also broadcast inside each pool
            ! ... to ensure consistency on all processors of all pools
            IF (noncolin) THEN
-              CALL mp_bcast( rhoin%ns_nc, my_pool_id, intra_pool_comm )
+              CALL mp_bcast( rhoin%ns_nc, root_pool, intra_pool_comm )
            ELSE
-              CALL mp_bcast( rhoin%ns, my_pool_id, intra_pool_comm )
+              CALL mp_bcast( rhoin%ns, root_pool, intra_pool_comm )
            ENDIF
         ENDIF
         !