& allihpb(maxdim),alljhpb(maxdim),
& newnss,newihpb(maxdim),newjhpb(maxdim)
logical found
& allihpb(maxdim),alljhpb(maxdim),
& newnss,newihpb(maxdim),newjhpb(maxdim)
logical found
if (nfgtasks.gt.1)then
call MPI_Reduce(newnss,g_newnss,1,
if (nfgtasks.gt.1)then
call MPI_Reduce(newnss,g_newnss,1,
- if (.not.found) write(iout,'(a15,f12.2,f8.1,2i5)')
+ if (.not.found.and.fg_rank.eq.0)
+ & write(iout,'(a15,f12.2,f8.1,2i5)')
& "SSBOND_BREAK",totT,t_bath,idssb(i),jdssb(i)
#endif
#endif
& "SSBOND_BREAK",totT,t_bath,idssb(i),jdssb(i)
#endif
#endif
- if (.not.found) write(iout,'(a15,f12.2,f8.1,2i5)')
+ if (.not.found.and.fg_rank.eq.0)
+ & write(iout,'(a15,f12.2,f8.1,2i5)')
& "SSBOND_FORM",totT,t_bath,newihpb(i),newjhpb(i)
#endif
#endif
& "SSBOND_FORM",totT,t_bath,newihpb(i),newjhpb(i)
#endif
#endif