multichain debug print removed (no fort.2 file)

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

diff --git a/source/unres/src_MD-M/initialize_p.F b/source/unres/src_MD-M/initialize_p.F
index 91a8b83..446cad5 100644 (file)
--- a/source/unres/src_MD-M/initialize_p.F
+++ b/source/unres/src_MD-M/initialize_p.F
@@ -881,6 +881,7 @@ c        call flush(iout)
 c        write (iout,*) "Gather itask_cont_to ended"
 c        call flush(iout)
         if (fg_rank.eq.king) then
+         if (me.eq.0 .or. .not. out1file) then
           write (iout,*)"Contact receive task map (proc, #tasks, tasks)"
           do i=0,nfgtasks-1
             write (iout,'(20i4)') i,ntask_cont_from_all(i),
@@ -895,6 +896,7 @@ c        call flush(iout)
           enddo
           write (iout,*)
           call flush(iout)
+         endif
 C Check if every send will have a matching receive
           ncheck_to=0
           ncheck_from=0
@@ -902,7 +904,8 @@ C Check if every send will have a matching receive
             ncheck_to=ncheck_to+ntask_cont_to_all(i)
             ncheck_from=ncheck_from+ntask_cont_from_all(i)
           enddo
-          write (iout,*) "Control sums",ncheck_from,ncheck_to
+          if (me.eq.0 .or. .not. out1file)
+     &     write (iout,*) "Control sums",ncheck_from,ncheck_to
           if (ncheck_from.ne.ncheck_to) then
             write (iout,*) "Error: #receive differs from #send."
             write (iout,*) "Terminating program...!"