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

fix error in atom assignment to mpi ranks

This commit is contained in:
Alberto Otero de la Roza 2019-08-05 01:34:59 +02:00
parent 15dd69c9bd
commit cd5f3cac63
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PHonon/PH/d2ionq_xdm.f90
View File

@ -100,7 +100,7 @@ SUBROUTINE d2ionq_xdm(alat,nat,at,tau,q,der2xdm)
first = (divid+1) * me_image + 1
last = (divid+1) * (me_image+1)
ELSE
first = (divid + 1) * resto + divid * me_image-resto + 1
first = ((divid+1) * resto) + divid * (me_image-resto) + 1
last = (divid+1) * resto + divid * (me_image-resto+1)
ENDIF
#else
@ -115,7 +115,7 @@ SUBROUTINE d2ionq_xdm(alat,nat,at,tau,q,der2xdm)
dtau = tau(:,k) - tau(:,l)
#if defined(__INTEL_COMPILER) && (__INTEL_COMPILER < 1600)
!$omp parallel do private(r,d2,dd,g,gp,h,hp,eiqr,auxr) default(shared), reduction(+:aux), reduction(+:aux2), reduction(-:ene)
!$omp parallel do private(r,d2,dd,g,gp,h,hp,eiqr,auxr) default(shared), reduction(+:aux), reduction(+:aux2), reduction(+:ene)
#endif
DO nr = 1, nvec
r = lvec(1,nr) * at(:,1) + lvec(2,nr) * at(:,2) + lvec(3,nr) * at(:,3) - dtau