X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Flagrangian_lesyng.F;h=b4eec37bada3ba1d2d6224bc1dc6b24082c1e380;hb=13167365414585c4f4a1566397d56c6b07858a34;hp=bd7f549cf1aa7fde83e33890d34eb9c156f72b5e;hpb=3d9388f68364e8474cd88f47bd086bd8d988c726;p=unres.git

diff --git a/source/unres/src_MD-M/lagrangian_lesyng.F b/source/unres/src_MD-M/lagrangian_lesyng.F
index bd7f549..b4eec37 100644
--- a/source/unres/src_MD-M/lagrangian_lesyng.F
+++ b/source/unres/src_MD-M/lagrangian_lesyng.F
@@ -168,12 +168,14 @@ c sites (dimen1)
       my_ng_count=igmult_end-igmult_start
       call MPI_Allgather(3*my_ng_count,1,MPI_INTEGER,ng_counts(0),1,
      &    MPI_INTEGER,FG_COMM,IERROR)
-      write (iout,*) 'Processor:',fg_rank,' CG group',kolor,
+       if (me.eq.king .or. .not. out1file) then
+        write (iout,*) 'Processor:',fg_rank,' CG group',kolor,
      & ' absolute rank',myrank,' igmult_start',igmult_start,
      & ' igmult_end',igmult_end,' count',my_ng_count
-      write (iout,*) "ng_start",(ng_start(i),i=0,nfgtasks-1)
-      write (iout,*) "ng_counts",(ng_counts(i),i=0,nfgtasks-1)
-      call flush(iout)
+        write (iout,*) "ng_start",(ng_start(i),i=0,nfgtasks-1)
+        write (iout,*) "ng_counts",(ng_counts(i),i=0,nfgtasks-1)
+        call flush(iout)
+       endif
       else
 #endif
       igmult_start=1