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@3056 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2006-04-27 21:25:31 +00:00
parent bcd45dc96f
commit 319a947e46
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/chargedensity.f90
View File

@ -791,7 +791,7 @@
!
END DO
#if defined (__PARA)
IF ( NOGRP .NE. 1 ) THEN
CALL MPI_ALLREDUCE(tmp_rhos(1,1), long_rhos(1,1), nr1sx*nr2sx*tmp_npp(me_image+1), &
MPI_DOUBLE_PRECISION, MPI_SUM, ME_OGRP, IERR)
@ -800,6 +800,7 @@
MPI_DOUBLE_PRECISION, MPI_SUM, ME_OGRP, IERR)
ENDIF
ENDIF
#endif
tmp_rhos(:,:) = 0D0