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

bug fixes in parallel execution 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1020 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
deinzer 2004-06-28 16:28:48 +00:00
parent de646b0367
commit 56680c2867
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PH/bcast_ph_input.f90
View File

@ -34,6 +34,8 @@ subroutine bcast_ph_input
call mp_bcast (zue, root) call mp_bcast (zue, root)
call mp_bcast (reduce_io, root) call mp_bcast (reduce_io, root)
call mp_bcast (elph, root) call mp_bcast (elph, root)
call mp_bcast (lnscf, root)
call mp_bcast (ldisp, root)
! !
! integers ! integers
! !

6
PH/phonon.f90
View File

@ -19,6 +19,8 @@ program phonon
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
use pwcom use pwcom
use io_files use io_files
USE io_global, ONLY: ionode_id
USE mp, ONLY: mp_bcast
USE ions_base, ONLY : nat USE ions_base, ONLY : nat
USE kinds, only : DP USE kinds, only : DP
USE parser, ONLY : int_to_char USE parser, ONLY : int_to_char
@ -137,6 +139,10 @@ program phonon
zue = .false. zue = .false.
end if end if
call mp_bcast (epsil, ionode_id)
call mp_bcast (zue, ionode_id)
call mp_bcast (lgamma, ionode_id)
nks = nks_start nks = nks_start
xk(:,1:nks_start) = xk_start(:,1:nks_start) xk(:,1:nks_start) = xk_start(:,1:nks_start)
wk(1:nks_start) = wk_start(1:nks_start) wk(1:nks_start) = wk_start(1:nks_start)

6
PH/phq_readin.f90
View File

@ -163,9 +163,11 @@ subroutine phq_readin
if (nat_todo.ne.0.and.nrapp.ne.0) call errore ('phq_readin', & if (nat_todo.ne.0.and.nrapp.ne.0) call errore ('phq_readin', &
&' incompatible flags', 1) &' incompatible flags', 1)
! !
! reads the q point ! reads the q point (just if ldisp = .false.)
! !
read (5, *, err = 300, iostat = ios) (xq (ipol), ipol = 1, 3) if (.not. ldisp) then
read (5, *, err = 300, iostat = ios) (xq (ipol), ipol = 1, 3)
end if
300 call errore ('phq_readin', 'reading xq', abs (ios) ) 300 call errore ('phq_readin', 'reading xq', abs (ios) )
lgamma = xq (1) .eq.0.d0.and.xq (2) .eq.0.d0.and.xq (3) .eq.0.d0 lgamma = xq (1) .eq.0.d0.and.xq (2) .eq.0.d0.and.xq (3) .eq.0.d0
if ( (epsil.or.zue) .and..not.lgamma) call errore ('phq_readin', & if ( (epsil.or.zue) .and..not.lgamma) call errore ('phq_readin', &