introduction of shielding to cluster DEBUG mode

[unres.git] / source / cluster / wham / src-M / work_partition.F

diff --git a/source/cluster/wham/src-M/work_partition.F b/source/cluster/wham/src-M/work_partition.F
index e31db53..ba87bd2 100644 (file)
--- 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