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

bcast of the ecutrho var added. (assume this was not left unbcast-ed on purpose) 

This variable caused xpsectra to fail in parallel when Martyna-Tuckerman was used
(ecutrho needed to initialize MT)
AF


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8366 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
ferretti 2011-12-27 14:33:12 +00:00
parent b445a38bd6
commit ec5f678fff
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
PW/src/pw_restart.f90
View File

@ -1279,8 +1279,8 @@ MODULE pw_restart
USE symm_base, ONLY : nsym
USE gvect, ONLY : ngm_g, ecutrho
USE fft_base, ONLY : dfftp
USE gvecs, ONLY : ngms_g, dual
USE fft_base, ONLY: dffts
USE gvecs, ONLY : ngms_g, dual
USE fft_base, ONLY : dffts
USE lsda_mod, ONLY : lsda
USE noncollin_module, ONLY : noncolin
USE ktetra, ONLY : ntetra
@ -1447,6 +1447,7 @@ MODULE pw_restart
CALL mp_bcast( nsp, ionode_id, intra_image_comm )
CALL mp_bcast( nsym, ionode_id, intra_image_comm )
CALL mp_bcast( ecutwfc, ionode_id, intra_image_comm )
CALL mp_bcast( ecutrho, ionode_id, intra_image_comm )
CALL mp_bcast( dual, ionode_id, intra_image_comm )
CALL mp_bcast( npwx_, ionode_id, intra_image_comm )
CALL mp_bcast( gamma_only, ionode_id, intra_image_comm )
@ -1957,12 +1958,12 @@ MODULE pw_restart
SUBROUTINE read_planewaves( dirname, ierr )
!------------------------------------------------------------------------
!
USE gvect, ONLY : ngm_g, ecutrho
USE gvecs, ONLY : ngms_g, dual
USE gvect, ONLY : ngm_g, ecutrho
USE gvecs, ONLY : ngms_g, dual
USE fft_base, ONLY : dfftp
USE fft_base, ONLY : dffts
USE wvfct, ONLY : npwx, g2kin, ecutwfc
USE control_flags, ONLY : gamma_only
USE wvfct, ONLY : npwx, g2kin, ecutwfc
USE control_flags, ONLY : gamma_only
!
IMPLICIT NONE
!
@ -2020,6 +2021,7 @@ MODULE pw_restart
END IF
!
CALL mp_bcast( ecutwfc, ionode_id, intra_image_comm )
CALL mp_bcast( ecutrho, ionode_id, intra_image_comm )
CALL mp_bcast( dual, ionode_id, intra_image_comm )
CALL mp_bcast( npwx_, ionode_id, intra_image_comm )
CALL mp_bcast( gamma_only, ionode_id, intra_image_comm )