X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fenergy_p_new.F;h=968a9f1b27fee332a97d7b127f12dab0f149f646;hb=d66ce5a811ab8e4704d5dabec2b6c41526288d83;hp=2302af921529b69a02e94a9067a4f8e2d3047d14;hpb=1d9e46e3a0f61fb1f84708bf20fdc8a7d93a2339;p=unres.git

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
--- 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