X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fwork_partition.F;h=ba87bd2655ec38ea3bca3f44ec4e55a6917aa188;hb=24d71016d39facb439708acae299529762f51e81;hp=e31db534b9475c1d08aaec70b039de172086f6ac;hpb=bbeeae96ba3edb7acbb8e7e41c0e1cb8a969e025;p=unres.git

diff --git a/source/cluster/wham/src-M/work_partition.F b/source/cluster/wham/src-M/work_partition.F
index e31db53..ba87bd2 100644
--- a/source/cluster/wham/src-M/work_partition.F
+++ b/source/cluster/wham/src-M/work_partition.F
@@ -74,12 +74,13 @@ c        print *,"N",n," NCON_WORK",ncon_work
 
       if (lprint) then
         write (iout,*) "Partition of work between processors"
-          do i=0,nprocs-1
-            write (iout,'(a,i5,a,i7,a,i7,a,i7)')
-     &        "Processor",i," indstart",indstart(i),
-     &        " indend",indend(i)," count",scount(i)
-          enddo
-      endif
+C          do i=0,nprocs-1
+C            write (iout,'(a,i5,a,i7,a,i7,a,i7)')
+C     &        "Processor",i," indstart",indstart(i),
+C     &        " indend",indend(i)," count",scount(i)
+C         enddo
+      endif 
+      write(iout,*) "just before leave"
       return
       end
 #endif