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

Bug fix: the routine mp_get_i1 was actually sending and receiving messages 

of zero length. This created problems with pools and wfc_collect=.true..


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4764 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2008-03-28 13:24:11 +00:00
parent 320f844697
commit fc160b6196
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Modules/mp.f90
View File

@ -777,9 +777,11 @@
IF(dest .NE. sour) THEN
#if defined(__MPI)
IF(mpime .EQ. sour) THEN
msglen=1
CALL MPI_SEND( msg_sour, msglen, MPI_INTEGER, dest, ip, group, ierr)
IF (ierr/=0) CALL mp_stop( 8060 )
ELSE IF(mpime .EQ. dest) THEN
msglen=1
CALL MPI_RECV( msg_dest, msglen, MPI_INTEGER, sour, ip, group, istatus, IERR )
IF (ierr/=0) CALL mp_stop( 8061 )
CALL MPI_GET_COUNT(istatus, MPI_INTEGER, nrcv, ierr)