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