multichain cleaning output

[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 ba87bd2..f29b01f 100644 (file)
--- a/source/cluster/wham/src-M/work_partition.F
+++ b/source/cluster/wham/src-M/work_partition.F
@@ -80,7 +80,7 @@ C     &        "Processor",i," indstart",indstart(i),
 C     &        " indend",indend(i)," count",scount(i)
 C         enddo
       endif 
-      write(iout,*) "just before leave"
+c      write(iout,*) "just before leave"
       return
       end
 #endif