Incorrect sum over pools in LSDA case (courtesy of Mariella Ippolito, CINECA)

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12218 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2016-03-15 17:17:56 +00:00
parent 20ea69119f
commit 59ff7e3445
1 changed files with 2 additions and 2 deletions

View File

@ -640,8 +640,8 @@ ENDDO spin_loop
!
! recover over kpt parallelization (inter_pool)
!
CALL mp_sum( epsr, inter_pool_comm )
CALL mp_sum( epsi, inter_pool_comm )
CALL mp_sum( epsrc, inter_pool_comm )
CALL mp_sum( epsic, inter_pool_comm )
!
! impose the correct normalization