X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FMREMD.F;h=743cc8ffa47ef31544a13486746c4652c8dfb6d2;hb=a3f24833ea88fb4da26e30ea225972c085e3f0fe;hp=34a5343b6e73725c582528e1143184d6d6430cd3;hpb=456d8c7a2025617a7bd0f812eb7ba60a99e95856;p=unres.git diff --git a/source/unres/src_MD/MREMD.F b/source/unres/src_MD/MREMD.F index 34a5343..743cc8f 100644 --- a/source/unres/src_MD/MREMD.F +++ b/source/unres/src_MD/MREMD.F @@ -1996,9 +1996,14 @@ c & (d_restart1(j,i+2*nres*il),j=1,3) enddo endif #endif - call mpi_scatter(i2set,1,mpi_integer, - & iset,1,mpi_integer,king, - & CG_COMM,ierr) +Corrected AL 8/19/2014: each processor needs whole iset array not only its +c own element +c call mpi_scatter(i2set,1,mpi_integer, +c & iset,1,mpi_integer,king, +c & CG_COMM,ierr) + call mpi_bcast(i2set(0),nodes,mpi_integer,king, + & CG_COMM,ierr) + iset=i2set(me) endif