X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FssMD.F;h=6c7d5234bcf27e9b0dec549ebe2f16e122c8ddc9;hb=bf8b3ab324569ca7ae7bb9045ad9358f6826a150;hp=9c4bfd3f1566430cd6e5592f32d207671cfceee9;hpb=6e5f3f4866eb982f17fb6d5c2bb30bd7bf0585be;p=unres.git

diff --git a/source/unres/src_MD/ssMD.F b/source/unres/src_MD/ssMD.F
index 9c4bfd3..6c7d523 100644
--- a/source/unres/src_MD/ssMD.F
+++ b/source/unres/src_MD/ssMD.F
@@ -589,7 +589,7 @@ cmc      write(iout,*)"ALLNSS ",allnss,(allihpb(i),alljhpb(i),i=1,allnss)
      &    MPI_INTEGER,MPI_SUM,king,FG_COMM,IERR)
         call MPI_Gather(newnss,1,MPI_INTEGER,
      &                  i_newnss,1,MPI_INTEGER,king,FG_COMM,IERR)
-        displ(0)=0
+C        displ(0)=0
         do i=1,nfgtasks-1,1
           displ(i)=i_newnss(i-1)+displ(i-1)
         enddo