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