Commit 78480c2a authored by marsamos's avatar marsamos

some intra_pool in noncolinear things still around



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9392 c92efa57-630b-4861-b058-cf58834340f0
parent c51de951
......@@ -225,7 +225,7 @@ SUBROUTINE new_ns_nc(ns)
USE gvect, ONLY : gstart
USE io_files, ONLY : iunigk, nwordwfc, iunwfc, nwordatwfc, iunsat
USE buffers, ONLY : get_buffer
USE mp_global, ONLY : intra_pool_comm, inter_pool_comm
USE mp_global, ONLY : intra_bgrp_comm, inter_pool_comm
USE mp, ONLY : mp_sum
IMPLICIT NONE
......@@ -274,7 +274,7 @@ SUBROUTINE new_ns_nc(ns)
ENDDO
ENDDO
#ifdef __MPI
CALL mp_sum ( proj, intra_pool_comm )
CALL mp_sum ( proj, intra_bgrp_comm )
#endif
!
! compute the occupation matrix
......
......@@ -22,7 +22,6 @@ subroutine vhpsi (ldap, np, mps, psip, hpsi)
USE ions_base, ONLY : nat, ntyp => nsp, ityp
USE basis, ONLY : natomwfc
USE control_flags, ONLY : gamma_only
USE mp_global, ONLY: intra_pool_comm
USE mp, ONLY: mp_sum
!
implicit none
......@@ -87,7 +86,7 @@ subroutine vhpsi_nc (ldap, np, mps, psip, hpsi)
USE noncollin_module, ONLY : npol
USE basis, ONLY : natomwfc
USE wvfct, ONLY : npwx
USE mp_global, ONLY : intra_pool_comm
USE mp_global, ONLY : intra_bgrp_comm
USE mp, ONLY : mp_sum
!
implicit none
......@@ -111,7 +110,7 @@ subroutine vhpsi_nc (ldap, np, mps, psip, hpsi)
ENDDO
ENDDO
#ifdef __MPI
CALL mp_sum ( proj, intra_pool_comm )
CALL mp_sum ( proj, intra_bgrp_comm )
#endif
!--
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment