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

Added a missing "#ifdef __PARA". C.S. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3035 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2006-04-21 15:02:12 +00:00
parent 8bc7ccad7a
commit fe00991a30
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CPV/runcp.f90
View File

@ -797,11 +797,12 @@
tg_c3(:) = 0D0
tg_rhos(:,:) = 0D0
#if defined (__PARA) && defined (__MPI)
DO i = 1, nspin
CALL MPI_Allgatherv(rhos(1,i), dffts%npp(me_image+1)*nr1sx*nr2sx, MPI_DOUBLE_PRECISION, &
tg_rhos(1,i), recv_cnt, recv_displ, MPI_DOUBLE_PRECISION, ME_OGRP, IERR)
ENDDO
#endif
do i = 1, n, 2*NOGRP ! 2*NOGRP eigenvalues are treated at each iteration
!----------------------------------------------------------------