scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Bug fix: this routine was not correct in the parallel case. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5470 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2009-03-11 14:56:14 +00:00
parent 9501d97cdd
commit 009a3315fd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PH/gmressolve_all.f90
View File

@ -172,7 +172,7 @@ subroutine gmressolve_all (h_psi, cg_psi, e, d0psi, dpsi, h_diag, &
! norm of pre. r : bet = |r|
bet(ibnd) = ZDOTC (ndim, r(1,ibnd), 1, r(1,ibnd), 1)
#ifdef __PARA
call mp_sum ( bet, intra_pool_comm )
call mp_sum ( bet(ibnd), intra_pool_comm )
#endif
bet(ibnd) = sqrt( bet(ibnd) )
!