src-M max_template=50

[unres.git] / source / unres / src_MD-M / lagrangian_lesyng.F

diff --git a/source/unres/src_MD-M/lagrangian_lesyng.F b/source/unres/src_MD-M/lagrangian_lesyng.F
index bd7f549..b4eec37 100644 (file)
--- 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