multichain cleaning output

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

diff --git a/source/cluster/wham/src-M/energy_p_new.F b/source/cluster/wham/src-M/energy_p_new.F
index 2302af9..968a9f1 100644 (file)
--- a/source/cluster/wham/src-M/energy_p_new.F
+++ b/source/cluster/wham/src-M/energy_p_new.F
@@ -131,7 +131,7 @@ c      write(iout,*) "TEST_ENE",constr_homology
 c      write(iout,*) "TEST_ENE",ehomology_constr
 
 
-      write (iout,*) "ft(6)",fact(6),wliptran,eliptran
+c      write (iout,*) "ft(6)",fact(6),wliptran,eliptran
 #ifdef SPLITELE
       if (shield_mode.gt.0) then
       etot=fact(1)*wsc*(evdw+fact(6)*evdw_t)+fact(1)*wscp*evdw2